external triggerbot hilfe!

Imports System.Runtime.InteropServices
Imports System.Text
 
Public Class Form1
 
    Dim pointerone As Long
    Dim pointertwo As Long
    Dim pointerthree As Long
    Dim pointerfour As Long
    Dim value As Long
    Dim no_recoil = 0
    Dim chkEnabled
    Dim activator As Integer = 1
    Dim nospread As Integer = 0
    Dim hRecoil = 50
    Dim X As Integer
    Dim Y As Integer
    Dim player
    Dim get_player
    Const WM_LBUTTONDOWN As UInteger = &H201
    Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
 
    Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
 
    End Sub
    Public Function GetModuleBase(ByVal Procname As String, ByVal ModuleName As String)
        Dim BaseAdress As Int32
        For Each PM As ProcessModule In Process.GetProcessesByName(Procname)(0).Modules
            If ModuleName.ToLower = PM.ModuleName.ToLower Then
                BaseAdress = BaseAdress
 
            End If
        Next
        Return BaseAdress
    End Function
    Private Sub checkcross_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles checkcross.Tick
        Label2.Text = ("Shooting on:" & pointertwo)
        If GetAsyncKeyState(VK_INSERT) & no_recoil = 0 Then
            no_recoil = 1
        ElseIf GetAsyncKeyState(VK_INSERT) & no_recoil = 1 Then
            no_recoil = 0
            MsgBox("Off")
        End If
        ' player = ReadInteger("hl2", &H19C93A0CC + &H1470)
 
        '    pointerone = ReadLong("hl2", &H18743A0C)  ' die erste value für den gefundenen spieler 19C93A0C
        '   pointertwo = ReadLong("hl2", pointerone + &H22FCFE00) '  der pointer
        '  pointerthree = ReadLong("hl2", pointertwo + &H1470) '  der pointer
        ' pointerfour = ReadInteger("hl2", pointerthree)
        'value = pointerfour
        '  player = ReadInteger("hl2", &H24460158)
        If GetAsyncKeyState(VK_MBUTTON) Then
            pointerone = ReadLong("hl2", GetModuleBase("hl2", "client.dll") + &H703A0C)
            pointertwo = ReadLong("hl2", pointerone + &H1470)
            player = ReadInteger("hl2", pointertwo)
            MsgBox(player)
            If (player > 0) Then
                If (player < 65) Then
 
                    SetCursorPos(MousePosition.X - 30, MousePosition.Y)
 
                    PerformMouseClick("LClick")
                    'Threading.Thread.Sleep(100)
                End If
 
 
            Else
 
            End If
 
 
        Else
 
        End If
 
    End Sub
    Public Sub norecoil()
 
    End Sub
 
    Private Sub onoff_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
 
    End Sub
    Private Declare Function GetAsyncKeyState Lib "user32.dll" ( _
  ByVal vKey As Long) As Long
 
    ' GetAsyncKeyState vKey-Konstanten
    Private Const VK_LBUTTON = &H1  ' Linker Mausbutton
    Private Const VK_RBUTTON = &H2  ' Rechter Mausbutton
    Private Const VK_MBUTTON = &H4  ' Mittlerer Mausbutton
 
    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Me.Close()
    End Sub
    Private Shared Function SetCursorPos(ByVal X As Integer, ByVal Y As Integer) As Boolean
 
    End Function
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim mouseThread As New Threading.Thread(AddressOf MouseMonitor)
        mouseThread.Priority = Threading.ThreadPriority.BelowNormal
        mouseThread.Start()
        MsgBox(get_player)
 
        'value = pointerthree
        pointerone = ReadLong("hl2", GetModuleBase("hl2", "client.dll") + &H703A0C)
        pointertwo = ReadLong("hl2", pointerone + &H1470)
        pointerthree = ReadInteger("hl2", pointertwo)
        MsgBox(pointerthree)
        Label1.Text = "Triggerbot activated"
        Label2.Text = ("Offset:" & pointertwo)
        get_player = pointertwo
        ' ReadInteger(getBaseAddr("client.dll")+)
        checkcross.Enabled = True
 
 
    End Sub
    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)
    Private Sub PerformMouseClick(ByVal LClick_RClick_DClick As String)
        Const MOUSEEVENTF_LEFTDOWN As Integer = 2
        Const MOUSEEVENTF_LEFTUP As Integer = 4
        Const MOUSEEVENTF_RIGHTDOWN As Integer = 6
        Const MOUSEEVENTF_RIGHTUP As Integer = 8
        If LClick_RClick_DClick = "RClick" Then
            mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, IntPtr.Zero)
            mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, IntPtr.Zero)
        ElseIf LClick_RClick_DClick = "LClick" Then
            mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, IntPtr.Zero)
            mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, IntPtr.Zero)
        ElseIf LClick_RClick_DClick = "DClick" Then
            mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, IntPtr.Zero)
            mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, IntPtr.Zero)
            mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, IntPtr.Zero)
            mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, IntPtr.Zero)
        End If
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MsgBox(player)
        'WriteInteger("hl2", get_player, 0)
        pointerone = ReadLong("hl2", &H19C93A0C)  ' die erste value für den gefundenen spieler 19C93A0C
        pointertwo = ReadLong("hl2", pointerone + &H1470)  '  der pointer
        value = pointerthree
        MsgBox(value)
    End Sub
    Private Sub MouseMonitor()
        Dim centerScreen As New Point(Screen.PrimaryScreen.Bounds.Width \ 2, Screen.PrimaryScreen.Bounds.Height \ 2)
        Do
            If GetAsyncKeyState(VK_LBUTTON) Then
                Threading.Thread.Sleep(200) 'give some time to let the user release if it's just a mouseclick
                While GetAsyncKeyState(VK_LBUTTON)
 
                    SetCursorPos(centerScreen.X, centerScreen.Y + 20)
                End While
            End If
            Threading.Thread.Sleep(100) 'so we dont call GAKS too often and drain system resources.
        Loop 'infinite
 
        Do
            If GetAsyncKeyState(VK_RBUTTON) Then
                Threading.Thread.Sleep(200) 'give some time to let the user release if it's just a mouseclick
                While GetAsyncKeyState(VK_RBUTTON)
 
                    SetCursorPos(centerScreen.X, centerScreen.Y - 20)
                End While
            End If
            Threading.Thread.Sleep(100) 'so we dont call GAKS too often and drain system resources.
        Loop 'infinite
    End Sub
End Class