自動化ツールUWSC使いよ集まれ11

////////////////////////////////////////////////////////////////////////////////
// MS アクティベーション用 ナンバークリック　　　　　　2014/03/01

// 使い方
// 準備：スペース区切りでナンバーを入力する
// 開始：Ctrl キーをクリックするたびに１グループずつキーが送信される

// ※数字のみをクリックし、それ以外は区切り文字として扱います。

public group = 1
public col = 1
public str

Fukidasi("Ctrl キーをクリックするたびに１グループずつキーを送信します。")
str = input("slui 4 コマンドで表示された インストールID を入力してください")
Fukidasi(str)

SetHotKey( , MOD_CONTROL, "OnKeyClick" ) // 開始キーを登録

while true　// 常駐のため永久ループ
　sleep(999)
wend

////////////////////////////////////////
// クリック
Procedure OnKeyClick()
　print group
　group = group + 1
　while col <= length(str)
　　char = copy(str, col, 1)
　　ifb CHKNUM(char)
　　　kbd(ASC(char), DOWN)
　　　sleep(0.1)
　　　kbd(ASC(char), UP)
　　　sleep(0.2)
　　　col = col + 1
　　else
　　　break
　　endif
　wend
　while col <= length(str)
　　ifb ! CHKNUM(copy(str, col, 1))
　　　col = col + 1
　　else
　　　break
　　endif
　wend
　ifb col > length(str)
　　Fukidasi("終了しました")
　　sleep(5)
　　exitexit
　endif
FEnd