随时改窗口标题

NOSCBY

话说第二行不对啊，少了一个w：
附：正确脚本：

1. $ReadProcessMemory=Win32API.new("kernel32","ReadProcessMemory","llpll","l")
   
2. $WriteProcessMemory=Win32API.new("kernel32","WriteProcessMemory","llpll","l")
   
3. $GetCurrentProcess=Win32API.new("kernel32","GetCurrentProcess","","l")
   
4. $CloseHandle=Win32API.new("kernel32","CloseHandle","l","l")
   
5. $LoadLibrary=Win32API.new("kernel32","LoadLibraryA","p","l")
   
6. $GetProcAddress=Win32API.new("kernel32","GetProcAddress","lp","l")
   
7. 
   
8. def Str2Long(data)
   
9.   r=0
   
10.   tmp=0
    
11.   tmp=data[3].to_i<<24
    
12.   r+=tmp
    
13.   tmp=data[2].to_i<<16
    
14.   r+=tmp
    
15.   tmp=data[1].to_i<<8
    
16.   r+=tmp
    
17.   tmp=data[0].to_i
    
18.   r+=tmp
    
19. end
    
20. 
    
21. $r_lib=$LoadLibrary.call("RGSS102J.dll") #取得DLL的句柄
    
22. $r_in=$GetProcAddress.call($r_lib,"RGSSEval") #取得RGSSEval的地址
    
23. $r_in+=1138948 #取得dword_18B9C84的地址，使用和RGSSEval的相对地址……
    
24. 
    
25. $r_pro=$GetCurrentProcess.call()
    
26. $tmp="     "
    
27. $ReadProcessMemory.call($r_pro,$r_in,$tmp,4,0)
    
28. $r_in=Str2Long($tmp)+0xC # lea ecx,[esi+0C] 取得标题字符串地址
    
29. 
    
30. def changeTitle(data)
    
31.    data+="\000"
    
32.    $WriteProcessMemory.call($r_pro,$r_in,data,data.size,0)
    
33. end

复制代码