悠哉游戏中国社区 Uzuc.cn
新开的权威外挂制作中心
地址:
http://bbs.uzuc.cn 点击进入查看更多内容
1.
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function GetLastError Lib "kernel32" () As Long
Private Const PROCESS_ALL_ACCESS = &H1F0FFF
'让程序拥有热键
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
'窗体最前面
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
'RGB颜色获取
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
'模拟鼠标事件
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1 '移动鼠标
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const VK_F1 As Long = &H70
Const VK_F2 As Long = &H71
Const VK_F3 As Long = &H72
Const VK_F4 As Long = &H73
Const VK_F5 As Long = &H74
Const VK_F6 As Long = &H75
Const VK_F7 As Long = &H76
Const VK_F8 As Long = &H77
Const VK_F9 As Long = &H78
Const KEYEVENTF_KEYUP As Long = &H2
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Const GameTitle As String = "YB_OnlineClient"
'Const GameTitle As String = "新建 文本文档 - 记事本"
Dim SWD As String '喊话内容
Dim IsGuaJi As Boolean ' 挂机标志
Dim IsFuZhu As Boolean ' 补红蓝的辅助动作标志
Dim HongBiLv As Integer ' 补红比率
Dim LanBiLv As Integer ' 补蓝比率
Dim HongPoint(6) As Long ' 补红点的数组对应列表数值
Dim LanPoint(6) As Long ' 补蓝点的数组对应列表数值
Dim FPoint(1 To 9) As Long ' F1 F2...F9的数组对应列表数值
Dim i As Integer, j As Long, k As Long
'让程序拥有热键
Function HotKey(vKeyCode) As Boolean
HotKey = GetAsyncKeyState(vKeyCode) < 0
End Function
Sub AnJian(KStr As String)
DoEvents
Select Case KStr
Case "F1"
Call keybd_event(VK_F1, 0, 0, 0)
Delay 300
Call keybd_event(VK_F1, 0, KEYEVENTF_KEYUP, 0)
Case "F2"
Call keybd_event(VK_F2, 0, 0, 0)
Delay 300
Call keybd_event(VK_F2, 0, KEYEVENTF_KEYUP, 0)
Case "F3"
Call keybd_event(VK_F3, 0, 0, 0)
Delay 300
Call keybd_event(VK_F3, 0, KEYEVENTF_KEYUP, 0)
Case "F4"
Call keybd_event(VK_F4, 0, 0, 0)
Delay 300
Call keybd_event(VK_F4, 0, KEYEVENTF_KEYUP, 0)
Case "F5"
Call keybd_event(VK_F5, 0, 0, 0)
'Sleep 100
'Call keybd_event(vbKeyF5, 0, KEYEVENTF_KEYUP, 0)
SendKeys "补红"
SendKeys "{ENTER}"
Sleep 100
SendKeys "...."
SendKeys "{ENTER}"
Sleep 100
Case "F6"
Call keybd_event(VK_F6, 0, 0, 0)
Delay 300
Call keybd_event(VK_F6, 0, KEYEVENTF_KEYUP, 0)
Case "F7"
Call keybd_event(VK_F7, 0, 0, 0)
Delay 300
Call keybd_event(VK_F7, 0, KEYEVENTF_KEYUP, 0)
Case "F8"
Call keybd_event(VK_F8, 0, 0, 0)
Delay 300
Call keybd_event(VK_F8, 0, KEYEVENTF_KEYUP, 0)
Case "F9"
Call keybd_event(VK_F9, 0, 0, 0)
Delay 300
Call keybd_event(VK_F9, 0, KEYEVENTF_KEYUP, 0)
End Select
Delay 100
End Sub
[培训]内核驱动高级班,冲击BAT一流互联网大厂工作,每周日13:00-18:00直播授课