大漠插件修改内存

kf2004

第一次使用按键精灵内存修改,为了试验就找了植物大战僵尸
我系统64位 win7

[按键精灵] 纯文本查看 复制代码

//创建大漠并得到大漠的版本
Set dm = CreateObject("dm.dmsoft") 
TracePrint "当前大漠注册版本号: " & dm.ver()
Hwnd = Plugin.Window.Find("MainWindow", "植物大战僵尸中文版")
TracePrint "游戏窗口句柄= "& Hwnd
If Hwnd < 1 Then 
    MessageBox "游戏无法找到"
    EndScript
End If
GameId = Plugin.SysEx.GetProcessID(hwnd)
TracePrint "游戏进程ID=" & GameId
Val = Plugin.Memory.Read32Bit(Hwnd, &H6A9F78)'一级基址
TracePrint "一级基址= "&Val
Val = Plugin.Memory.Read32Bit(Hwnd, Val + &H768)'二级基址
TracePrint "二级基址= "&Val
Val = Plugin.Memory.Read32Bit(Hwnd, Val + &H5560)'阳光地址
TracePrint "官方获取  阳光= " & Val
//下面是大漠的
阳光地址 = "[[<PlantsVsZombies.exe>+2A9F78]+768]+5560"
'冷却时间 = "[[[<PlantsVsZombies.exe>+2A9F78]+768]+144]+70"
value = dm.ReadInt(hwnd, 阳光地址, 0)
TracePrint "大漠获取  阳光= " & value
返回 = dm.SetMemoryHwndAsProcessId(1)
TracePrint "进程ID来使用内存接口情况: 0失败 1成功    当前= " & 返回
dm_ret = dm.WriteInt(hwnd, 阳光地址, 0, 100)
TracePrint "修改情况: 0失败 1成功      当前= " &dm_ret
'value = dm.ReadInt(hwnd, 冷却时间, 0)
'value16 = Lib.自建函数.进制转换(value,10,16)
'TracePrint "大漠获取  冷却时间= " & value & " ,十六进制=" & value16

读取内存数据一切都正常,就是无法修改,
不管我用不用"返回 = dm.SetMemoryHwndAsProcessId(1)"
dm_ret = dm.WriteInt(hwnd, 阳光地址, 0, 100) 始终返回0
要怎么样才能修改内存值??

jszzm63

好好学习，天天向上！