补充测试代码如下:
Global SLV
Global RobQuestionStatus
// 软件界面加载
Event Wind.Load
SLV = 1
End Event
Sub PrintGlobal(pos)
TracePrint "> " & pos & ",打印全局变量:"
TracePrint "> SLV: " & SLV
TracePrint "> RobQuestionStatus: " & RobQuestionStatus
End Sub
// 自动抢答(使用线程调用)
Sub AutoRobQuestionS()
RobQuestionStatus = 1// 自动抢答的标记
Call PrintGlobal("在抢答中")
Do // 循环点击【抢答】按钮
If RobQuestionStatus = 0 Then // 停止自动抢答
Exit Do
End If
rob = 0
If rob = 0 Then // 如果找不到【抢答】按钮,则退出抢题
TracePrint "> 抢答成功!"
Exit Do
Else // 自动点击【抢答】按钮
TracePrint "> 点击屏幕按钮"
End If
Loop
End Sub
// 抢答
Event Wind.Button1.Click
Call PrintGlobal("在抢答前")
//AutoRobQuestionThread =
BeginThread AutoRobQuestionS // 启动自动抢答线程
End Event
// 打印全局变量
Event Wind.Button2.Click
Call PrintGlobal("在抢答后")
End Event