VB单机游戏外挂模块

原创 Linux  2018-02-01 22:22:59  阅读 21 次 评论 0 条
摘要:

VB的话这个代码修改一些简单的游戏就足够了,但是如果修改的游戏带偏移量,内存值为动态,这个代码是不行的。此代码只是修改游戏内存为静态内存的值。Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As&nbs

VB的话这个代码修改一些简单的游戏就足够了,但是如果修改的游戏带偏移量,内存值为动态,这个代码是不行的。

此代码只是修改游戏内存为静态内存的值。

Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Const PROCESS_ALL_ACCESS = &H1F0FFF
Dim hwnd1 As Long
Dim pid As Long
Dim pHandle As Long
 
Public Function a()
    hwnd1 = FindWindow(vbNullString, "偟傚傏傫偺傾僋僔儑儞")  ' 偟傚傏傫偺傾僋僔儑儞 为句柄
    GetWindowThreadProcessId hwnd1, pid
    pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
    WriteProcessMemory pHandle, &H5A1290, 7815, 4, 0&  '&H5A1290 为内存地址 500为自己需要更改的数值
    CloseHandle pHandle
End Function


使用方法:创建一个模块,在程序代码页面写 a  或者call a,调用即可!

本文地址:http://hacker.blue/post/17.html
版权声明:本文为原创文章,版权归 Linux 所有,欢迎分享本文,转载请保留出处!如下载地址出错,请联系管理员修复!

发表评论


表情

还没有留言,还不快点抢沙发?