寫外掛遇到一些問題

版上的大大們都是使用VB6在撰寫
小弟是使用VB2008,所以小弟自己動手修改一些VB2008跟VB6
語法OR(caption把它換成textbox之類的)的差異
目前遇到兩個問題
1.雙視窗可以使用 但是他會把我的視窗標題整個消掉
   而不是變成像是原碼寫的 變成 Element Client&i
2.讀取腳色資料沒法讀取

附上小弟的原碼

1. Public Class Form1
   
2. 
   
3. '====================================================================================API Define
   
4. 
   
5. Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
   
6. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
   
7. Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Integer, ByRef lpdwProcessId As Integer) As Integer
   
8. 
   
9. Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
   
10. Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
    
11. Private Declare Function ReadProcessMemory Lib "kernel32.dll" (ByVal hProcess As Long, ByVal lpBaseAddress As Long, ByRef lpBuffer As Long, ByVal nSize As Long, ByRef lpNumberOfBytesWritten As Long) As Long
    
12. 
    
13. Dim pid As Long
    
14. Const PW_Base = &H95BAA4
    
15. Dim W2I_DYNAMIC_BASE_ADDR As Long
    
16. Dim W2I_ROLE_BASE_ADDR As Long
    
17. Const PROCESS_ALL_ACCESS = &H1F0FFF
    
18. 
    
19. Dim hp As Long, mp As Long, maxhp As Long, maxmp As Long, genki As Long
    
20. Dim name_temp As Long
    
21. Dim pplname As String
    
22. 
    
23. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    
24. Dim proc As Long
    
25. TextBox1.Text = "Element Client"
    
26. 
    
27. proc = FindWindow(vbNullString, TextBox1.Text) 'Text1.text = 完美的視窗標題"Element Client"
    
28. If proc > 0 Then '找到"Element Client"的完美視窗
    
29. GetWindowThreadProcessId(proc, pid) '取得 process ID (pid)
    
30. Label1.Text = "遊戲啟動! pid = " & pid
    
31. Else '沒找到"Element Client"
    
32. Label1.Text = "遊戲未啟動"
    
33. End If
    
34. 
    
35. End Sub
    
36. '====================================================================================雙視窗
    
37. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    
38. 
    
39. Dim proc As IntPtr
    
40. Dim i As Integer
    
41. 
    
42. proc = FindWindow(vbNullString, TextBox1.Text)
    
43. If proc.Equals(IntPtr.Zero) Then '找到完美視窗"Element Client"
    
44. MsgBox("請先執行完美世界主程式。")
    
45. 
    
46. Else
    
47. i = 2
    
48. Do While FindWindow(vbNullString, TextBox1.Text & i) <> 0 '找不重複的視窗標題"Element Client" + 數字(從2開始)
    
49. i = i + 1
    
50. Loop
    
51. TextBox1.Text &= i
    
52. 'Call SetWindowText(proc, TextBox1.Text) '修改視窗標題
    
53. SetWindowText(proc, TextBox1.Text)
    
54. MsgBox("修改完成，請開啟另一個完美世界主程式。")
    
55. End If
    
56. 
    
57. End Sub
    
58. '====================================================================================連線上角色
    
59. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    
60. 
    
61. Dim hProcess As Long
    
62. hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, pid) '連上完美遊戲
    
63. If hProcess = 0 Then '無法連上完美遊戲
    
64. MsgBox("not found")
    
65. Exit Sub '離開
    
66. End If
    
67. 
    
68. 
    
69. ReadProcessMemory(hProcess, PW_Base, W2I_DYNAMIC_BASE_ADDR, 4, 0&) '一級基址
    
70. ReadProcessMemory(hProcess, W2I_DYNAMIC_BASE_ADDR + &H20, W2I_ROLE_BASE_ADDR, 4, 0&) '人物基址
    
71. 
    
72. 
    
73. ReadProcessMemory(hProcess, W2I_ROLE_BASE_ADDR + &H5F0, name_temp, 4, 0&) '得到角色名稱
    
74. ReadProcessMemory(hProcess, name_temp, pplname, 32, 0&)
    
75. Me.Text = pplname '設定外掛的視窗標題為角色名稱
    
76. 
    
77. Timer1.Enabled = True '打開Timer, 以便每隔1秒讀取人物HP, MP,元氣
    
78. 
    
79. CloseHandle(hProcess)
    
80. End Sub
    
81. 
    
82. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    
83. 
    
84. pid = 0
    
85. lbHP.Text = "0 / 0" '清空HP
    
86. lbMP.Text = "0 / 0" '清空MP
    
87. lbGenki.Text = "0" '清空元氣
    
88. Timer1.Enabled = False '取消Timer
    
89. 
    
90. End Sub
    
91. 
    
92. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    
93. 
    
94. Dim hProcess As Long
    
95. ReadProcessMemory(hProcess, W2I_ROLE_BASE_ADDR + &H464, hp, 4, 0&) 'HP
    
96. ReadProcessMemory(hProcess, W2I_ROLE_BASE_ADDR + &H468, mp, 4, 0&) 'MP
    
97. ReadProcessMemory(hProcess, W2I_ROLE_BASE_ADDR + &H494, maxhp, 4, 0&) 'Max HP
    
98. ReadProcessMemory(hProcess, W2I_ROLE_BASE_ADDR + &H498, maxmp, 4, 0&) 'MAx MP
    
99. ReadProcessMemory(hProcess, W2I_ROLE_BASE_ADDR + &H478, genki, 4, 0&) '元氣
    
100. 
     
101. lbHP.text = hp & " / " & maxhp '顯示現在HP / Max HP
     
102. lbMP.text = mp & " / " & maxmp '顯示現在MP / Max MP
     
103. lbGenki.text = genki '顯示現在元氣值
     
104. 
     
105. End Sub
     
106. End Class
     

複製代碼

1.TextBox1.Text &= i
記得VB好像不接受這種語法(不確定2008是否可以)
2.我也不太確定,我猜基址應該不是目前版本(133)的吧,待高手.

基址應該不是目前的版本可以參考zsnoopy大大所提供的133基址
http://bbs.wgun.net/thread-311940-1-1.html

setwindowtext 的原型宣告應該是
BOOL SetWindowText(
    HWND hWnd, // handle of window or control
    LPCTSTR lpString  // address of string
   );

你呼叫的方法是
SetWindowText(proc, TextBox1.Text)
textbox1.text <-- 這個應該不是 address of string
你應該要傳址進去，而不是傳值…
vb 我不熟，如果是 delphi 應該是 @textbox1.text (代表取得 textbox1.text 這段文字的記憶體位址)
希望對你有幫助。

你用 vb2008 是 .net 個版本嗎?
不知為何我用 vb2008 時, ReadProcessMemory 的傳回值是 0 ... 相同的 code 在 vb6 可以執行 ...
但在 vb2008 就無法讀取角色資料 ...
所以暫時只能用回 vb6 ...

有 看 沒 有 懂 ? ?
新手.....好多問號 ???????????????
中挨挨挨挨~~~

雖然有一些熱心的大大給我了一些回文做解答

小弟也有另外去找人問過

她給我 senmessage 作為提示

可是不管我怎麼測試 setwindowtxt 跟 sendmessage 只有第一個能成功

修改視窗 只是會把視窗整個銷掉 應該是變成NULL我想 有人能幫解惑嗎?

我去查了一下 vb ，取得位址的方法你要不要試試看...

SetWindowText(proc, VarPtr(TextBox1.Text))

參考自 http://support.microsoft.com/kb/199824/zh-tw

但是在2008裡並沒有VarPtr這個功能
我有去網路上找了模擬VB6的效果 可惜還是失敗
還是會把整個標題變成NULL

網址http://bbs.yoyo-do.com/viewthrea ... 3Borderby%3Dreplies

那…如果這樣呢?

SetWindowText(proc, byref TextBox1.Text)
用 byref 的方式傳遞?
不好意思…我VB不熟，幫不上忙。