Jump to content
Sign in to follow this  
godsibig

Help,Script Send Key CabalOnline

Recommended Posts

godsibig

#include <Constants.au3>

#include <GUIConstants.au3>

$GUI = GUICreate("CB Project (Auto Key) Beta 0.1", 400, 200)

;~Label

GUICtrlCreateLabel ("..........", 10, 20)

GUICtrlCreateLabel ("................", 10, 40)

GUICtrlCreateLabel ("...................", 10, 60)

GUICtrlCreateLabel (".........................", 10, 60)

GUICtrlCreateLabel ("...........................", 10, 80)

GUICtrlCreateLabel ("...............................", 10, 120)

GUICtrlCreateLabel (".................................", 10, 140)

;~menuSwitch

$filemenu = GUICtrlCreateMenu ("&File")

$exititem = GUICtrlCreateMenuitem ("Exit",$filemenu)

$infomenu = GUICtrlCreateMenu ("www.mod2play.com")

#NoTrayIcon

Opt("TrayOnEventMode",1)

Opt("TrayMenuMode",1)

TraySetOnEvent($TRAY_EVENT_PRIMARYUP, "Minimize")

Opt("WinTitleMatchMode", 2)

$CabalTitle = WinGetTitle("CABAL", "")

WinActivate($CabalTitle)

GUISetState(@SW_SHOW)

;~Autokey

Hotkeyset("{ESC}","ExitProgram")

AdLibEnable("Spammer",500)

;~ Main

While 1

$iMsg = GUIGetMsg()

;~menuFunc

If $iMsg = $GUI_EVENT_CLOSE Or $iMsg = $exititem Then ExitLoop

Select

Case $iMsg = $GUI_EVENT_CLOSE

Exit

Case $iMsg = $GUI_EVENT_MINIMIZE

GuiSetState(@SW_HIDE)

TraySetState(1)

EndSelect

WEnd

;Function

Func Minimize()

TraySetState(2)

GuiSetState(@SW_SHOW)

EndFunc

Func ExitProgram()

Exit

EndFunc

Func Spammer()

If ProcessWait("cabalmain.exe")= 1 Then

Send("{1}")

EndIf

EndFunc

It not send key {1} in GameClient.

Help me, Thx :)

Edited by godsibig

Share this post


Link to post
Share on other sites
godsibig

It is misfire gameguard.

It doesn't inform reach game has usual.

It not sendkey in game but if Alt+Tab depart game already reach go to Game it will send once only.

Thx.. I play CabalOnline in thailand

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.