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