AutoItキーを連打させる

2022年10月6日

サンプル

HotKeySetの機能を使います。PAUSE key1回押すとでBS キー連打. ESC keyで終了

Global $PressBs
Global $Paused
HotKeySet("{PAUSE}","PressBs")
HotKeySet("{ESC}", "Terminate")

While 1
    Sleep(100)
WEnd

Func PressBs()
$PressBs = NOT $PressBs
$ix = 0
While $PressBs
	$ix = $ix + 1
     Send("{BS}")
	 if $ix > 1 Then
		Sleep(30)
	Else
		Sleep(400)
	EndIf
WEnd
EndFunc

Func Terminate()
    $input = MsgBox(4, Default, "repeat BS key end ?")
    If $input =6 Then
        Exit 0
    EndIf
EndFunc