角色名稱基址

1. 
   
2. procedure TForm1.Button1Click(Sender: TObject);
   
3. var
   
4. 程序ID :DWORD;
   
5. 遊戲 :DWORD;
   
6. 動態基址,人物基址,血量 : dword;
   
7. UnName:dword ; //unicode名
   
8. ASname: array [0..35] of WideChar; //9個國字=18Byte=36bytes所以0..35一共36這個字符
   
9. TT: Size_T;
   
10. begin
    
11.   視窗程序 := Findwindow(nil,'完美世界');
    
12.   GetWindowThreadProcessId(視窗程序,程序ID);
    
13.   遊戲 := OpenProcess (PROCESS_ALL_ACCESS,false,程序ID);
    
14. 
    
15.   if 遊戲>0 then
    
16.     begin
    
17.     ReadProcessMemory( 遊戲, Pointer($18EF90),@動態基址,4,TT );
    
18.     ReadProcessMemory( 遊戲, Pointer(動態基址+$34),@人物基址,4,TT );
    
19.     ReadProcessMemory( 遊戲,pointer(人物基址+Strtoint("$"+Edit1.Text)), @UnName, 4, tt);
    
20.     ReadProcessMemory( 遊戲,pointer(UnName), @ASName, SizeOf(ASName), tt);
    
21.     WideCharToString(ASName);  //把變數中的unicod碼資料轉換為ASCII碼
    
22.     label1.Caption:='人物名稱：'+ASName;
    
23.     end;
    
24. end;
    

複製代碼

問題1 :
         ReadProcessMemory( 遊戲, Pointer($18EF90),@動態基址,4,TT );
         這行網路上大家都說要+1C  但是  如果 我用 18EF74+1C 反而找不到 血量

問題2:
         人物名稱我找了好久一直都是亂碼，不知道是位址錯了，還是轉換編碼方式有錯，請高人指點

感謝大大的分享 !

亂碼試試看  是什麼意思?

UTF8  從哪邊下去修改?

亂碼試試看 再加入 UFT8