【开源】植物大战僵尸修改器
asdw_159512012/07/31软件综合 IP:福建
声明:此软部分代码非原创 。

先送上软件
attachment icon PlantsVsZombiesTool.rar 8.01KB RAR 29次下载
不能出售呢~好可惜。
注释:此软通过读取软件进程数据来达成修改软件内部指令的目的(PvZ是修改程序指令大神的好去处)
运行期间的截图 QQ浏览器截屏未命名.jpg
QQ浏览器截屏未命名(1).jpg
QQ浏览器截屏未命名(2).jpg   
开源:
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 = "[s:9]lantsVsZombies.exe"

这段不解释,主要是定义和读取

这段是金钱无限的工具代码,是点击cmdButton1的结果

这段是阳光无限的工具代码,是点击cmdButton2的结果
接下来是关键部分代码:


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,从而介入进程


最后是Timer代码


任务完成~这个是SoSbLab暑假任务的作品,Cqb98来看看
+20  科创币    acmilan    2012/07/31 呃……VB6
来自:计算机科学 / 软件综合
9
已屏蔽 原因:{{ notice.reason }}已屏蔽
{{notice.noticeContent}}
~~空空如也
化学小僧
11年9个月前 IP:未同步
430551
好像真的是vb编的。。。。。。。。
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
asdw_15951作者
11年9个月前 IP:未同步
430611
回 1楼(化学小僧) 的帖子
本来就是VB编的
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
pl_014
11年9个月前 IP:未同步
430715
代码好长,不过又是vb6的,不管怎样,有源码的总比没有的强,否则不小心又中毒了。
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
asdw_15951作者
11年9个月前 IP:未同步
431304
回 3楼(pl_014) 的帖子
我最近一直在专攻VB啊
+20
科创币
20!Dopaminor
2012-10-21
你的是什么版本?
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
channe
11年7个月前 IP:未同步
460824
很不错,进程注入。
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
20!Dopaminor
11年7个月前 IP:未同步
462204
回 4楼(asdw_15951) 的帖子
为什么我不觉得有任何变化   钱用完就没了   阳光也没多
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
asdw_15951作者
11年7个月前 IP:未同步
464541
回 6楼(20!不曾存在) 的帖子
明显是Vb6,最近在学习VC,同时也欢迎访问XXXXXXXXXXXXX龙腾科技工作室官方首页!
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
dr.lc
11年6个月前 IP:未同步
466413
回 7楼(asdw_15951) 的帖子
为了LZ的头像,我得回一个……
这可是许嵩新专辑啊!妹子老喜欢了……
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论

想参与大家的讨论?现在就 登录 或者 注册

所属专业
上级专业
同级专业
asdw_15951
机友 笔友
文章
55
回复
292
学术分
0
2012/01/17注册,1年5个月前活动
暂无简介
主体类型:个人
所属领域:无
认证方式:手机号
IP归属地:未同步
文件下载
加载中...
{{errorInfo}}
{{downloadWarning}}
你在 {{downloadTime}} 下载过当前文件。
文件名称:{{resource.defaultFile.name}}
下载次数:{{resource.hits}}
上传用户:{{uploader.username}}
所需积分:{{costScores}},{{holdScores}}下载当前附件免费{{description}}
积分不足,去充值
文件已丢失

当前账号的附件下载数量限制如下:
时段 个数
{{f.startingTime}}点 - {{f.endTime}}点 {{f.fileCount}}
视频暂不能访问,请登录试试
仅供内部学术交流或培训使用,请先保存到本地。本内容不代表科创观点,未经原作者同意,请勿转载。
音频暂不能访问,请登录试试
支持的图片格式:jpg, jpeg, png
插入公式
评论控制
加载中...
文号:{{pid}}
投诉或举报
加载中...
{{tip}}
请选择违规类型:
{{reason.type}}

空空如也

加载中...
详情
详情
推送到专栏从专栏移除
设为匿名取消匿名
查看作者
回复
只看作者
加入收藏取消收藏
收藏
取消收藏
折叠回复
置顶取消置顶
评学术分
鼓励
设为精选取消精选
管理提醒
编辑
通过审核
评论控制
退修或删除
历史版本
违规记录
投诉或举报
加入黑名单移除黑名单
查看IP
{{format('YYYY/MM/DD HH:mm:ss', toc)}}