little help

[Guest Shakra]

Ok, i have a problem. I made a gui, theres 3 buttons on it.

Start, Pause, Restart.

The start button, when pressed, will maximize a already existant windows and click enter until pause is pressed.

My problem is even when i press Pause, it continue to click on enter.

Heres the code of my gui, i hope someone can help me

expandcollapse popup

$timer = 0;
Opt("GUICoordMode", 1)
Opt("GUINotifyMode", 1)
GuiCreate("LoL", 115,206,(@DesktopHeight-115)/2, (@DesktopHeight-206)/2 , 0x04CF0000)
$start = GUISetControl("button", "Start", 30, 40, 60, 20)
$pause = GUISetControl("button", "Pause", 30, 80, 60, 20)
$restart = GUISetControl("button", "Restart", 30, 120, 60, 20)
$made = GUISetControl("pic", "made.gif", 20, 10, 80, 20)
$more = GUISetControl("pic", "more.gif", 10, 160, 100, 20)

GuiShow()

While 1
   sleep(100)
   $msg = GuiMsg(0)
   Select
   Case $msg = -3
       Exit
   Case $msg = 5
;;;
   Case $msg = $start
WinActivate("Lords of Lords Default - Netscape","")
$timer = 1;
       Do
Send("{ENTER down}")
Until $timer = 0;
   Case $msg = $pause
       $timer = 0;
Do
Sleep(100)
Until $timer = 1;
   Case $msg = $restart
WinActivate("Lords of Lords Default - Netscape","")
$timer = 1;
       Do
Send("{ENTER down}")
Until $timer = 0;       
   Case $msg = $made
     ;;;
   Case $msg = $more
     ;;;
   EndSelect
WEnd
Exit

[Jos 995]

Have a look at this code and see if that helps:

$TIMER = 0;
Opt ("GUICoordMode", 1)
Opt ("GUINotifyMode", 1)
GUICreate("LoL", 115, 206, (@DesktopHeight - 115) / 2, (@DesktopHeight - 206) / 2, 0x04CF0000)
$START = GUISetControl("button", "Start", 30, 40, 60, 20)
$PAUSE = GUISetControl("button", "Pause", 30, 80, 60, 20)
$RESTART = GUISetControl("button", "Restart", 30, 120, 60, 20)

GUIShow()

While 1
   Sleep(100)
   $MSG = GUIMsg(0)
   Select
      Case $MSG = -3
         Exit
      Case $MSG = $START
         $TIMER = 1;
         msgbox(0,'Enter' ,'Enter',1)
      Case $MSG = $PAUSE
         $TIMER = 0;
         msgbox(0,' Pause' ,'Pause',1)
      Case $MSG = $RESTART
         msgbox(0,' Restart' ,'Restart',1)
      Case $TIMER = 0
         msgbox(0,' Timer=0' ,' Timer=0',1)
      Case $TIMER = 1
         msgbox(0,' Timer=1' ,' Timer=1',1)
   EndSelect
Wend
Exit

[Guest Shakra]

Thanks, it works

Now i will modifie it so it can log in from the beginning.

Thanks alot