Sub 推出重新进()
'728,10
Do
游戏房间句柄 = Plugin.Window.FindEx(游戏大厅句柄, 0, "BOGY'S GAME ENGINE", "游戏房间")
If 游戏房间句柄 > 0 Then
Delay 1000
Call Plugin.Bkgnd.LeftClick(游戏房间句柄, 728,10)
Exit Do
End If
Delay 500
loop
Delay 1500
Do
选择框句柄 = Plugin.Window.FindEx(游戏大厅句柄,0,"AfxWnd70s","GTFriendList")
If 选择框句柄 > 0 Then
Call Plugin.Bkgnd.MoveTo(选择框句柄,137,96)
Call Plugin.Bkgnd.LeftClick(选择框句柄,137,96)
Call Plugin.Bkgnd.LeftClick(选择框句柄, 137, 96)
Call Plugin.Bkgnd.LeftDoubleClick(选择框句柄, 137, 96)
Delay 1500
Exit Do
End If
Delay 500
Loop
Do
游戏房间句柄 = Plugin.Window.FindEx(游戏大厅句柄, 0, "BOGY'S GAME ENGINE", "游戏房间")
If 游戏房间句柄 > 0 Then
Delay 1000
TracePrint 游戏房间句柄
//脚本运行到这里就停止了
Call Plugin.Bkgnd.MoveTo(游戏房间句柄, 180, 472)
Call Plugin.Bkgnd.LeftClick(游戏房间句柄, 180, 472)
Call Plugin.Bkgnd.LeftClick(游戏房间句柄, 180, 472)
Call Plugin.Bkgnd.LeftDoubleClick(游戏房间句柄, 180, 472)
Exit Do
End If
Delay 500
loop
End Sub
'728,10
Do
游戏房间句柄 = Plugin.Window.FindEx(游戏大厅句柄, 0, "BOGY'S GAME ENGINE", "游戏房间")
If 游戏房间句柄 > 0 Then
Delay 1000
Call Plugin.Bkgnd.LeftClick(游戏房间句柄, 728,10)
Exit Do
End If
Delay 500
loop
Delay 1500
Do
选择框句柄 = Plugin.Window.FindEx(游戏大厅句柄,0,"AfxWnd70s","GTFriendList")
If 选择框句柄 > 0 Then
Call Plugin.Bkgnd.MoveTo(选择框句柄,137,96)
Call Plugin.Bkgnd.LeftClick(选择框句柄,137,96)
Call Plugin.Bkgnd.LeftClick(选择框句柄, 137, 96)
Call Plugin.Bkgnd.LeftDoubleClick(选择框句柄, 137, 96)
Delay 1500
Exit Do
End If
Delay 500
Loop
Do
游戏房间句柄 = Plugin.Window.FindEx(游戏大厅句柄, 0, "BOGY'S GAME ENGINE", "游戏房间")
If 游戏房间句柄 > 0 Then
Delay 1000
TracePrint 游戏房间句柄
//脚本运行到这里就停止了
Call Plugin.Bkgnd.MoveTo(游戏房间句柄, 180, 472)
Call Plugin.Bkgnd.LeftClick(游戏房间句柄, 180, 472)
Call Plugin.Bkgnd.LeftClick(游戏房间句柄, 180, 472)
Call Plugin.Bkgnd.LeftDoubleClick(游戏房间句柄, 180, 472)
Exit Do
End If
Delay 500
loop
End Sub