加一个变量判断，按下a变量的改变，然后进行不同的操作

我新手，你的问题
1涉及到多线程的问题
2同时还涉及到了变量值传递的问题
我的土方法是在界面放个输入框来传递变量值，变量值再用作另外线程的判断
//---------------代码如下 注意需要在界面部分拖入一个输入框，因为我新手所有方法土了哈哈

//
i = 1
Form1.InputBox1.Text =i
BeginThread 断
Call 按
Sub 断
Do
k= GetLastKey
If k = 65 Then //按下A改变变量，也就是一按开一按关
i = i + 1
Form1.InputBox1.Text =i
End If
Delay 10
Loop
End Sub
Sub 按
Do
i=Form1.InputBox1.Text
If int(i / 2) = i / 2 Then
//放入你要执行的代码 比如按下shift
KeyDown "Shift", 1
Else
Keyup "Shift", 1
End If
Delay 5
Loop
End Sub

KeyDown "Shift", 1
Delay 30
rem z
k = WaitKey ()
If k = 65 Then
Delay 30
KeyUp "Shift", 1
Else
Goto z
End If
rem y
k = WaitKey ()
If k = 65 Then
Delay 30
KeyDown "Shift", 1
Else
Goto y
End If
goto z