按键精灵Inputbox根据输入的变量,执行不同的命令

2025-01-05 00:47:11
推荐回答(1个)
回答1:

SetSimMode 2
Input = InputBox("请输入一个数字") 
TracePrint ("输入: " & Input)
Dim A
a = ("输入: " & Input)
Select Case a
Case "输入: 1"    //情况1
    T1 = 1000
    Y1 = 2000
    U1 = 3000
    I1 = 4000
Case "输入: 2"    //情况2
    T2 = 10000
    Y2 = 20000
    U2 = 30000
    I2 = 40000
Case "输入:3"    //情况3
    T3 = 100000
    Y3 = 200000
    U3 = 300000
    I3 = 400000
Case Else
    //否则
End Select

MoveTo 1236, 563
LeftClick 1
Delay T?
MoveTo 1308, 571
LeftClick 1

变量 a 因为合并了 字符串 所以是 字符串 串变量  ,VBS 会强制把变量转换为字符串