龙族外挂 VB 源码

####本例只是用来简单演示一些功能,并未用到读取指针得到存放人物动态数据指针的地址,继而实现连射
等一些功能,因为考虑到游戏的公平性
为了使大家能够尽可能多的享受龙族,所以这个例子仅限于加速,照明,无限捐款和远处呼叫NPC
编写中一个要注意的问题就是只有在照明开启成功的情况下呼叫NPC和无限捐款才能启动

  1. Private Declare Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal lpClassName As   
  2. String, ByVal lpWindowName As String) As Long  
  3. Private Declare Function GetWindowThreadProcessId Lib "USER32" (ByVal hwnd As Long,   
  4. lpdwProcessId As Long) As Long  
  5. Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long,   
  6. ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long  
  7. Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long,   
  8. ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten   
  9. As Long) As Long  
  10. Dim DRHwnd As Long  
  11. Dim DRPid As Long  
  12. Dim DRProcessHandle As Long  
  13. Private Const PROCESS_ALL_ACCESS = &H1F0FFF  
  14.   
  15. Private Sub Command1_Click()  
  16. OLE1.Visible = False  
  17. DRHwnd = FindWindow("DRAGONRAJA_CLASS", "")  
  18. GetWindowThreadProcessId DRHwnd, DRPid  
  19. DRProcessHandle = OpenProcess(PROCESS_ALL_ACCESS, False, DRPid)  
  20. If DRProcessHandle = 0 Then  
  21. Label1.Caption = "外挂启动失败"  
  22. Else  
  23. Label1.Caption = "外挂启动成功"  
  24. Timer1.Enabled = True  
  25. End If  
  26. End Sub  
  27.   
  28. Private Sub Command10_Click(Index As Integer)  
  29. WriteProcessMemory DRProcessHandle, &H5E23E8, &H0, 1, 0&  
  30. WriteProcessMemory DRProcessHandle, &H5F1CE2C, &H1, 1, 0&  
  31. End Sub  
  32.   
  33. Private Sub Command11_Click(Index As Integer)  
  34. WriteProcessMemory DRProcessHandle, &H5E23E8, &H0, 1, 0&  
  35. WriteProcessMemory DRProcessHandle, &H60D0964, &H1, 1, 0&  
  36. End Sub  
  37.   
  38. Private Sub Command12_Click(Index As Integer)  
  39. WriteProcessMemory DRProcessHandle, &H5E23E8, &H0, 1, 0&  
  40. WriteProcessMemory DRProcessHandle, &H60A4474, &H1, 1, 0&  
  41. End Sub  
  42.   
  43. Private Sub Command13_Click(Index As Integer)  
  44. WriteProcessMemory DRProcessHandle, &H5E23E8, &H0, 1, 0&  
  45. WriteProcessMemory DRProcessHandle, &H60E6BDC, &H1, 1, 0&  
  46. End Sub  
  47.   
  48. Private Sub Command2_Click()  
  49. OLE1.Visible = False  
  50. DRHwnd = FindWindow("DRAGONRAJA_CLASS", "")  
  51. GetWindowThreadProcessId DRHwnd, DRPid  
  52. DRProcessHandle = OpenProcess(PROCESS_ALL_ACCESS, False, DRPid)  
  53. If DRProcessHandle = 0 Then  
  54. Label2.Caption = "加速启动失败"  
  55. Else  
  56. Label2.Caption = "加速启动成功"  
  57. WriteProcessMemory DRProcessHandle, &H474CE6, &HEB, 1, 0&  
  58. WriteProcessMemory DRProcessHandle, &H474D61, &HD2, 1, 0&  
  59. WriteProcessMemory DRProcessHandle, &H474D62, &H90, 1, 0&  
  60. End If  
  61. End Sub  
  62.   
  63. Private Sub Command3_Click()  
  64. OLE1.Visible = False  
  65. DRHwnd = FindWindow("DRAGONRAJA_CLASS", "")  
  66. GetWindowThreadProcessId DRHwnd, DRPid  
  67. DRProcessHandle = OpenProcess(PROCESS_ALL_ACCESS, False, DRPid)  
  68. If DRProcessHandle = 0 Then  
  69. Label3.Caption = "捐款失败"  
  70. Else  
  71. Label3.Caption = "可以捐款"  
  72. Timer3.Enabled = True  
  73. End If  
  74. End Sub  
  75.   
  76. Private Sub Command4_Click()  
  77. OLE1.Visible = False  
  78. DRHwnd = FindWindow("DRAGONRAJA_CLASS", "")  
  79. GetWindowThreadProcessId DRHwnd, DRPid  
  80. DRProcessHandle = OpenProcess(PROCESS_ALL_ACCESS, False, DRPid)  
  81. If DRProcessHandle = 0 Then  
  82. Label2.Caption = "加速关闭失败"  
  83. Else  
  84. Label2.Caption = "加速关闭成功"  
  85. WriteProcessMemory DRProcessHandle, &H474CE6, &H76, 1, 0&  
  86. WriteProcessMemory DRProcessHandle, &H474D61, &H55, 1, 0&  
  87. WriteProcessMemory DRProcessHandle, &H474D62, &HF4, 1, 0&  
  88. End If  
  89. End Sub  
  90.   
  91. Private Sub Command5_Click(Index As Integer)  
  92. WriteProcessMemory DRProcessHandle, &H5E23E8, &H0, 1, 0&  
  93. WriteProcessMemory DRProcessHandle, &H60D7F8C, &H1, 1, 0&  
  94. End Sub  
  95.   
  96. Private Sub Command6_Click(Index As Integer)  
  97. WriteProcessMemory DRProcessHandle, &H5E23E8, &H0, 1, 0&  
  98. WriteProcessMemory DRProcessHandle, &H5EE1CEC, &H1, 1, 0&  
  99. End Sub  
  100.   
  101. Private Sub Command7_Click(Index As Integer)  
  102. WriteProcessMemory DRProcessHandle, &H5E23E8, &H0, 1, 0&  
  103. WriteProcessMemory DRProcessHandle, &H5F50944, &H1, 1, 0&  
  104. End Sub  
  105. Private Sub Command8_Click(Index As Integer)  
  106. WriteProcessMemory DRProcessHandle, &H5E23E8, &H0, 1, 0&  
  107. WriteProcessMemory DRProcessHandle, &H60B30C4, &H1, 1, 0&  
  108. End Sub  
  109.   
  110. Private Sub Command9_Click(Index As Integer)  
  111. WriteProcessMemory DRProcessHandle, &H5E23E8, &H0, 1, 0&  
  112. WriteProcessMemory DRProcessHandle, &H60DF5B4, &H1, 1, 0&  
  113. End Sub  
  114.   
  115. Private Sub Form_Load()  
  116.   
  117. End Sub  
  118.   
  119. Private Sub OLE1_Updated(Code As Integer)  
  120. OLE1.Visible = True  
  121. End Sub  
  122.   
  123. Private Sub Timer1_Timer()  
  124. WriteProcessMemory DRProcessHandle, &H5DB144, &H1F, 1, 0&  
  125. End Sub  
  126.   
  127. Private Sub Timer3_Timer()  
  128. WriteProcessMemory DRProcessHandle, &H5D98F8C, &H1, 1, 0&  
  129. WriteProcessMemory DRProcessHandle, &H5EF7F78, &H1, 1, 0&  
  130. End Sub  
  131.   
  132. Private Sub 帮助_Click()  
  133. OLE1.Visible = True  
  134. End Sub  
  135.   
  136. Private Sub 传送_Click(Index As Integer)  
  137. WriteProcessMemory DRProcessHandle, &H5E23E8, &H0, 1, 0&  
  138. WriteProcessMemory DRProcessHandle, &H5EE1CEC, &H1, 1, 0&  
  139. End Sub  
  140.   
  141. Private Sub 服饰_Click(Index As Integer)  
  142. WriteProcessMemory DRProcessHandle, &H5E23E8, &H0, 1, 0&  
  143. WriteProcessMemory DRProcessHandle, &H60D0964, &H1, 1, 0&  
  144. End Sub  
  145.   
  146. Private Sub 公告_Click(Index As Integer)  
  147. WriteProcessMemory DRProcessHandle, &H5E23E8, &H0, 1, 0&  
  148. WriteProcessMemory DRProcessHandle, &H5F1CE2C, &H1, 1, 0&  
  149. End Sub  
  150.   
  151. Private Sub 关闭加速_Click()  
  152. OLE1.Visible = False  
  153. DRHwnd = FindWindow("DRAGONRAJA_CLASS", "")  
  154. GetWindowThreadProcessId DRHwnd, DRPid  
  155. DRProcessHandle = OpenProcess(PROCESS_ALL_ACCESS, False, DRPid)  
  156. If DRProcessHandle = 0 Then  
  157. Label2.Caption = "加速关闭失败"  
  158. Else  
  159. Label2.Caption = "加速关闭成功"  
  160. WriteProcessMemory DRProcessHandle, &H474CE6, &H76, 1, 0&  
  161. WriteProcessMemory DRProcessHandle, &H474D61, &H55, 1, 0&  
  162. WriteProcessMemory DRProcessHandle, &H474D62, &HF4, 1, 0&  
  163. End If  
  164. End Sub  
  165.   
  166. Private Sub 开启加速_Click(Index As Integer)  
  167. OLE1.Visible = False  
  168. DRHwnd = FindWindow("DRAGONRAJA_CLASS", "")  
  169. GetWindowThreadProcessId DRHwnd, DRPid  
  170. DRProcessHandle = OpenProcess(PROCESS_ALL_ACCESS, False, DRPid)  
  171. If DRProcessHandle = 0 Then  
  172. Label2.Caption = "加速启动失败"  
  173. Else  
  174. Label2.Caption = "加速启动成功"  
  175. WriteProcessMemory DRProcessHandle, &H474CE6, &HEB, 1, 0&  
  176. WriteProcessMemory DRProcessHandle, &H474D61, &HD2, 1, 0&  
  177. WriteProcessMemory DRProcessHandle, &H474D62, &H90, 1, 0&  
  178. End If  
  179. End Sub  
  180.   
  181. Private Sub 开启捐款_Click()  
  182. OLE1.Visible = False  
  183. DRHwnd = FindWindow("DRAGONRAJA_CLASS", "")  
  184. GetWindowThreadProcessId DRHwnd, DRPid  
  185. DRProcessHandle = OpenProcess(PROCESS_ALL_ACCESS, False, DRPid)  
  186. If DRProcessHandle = 0 Then  
  187. Label3.Caption = "捐款失败"  
  188. Else  
  189. Label3.Caption = "可以捐款"  
  190. Timer3.Enabled = True  
  191. End If  
  192. End Sub  
  193.   
  194. Private Sub 开启照明_Click(Index As Integer)  
  195. OLE1.Visible = False  
  196. DRHwnd = FindWindow("DRAGONRAJA_CLASS", "")  
  197. GetWindowThreadProcessId DRHwnd, DRPid  
  198. DRProcessHandle = OpenProcess(PROCESS_ALL_ACCESS, False, DRPid)  
  199. If DRProcessHandle = 0 Then  
  200. Label1.Caption = "外挂启动失败"  
  201. Else  
  202. Label1.Caption = "外挂启动成功"  
  203. Timer1.Enabled = True  
  204. End If  
  205. End Sub  
  206.   
  207. Private Sub 面包_Click(Index As Integer)  
  208. WriteProcessMemory DRProcessHandle, &H5E23E8, &H0, 1, 0&  
  209. WriteProcessMemory DRProcessHandle, &H60B30C4, &H1, 1, 0&  
  210. End Sub  
  211.   
  212. Private Sub 木材_Click(Index As Integer)  
  213. WriteProcessMemory DRProcessHandle, &H5E23E8, &H0, 1, 0&  
  214. WriteProcessMemory DRProcessHandle, &H60DF5B4, &H1, 1, 0&  
  215. End Sub  
  216.   
  217. Private Sub 铁匠_Click(Index As Integer)  
  218. WriteProcessMemory DRProcessHandle, &H5E23E8, &H0, 1, 0&  
  219. WriteProcessMemory DRProcessHandle, &H60A4474, &H1, 1, 0&  
  220. End Sub  
  221. Private Sub 药水店_Click(Index As Integer)  
  222. WriteProcessMemory DRProcessHandle, &H5E23E8, &H0, 1, 0&  
  223. WriteProcessMemory DRProcessHandle, &H60D7F8C, &H1, 1, 0&  
  224. End Sub  
  225.   
  226. Private Sub 银行_Click(Index As Integer)  
  227. WriteProcessMemory DRProcessHandle, &H5E23E8, &H0, 1, 0&  
  228. WriteProcessMemory DRProcessHandle, &H5F50944, &H1, 1, 0&  
  229. End Sub  
  230.   
  231. Private Sub 制弓_Click(Index As Integer)  
  232. WriteProcessMemory DRProcessHandle, &H5E23E8, &H0, 1, 0&  
  233. WriteProcessMemory DRProcessHandle, &H60E6BDC, &H1, 1, 0&  
  234. End Sub  
shashou47

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: