#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>


Func spam()
   WinActivate("Yahoo! Messenger")
While 1
send("^!a")
send("^!i")
ControlClick("Invisible to Everyone","","Button1")
WEnd
EndFunc

   HotKeySet("{F8}", "spam")
   HotKeySet("{F9}", "Pause")
   HotKeySet("{F10}", "cont") 
   HotKeySet("{F11}", "exit1") 
   
$delay=0
   
Func pause($delay)
   dim $delay=1
   while $delay<>0
      sleep(100)
      ToolTip('Tạm dừng',507, 365)
   wend
   ToolTip('Đang hoạt động',507, 365)
   WinActivate("Invisible to Everyone")
   return $delay
EndFunc

func cont($delay)
   WinActivate("Yahoo! Messenger")
   $delay=0
   Return $delay
EndFunc

Func exit1()
   Exit
EndFunc

GUICreate("Auto On,Off",200,100)
;GuiCtrlCreatePic("Untitled-1.gif",0,0,200,100)
GUICtrlCreateLabel("Phím tắt: F8 bắt đầu."&@CRLF&"              F9 Tạm dừng."&@CRLF&"              F10 Tiếp tục."&@CRLF&"              F11 Thoát."&@CRLF&"http://haku.forumvi.net",10,10,135,80)
$a = GUICtrlCreateButton("Ẩn", 140, 25, 50)


GUISetState()
 While 1
        $msg = GUIGetMsg()
        Select
            Case $msg = $GUI_EVENT_CLOSE
                ExitLoop
         Case $msg = $GUI_EVENT_MINIMIZE
            WinSetState("Auto Invisible - Available", "", @SW_HIDE)
            WinActivate("Yahoo! Messenger")
         Case $msg = $a
            WinSetState("Auto Invisible - Available", "", @SW_HIDE)
            WinActivate("Yahoo! Messenger")
      EndSelect
WEnd