formhack

Public Class FormHack

    Dim NewPoint As New System.Drawing.Point
    Dim X, Y As Integer
    Private Sub Panel1_MouseDown(sender As Object, e As MouseEventArgs) Handles Panel1.MouseDown, Label1.MouseDown
        X = Control.MousePosition.X - Me.Location.X
        Y = Control.MousePosition.Y - Me.Location.Y
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TabControl1.SelectedTab = TabPage1
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        TabControl1.SelectedTab = TabPage2
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
           TabControl1.SelectedTab = TabPage3
    End Sub

    Private Sub TimerCrossHair_Tick(sender As Object, e As EventArgs) Handles TimerCrossHair.Tick
        Try
            If ComboBox1.Text = "x1" Then
                ReadWritingMemory.WriteLong("Wolfteam.bin", GetCSH() + &H7DE668, 111)
            ElseIf ComboBox1.Text = "x2" Then
                ReadWritingMemory.WriteLong("Wolfteam.bin", GetCSH() + &H7DE668, 2)
            ElseIf ComboBox1.Text = "x3" Then
                ReadWritingMemory.WriteLong("Wolfteam.bin", GetCSH() + &H7DE668, 71)
            ElseIf ComboBox1.Text = "x4" Then
                ReadWritingMemory.WriteLong("Wolfteam.bin", GetCSH() + &H7DE668, 4444)
            ElseIf ComboBox1.Text = "x5" Then
                ReadWritingMemory.WriteLong("Wolfteam.bin", GetCSH() + &H7DE668, 66)
            ElseIf ComboBox1.Text = "x6" Then
                ReadWritingMemory.WriteLong("Wolfteam.bin", GetCSH() + &H7DE668, 88)
            ElseIf ComboBox1.Text = "x7" Then
                ReadWritingMemory.WriteLong("Wolfteam.bin", GetCSH() + &H7DE668, 123)
            ElseIf ComboBox1.Text = "x8" Then
                ReadWritingMemory.WriteLong("Wolfteam.bin", GetCSH() + &H7DE668, 555)
            End If
        Catch expr_37 As Exception

        End Try
    End Sub

    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            TimerCrossHair.Start()
        Else
            TimerCrossHair.Stop()
        End If
    End Sub

    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked = True Then
            Timer3rd.Start()
        Else
            Timer3rd.Stop()
            WritePointerInteger("Wolfteam.bin", GetCSH() + &H7DE318, "0", &H54) ' OFF
        End If
    End Sub

    Private Sub Timer3rd_Tick(sender As Object, e As EventArgs) Handles Timer3rd.Tick
        Try
            WritePointerInteger("Wolfteam.bin", GetCSH() + &H7DE318, "1", &H54) ' ON
        Catch ex As Exception

        End Try
    End Sub

    Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox3.CheckedChanged
        Try
            If CheckBox3.Checked = True Then
                ReadWritingMemory.WriteLong("Wolfteam.bin", GetBIN() + &H1CF86A, 1967244534) 'On
            Else
                ReadWritingMemory.WriteLong("Wolfteam.bin", GetBIN() + &H1CF86A, 1950467318) ' OFF
            End If
        Catch ex As Exception

        End Try
    End Sub

    Private Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox4.CheckedChanged
        Try
            If CheckBox4.Checked = True Then
                ReadWritingMemory.WriteLong("Wolfteam.bin", GetBIN() + &H1A171, 5) 'On
            Else
                ReadWritingMemory.WriteLong("Wolfteam.bin", GetBIN() + &H1A171, 1967244534) ' OFF
            End If
        Catch ex As Exception

        End Try
    End Sub
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Private Sub TimerOpenHack_Tick(sender As Object, e As EventArgs) Handles TimerOpenHack.Tick
        Dim game As Process() = Process.GetProcessesByName("Wolfteam.bin")
        On Error Resume Next
        Dim Hotkey As Boolean
        Hotkey = GetAsyncKeyState(Keys.Insert)
        If Hotkey = True Then
            If Panel1.Visible = False Then
                Panel1.Visible = True
                SuspendProcess(game(0))
                Me.Show()
                Exit Sub
            End If
            If Panel1.Visible = True Then
                Panel1.Visible = False
                Me.Hide()
                ResumeProcess(game(0))
                Exit Sub
            End If
        End If
    End Sub
    Private Sub SuspendProcess(ByVal process As System.Diagnostics.Process)
        For Each t As ProcessThread In process.Threads
            Dim th As IntPtr
            th = OpenThread(ThreadAccess.SUSPEND_RESUME, True, t.Id)
            If th <> IntPtr.Zero Then
                SuspendThread(th)
                CloseHandle(th)
            End If
        Next
    End Sub

    Private Sub ResumeProcess(ByVal process As System.Diagnostics.Process)
        For Each t As ProcessThread In process.Threads
            Dim th As IntPtr
            th = OpenThread(ThreadAccess.SUSPEND_RESUME, True, t.Id)
            If th <> IntPtr.Zero Then
                ResumeThread(th)
                CloseHandle(th)
            End If
        Next
    End Sub

    Private Sub OffHacks_Tick(sender As Object, e As EventArgs) Handles OffHacks.Tick
        Try
            Dim TargetProcess As Process() = Process.GetProcessesByName("Wolfteam.bin")
            If TargetProcess.Length = 0 Then
                OffHacks.Stop()
                Process.Start("https://www.facebook.com/iDCHacks/")
                Application.Exit()
            Else
            End If
        Catch ex As Exception

        End Try
    End Sub

    Private Sub Panel1_MouseMove(sender As Object, e As MouseEventArgs) Handles Panel1.MouseMove, Label1.MouseMove
        If e.Button = MouseButtons.Left Then
            NewPoint = Control.MousePosition
            NewPoint.Y -= (Y)
            NewPoint.X -= (X)
            Me.Location = NewPoint
        End If
    End Sub
End Class