- Import "GK.luae"
- Dim tm1,tm2,tm3,tm4
- Thread.Start thread1, "我是线程1"
- Thread.Start thread2, "我是线程2"
- Do
- Delay 300000
- Loop
- Sub thread1(var)
- Do
- 贵族11
- Do
- Delay 1000
- tm2 = Time()
- Tap 437,1706
- Delay 2000
- Tap 1008,1696
- Loop While tm2 - tm1 < 300
- Loop
- End Sub
- Sub thread2(var)
- Do
- 贵族8
- Do
- Delay 1000
- tm4 = Time()
- Tap 922,1329
- Delay 2000
- Tap 1008,1699
- Loop While tm4 - tm3 < 300
- Loop
- End Sub
- Sub 贵族11
- 进贵族
- Tap 274,343
- Delay 1000
- Tap 152,1556
- Delay 10000
- tm1 = Time()
- 退出
- End Sub
- Sub 贵族8
- 进贵族
- Tap 481,344
- Delay 1000
- Tap 152,1556
- Delay 10000
- tm3 = Time()
- 退出
- End Sub
- Sub 进贵族
- Delay 5000
- If GK.Find("1003|1547|3A86F7,1014|1551|849EEF,1014|1552|E6F3F7,1034|1503|84EBFF,1030|1586|4296BD") Then
- Delay 1000
- GK.Find("620|166|B58A52,631|167|EFE3D6,629|175|FFFFFF,591|175|F7F3EF,607|168|E6DBCE,612|182|F7EFE6,590|156|F7F3EF,879|176|9CFBFF")
- Delay 2000
- End If
- End Sub
- Sub 退出
- Tap 1029,1558
- Delay 2000
- Tap 380,1050
- Delay 10000
- End Sub
复制代码
|