PureBasic版的植物大战僵尸整蛊器,可惜没有成功,估计是内存地址出错了,暂时放下,不管了…… 代码如下: Global Gamename.s,baseAddress.l Gamename = "PlantsVsZombies.exe" baseAddress = $6A9EC0 ;前置$符号来说明是十六进制的数,前置%号来说明是二进制的数 Enumeration #Gadget_Button_0 #Gadget_Button_1 EndEnumeration ;先判断程序是否运行,若已经运行,获取程序pid Procedure.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 EndProcedure Procedure Readmemory(Address)