Game guard blocked API ?

[icarojs]

made a macro using api in the VB
when I open the MU… it do not function


Declare Function GetCursorPos& Lib "user32" (lpPoint As PointAPI)
Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

HELP ME !!!

[Mumpfi3k]

Use keybd_event instead.

[lodipl]

Use keybd_event instead.

mouse_event too and rename ur bot to Pinnacle.exe ;)

[icarojs]

test autopick

Option Explicit

Private Declare Sub keybd_event Lib "user32" _
(ByVal bVk As Byte, ByVal bScan As Byte, _
ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Declare Function MapVirtualKey Lib "user32" _
Alias "MapVirtualKeyA" _
(ByVal wCode As Long, ByVal wMapType As Long) As Long

Private Const KEYEVENTF_EXTENDEDKEY = &H1
Private Const KEYEVENTF_KEYUP = &H2

Private Declare Function SetKeyboardState Lib "user32" _
(lppbKeyState As Byte) As Long

Private Declare Function GetKeyState Lib "user32" _
(ByVal nVirtKey As Long) As Integer

Private Sub SetKeyState(ByVal Key As Long, ByVal State As Boolean)

Call keybd_event(Key, MapVirtualKey(Key, 0), _
KEYEVENTF_EXTENDEDKEY Or 0, 0)

Call keybd_event(Key, MapVirtualKey(Key, 0), _
KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0)

End Sub


Private Sub Timer2_Timer()
Call SetKeyState(KeyCodeConstants.vbKeySpace, True)
End Sub


without effect =/

tnx lodipl

i test it

exists another method?

T_t T_t

[Mumpfi3k]

When u press a Key u need to release it too.

U should read the Onlinehelp / MSDN again.

[OccultOne]

mouse_event too and rename ur bot to Pinnacle.exe ;)

Seems like this trick doesn't work with the GG version 1034...
or does it work for you? :speechless: