PureBasic版的植物大战僵尸整蛊器

PureBasic版的植物大战僵尸整蛊器，可惜没有成功，估计是内存地址出错了，暂时放下，不管了……

 

代码如下：

Global Gamename.s,baseAddress.lGamename = "PlantsVsZombies.exe"baseAddress = $6A9EC0 ;前置$符号来说明是十六进制的数，前置%号来说明是二进制的数Enumeration #Gadget_Button_0 #Gadget_Button_1EndEnumeration;先判断程序是否运行，若已经运行，获取程序pidProcedure.l GetPid() pe.PROCESSENTRY32 pe/dwsize = SizeOf(processentry32) prolist = CreateToolhelp32Snapshot_(#TH32CS_SNAPPROCESS,0) If prolist <> #INVALID_HANDLE_VALUE refs = Process32First_(prolist,pe) While refs ss.s = PeekS(@pe/szexefile) If ss = Gamename pid = OpenProcess_(#PROCESS_ALL_ACCESS,0,pe/th32processid) ProcedureReturn pid EndIf refs = Process32Next_(prolist,pe) Wend EndIf CloseHandle_(prolist) ProcedureReturn EndProcedureProcedure Readmemory(Address) buffer.l hpid = GetPid() ReadProcessMemory_(hpid,Address,@buffer,4,0) CloseHandle_(hpid) ProcedureReturn bufferEndProcedureProcedure Writememory(Address,value.l) hpid = GetPid() WriteProcessMemory_(hpid,Address,value,4,0) CloseHandle_(hpid)EndProcedureProcedure.l ButtonClick(mGadgetid.l,mstring.s,mtimer.l) s.s = "停止"+mstring+"无限" ss.s = "启动"+mstring+"无限" sss.s = GetGadgetText(mGadgetid) If sss = ss If getpid() = 0 MessageRequester("警告","程序未启动！") ProcedureReturn 0 EndIf SetGadgetText(mgadgetid,s) AddWindowTimer(0,mtimer,1000) Else SetGadgetText(mgadgetid,ss) RemoveWindowTimer(0,mtimer) EndIfEndProcedureProcedure.l Timer1() If getpid() = 0 SetGadgetText(#gadget_button_0,"启动金钱无限") RemoveWindowTimer(0,1) ProcedureReturn 0 EndIf Debug "金钱" ;开始修改内存地址 Address = ReadMemory(baseAddress) Debug Address Address = Address+$82C Debug Address Address = ReadMemory(Address) Debug Address Address = Address+$28 Debug Address Writememory(Address,$1869F)EndProcedureProcedure.l Timer2() If getpid() = 0 SetGadgetText(#gadget_button_0,"启动阳光无限") RemoveWindowTimer(0,2) ProcedureReturn 0 EndIf Debug "阳光" ;开始修改内存地址 Address = ReadMemory(baseAddress) Debug Address Address = Address+$768 Debug Address Address = ReadMemory(Address) Debug Address Address = Address+$5560 Debug Address Writememory(Address,$1869F)EndProcedureIf OpenWindow(0, 100, 200, 195, 260, "PureBasic Window", #PB_Window_SystemMenu) ButtonGadget(#gadget_button_0,50,50,95,55,"启动金钱无限") ButtonGadget(#Gadget_button_1,50,155,95,55,"启动阳光无限") Repeat Event = WaitWindowEvent() Select Event Case #PB_Event_CloseWindow Quit = 1 Case #PB_Event_Gadget Select EventGadget() Case #gadget_button_0 ButtonClick(#gadget_button_0,"金钱",1) Case #gadget_button_1 ButtonClick(#gadget_button_1,"阳光",2) EndSelect Case #PB_Event_Timer Select EventTimer() Case 1 Timer1() Case 2 Timer2() EndSelect EndSelect Until Quit = 1 EndIfEnd