资源描述：
《植物大战僵尸中文版外挂》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、OptionExplicitDimWGAsNewClass1'声明模块对象PrivateConstJIZHI=&H6A9EC0'游戏地址'声明...........'类模块名.....通用外挂模块类模块'作者:'来水美树QQ:659354953'作者'来水美树QQ:659354953PrivateSubForm_Load()WG.GameProcessWindowName"MainWindow",vbNullString'窗口句柄CallDrawWindowFormEndSubPrivateSubDrawWindowForm()'画一个边框DimRgnAsLongDimB
2、rushAsLongDimW,HAsLongW=Me.ScaleWidth/Screen.TwipsPerPixelXH=Me.ScaleHeight/Screen.TwipsPerPixelYRgn=CreateRoundRectRgn(0,0,W,H,6,6)SetWindowRgnMe.hwnd,Rgn,TrueDeleteObjectRgnRgn=CreateRoundRectRgn(0,0,W,H,6,6)Brush=CreateSolidBrush(vbWhite)FrameRgnMe.Hdc,Rgn,Brush,2,2DeleteObjectRgnDelet
3、eObjectBrushEndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)ReleaseCapture'移动没有边框的窗体SendMessageMe.hwnd,&HA1,2,0EndSubPrivateFunctionShowCaption(nAsInteger)AsString'显示所有功能项SelectCasenCase1ShowCaption="快捷键F1启动无限太阳"Case2ShowCaption="快捷键F2启动无限金币"Case3ShowCapt
4、ion="快捷键F3启动无限花肥"Case4ShowCaption="快捷键F4启动无限树肥"Case5ShowCaption="快捷键F5启动无限杀虫"Case6ShowCaption="快捷键F6启动无限巧克力"Case7ShowCaption="快捷键F7启动花瓶透明"Case8ShowCaption="快捷键F8启动无冷却"Case9ShowCaption="快捷键F9启动快速生长阳光"Case10ShowCaption="快捷键F10全部瞬间秒杀"EndSelectEndFunctionPrivateSubLabel2_Click()UnloadMeEndSub
5、PrivateSubT1_Timer()'无限太阳DimAddresAsLongAddres=WG.ReadAddress(JIZHI)Addres=WG.ReadAddress(Addres+&H768)WG.WriteAddressAddres+&H5560,9999EndSubPrivateSubT2_Timer()'无限金币DimAddresAsLongAddres=WG.ReadAddress(JIZHI)Addres=WG.ReadAddress(Addres+&H82C)WG.WriteAddressAddres+&H28,99999EndSubPrivat
6、eSubT3_Timer()'无限花肥DimAddresAsLongAddres=WG.ReadAddress(JIZHI)Addres=WG.ReadAddress(Addres+&H82C)WG.WriteAddressAddres+&H1F8,9999EndSubPrivateSubT4_Timer()'无限树肥DimAddresAsLongAddres=WG.ReadAddress(JIZHI)Addres=WG.ReadAddress(Addres+&H82C)WG.WriteAddressAddres+&H230,9999EndSubPrivateSubT5_
7、Timer()'无限杀虫DimAddresAsLongAddres=WG.ReadAddress(JIZHI)Addres=WG.ReadAddress(Addres+&H82C)WG.WriteAddressAddres+&H1FC,9999EndSubPrivateSubT6_Timer()DimAddresAsLongAddres=WG.ReadAddress(JIZHI)Addres=WG.ReadAddress(Addres+&H82C)WG.WriteAddressAddres+&H228,9999EndSubPr
