VB模块

Public Declare Function GetForegroundWindow Lib "user32" () As Long '取窗口句柄
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long '取窗口标题
Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long '获取类名
Public Const PROCESS_VM_OPERATION = &H8& '定义值
Public Const PROCESS_VM_READ = &H10& '定义值
Public Const PROCESS_VM_WRITE = &H20& '定义值
Public Const PROCESS_ALL_ACCESS = &H1F0FFF '定义值
Public Const PROCESS_QUERY_INFORMATION = &H400 '定义值
Public Declare Function VirtualProtectEx Lib "kernel32" (ByVal hProcess As Long, lpAddress As Any, ByVal dwSize As Long, ByVal flNewProtect As Long, lpflOldProtect As Long) As Long '修改内存属性
Public Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long '注册热键
Public Declare Function SetProcessWorkingSetSize Lib "kernel32" (ByVal hProcess As Long, ByVal dwMinimumWorkingSetSize As Long, ByVal dwMaximumWorkingSetSize As Long) As Long '释放内存SetProcessWorkingSetSize hProcess(进程句柄),变量 ，变量
Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long '取电脑名字'Dim a As String'a = String(255, Chr$(0))'GetComputerName a, 255'a = Left(a, InStr(1, a, Chr$(0)) - 1)'MsgBox a
Public Declare Function CloseWindow Lib "user32" (ByVal hwnd As Long) As Long '窗口最小化closewindow(窗口句柄)
Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long 'SetWindowText hwd, "自定义的窗口名字"
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer 'HOOK键盘记录'If GetAsyncKeyState(vbKeyHome) <> 0 Then MsgBox "你按了Home键位"'应该写在timer控件里面的-作为监视键盘用的--做热键的-也能做键盘记录器功能
Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByValdwExtraInfo As Long) ' keybd_event vkkey, 0, 0, 0 '这句话是【强制按键keybd_event的API函数】--不是消息机制的，因为它没句柄这个参数
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long 'SendMessage hwd, WM_KEYDOWN, vbKeyF1, 0 '
Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long 'PostMessage hwd, WM_KEYDOWN, vbKeyF1, 0 '
Public 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 A

s Long) As Long 'SetWindowPos hwd, -1, 0, 0, 0, 0, 3 '这句话是死的。它表示的是把游戏窗口置于顶层-即窗口置顶
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long 'ShowWindow hwd, 4 '第二个参数4表示的是把游戏窗口最大化'内存修改篇目的函数
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long ' hwd = FindWindow(vbNullString, "游戏窗口名字")
Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long 'PID=GetWindowThreadProcessId( hWnd, lpdwProcessId );
Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long 'hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long 'WriteProcessMemory hProcess, ByVal &H4F4420, kazhi3, 4, 0&
Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Long, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesRead As Long) As Long 'ReadProcessMemory hProcess, ByVal &H998968, base, 4, 0& '基础地址--简称基址--&H983C34'ReadProcessMemory hProcess, ByVal base + &H1C, base, 4, 0& '一级偏移地址：一定要写上的，否则死都调试不出来的' ReadProcessMemory hProcess, ByVal base + &H24, base, 4, 0& ' 二级偏移地址：得到为人物基地址，方便以后使用（有些游戏有2级地址，有些有3级地址，有些只有一级地址)
'------------------------------------------------------------------------------------------
'WriteProcessMemory hProcess, ByVal base + &H420, kazhi3, 4, 0&
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long 'CloseHandle hProcess
Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long 'Beep 23'发出系统声音 'Beep 454
Declare Function SendNotifyMessage Lib "user32" Alias "SendNotifyMessageA" (ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long '消息发送
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'Sleep 1000 '休眠1秒钟
''【特殊键盘】常数声明
Public Const WM_SYSKEYDOWN = &H104
Public Const WM_KEYDOWN = &H100 '按键按下
Public Const WM_KEYUP = &H101 '按键弹起
'【模拟鼠标点击的参数】
Public Const WM_LBUTTONDOWN = &H201 '鼠标左键按下
Public Const WM_LBUTTONUP = &H202 '鼠标左键谈起
'SendMessage hwd,WM_LBUTTONDOWN,0,16进制的坐标参数（需用spy++找）
Public Const WM_CHAR = &H102
Public Const VK_SHIFT =

&H10 ''Shift键的常数
Public Const VK_CONTROL = &H11 ''Ctrl键的常数
Public Const VK_MENU = &H12 ''Windows键的常数
Public Const VK_TAB = &H9 ''Tab键的常数
'消息功能常量
Public Const WM_ACTIVATE = &H6
Public Const WM_ACTIVATEAPP = &H1C
Public Const WM_ASKCBFORMATNAME = &H30C
Public Const WM_CANCELJOURNAL = &H4B
Public Const WM_CANCELMODE = &H1F
Public Const WM_CHANGECBCHAIN = &H30D
Public Const WM_CHARTOITEM = &H2F
Public Const WM_CHILDACTIVATE = &H22
Public Const WM_CLEAR = &H303
Public Const WM_CLOSE = &H10
Public Const WM_COMMAND = &H111
Public Const WM_COMMNOTIFY = &H44
Public Const WM_COMPACTING = &H41
Public Const WM_CONVERTREQUESTEX = &H108
Public Const WM_COMPAREITEM = &H39
Public Const WM_COPY = &H301
Public Const WM_COPYDATA = &H4A
Public Const WM_CREATE = &H1
Public Const WM_CTLCOLORBTN = &H135
Public Const WM_CTLCOLORDLG = &H136
Public Const WM_CTLCOLOREDIT = &H133
Public Const WM_CTLCOLORLISTBOX = &H134
Public Const WM_CTLCOLORMSGBOX = &H132
Public Const WM_CTLCOLORSCROLLBAR = &H137
Public Const WM_CTLCOLORSTATIC = &H138
Public Const WM_CUT = &H300
Public Const WM_DDE_FIRST = &H3E0
Public Const WM_DEADCHAR = &H103
Public Const WM_DELETEITEM = &H2D
Public Const WM_DESTROY = &H2
Public Const WM_DESTROYCLIPBOARD = &H307
Public Const WM_DEVMODECHANGE = &H1B
Public Const WM_DRAWCLIPBOARD = &H308
Public Const WM_DRAWITEM = &H2B
Public Const WM_DROPFILES = &H233
Public Const WM_ENABLE = &HA
Public Const WM_ENDSESSION = &H16
Public Const WM_ENTERIDLE = &H121
Public Const WM_ENTERMENULOOP = &H211
Public Const WM_ERASEBKGND = &H14
Public Const WM_EXITMENULOOP = &H212
Public Const WM_FONTCHANGE = &H1D
Public Const WM_GETDLGCODE = &H87
Public Const WM_GETFONT = &H31
Public Const WM_GETHOTKEY = &H33
Public Const WM_GETMINMAXINFO = &H24
Public Const WM_GETTEXT = &HD
Public Const WM_GETTEXTLENGTH = &HE
Public Const WM_HOTKEY = &H312
Public Const WM_HSCROLL = &H114
Public Const WM_HSCROLLCLIPBOARD = &H30E
Public Const WM_ICONERASEBKGND = &H27
Public Const WM_IME_CHAR = &H286
Public Const WM_IME_COMPOSITION = &H10F
Public Const WM_IME_COMPOSITIONFULL = &H284
Public Const WM_IME_CONTROL = &H283
Public Const WM_IME_ENDCOMPOSITION = &H10E
Public Const WM_IME_KEYDOWN = &H290
Public Const WM_IME_KEYLAST = &H10F
Public Const WM_IME_KEYUP = &H291
Public Const WM_IME_NOTIFY = &H282
Public Const WM_IME_SELECT = &H285
Public Const WM_IME_SETCONTEXT = &H281
Public Const WM_IME_STARTCOMPOSITION = &H10D
Public Const WM_INITDIALOG = &H110
Public Const WM_INITMENU = &H116
Public Const WM_INITMENUPOPUP = &H117
Public Const WM_KEYFIRST = &H100
Public Const WM_KEYLAST = &H108
Public Const WM_KILLFOCUS = &H8
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_MBUTTONDBLCLK = &H209
Public Const WM_MBUTTONDOWN = &H207
Public Const WM_MBUTTONUP = &H208
Public Const WM_MDIACTIVATE = &H222
Public Const WM_MDICASCADE = &H227
Public Const WM_MDICREATE = &H220
Public Const WM

_MDIDESTROY = &H221
Public Const WM_MDIGETACTIVE = &H229
Public Const WM_MDIICONARRANGE = &H228
Public Const WM_MDIMAXIMIZE = &H225
Public Const WM_MDINEXT = &H224
Public Const WM_MDIREFRESHMENU = &H234
Public Const WM_MDIRESTORE = &H223
Public Const WM_MDISETMENU = &H230
Public Const WM_MDITILE = &H226
Public Const WM_MEASUREITEM = &H2C
Public Const WM_MENUCHAR = &H120
Public Const WM_MENUSELECT = &H11F
Public Const WM_MOUSEFIRST = &H200
Public Const WM_MOUSEACTIVATE = &H21
Public Const WM_MOUSELAST = &H209
Public Const WM_MOUSEMOVE = &H200
Public Const WM_MOVE = &H3
Public Const WM_NCACTIVATE = &H86
Public Const WM_NCCALCSIZE = &H83
Public Const WM_NCCREATE = &H81
Public Const WM_NCDESTROY = &H82
Public Const WM_NCLBUTTONDBLCLK = &HA3
Public Const WM_NCHITTEST = &H84
Public Const WM_NCLBUTTONDOWN = &HA1
Public Const WM_NCLBUTTONUP = &HA2
Public Const WM_NCMBUTTONDBLCLK = &HA9
Public Const WM_NCMBUTTONDOWN = &HA7
Public Const WM_NCMBUTTONUP = &HA8
Public Const WM_NCMOUSEMOVE = &HA0
Public Const WM_NCPAINT = &H85
Public Const WM_NCRBUTTONDBLCLK = &HA6
Public Const WM_NCRBUTTONDOWN = &HA4
Public Const WM_NCRBUTTONUP = &HA5
Public Const WM_NEXTDLGCTL = &H28
Public Const WM_NULL = &H0
Public Const WM_SETTEXT = &HC
Public Const WM_SHOWWINDOW = &H18
Public Const WM_SIZE = &H5
Public Const WM_SIZECLIPBOARD = &H30B
Public Const WM_SPOOLERSTATUS = &H2A
Public Const WM_SYSCHAR = &H106
Public Const WM_SYSCOLORCHANGE = &H15
Public Const WM_SYSCOMMAND = &H112
Public Const WM_SETREDRAW = &HB
Public Const WM_SETHOTKEY = &H32
Public Const WM_SYSKEYUP = &H105
Public Const WM_TIMECHANGE = &H1E
Public Const WM_TIMER = &H113
Public Const WM_WINDOWPOSCHANGED = &H47
Public Const WM_WINDOWPOSCHANGING = &H46
Public Const WM_WININICHANGE = &H1A
''【0-9的常数】
Public Const VK_0 = &H30 '表示的是键盘上的数字0键位，下面同理
Public Const VK_1 = &H31 '表示的是键盘上的数字1键位
Public Const VK_2 = &H32
Public Const VK_3 = &H33 '&H是十六机制的一个标识符
Public Const VK_4 = &H34
Public Const VK_5 = &H35
Public Const VK_6 = &H36
Public Const VK_7 = &H37
Public Const VK_8 = &H38
Public Const VK_9 = &H39
''【A-Z的常数】
Public Const VK_A = &H41 'VK_A表示的是键盘上的字母A键位，下面同理
Public Const VK_B = &H42
Public Const VK_C = &H43
Public Const VK_D = &H44
Public Const VK_E = &H45
Public Const VK_F = &H46
Public Const VK_G = &H47
Public Const VK_H = &H48
Public Const VK_I = &H49
Public Const VK_J = &H50
Public Const VK_K = &H51
Public Const VK_L = &H52
Public Const VK_M = &H53
Public Const VK_N = &H54
Public Const VK_O = &H55
Public Const VK_P = &H56
Public Const VK_Q = &H57
Public Const VK_R = &H58
Public Const VK_S = &H59
Public Const VK_T = &H60
Public Const VK_U = &H61
Public Const VK_V = &H62
Public Const VK_W = &H63
Public Const VK_X = &H64
Public Const VK_Y = &H65
Public Const VK_Z = &H66
''【F1-F12的常数】
Publi

c Const VK_F1 = &H70 ''VK_F1表示的是键盘上的字母F1键位 ,下面同理
Public Const VK_F2 = &H71
Public Const VK_F3 = &H72
Public Const VK_F4 = &H73
Public Const VK_F5 = &H74
Public Const VK_F6 = &H75
Public Const VK_F7 = &H76
Public Const VK_F8 = &H77
Public Const VK_F9 = &H78
Public Const VK_F10 = &H79
Public Const VK_F11 = &H7A
Public Const VK_F12 = &H7B
Public Const VK_ESC = &H1B

'申明标准【窗口句柄，申请内存，进程pid】
Public hwd As Long
Public hProcess As Long
Public pid As Long
'--------------------------------
Public hp As Long ' 存储生命值
Public hpmax As Long ' 存储生命最大值
Public mp As Long ' 存储真气值
Public mpmax As Long ' 存储真气最大值
Public dj As Long '人物等级
Public DangQianID As Byte '当前怪物 ID
Public base As Long '人物基础地址(游戏基础地址)
'呼出外挂功能函数--【热键功能】
Public Sub Home键呼出外挂() '注意Form1的name属性不要去改它-就让他默认即可
If GetAsyncKeyState(vbKeyHome) <> 0 Then 'GetAsyncKeyState这个是api函数，它的功能就是HOOK键盘，啥叫HOOK？答：就是监视键盘的动作，在此表示如果监视到你按了HOME（参数vbKeyHome表示HOME键）键位，那么我们就执行以下的代码
If a = 0 Then '注意这个a是放在通用声明部分的，它是共享的
ShowWindow Form1.hwnd, 10 '呼出外挂--显示， Me表示的是Form1，即Me和Form1等同;hWnd是窗体Form1的句柄
SetWindowPos Form1.hwnd, -1, 0, 0, 0, 0, 3 'SetWindowPos是消息机制的，为啥？答：因为它的其中一个参数是【窗口句柄参数Me.hWnd】，它向游戏窗口发送消息叫 游戏窗口 置顶
a = 1
Else
ShowWindow Form1.hwnd, 2 '外挂---最小化
a = 0
End If
End If
End Sub