OldSchoolHack

Register / Login English

external triggerbot hilfe!

icon Thread: external triggerbot hilfe!

Join Date: Nov 2011

Posts: 24

Quote
Poste mal deinen Code.

TEXT Code:
  1. Imports System.Runtime.InteropServices
  2. Imports System.Text
  3.  
  4. Public Class Form1
  5.  
  6. Dim pointerone As Long
  7. Dim pointertwo As Long
  8. Dim pointerthree As Long
  9. Dim pointerfour As Long
  10. Dim value As Long
  11. Dim no_recoil = 0
  12. Dim chkEnabled
  13. Dim activator As Integer = 1
  14. Dim nospread As Integer = 0
  15. Dim hRecoil = 50
  16. Dim X As Integer
  17. Dim Y As Integer
  18. Dim player
  19. Dim get_player
  20. Const WM_LBUTTONDOWN As UInteger = &H201
  21. Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
  22.  
  23. Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
  24.  
  25. End Sub
  26.  
  27. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  28.  
  29.  
  30. End Sub
  31. Public Function GetModuleBase(ByVal Procname As String, ByVal ModuleName As String)
  32. Dim BaseAdress As Int32
  33. For Each PM As ProcessModule In Process.GetProcessesByName(Procname)(0).Modules
  34. If ModuleName.ToLower = PM.ModuleName.ToLower Then
  35. BaseAdress = BaseAdress
  36.  
  37. End If
  38. Next
  39. Return BaseAdress
  40. End Function
  41. Private Sub checkcross_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles checkcross.Tick
  42. Label2.Text = ("Shooting on:" & pointertwo)
  43. If GetAsyncKeyState(VK_INSERT) & no_recoil = 0 Then
  44. no_recoil = 1
  45. ElseIf GetAsyncKeyState(VK_INSERT) & no_recoil = 1 Then
  46. no_recoil = 0
  47. MsgBox("Off")
  48. End If
  49. ' player = ReadInteger("hl2", &H19C93A0CC + &H1470)
  50.  
  51. ' pointerone = ReadLong("hl2", &H18743A0C) ' die erste value für den gefundenen spieler 19C93A0C
  52. ' pointertwo = ReadLong("hl2", pointerone + &H22FCFE00) ' der pointer
  53. ' pointerthree = ReadLong("hl2", pointertwo + &H1470) ' der pointer
  54. ' pointerfour = ReadInteger("hl2", pointerthree)
  55. 'value = pointerfour
  56. ' player = ReadInteger("hl2", &H24460158)
  57. If GetAsyncKeyState(VK_MBUTTON) Then
  58. pointerone = ReadLong("hl2", GetModuleBase("hl2", "client.dll") + &H703A0C)
  59. pointertwo = ReadLong("hl2", pointerone + &H1470)
  60. player = ReadInteger("hl2", pointertwo)
  61. MsgBox(player)
  62. If (player > 0) Then
  63. If (player < 65) Then
  64.  
  65. SetCursorPos(MousePosition.X - 30, MousePosition.Y)
  66.  
  67. PerformMouseClick("LClick")
  68. 'Threading.Thread.Sleep(100)
  69. End If
  70.  
  71.  
  72. Else
  73.  
  74. End If
  75.  
  76.  
  77. Else
  78.  
  79. End If
  80.  
  81. End Sub
  82. Public Sub norecoil()
  83.  
  84. End Sub
  85.  
  86. Private Sub onoff_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
  87.  
  88. End Sub
  89. Private Declare Function GetAsyncKeyState Lib "user32.dll" ( _
  90. ByVal vKey As Long) As Long
  91.  
  92. ' GetAsyncKeyState vKey-Konstanten
  93. Private Const VK_LBUTTON = &H1 ' Linker Mausbutton
  94. Private Const VK_RBUTTON = &H2 ' Rechter Mausbutton
  95. Private Const VK_MBUTTON = &H4 ' Mittlerer Mausbutton
  96.  
  97. Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
  98. Me.Close()
  99. End Sub
  100. Private Shared Function SetCursorPos(ByVal X As Integer, ByVal Y As Integer) As Boolean
  101.  
  102. End Function
  103. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
  104.  
  105. End Sub
  106.  
  107. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  108. Dim mouseThread As New Threading.Thread(AddressOf MouseMonitor)
  109. mouseThread.Priority = Threading.ThreadPriority.BelowNormal
  110. mouseThread.Start()
  111. MsgBox(get_player)
  112.  
  113. 'value = pointerthree
  114. pointerone = ReadLong("hl2", GetModuleBase("hl2", "client.dll") + &H703A0C)
  115. pointertwo = ReadLong("hl2", pointerone + &H1470)
  116. pointerthree = ReadInteger("hl2", pointertwo)
  117. MsgBox(pointerthree)
  118. Label1.Text = "Triggerbot activated"
  119. Label2.Text = ("Offset:" & pointertwo)
  120. get_player = pointertwo
  121. ' ReadInteger(getBaseAddr("client.dll")+)
  122. checkcross.Enabled = True
  123.  
  124.  
  125. End Sub
  126. Private Declare Sub mouse_event Lib "user32.dll" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As IntPtr)
  127. Private Sub PerformMouseClick(ByVal LClick_RClick_DClick As String)
  128. Const MOUSEEVENTF_LEFTDOWN As Integer = 2
  129. Const MOUSEEVENTF_LEFTUP As Integer = 4
  130. Const MOUSEEVENTF_RIGHTDOWN As Integer = 6
  131. Const MOUSEEVENTF_RIGHTUP As Integer = 8
  132. If LClick_RClick_DClick = "RClick" Then
  133. mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, IntPtr.Zero)
  134. mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, IntPtr.Zero)
  135. ElseIf LClick_RClick_DClick = "LClick" Then
  136. mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, IntPtr.Zero)
  137. mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, IntPtr.Zero)
  138. ElseIf LClick_RClick_DClick = "DClick" Then
  139. mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, IntPtr.Zero)
  140. mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, IntPtr.Zero)
  141. mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, IntPtr.Zero)
  142. mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, IntPtr.Zero)
  143. End If
  144. End Sub
  145.  
  146. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  147. MsgBox(player)
  148. 'WriteInteger("hl2", get_player, 0)
  149. pointerone = ReadLong("hl2", &H19C93A0C) ' die erste value für den gefundenen spieler 19C93A0C
  150. pointertwo = ReadLong("hl2", pointerone + &H1470) ' der pointer
  151. value = pointerthree
  152. MsgBox(value)
  153. End Sub
  154. Private Sub MouseMonitor()
  155. Dim centerScreen As New Point(Screen.PrimaryScreen.Bounds.Width \ 2, Screen.PrimaryScreen.Bounds.Height \ 2)
  156. Do
  157. If GetAsyncKeyState(VK_LBUTTON) Then
  158. Threading.Thread.Sleep(200) 'give some time to let the user release if it's just a mouseclick
  159. While GetAsyncKeyState(VK_LBUTTON)
  160.  
  161. SetCursorPos(centerScreen.X, centerScreen.Y + 20)
  162. End While
  163. End If
  164. Threading.Thread.Sleep(100) 'so we dont call GAKS too often and drain system resources.
  165. Loop 'infinite
  166.  
  167. Do
  168. If GetAsyncKeyState(VK_RBUTTON) Then
  169. Threading.Thread.Sleep(200) 'give some time to let the user release if it's just a mouseclick
  170. While GetAsyncKeyState(VK_RBUTTON)
  171.  
  172. SetCursorPos(centerScreen.X, centerScreen.Y - 20)
  173. End While
  174. End If
  175. Threading.Thread.Sleep(100) 'so we dont call GAKS too often and drain system resources.
  176. Loop 'infinite
  177. End Sub
  178. End Class
  179.  


ist denn mein read  write memory module auch wichtig?