OldSchoolHack

Register / Login English

external triggerbot hilfe!


icon external triggerbot hilfe! #1

Join Date: Nov 2011

Posts: 24

hallo leute, ich hab neueredings in vb. net einen triggerbot gecoded.
ich habe mit cheat engine eine variable ausgelesen (& zwar die wenn sich ein spieler vor dem fadenkreuz bewegt ,wo sich dann die value ändert), sobald die sich ändert zwischen 1 & 64 sendet er die linke maustaste (mit triggerkey natürlich ) . der triggerbot funktionert wirklich perfekt, leider habe ich nur ein problem.Jedes mal wenn ich cs:s neustarte muss ich das offset neu auslesen da es  mir nicht möglich dieses fixxe offset "auszurechnen" .
wenn mir jemand helfen würde wäre das echt nett. sitze schon die ganze nacht daran hab in foren gestöbert doch bekomme es einfach nicht hin :/


danke
   keschi200

icon #2

Join Date: Jun 2011

Posts: 490

User-Rating:

12 positive
0 negative
Google->Pointer Scan

__________________

http://www10.pic-upload.de/30.04.12/j9dbc34bxdg.jpg
icon #3

Join Date: Apr 2012

Posts: 18

Musst halt nen Pointer zu der Adresse finden.
Kannste durch Pointer Scan/Find out what writes this Address in CE rausfinden.
Edit: Zu Spät
icon #4

Join Date: Nov 2011

Posts: 24

Quote from Mantarochen
Google->Pointer Scan
also wenn du mit pointer das hier meinst, dann hab ich das schon
http://www10.pic-upload.de/24.06.12/68qg8agy8y.jpg

wenn ich den code mit dem pointer in meinem triggerbot einfüge geht es auch
http://www10.pic-upload.de/24.06.12/ya16coghikis.jpg


nur ich bekomm es nicht hin immer das richtige offset gleich drinnen zu haben :/
icon #5

Join Date: Apr 2012

Posts: 18

Doppelklick auf p->27754E80 und schau was drin steht
icon #6

Join Date: Nov 2011

Posts: 24

Quote from brinkz
Doppelklick auf p->27754E80 und schau was drin steht
http://www10.pic-upload.de/24.06.12/3h6wkhq54ii5.jpg
das bekomm ich dabei raus. sehr hilft mir das aber leider nicht auf die sprünge :/

icon #7

Join Date: Jun 2011

Posts: 490

User-Rating:

12 positive
0 negative
Ist kein Pointer. Pointer zur Trigger adresse sieht so aus: client.dll+0xXXXXXX

__________________

http://www10.pic-upload.de/30.04.12/j9dbc34bxdg.jpg
icon #8

Join Date: Nov 2011

Posts: 24

Quote from Mantarochen
Ist kein Pointer. Pointer zur Trigger adresse sieht so aus: client.dll+0xXXXXXX
aber ich weis leider nicht was ich mit "client.dll+703A0C" anfangen soll. falls du das meinst?
icon #9

Join Date: Apr 2012

Posts: 18

Quote from keschi200
Quote from Mantarochen
Ist kein Pointer. Pointer zur Trigger adresse sieht so aus: client.dll+0xXXXXXX
aber ich weis leider nicht was ich mit "client.dll+703A0C" anfangen soll. falls du das meinst?
Auslesen, und dann mit Offset addieren, und wieder auslesen.
icon #10

Join Date: Jun 2011

Posts: 490

User-Rating:

12 positive
0 negative
Du brauchst die Modulebase von der client.dll, da diese auch dynamisch ist. Wenn du die hast lieste die modulebase+das offset aus und kommst dann nach jedem neustart auf diene adresse.

__________________

http://www10.pic-upload.de/30.04.12/j9dbc34bxdg.jpg
icon #11

Join Date: Nov 2011

Posts: 24

Quote from brinkz
Quote from keschi200
Quote from Mantarochen
Ist kein Pointer. Pointer zur Trigger adresse sieht so aus: client.dll+0xXXXXXX
aber ich weis leider nicht was ich mit "client.dll+703A0C" anfangen soll. falls du das meinst?
Auslesen, und dann mit Offset addieren, und wieder auslesen.
also das client.dll+703A0C ist ja schon ausgelsen.
das heist ich mach jetzt einfach mit vb net
so :
variable1 = readlong("hl2", &H234D0260)
variable2 = readlong("hl2", &H1470 + variable1)
variable3 = readlong("hl2", variable2 + &H703A0C)
offset = variable3
player =  redineger("hl2", offset)




und dann einfach meine trigger funktion? oder hab ich das falsch verstanden?

icon #12

Join Date: Apr 2012

Posts: 18

Was soll das &H234D0260 sein?
Für client.dll musste ne getModuleBase Funktion benutzen, da die Adresse nicht statisch ist.
Also:
variable1 = readlong(hl2, getModuleBase(hl2, "client.dl")+&H703A0C)
variable2 = readlong(hl2, variable1+&H1470)
Das wars schon.
icon #13

Join Date: Jun 2010

Posts: 561

https://www.oldschoolhack.me/forum/tutorials/6198,css-externer-triggerbot.html
// Da solltest du das finden, was du brauchst...
icon #14

Join Date: Jun 2011

Posts: 490

User-Rating:

12 positive
0 negative
Wenn ich den Kot sehe, merke ich doch immer wieder wie hässlich vb ist...

__________________

http://www10.pic-upload.de/30.04.12/j9dbc34bxdg.jpg
icon #15

Join Date: Sep 2010

Posts: 136

Quote from Mantarochen
Wenn ich den Kot sehe, merke ich doch immer wieder wie hässlich vb ist...
Beschränkter, du. Nur weil VB nicht so scheinsortiert wie C/++ ist.

__________________

[21:43:44] <-> Reita heißt jetzt R|GW2
[21:44:08] <-> Igromanru heißt jetzt Reita
[21:44:20] <-> Cycode2 heißt jetzt Igromanru
[21:44:27] <-> R|GW2 heißt jetzt Cyode2
icon #16

Join Date: Nov 2011

Posts: 24

Quote from brinkz
Was soll das &H234D0260 sein?
Für client.dll musste ne getModuleBase Funktion benutzen, da die Adresse nicht statisch ist.
Also:
variable1 = readlong(hl2, getModuleBase(hl2, "client.dl")+&H703A0C)
variable2 = readlong(hl2, variable1+&H1470)
Das wars schon.
also erstmal danke für die antwort. aber leider geht es nicht. woran könnte das luegen? ich hab mir die variable auch ausgeben lassen wahren ich auf jemanden geziehlt habe aber sie bleibt immer auf null.

icon #17

Join Date: Apr 2012

Posts: 18

Quote from keschi200
Quote from brinkz
Was soll das &H234D0260 sein?
Für client.dll musste ne getModuleBase Funktion benutzen, da die Adresse nicht statisch ist.
Also:
variable1 = readlong(hl2, getModuleBase(hl2, "client.dl")+&H703A0C)
variable2 = readlong(hl2, variable1+&H1470)
Das wars schon.
also erstmal danke für die antwort. aber leider geht es nicht. woran könnte das luegen? ich hab mir die variable auch ausgeben lassen wahren ich auf jemanden geziehlt habe aber sie bleibt immer auf null.
Poste mal deinen Code.
icon #18

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?
icon #19

Join Date: Jun 2011

Posts: 490

User-Rating:

12 positive
0 negative
Ich Blick da in vb net so ganz durch, aber liest du nicht schon den spieler index in Pointertwo ein?

__________________

http://www10.pic-upload.de/30.04.12/j9dbc34bxdg.jpg
icon #20

Join Date: Apr 2012

Posts: 18

Das letzte player = ReadInteger("hl2", pointertwo) brauchste nicht, aber ansonsten kenn ich mich zu wenig in VB aus, als dass ich dir jetzt sagen könnte, was falsch ist.