Final Auto click

[012g]

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
[YOUTUBE]<object width="425" height="344"><param name="movie" value="https://www.youtube.com/v/hKkuBYXbA9M&hl=en&fs=1"></param><param name="allowFullScreen" value="true"></param><param name="allowscriptaccess" value="always"></param><embed src="https://www.youtube.com/v/hKkuBYXbA9M&hl=en&fs=1" type="application/x-shockwave-flash" allowscriptaccess="always" allowfullscreen="true" width="425" height="344"></embed></object>[/YOUTUBE]

[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

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.

if GetAsyncKeyState(16) then
' do somthing
end if

If you want to use Q and Shift. try this

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

[012g]

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

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.

if GetAsyncKeyState(16) then
' do somthing
end if

If you want to use Q and Shift. try this

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("https://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

[Jimmy]

lol danmmmmmmm thats a long code

[Iamazn]

lol danmmmmmmm thats a long code

Lol, thats nothing

[apezwijn]

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

[Katie_Perry]

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