KeyComboGenerator

Option Explicit

dim modifier:modifier=inputbox("Modifier Key","Key Combo Binder")
dim modifierpn:modifierpn="_+" & modifier   ' alias for toggled modifier alias
dim modifiermn:modifiermn="_-" & modifier   ' alias for default modifier alias
dim bind    ' key being modified
dim bindn   ' alias for key being modified
dim bindsetp:bindsetp=""""
dim bindsetm:bindsetm=""""
dim aliasset
dim func1   ' default command set
dim func2   ' modified command set
dim func1n  ' alias for default command set
dim func2n  ' alias for modified command set
dim switch  ' for switch
dim final   ' final output
dim output  ' output

function binder()
    bind=inputbox("Key","Key Combo Binder")
    bindn="_" & bind
    func1="""" & inputbox("Default Command Set","Key Combo Binder") & """"
    func1n="_" & inputbox("Default Command Set Name","Key Combo Binder")
    func2="""" & inputbox("Modified Command Set","Key Combo Binder") & """"
    func2n="_" & inputbox("Modified Command Set Name","Key Combo Binder")

    aliasset=aliasset & "bind " & bind & " " & bindn & ";alias " & bindn & " " & func1n & ";alias " & func1n & " " & func1 & ";alias " & func2n & " " & func2
    bindsetp=bindsetp & "alias " & bindn & " " & func2n
    bindsetm=bindsetm & "alias " & bindn & " " & func1n

    switch=msgbox("Would you like to bind another key combo?",4,"Key Combo Binder")

    select case switch
        case 6
            aliasset=aliasset & ";"
            binder()
        case 7
            main()
        case else
            main()
    end select
end function

function main()
    bindsetp=bindsetp & """"
    bindsetm=bindsetm & """"

    final="bind " & modifier & " " & modifierpn & ";alias " & modifierpn & " " & bindsetp & ";alias " & modifiermn & " " & bindsetm & ";" & aliasset
    output=inputbox("Output:","Key Combo Binder",final)
end function

binder()