轩辕传奇挂机辅助源码。

feiyang025

这游戏 其实就是 后台模拟按键的

1. 
   
2. Private Sub Command1_Click()
   
3. Timer2.Enabled = True
   
4. End Sub
   
5. 
   
6. Private Sub Command2_Click()
   
7. Timer2.Enabled = False
   
8. End Sub
   
9. 
   
10. Private Sub Command3_Click()
    
11. 
    
12. If Timer3.Enabled = False Then
    
13. 
    
14. Timer3.Enabled = True
    
15. 
    
16. Else
    
17. 
    
18. Timer3.Enabled = False
    
19. 
    
20. End If
    
21. 
    
22. End Sub
    
23. 
    
24. Private Sub Form_Load()
    
25. 
    
26. SkinH_Attach '更换皮肤
    
27. 
    
28. Timer1.Interval = 1000
    
29. Timer2.Enabled = False
    
30. 
    
31. End Sub
    
32. 
    
33. Private Sub Timer1_Timer()
    
34. 
    
35. 
    
36. 
    
37. Label7.Caption = a.读取内存4字节长整数("XYClient.exe", "[0106B5B4]+18]+A8]+1A0") '当前血
    
38. Label8.Caption = a.读取内存4字节长整数("XYClient.exe", "[0106B5B4]+18]+A8]+198") '最大血
    
39. 
    
40. Label9.Caption = a.读取内存4字节长整数("XYClient.exe", "[0106B5B4]+18]+A8]+1A4") '当前蓝
    
41. Label10.Caption = a.读取内存4字节长整数("XYClient.exe", "[0106B5B4]+18]+A8]+19C") '最大蓝
    
42. 
    
43. Label11.Caption = a.读取内存4字节长整数("XYClient.exe", "[0106B5B4]+18]+A8]+1A8") '等级
    
44. 
    
45. Label12.Caption = a.读取内存1字节("XYClient.exe", "[0106B5B4]+18]+A8]+98]+60") '选怪标志
    
46. 
    
47. End Sub
    
48. 
    
49. Private Sub Timer2_Timer()
    
50. 
    
51. 
    
52. If Val(Label7.Caption) < Val(Label8.Caption) * (Val(Combo1.Text) / 100) And Check1.Value = 1 Then  '血
    
53. PostKey Spy控件1.窗口句柄, vbKey2   '8号格子红药
    
54. End If
    
55. 
    
56. '=======================================
    
57. 
    
58. If Val(Label7.Caption) < Val(Label8.Caption) * (Val(Combo1.Text) / 100) And Check1.Value = 1 Then '蓝
    
59. PostKey Spy控件1.窗口句柄, vbKey3    '9号格子红药
    
60. End If
    
61. 
    
62. '=======================================
    
63. 
    
64. If Label12.Caption = "1" Then
    
65.         PostKey Spy控件1.窗口句柄, vbKey1   '按1键攻击
    
66.         PostKey Spy控件1.窗口句柄, vbKey1   '按2键攻击
    
67.         PostKey Spy控件1.窗口句柄, vbKey1   '按3键攻击
    
68. '=======================================
    
69.         PostKey Spy控件1.窗口句柄, vbKey8   '8号格子红药
    
70.         PostKey Spy控件1.窗口句柄, vbKey9   '9号格子红药
    
71.   Else
    
72.         PostKey Spy控件1.窗口句柄, vbKeyTab  'Tal选怪
    
73.   End If
    
74. 
    
75. '=======================================
    
76. 
    
77. End Sub
    
78. 
    
79. Private Sub Timer3_Timer()
    
80. a.修改内存4字节长整数 "XYClient.exe", "[0106B5B4]+18]+A8]+1A0", 9999
    
81. a.修改内存4字节长整数 "XYClient.exe", "[0106B5B4]+18]+A8]+198", 9999
    
82. End Sub
    

复制代码

efeel

貌似用的是vb梦工厂的dll。不错！

chenteng

看看 学习学习!!

gnoluohz

11111111111111111111111111111