源码如下,迹肢岁个人原创,先启动脚本姿睁,然后才能按Q启动你要执行的代码。
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As any) As Integer
Do
Key = WaitKey()
If key = 81 Then
Exit do
End If
Loop
TracePrint "你按下q已经启动脚饥液本"
BeginThread 执行脚本
BeginThread 判断
Sub 判断
Do
If GetAsyncKeyState(81) = 0 Then
TracePrint "你松开q已经关闭脚本"
exitScript
End if
Loop
End Sub
Sub 执行脚本
TracePrint "执行成功"
End Sub
做成小精灵可以.自启动或者用脚本载入事件子程序.
无法做到。但是有其他办法