植物大战僵尸中文版vb外挂call.doc

前两个星期找小游戏玩,结果找到了“植物大战僵尸”,突然满满的回忆,植物大战僵尸是 2009年5 月5日发布的益智、策略类塔防御战游戏。那个时候刚上大一,全班男生、女生、老师都玩,很火的节奏。
刚玩了几局,就想找外_挂了, 结果好多报有毒,就想自己写一个了。
上网查好多资料、来共享下
浙江蜗牛VB开发植物大战僵尸外_挂系列教程(力荐!)
一些内存基址
http://wenku./link?url=D0h-FgV56AtOEYD4jof261gOQkoCBxD640xwOQJTKBsehlYFwDANYBSd0zzeyQ0bjruvL-uz1vHi3ksX7SZDbF2GAUzGt8u51oHEv39OCA7
VB 写法
.cn/?mod=viewthread&tid=528&extra=page=1&page=1&
vb 植物大战僵尸外_挂(转载)
http://hi./liyantsc/item/84e190593d0e8b3f32e0a99d
(双击,用winrar 打开即可)
界面如下,
功能
可热键启动功能(全屏下,方便多了)。
无限阳光无限钱币(写了9999,但内存溢出会多加好多)
免CD 冷却时间
任意种植(植物可叠加)
游戏窗体非激活状态下,游戏仍正常(最小化会暂停)
种一排辣椒(算是必杀了)
可以显示当前阳光,已种植物数量,当前数量。
打开VB 加控件
6个 CheckBox 为了方便记忆 F10 无限点阳光我把其名称修改Check10 ,F11修改为Check11 、以此类推、、
1个text 为显示当前阳光,已种植物数量,当前数量。MultiLine 设置为 True
7个Timer (主要是,我这会在一个控件里种5个辣椒,用5个timer 分别各种一个。其余两个,一个是监控键盘按键,一个执行所选的功能)
好了、写正文
在窗体公共空间里写入热键的声明。
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal Vkey As Long) As Integer
Private Function MyHotKey(vKeyCode) As Boolean
MyHotKey = GetAsyncKeyState(vKeyCode) < 0
End Function
如下图
工程--模块—添加模块—新建模块、写入下面内容
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Declare Function OpenProcess Lib "kernel32" (ByVal ess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByVal lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Long, lpBuffer As Any, ByVal nSize As Long, ByVal lpNumberOfBytesWritten As Long) As Long
工程--模块—添加类模块—现存找到 (可下载,,不会写呀只能从网上下载了,只是为种辣椒用的)
程序的全部代码如下:
Private Declare Function GetAsyn