[Флудер] Выбор режима

MsgBox ( 64, 'Flooder by Coyc | Info', 'F9 - начать флуд/ F10 - приостановить флуд / F11 - выйти из флудера')
HotKeySet('{F9}', 'Msg')
HotKeySet('{F11}', 'ext')
HotKeySet('{F10}', 'pause')
$c = 0
$text = InputBox('Flooder by Coyc | Текст флуда', 'Введите текст')
$interval = InputBox('Flooder by Coyc | Интервал', 'Введите интервал, с которым будет флуд. 1000 - 1 секунда. Что бы флудить моментально введите 0 или 100')
While 1
   Sleep(100)
Wend

Func ext()
   Exit
EndFunc 

Func Msg()
    Beep(500)
	Do
        Send($text)
        Send('{enter}')
		Sleep($interval)
    Until $c = 1
 EndFunc
 
 Func pause()
	Do
	   Sleep (5000)
	Until $c = 1
 EndFunc

Send('{F6}')

$z = '/ad '&$h

&

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Re3im = GUICreate("Flooder by Coyc | Выбор режима", 163, 157, 204, 132)
$Button1 = GUICtrlCreateButton("Обычный флуд", 8, 80, 137, 41)
$Button2 = GUICtrlCreateButton("Флуд с /ad", 8, 32, 137, 41)
$Label1 = GUICtrlCreateLabel("Выберите режим", 24, 8, 91, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		 Case $Button1			
			MsgBox(0,'Flooder by Coyc | Инфо', 'F9 - начать флуд / F10 - приостановить флуд / F11 - закрыть флудер')
			HotKeySet('{F9}', 'flood')
			HotKeySet('{F10}', 'pause')
			HotKeySet('{F11}', 'ext')
			$iC = 0
			$iText = InputBox('Flooder by Coyc | Введите текст', 'Введмте текст флуда')
			$iSleep = InputBox('Flooder by Coyc | Введите интервал', 'Введите интервал. 0 - флудить моментально / 1000 - флудить с интервалом в 1 секунду, 2000 - 2 сек и т.д.')
			While 1
			   Sleep (100)
			WEnd
			
			Func flood()
			   Do
				  Send($iText)
			      Send('{enter}')
			      Sleep($iSleep)
			   Until $iC = 1
			EndFunc
			
			Func pause()
			   Do
				  Sleep(1500)
			   Until $iC = 1
			EndFunc
			
			Func ext()
			   Exit
			EndFunc
			
			Case $Button2
			   MsgBox(0,'Flooder by Coyc | Инфо', 'F9 - начать подачу объявлений / F10 - приостановить подачу объявлений / F11 - закрыть флудер')
			   HotKeySet('{F9}', 'flood2')
			   HotKeySet('{F10}', 'pause2')
			   HotKeySet('{F11}', 'ext2')
			   $iC = 0
			   $iText = InputBox('Flooder by Coyc | Введите текст объявления', 'Введите текст объявления. Например: Куплю дом')
			   $iAd = '/ad'&$iText
			   
			   Func flood2()
				  Do
					 Send($iAd)
					 Sleep(1700)
				  Until $iC = 1
			   EndFunc
			   
			   Func pause2()
				  Do
					 Sleep(2000)
				  Until $iC = 1
			   EndFunc
			   
			   Func ext2()
				  Exit
			   EndFunc
	EndSwitch
WEnd