Пауза флуда

[obeyme]

Решил сделать простенький флудер, вот код:

MsgBox ( 64, 'Флудер', 'Нажми F10 чтобы начать флуд и F11 чтобы выйти из флудера')
HotKeySet('{F10}', 'Msg')
HotKeySet('{F11}', 'ext')
$c = 0
$text = InputBox('Флудер', 'Введите текст')
While 1
   Sleep(100)
Wend

Func ext()
   Exit
EndFunc

Func Msg()
    Do
        Send($text)
        Send('{enter}')
    Until $c = 1
EndFunc

И так. У нас есть цикл, т.е он будет флудить бесконечно, т.к. переменная C никогда не будет равна 1. Так вот. Как сделать так, что бы флудило, пока, например, не нажмешь F9 или другую клавишу. Т.е он флудит, нажал F9 он не флудит, нажал F9 еще раз - он продолжает флудить.

 

[sngr]

HotKeySet

Здесь есть пример решения твоей задачи и еслиб ты умел читать, то узнал бы как это сделать.

 

[obeyme]

Я понимаю и читать я умею. Просто я новичек и еще не особо понимаю примеры которые в справке. Можете написать пример с пояснениями?

 

[ivsatel]

MsgBox ( 64, 'Флудер', 'Нажми F10 чтобы начать флуд и F11 чтобы выйти из флудера')
HotKeySet('{F10}', 'Msg')
HotKeySet('{F9}', 'Pause')
HotKeySet('{F11}', 'ext')
$c = 0
$text = InputBox('Флудер', 'Введите текст')
While 1
   Sleep(100)
Wend

Func ext()
   Exit
EndFunc

Func Pause()
While 1
Sleep(500)
Beep()
WEnd
EndFunc

Func Msg()
    Do
        Send($text)
        Send('{enter}')
    Until $c = 1
EndFunc

 

[Spyhunter]

HotKeySet('{F10}', 'Flood')
HotKeySet('{F11}', '_Exit')

MsgBox ( 64, 'Флудер', 'Нажмите F10 чтобы начать/остановить флуд и F11 чтобы выйти из флудера')

$c = False
$sText = InputBox('Флудер', 'Введите текст')

While 1
   If $c Then
      Send($sText)
      Send('{enter}')
   Else
      Sleep(100)
   EndIf
Wend

Func Flood()
   $c = Not $c
EndFunc

Func _Exit()
   Exit
EndFunc

 

[beliy]

2 Spyhunter

после

Send('{enter}')

также желательно ставить

Sleep(100)

я бы оформил чуть по другому:

MsgBox ( 64, 'Флудер', 'Нажми F9 чтобы начать флуд, F10 чтобы выполнить 1 раз и F11 чтобы выйти из флудера')
HotKeySet('{F9}', 'flud') ; Старт/пауза бесконечного флуда
HotKeySet('{F10}', 'Msg') ; выполнить 1 раз
HotKeySet('{F11}', 'ext') ; выход

Global $c = False

$text = InputBox('Флудер', 'Введите текст')

While 1
   Sleep(100)
   If $c Then 
	  Msg()
   EndIf
Wend

Func ext()
   Exit
EndFunc

Func Msg()
     Send($text)
     Send('{enter}')
EndFunc

Func flud()
   $c = Not $c
 EndFunc