eightban's memo

残しておきたい記事をまとめてみました。このブログに書いてあるドキュメントやブログで配布しているファイルの使用によって発生するいかなる損害に対してもこのブログの管理者は責任を負いません。使用する場合は自己責任のもとに使用してください。

AutoIt

AutoItキーを連打させる

投稿日:

サンプル

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

-AutoIt

Copyright© eightban's memo , 2024 All Rights Reserved Powered by STINGER.