CrossFire Spammer Source + Help

Code:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled = False
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        SendKeys.Send(TextBox1.Text())
        SendKeys.Send("{ENTER}")
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim starthotkey As Boolean
        Dim stophotkey As Boolean
        starthotkey = GetAsyncKeyState(Keys.F4)
        stophotkey = GetAsyncKeyState(Keys.F5)
        If starthotkey = True Then
            'Start
            Timer1.Enabled = True
        End If
        If stophotkey = True Then
            'Stop
            Timer1.Enabled = False
        End If
    End Sub
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer

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

    End Sub
End Class

and no any errors but when i debuge it gave me erorr on starthotkey = GetAsyncKeyState(Keys.F4)

help me please

(GetAsyncKeyState(VK_F4))

change it like this..

Originally Posted by Ege1234567890

(GetAsyncKeyState(VK_F4))

change it like this..

k

MSGTOBIG xDDD

N OT WORK IT GAVE ME ERROR

Try using something like this:

Code:

If GetAsyncKeyState(Keys.F4) Then Timer1.Enabled = True End If If GetAsyncKeyState(Keys.F5) Then Timer1.Enabled = False End If End Sub

Don't forget to declare it.

@[CFGH]AhMaD
@Thunder
@Ghost

Originally Posted by Takari

Try using something like this:

Code:

If GetAsyncKeyState(Keys.F4) Then Timer1.Enabled = True End If If GetAsyncKeyState(Keys.F5) Then Timer1.Enabled = False End If End Sub

Don't forget to declare it.

@[CFGH]AhMaD
@Thunder
@Ghost

I D K it didnt work or i think i added on wrong place

CrossFire Spammer Source + Help

Post a Reply

Tags for this Thread