strange problem

[callumparker666]

sup guise i got me a problem with this

its a bot for a popular online game however it results in the first click happening but all clicks done thereafter result in me clicking the window bar at the top

HOW DOES FIX?

also tips with regards to this program and that are very welcome

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

[callumparker666]

all my internets to the man who solves this

[baja_yu]

first click on what?

[CDRIVE]

I think game cheat bots are verboten on vbforums.

[MartinLiss]

We don't support cheating at on-line games. Thread closed.