VB汇编类在网游中的应用(XXXX游戏聊天CALL)

首先看下目标网游的聊天CALL代码：

1.   MOV ECX,DWORD PTR DS:[6FD9F0]
   
2.   PUSH 1
   
3.   PUSH 1
   
4.   PUSH 3E8
   
5.   PUSH EBP            ’ 内容长度
   
6.   PUSH ESI             ’ 内容指针 [6FDA00]+20010
   
7.   PUSH 0
   
8.   CALL 004AEC50

复制代码

CALL调用核心代码：

1. 
   
2. Option Explicit
   
3. 
   
4. Dim pid As Long
   
5. Dim hProcess As Long
   
6. Dim wgbcw As New clsASM
   
7. 
   
8. Private Sub Command1_Click() '构造聊天结构并调用
   
9. 
   
10. Dim T() As Byte, T1() As Byte
    
11. Dim P As Long, txtLen As Long
    
12. 
    
13. txtLen = LenB(Text1)
    
14. ReDim T(12 + txtLen) As Byte '指定动态数组的长度
    
15. ReDim T1(txtLen) As Byte
    
16. P = VarPtr(T(0))             '取字符数组地址
    
17. ZeroMemory T(0), UBound(T) + 1
    
18. T(4) = &HD6
    
19. T(5) = &HB
    
20. T1 = StrConv(Text1, vbFromUnicode)
    
21. CopyMemory ByVal (P + 12), ByVal StrPtr(T1), txtLen
    
22. SendText P, UBound(T) + 1
    
23. 
    
24. End Sub
    
25. 
    
26. Function SendText(nrP As Long, nrLen As Long) As Long
    
27. 
    
28. '聊天内容结构   00 00 00 00 D6 0B 00 00 00 00 00 00 35 35 35 35  ....?......5555
    
29. ' 35 35 35 35 35 35                                555555
    
30. 
    
31. Dim esi As Long '聊天结构指针
    
32. 
    
33. Const addr = &H4AEC50
    
34. 
    
35. Call Loadpid   
    
36.     With wgbcw
    
37.         esi = .ReadIntMemory(hProcess, &H6FDA00) + &H20010
    
38.         .WriteByteArray hProcess, esi, nrP, nrLen
    
39.         .Pushad
    
40.         .Mov_ECX_DWORD_Ptr &H6FD9F0
    
41.         .Push 1
    
42.         .Push 1
    
43.         .Push &H3E8
    
44.         .Push nrLen
    
45.         .Push esi
    
46.         .Push 0
    
47.         .Mov_EBX addr
    
48.         .Call_EBX
    
49.         .Popad
    
50.         .Ret
    
51.         .Run_ASM pid
    
52.     End With
    
53. End Function

复制代码

沙发，学习一下思路！

谢谢，谢谢。