求个按键精灵后台多开代码啊 能单独开启单独停止的啊

后台什么我都已经解决了 就差单独停止了
2024-12-20 07:38:19
推荐回答(1个)
回答1:

Dim a
Do
a = WaitKey
If a = 49 Then //按键1 开始线程x
BeginThread x
ElseIf a = 50 Then//按键2 开始线程y
BeginThread y
End If
Loop
Sub x
MessageBox "x"
End Sub
Sub y
MessageBox "y"
End Sub
单独停止的话就只要加上StopThread x和StopThread y就行了。
希望能对您有帮助