植物大战僵尸修改器源码_植物大战僵尸修改器植物代码

文章目录：

• 1、求植物大战僵尸 辅助 VB源码
• 2、用VB制作植物大战僵尸修改器的代码
• 3、植物大战僵尸作弊源码
• 4、易语言植物大战僵尸修改器代码哪里出问题了吗?求高手指教！
• 5、植物大战僵尸online修改器

求植物大战僵尸 辅助 VB源码

你先上百度搜4399游戏盒，然后按第一个，下载之后就用右上方的搜索游戏 输入 植物大战僵尸修改器

用VB制作植物大战僵尸修改器的代码

用Cheat Engine可以找的地址，你到网上搜一搜，会有一大堆的。下面是我找的一个地址，阳光的地址，然后进行修改的代码。测试有效！

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) 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 ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long

Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Const PROCESS_ALL_ACCESS = H1F0FFF

Private 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

Private Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long

Private Sub Command1_Click()

Dim hwd As Long

Dim phandle As Long

Dim address As Long

Dim a As Long

a = H1000

hwd = FindWindow(vbNullString, "植物大战僵尸中文版")

GetWindowThreadProcessId hwd, Pid

phandle = OpenProcess(PROCESS_ALL_ACCESS, False, Pid)

If phandle Then

ReadProcessMemory ByVal phandle, ByVal H6A9EC0, ByVal VarPtr(address), 4, 0

ReadProcessMemory ByVal phandle, ByVal address + H768, ByVal VarPtr(address), 4, 0

WriteProcessMemory ByVal phandle, ByVal address + H5560, ByVal VarPtr(a), 4, ByVal 0 '修改阳光数

End If

CloseHandle phandle

End Sub

植物大战僵尸作弊源码

Option Explicit

Private Declare Function ReadProcessMemory _

Lib "Kernel32.dll" (ByVal hProcess As Long, _

ByRef lpBaseAddress As Any, _

ByRef lpBuffer As Any, _

ByVal nSize As Long, _

ByRef lpNumberOfBytesWritten As Long) As Long

Private Declare Function WriteProcessMemory _

Lib "Kernel32.dll" (ByVal hProcess As Long, _

ByRef lpBaseAddress As Any, _

ByRef lpBuffer As Any, _

ByVal nSize As Long, _

ByRef lpNumberOfBytesWritten As Long) As Long

Private Declare Function OpenProcess _

Lib "Kernel32.dll" (ByVal dwDesiredAccess As Long, _

ByVal bInheritHandle As Long, _

ByVal dwProcessId As Long) As Long

Private Declare Function CloseHandle Lib "Kernel32.dll" (ByVal hObject As Long) As Long

Private Const baseAddress As Long = H6A9EC0

Private Const processName As String = "PlantsVsZombies.exe"

Private Sub cmdMoneyUnlimited_Click() '金钱无限

If cmdMoneyUnlimited.Caption = "启用金钱无限" Then

If GetPid = 0 Then

MsgBox "植物大战僵尸程序还未打开", vbInformation, "提示"

Exit Sub

End If

cmdMoneyUnlimited.Caption = "停止启用金钱无限"

Timer2.Interval = 1000

Timer2.Enabled = True

Else

cmdMoneyUnlimited.Caption = "启用金钱无限"

Timer2.Enabled = False

End If

End Sub

Private Sub cmdSunUnlimited_Click() '阳光无限

If cmdSunUnlimited.Caption = "启用阳光无限" Then

If GetPid = 0 Then

MsgBox "植物大战僵尸程序还未打开", vbInformation, "提示"

Exit Sub

End If

cmdSunUnlimited.Caption = "停止启用阳光无限"

Timer1.Interval = 1000

Timer1.Enabled = True

Else

cmdSunUnlimited.Caption = "启用阳光无限"

Timer1.Enabled = False

End If

End Sub

Private Sub WriteMemoryValue(ByVal baseAddress As Long, ByVal value As Long)

Dim hProcess As Long

hProcess = OpenProcess(H1F0FFF, 0, GetPid)

WriteProcessMemory hProcess, ByVal baseAddress, value, 4, 0

CloseHandle hProcess

End Sub

Private Function ReadMemoryValue(ByVal Address As Long) As Long

Dim hProcess As Long

Dim buffer As Long

hProcess = OpenProcess(H1F0FFF, 0, GetPid)

ReadProcessMemory hProcess, ByVal Address, ByVal VarPtr(buffer), 4, 0

CloseHandle hProcess

ReadMemoryValue = buffer

End Function

'根据进程获取PID

Private Function GetPid() As Long

Dim objWMIService, objProcess, colProcess

Dim strComputer

strComputer = "."

Set objWMIService = GetObject("winmgmts:" "{impersonationLevel=impersonate}!\" strComputer "

ootcimv2")

Set colProcess = objWMIService.ExecQuery("Select * from Win32_Process")

For Each objProcess In colProcess

If objProcess.Name = processName Then

GetPid = objProcess.ProcessID

Exit For

End If

Next

Set objWMIService = Nothing

Set colProcess = Nothing

End Function

Private Sub Timer1_Timer() '阳光无限

Dim Address As Long

If GetPid = 0 Then

cmdMoneyUnlimited.Caption = "启用阳光无限"

Timer1.Enabled = False

Exit Sub

End If

Address = ReadMemoryValue(baseAddress) '基地址不会改变

Address = Address + H768 '二级地址

Address = ReadMemoryValue(Address)

Address = Address + H5560

WriteMemoryValue Address, H1869F 'H1869F=99999

End Sub

Private Sub Timer2_Timer() '金钱无限

Dim Address As Long

If GetPid = 0 Then

cmdMoneyUnlimited.Caption = "启用金钱无限"

Timer2.Enabled = False

Exit Sub

End If

Address = ReadMemoryValue(baseAddress) '基地址不会改变

Address = Address + H82C '二级地址

Address = ReadMemoryValue(Address)

Address = Address + H28

WriteMemoryValue Address, H1869F 'H1869F=99999

End Sub

易语言植物大战僵尸修改器代码哪里出问题了吗?求高手指教！

.版本 2

.程序集 窗口程序集1

.程序集变量 进程取ID, 整数型

.程序集变量 窗口进程ID, 整数型

.子程序 __启动窗口_创建完毕

窗口进程ID ＝ 取窗口进程ID (取句柄2 (“plantsvsZombies.exe”, , “植物大战僵尸中文版”))

阳光.时钟周期 ＝ 1000

.子程序 _阳光_周期事件

.局部变量 阳光数, 整数型

.局部变量 阳光基址, 整数型

.局部变量 阳光最终基址, 整数型

阳光数 ＝ 十六到十 (“006a9ec0”)

阳光基址 ＝ 读内存整数型 (窗口进程ID, 阳光数, ) ＋ 十六到十 (“00000768”)

阳光最终基址 ＝ 读内存整数型 (窗口进程ID, 阳光基址, ) ＋ 十六到十 (“00005560”)

写内存整数型 (窗口进程ID, 阳光最终基址, 5000)

植物大战僵尸online修改器

[辅助可以不？和修改器差不多的

（1）下载并安装“按键精灵”，了解“按键精灵”（2）打开按键精灵官方网站：（3）鼠标移动到网页右上方的“按键精灵官网”，点击“源码库”（4）点击网页左边偏下边的“脚本实验室”（5）在“源码库搜索”右边的地方输入“植物大战僵尸花园版”并点击“搜索”（6）点击“植物大战僵尸OL花园版 ”，看看说明（7）点击“下载脚本”，点击“接受声明并下载源码”，下载（8）打开“按键精灵”“按键抓抓工具”和植物大战僵尸on line花园，在“按键精灵”里点击鼠标右键，点击“导入脚本”（9）点击“增加脚本”，找到并点击“植物大战僵尸OL花园版 ”，点击“打开”，点击下一步，点击“完成”（10）"把当前鼠标所在的位置保存到 (x, y)......"可能得用“按键抓抓工具”]（具体怎么办我也不知道）