vb-hack-cs2d-old.vb

Public Class Form1
    Dim Hack As New CS2DHack.CS2DHack
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim speedvalue As String = TextBox1.Text
        Try
            WriteDMAInteger(processo, &H69EFAC, New Integer() {&H20C}, speedvalue, 1)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If CheckBox1.Checked = True Then
            Try
                WriteDMAInteger(processo, &H9463B50, New Integer() {&H1C}, 2, 1)
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End If

        If CheckBox2.Checked = True Then
            Try
                WriteDMAInteger(processo, &H69EFAC, New Integer() {&H1A8}, 1, 1)
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        Else
            WriteDMAInteger(processo, &H69EFAC, New Integer() {&H1A8}, 0, 1)
        End If

        If CheckBox3.Checked = True Then
            Try
                WriteDMAInteger(processo, &H69EFAC, New Integer() {&H15C}, 100, 1)
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End If

        If CheckBox4.Checked = True Then
            Try
                WriteDMAInteger(processo, &HAFA8C48, New Integer() {&H18}, 10000, 1)
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End If

        If CheckBox5.Checked = True Then
            Try
                WriteDMAInteger(processo, &H69EFAC, New Integer() {&H1A4}, 1, 1)
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        Else
            WriteDMAInteger(processo, &H69EFAC, New Integer() {&H1A4}, 0, 1)
        End If

        If CheckBox6.Checked = True Then
            Try
                WriteDMAInteger(processo, &H69F0E4, New Integer() {&H18}, 250, 1)
                WriteDMAInteger(processo, &H69F0E4, New Integer() {&H1C}, 250, 1)
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End If
        If Not Hack.ProcessAttached Then
            Hack.AttachProcess()
        End If
        If (GetAsyncKeyState(Keys.Space) And &H8000) <> 0 Then
            If Not Hack.AimbotRunning Then
                Hack.Aimbot(True)
            End If
        Else
            If Hack.AimbotRunning Then
                Hack.Aimbot(False)
            End If

            ''Hack.Aimbot(Not Hack.AimbotRunning)

        End If
    End Sub
    <Runtime.InteropServices.DllImport("user32.dll")>
    Public Shared Function GetAsyncKeyState(vKey As System.Windows.Forms.Keys) As Short
    End Function
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Try
            WriteDMAInteger(processo, TextBox2.Text, New Integer() {TextBox3.Text}, TextBox4.Text, 1)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim moneyvalue As Integer = TextBox5.Text
        Try
            WriteDMAInteger(processo, &H69EFAC, New Integer() {&H168}, moneyvalue, 1)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Dim usgnvalue As Integer = TextBox6.Text
        Try
            WriteDMAInteger(processo, &H69EFAC, New Integer() {&H18}, usgnvalue, 1)
            WriteXBytes(processo, &H29FF38, usgnvalue)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Dim televalue As Integer = TextBox7.Text
        Try
            WriteDMAInteger(processo, &H69EFAC, New Integer() {&H13C}, televalue, 1)
            WriteDMAInteger(processo, &H69EFAC, New Integer() {&H140}, televalue, 1)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        Try
            WriteDMAInteger(processo, &H69EFAC, New Integer() {&H1B0}, 1, 1)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        Try
            WriteXBytes(processo, &H29F5D8, 1)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        MsgBox("Hack by Paulo Henrique USGN:81347")
    End Sub

    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        Try
            WriteDMAInteger(processo, &H69EFAC, New Integer() {&H220}, 1000, 1)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        Try
            WriteDMAInteger(processo, &H69EFAC, New Integer() {&H220}, 1000, 1)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Sub New()

        ' This call is required by the designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.

    End Sub
    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        'Dim address As Integer = RetBase("CounterStrike2D", "CounterStrike2D.exe") + &H29691C
        'WriteDMAInteger("CounterStrike2D", address, New Integer() {&H8, &H88, &H190, &H8, &HC}, TextBox8.Text, 5)
        If Not Hack.ProcessAttached Then
            Hack.AttachProcess()
        End If
        Hack.SetWeapon(TextBox8.Text)
        'MsgBox(ReadDMAInteger("CounterStrike2D", &H298000, New Integer() {&HC8C1020}, 1))
        'Dim weaponvalue As Integer = TextBox8.Text
        'Try
        '    If Not Hack.ProcessAttached Then
        '        Hack.AttachProcess()
        '    End If
        '    Hack.SetWeapon(weaponvalue)
        '    'WriteDMAInteger(processo, &H29EFAC, New Integer() {&HC, &H1A0}, weaponvalue, 1)
        'Catch ex As Exception
        '    MsgBox(ex.Message)
        'End Try
    End Sub
    Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint

    End Sub

    Private Sub Button11_Click(sender As Object, e As EventArgs)

    End Sub
End Class