Final Auto click

ok so as some ppl now i had few question and i got resullt
so the last problem is now that my auto clicker is wotking only when i am on it and if i am on ca for example i press the hotkey and that doesnt work
(its work only when i am on the form himself)

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If key(Keys.Q) Then
Timer1.Start()
Label4.Text = "Status-On"
End If

If key(Keys.ShiftKey) Then
Timer1.Stop()
Label4.Text = "Status-Off"
End If
End Sub

a video to explain

You mean when you press the hotkeys when you are focused on your program it works, but when not focused it doesn't work.
Use GetAsyncKeyState

Put this beneeth form declaration

Code:

Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Then in a timer put this:
if GetAsyncKeyState(NUMBER YOU CAN FIND HERE)

so example if shift.

Code:

if GetAsyncKeyState(16) then
' do somthing
end if

If you want to use Q and Shift. try this

Code:

if GetAsyncKeyState(16) then
' do somthing
elseif GetAsyncKeyState(81) then
' do somthing else
end if

Originally Posted by apezwijn

You mean when you press the hotkeys when you are focused on your program it works, but when not focused it doesn't work.
Use GetAsyncKeyState

Put this beneeth form declaration

Code:

Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Then in a timer put this:
if GetAsyncKeyState(NUMBER YOU CAN FIND HERE)

so example if shift.

Code:

if GetAsyncKeyState(16) then
' do somthing
end if

If you want to use Q and Shift. try this

Code:

if GetAsyncKeyState(16) then
' do somthing
elseif GetAsyncKeyState(81) then
' do somthing else
end if

that is my whole after what you said to me

Public Class Form1
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function key Lib "user32" Alias "GetAsyncKeyState" (ByVal Key As Keys) As Keys
Private Declare Sub mouse_event Lib "user32" (ByVal dwflags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cbuttons As Long, ByVal dwExtraInfo As Long)
Private Const mouseclickup = 2
Private Const mouseclickdown = 4

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If GetAsyncKeyState(81) Then
Timer1.Start()
ElseIf GetAsyncKeyState(16) Then
Timer1.Stop()
End If
End Sub

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

MsgBox("Welcome to Arix Auto Clikxer Beta 1.0")
Timer2.Start()
Me.KeyPreview = True
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Interval = 100
Timer1.Start()
Label4.Text = "Status-On"
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
Label4.Text = "Status-Off"
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Label2.Text = TimeString
Label3.Text = DateString
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
mouse_event(&H2, 0, 0, 0, 1)
mouse_event(&H4, 0, 0, 0, 1)

End Sub

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
Process.Start("http://mesolottery.com/")
End Sub

Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
MsgBox("All right are reserved to Arix 2009-2010 - The main Site mesolottery.com ©")
End Sub

Private Sub HowToUseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HowToUseToolStripMenuItem.Click
MsgBox("1.Just go to your game once in game alt+tab Press start then go fast on your game & Enjoy yourself 2009-2010©")
End Sub

Private Sub CreditsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CreditsToolStripMenuItem.Click
MsgBox("To me and mesoslottory and all the tool that i used ")
End Sub

Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click

End Sub

Private Sub YesIAmToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YesIAmToolStripMenuItem.Click
MsgBox("Cya and ComeBack again")
End
End Sub

Private Sub NoIWantToStayToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NoIWantToStayToolStripMenuItem.Click
MsgBox("Fine Enjoy")
End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
ProgressBar1.Increment(+1)
If ProgressBar1.Value = 100 Then
Timer2.Stop()
MsgBox("Loaded to 100%")
End If
End Sub
End Class

it didnt work but maybe i am wrong correct me

Hmm, jsut copy and paste the code. man this choob knows more than me ^.^

lol danmmmmmmm thats a long code

Originally Posted by Jimmy

lol danmmmmmmm thats a long code

Lol, thats nothing

lol, I'm not in the mood fixing ur code, try using timer1.enabled = true / false
or setting an interval.

Final Auto click

Similar Threads

Tags for this Thread