按键精灵 怎么按自己的设置的命令 运行某子程序

我给你个思路，也许你会喜欢。

弹出框的方式就随你，你用input也行，你用QUI做个也行。
然后在主程序里其实可以把所有子程序都Call一遍，判断放在子程序里，可能还简洁。
比如你有六子程序A1，A2，A3，A4，A5，A6
假设变量Input是你输入的字串，那么↓
每个子程序里首行都加一行代码：
第一个子程序里首行加 If instr(input, "1") = 0 Then : Exit Sub : End If
第二个子程序里道行加 If instr(input, "2") = 0 Then : Exit Sub : End If
……如此类推
这样其它地方，比如主程序里 就不用另加判断了，整体看起来很整洁
当然，你的子程序数量要少于10个才成立，若多于9个那么要统一字节，不适合这样搞。

Dim Input
Do 
Input = InputBox("请输入运行的程序，提示：12356")
If int(len(Input))>6 or int(len(Input))<=0
        Else
For a=1 to len(Input)
if int(Mid(Input, a, 1))=1
call q1()
ElseIf int(Mid(Input, a, 1))=2
    call q2()
    ElseIf int(Mid(Input, a, 1))=3
    call q3()
    ElseIf int(Mid(Input, a, 1))=4
    call q4()
    ElseIf int(Mid(Input, a, 1))=5
    call q5()
    ElseIf int(Mid(Input, a, 1))=6
    call q6()
End If
Next
Exit Do
    End If
    Loop
Sub q1()
MessageBox "运行q1"
End Sub
Sub q2()
MessageBox "运行q2"
End Sub
Sub q3()
MessageBox "运行q3"
End Sub
Sub q4()
MessageBox "运行q4"
End Sub
Sub q5()
MessageBox "运行q5"
End Sub
Sub q6()
MessageBox "运行q6"
End Sub

判断你输入得窗口呗.取到你输入得数字,进行截取对比,用MID函数就可以截取了.之后就是用判断语句判断,直接跳到子程序,或者多线程全部开启.

你这个最好是个搞个选择的不要输数字的