赞 | 1 |
VIP | 392 |
好人卡 | 225 |
积分 | 46 |
经验 | 177731 |
最后登录 | 2020-12-8 |
在线时间 | 2037 小时 |
Lv3.寻梦者 虚空人形
- 梦石
- 0
- 星屑
- 4604
- 在线时间
- 2037 小时
- 注册时间
- 2011-8-11
- 帖子
- 3398
|
在Game_Temp前添加:(转载)- $ReadProcessMemory=Win32API.new("kernel32","ReadProcessMemory","llpll","l")
- $WriteProcessMemory=Win32API.new("kernel32","WriteProcessMemory","llpll","l")
- $GetCurrentProcess=Win32API.new("kernel32","GetCurrentProcess","","l")
- $CloseHandle=Win32API.new("kernel32","CloseHandle","l","l")
- $LoadLibrary=Win32API.new("kernel32","LoadLibraryA","p","l")
- $GetProcAddress=Win32API.new("kernel32","GetProcAddress","lp","l")
- def Str2Long(data)
- r=0
- tmp=0
- tmp=data[3].to_i<<24
- r+=tmp
- tmp=data[2].to_i<<16
- r+=tmp
- tmp=data[1].to_i<<8
- r+=tmp
- tmp=data[0].to_i
- r+=tmp
- end
- $r_lib=$LoadLibrary.call("RGSS102J.dll") #取得DLL的句柄
- $r_in=$GetProcAddress.call($r_lib,"RGSSEval") #取得RGSSEval的地址
- $r_in+=1138948 #取得dword_18B9C84的地址,使用和RGSSEval的相对地址……
- $r_pro=$GetCurrentProcess.call()
- $tmp=" "
- $ReadProcessMemory.call($r_pro,$r_in,$tmp,4,0)
- $r_in=Str2Long($tmp)+0xC # lea ecx,[esi+0C] 取得标题字符串地址
- def changeTitle(data)
- data+="\000"
- $WriteProcessMemory.call($r_pro,$r_in,data,data.size,0)
- end
复制代码 使用时直接
changeTitle("XXXXX") |
|