809
社区成员
发帖
与我相关
我的任务
分享
Private Sub Command43_Click()
On Error Resume Next
Command_False
For ii = 1 To 2
If CheckApplicationIsRun("GamePlaza.exe") = True Then
Else
Shell "rundll32.exe url.dll,FileProtocolHandler " & "C:\Users\Administrator\Desktop\KK竞技.lnk", vbNormalFocus
End If
Delay 500
Dim lHwnd As Long
lHwnd = FindWindow("xDirectUI", vbNullString)
SetWindowPos lHwnd, HWND_TOPMOST, 241, 156, 959, 558, 0
SetCursorPos 1010, 462
Delay 50
mouse_event &H2, 0&, 0&, 0&, 0& '鼠标左键按下
mouse_event &H4, 0&, 0&, 0&, 0& '鼠标左键弹起
Delay 200
Call keybd_event(vbKeyTab, 0, 0, 0)
Call keybd_event(vbKeyTab, 0, KEYEVENTF_KEYUP, 0) '释放
Call keybd_event(vbKeyTab, 0, 0, 0)
Call keybd_event(vbKeyTab, 0, KEYEVENTF_KEYUP, 0) '释放
Delay 50
Clipboard.Clear
DoEvents
Clipboard.SetText ("123456abe")
Call keybd_event(vbKeyControl, 0, 0, 0)
Call keybd_event(vbKeyV, 0, 0, 0)
Call keybd_event(vbKeyV, 0, KEYEVENTF_KEYUP, 0) '释放
Call keybd_event(vbKeyControl, 0, KEYEVENTF_KEYUP, 0)
Delay 200
SetCursorPos 951, 566
Delay 20
mouse_event &H2, 0&, 0&, 0&, 0& '鼠标左键按下
mouse_event &H4, 0&, 0&, 0&, 0& '鼠标左键弹起
Timer7.Interval = 1000
Timer7.Enabled = True
Do While Timer7.Enabled = True
DoEvents
Loop
Next
Command_True
End Sub
Private Sub Timer7_Timer()
Dim lHwnd As Long
lHwnd = FindWindow("CWebWindow", vbNullString)
If lHwnd = 0 Then
Else
SetCursorPos 1099, 165 '八月十五
Delay 20
mouse_event &H2, 0&, 0&, 0&, 0& '鼠标左键按下
mouse_event &H4, 0&, 0&, 0&, 0& '鼠标左键弹起
Timer7.Enabled = False
Timer8.Enabled = True
Timer8.Interval = 1000
End If
End Sub
Private Sub Timer8_Timer()
Dim lHwnd As Long
lHwnd = FindWindow("CWebWindow", vbNullString)
If lHwnd = 0 Then
SetCursorPos 405, 222
Delay 20
mouse_event &H2, 0&, 0&, 0&, 0& '鼠标左键按下
mouse_event &H4, 0&, 0&, 0&, 0& '鼠标左键弹起
Else
Dim fHwnd As Long
Do
fHwnd = FindWindow(vbNullString, "脚本错误")
If fHwnd Then SendMessage fHwnd, WM_CLOSE, 0&, 0&
Loop Until fHwnd = 0
Delay 2000
SetCursorPos 1008, 622
Delay 20
mouse_event &H2, 0&, 0&, 0&, 0& '鼠标左键按下
mouse_event &H4, 0&, 0&, 0&, 0& '鼠标左键弹起
Delay 1500
SetCursorPos 1055, 160
Delay 50
mouse_event &H2, 0&, 0&, 0&, 0& '鼠标左键按下
mouse_event &H4, 0&, 0&, 0&, 0& '鼠标左键弹起
Timer8.Enabled = False
Timer9.Enabled = True
Timer9.Interval = 1000
End If
End Sub
Private Sub Timer9_Timer()
Dim lHwnd As Long
lHwnd = FindWindow("CGameClost", vbNullString)
If lHwnd = 0 Then
SetCursorPos 1205, 77
Delay 50
mouse_event &H2, 0&, 0&, 0&, 0& '鼠标左键按下
mouse_event &H4, 0&, 0&, 0&, 0& '鼠标左键弹起
Else
SetCursorPos 543, 449
Delay 50
mouse_event &H2, 0&, 0&, 0&, 0& '鼠标左键按下
mouse_event &H4, 0&, 0&, 0&, 0& '鼠标左键弹起
Delay 5100
SetCursorPos 880, 695 '
Delay 50
mouse_event &H2, 0&, 0&, 0&, 0& '鼠标左键按下
mouse_event &H4, 0&, 0&, 0&, 0& '鼠标左键弹起
Delay 1000
SetCursorPos 396, 277
Delay 50
mouse_event &H2, 0&, 0&, 0&, 0& '鼠标左键按下
mouse_event &H4, 0&, 0&, 0&, 0& '鼠标左键弹起
Timer9.Enabled = False
Call Command1_Click '结束游戏
End If
End Sub