MC(0) = Form1.InputBox2.TextMC(1) = Form1.InputBox4.TextMC(2) = Form1.InputBox5.TextMC(3) = Form1.InputBox6.TextMC(4) = Form1.InputBox7.Text
Sub 测试(hwndEx, MCIndex) Delay DL
Do
Call Plugin.Bkgnd.LeftClick(hwndEx, 500, 400)
Loop
End
Sub
Sub 开始 For i = 0
To
4 Hwnd = Plugin.Window.Search(MC(i)) MyArray = Split(Hwnd, "|") If UBound(MyArray) >= 0
Then
For j = 0
To UBound(MyArray) - 1 hwndEx = CLng(MyArray(j)) TracePrint MC(i) & "---" & hwndEx If Form1.OptionBox1.Value = 1
Then Form1.Label6.Caption = "120晶石秒抢中,请勿操作..."
Call
测试(hwndEx, i) ElseIf Form1.OptionBox2.Value = 1
Or Form1.OptionBox9.Value = 1
Then Form1.Label6.Caption = "所有晶石秒抢中,请勿操作..."
Call
测试(hwndEx, i) End
If
Next
End
If
Next
End
Sub//脚本运行===============================================================================================================Call 开始