Final Auto click
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)
a video to explain
[YOUTUBE]<object width="425" height="344"><param name="movie" value="http://www.youtube.com/v/hKkuBYXbA9M&hl=en&fs=1"></param><param name="allowFullScreen" value="true"></param><param name="allowscriptaccess" value="always"></param><embed src="http://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]
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
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
[YOUTUBE]<object width="425" height="344"><param name="movie" value="http://www.youtube.com/v/hKkuBYXbA9M&hl=en&fs=1"></param><param name="allowFullScreen" value="true"></param><param name="allowscriptaccess" value="always"></param><embed src="http://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]
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
Then in a timer put this:
if GetAsyncKeyState(NUMBER YOU CAN FIND HERE)
so example if shift.
If you want to use Q and Shift. try this
Use GetAsyncKeyState
Put this beneeth form declaration
Code:
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
if GetAsyncKeyState(NUMBER YOU CAN FIND HERE)
so example if shift.
Code:
if GetAsyncKeyState(16) then ' do somthing end if
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
Then in a timer put this:
if GetAsyncKeyState(NUMBER YOU CAN FIND HERE)
so example if shift.
If you want to use Q and Shift. try this
Use GetAsyncKeyState
Put this beneeth form declaration
Code:
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
if GetAsyncKeyState(NUMBER YOU CAN FIND HERE)
so example if shift.
Code:
if GetAsyncKeyState(16) then ' do somthing end if
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
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
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, I'm not in the mood fixing ur code, try using timer1.enabled = true / false
or setting an interval.
or setting an interval.
This thread is closed for replies.
