VB制作植物大战僵尸修改器

VB制作植物大战僵尸修改器PrivateSubCommand1_Click()DimhwdAsLongDimphandleAsLongDimaddressAsLongDimaAsLonga=Text1hwd=FindWindow(vbNullString,"PlantsVsZombies.exe")GetWindowThreadProcessIdhwd,Pidphandle=OpenProcess(PROCESS_ALL_ACCESS,False,Pid)IfphandleThenReadProcessMemoryByValphandle,ByVal&