Question

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

我想这样 启动后 探出一个输入窗口 我输入1236 他就字运行第123和第6个子程序
而不运行第4和第5个子程序

Answer 1

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

弹出框的方式就随你，你用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个那么要统一字节，不适合这样搞。

Answer 2

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

Answer 3

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

追问

我是菜鸟 不是很明白
比如说 一个网业 有1到6个输入框 启动脚本后 弹出一个设置界面 询问我在那一个框不需要输入数字 我输入3 那么他就只在12和456输入数字 脚本结束 下一次启动 询问我后 我输入6 那么他就只在12345输入数字
求模板脚本

Answer 4

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

追问

怎么搞选择