Help,Script Send Key CabalOnline

[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 September 7, 2007 by godsibig

[Generator]

Cabal got gameguard...

[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