id like to apologise for not stating this in the previous thread but this bot will NEVER be used, i'd rather train my account myself and the only reason i wrote this was to try to learn a few things which were bugging me about stuff
other than that its the same as before
Code:VERSION 5.00
Begin VB.Form frmmain
BackColor = &H80000004&
BorderStyle = 1 'Fixed Single
ClientHeight = 252
ClientLeft = 120
ClientTop = 744
ClientWidth = 1452
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 252
ScaleWidth = 1452
StartUpPosition = 3 'Windows Default
Begin VB.HScrollBar scrollbar
Height = 252
Left = 0
Max = 5000
Min = 1000
TabIndex = 0
Top = 0
Value = 1000
Width = 1452
End
Begin VB.Timer tmclick
Left = 2160
Top = 600
End
Begin VB.Menu mnufile
Caption = "file"
Begin VB.Menu mnufilerun
Caption = "run"
Shortcut = {F1}
End
Begin VB.Menu mnufilestop
Caption = "stop"
Shortcut = {F2}
End
Begin VB.Menu mnufileexit
Caption = "exit"
Shortcut = {DEL}
End
End
End
Attribute VB_Name = "frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim gotcurpos As Boolean
Dim click_coordinates1_1 As Integer
Dim click_coordinates1_2 As Integer
Dim click_coordinates2_1 As Integer
Dim click_coordinates2_2 As Integer
Dim click_coordinates3_1 As Integer
Dim click_coordinates3_2 As Integer
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
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 MOUSELEFTDOWN = &H2
Private Const MOUSELEFTUP = &H4
Private Const MOUSERIGHTUP = &H8
Private Const MOUSERIGHTDOWN = &H10
Public Function GetXCursorPos() As Long
Dim pt As POINTAPI
GetCursorPos pt
GetXCursorPos = pt.X
End Function
Public Function GetYCursorPos() As Long
Dim pt As POINTAPI
GetCursorPos pt
GetYCursorPos = pt.Y
End Function
Private Sub Form_Load()
tmclick.Enabled = 0
End Sub
Private Sub mnufilerun_Click()
tmclick.Enabled = 1
tmclick.Interval = scrollbar.Value
End Sub
Private Sub mnufilestop_Click()
tmclick.Enabled = 0
End Sub
Private Sub tmclick_Timer()
If gotcurpos = False Then _
click_coordinates1_1 = GetXCursorPos
If gotcurpos = False Then _
click_coordinates1_2 = GetYCursorPos
gotcurpos = True
click_coordinates2_1 = 350 'var2 x
click_coordinates2_2 = 830 'var2 y
click_coordinates3_1 = click_coordinates2_1
click_coordinates3_1 = click_coordinates2_1 - 50
SetCursorPos click_coordinates1_1, click_coordinates1_2
mouse_event MOUSELEFTDOWN, 0, 0, 0, 0
mouse_event MOUSELEFTUP, 0, 0, 0, 0
SetCursorPos click_coordinates2_1, click_coordinates2_2
mouse_event MOUSERIGHTDOWN, 0, 0, 0, 0
mouse_event MOUSERIGHTUP, 0, 0, 0, 0
SetCursorPos click_coordinates3_1, click_coordinates3_2
mouse_event MOUSELEFTDOWN, 0, 0, 0, 0
mouse_event MOUSELEFTUP, 0, 0, 0, 0
End Sub
