the second code is like this:
this should helpCode:dim cat as long call readalong(&H(TriggerBotAddy), cat) if cat = val("2") then lef***ick end if
Hii
Can someone help me with this codes...
in the module i have:
in the timer: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
Currely the When you scroll over someone it changes fromCode:dim cat as long readalong(&H(TriggerBotAddy), cat) if cat = (whatever the tiggerbot addy changes to when you scroll over someone.. it changes) then lef***ick() end if
-1 if not in game yet
0 if not over someone
2 if over someone
When i scroll the mouse over someone I can't shoot...
what i have to do for this work?
the second code is like this:
this should helpCode:dim cat as long call readalong(&H(TriggerBotAddy), cat) if cat = val("2") then lef***ick end if
the same thing...
when I scroll the mouse over someone I can't shoot..
in ur module u need the sendkeys command
Private Declare Sub keybd_event Lib "user32" ( _
ByVal bVk As Byte, ByVal bScan As Byte, _
ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const KEYEVENTF_EXTENDEDKEY = &H1
Private Const KEYEVENTF_KEYUP = &H2
Private Declare Function GetVersion Lib "kernel32" () As Long
Private Declare Function VkKeyScan Lib "user32" Alias "VkKeyScanA" ( _
ByVal cChar As Byte) As Integer
Private Declare Function VkKeyScanW Lib "user32" ( _
ByVal cChar As Integer) As Integer
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)
Public Sub KeyDown(ByVal vKey As KeyCodeConstants)
keybd_event vKey, 0, KEYEVENTF_EXTENDEDKEY, 0
End Sub
Public Sub KeyUp(ByVal vKey As KeyCodeConstants)
keybd_event vKey, 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0
End Sub
Public Function KeyCode(ByVal sChar As String) As KeyCodeConstants
Dim bNt As Boolean
Dim iKeyCode As Integer
Dim b() As Byte
Dim iKey As Integer
Dim vKey As KeyCodeConstants
Dim iShift As ShiftConstants
' Determine if we have Unicode support or not:
bNt = ((GetVersion() And &H80000000) = 0)
' Get the keyboard scan code for the character:
If (bNt) Then
b = sChar
CopyMemory iKey, b(0), 2
iKeyCode = VkKeyScanW(iKey)
Else
b = StrConv(sChar, vbFromUnicode)
iKeyCode = VkKeyScan(b(0))
End If
KeyCode = (iKeyCode And &HFF&)
End Function
i cant get triggerbot to work for myself because if sum varible bs
but ut that in ur module and c if it works
if it works can i get a thank u lol
hii
already fixed
MODULE:TIMER:Code:Public 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) Public Const MDown = &H2 Public Const MUp = &H4 Public Sub Down() mouse_event MDown, 0, 0, 0, 0 End Sub Public Sub Up() mouse_event MUp, 0, 0, 0, 0
Code:Dim triggerbot As Long Call readalong(Addie, triggerbot) If triggerbot = 2 Then Call Down Else Call Up End If
Last edited by thiag00; 06-14-2008 at 08:36 PM.