VB6 TRIGGERBOT

Yes, I know this should be in the vb6 section. But thats almost inactive and you dont get that much help as here.
I found a tutorial on triggerbot in the vb6 section, but it doesnt seem to work. Can anyone help me?

MODULE:

Code:

Option Explicit
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 MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4

Public Sub lef***ick()
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
End Sub

CODE:

Code:

Dim cat As Long
Call ReadALong("WarRock", (Text26.Text), cat)
If cat = Val("2") Then
lef***ick
End If

Thank you for your time,
Apezwijn

VB6 TRIGGERBOT

Code:

Option Explicit
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 MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4

Public Sub lef***ick()
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
End Sub

CODE:

Code:

Dim cat As Long
Call ReadALong("WarRock", (Text26.Text), cat)
If cat = Val("2") Then
lef***ick
End If

Thank you for your time,
Apezwijn

VB6 TRIGGERBOT

Post a Reply

Similar Threads

Tags for this Thread

VB6 TRIGGERBOT

Post a Reply

Similar Threads

Tags for this Thread