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

221 ：名無しさん＠お腹いっぱい。：2014/08/31(日) 00:00:01.77 ID:gAnaep9+g

sethotkey(VK_ESC,,"終了処理")　//ESCキーで終了
sethotkey(VK_NONCONVERT,MOD_SHIFT,"エラー処理")　//とりあえず使いそうにないキーで[SHIFT+無変換]にホットキー設定
thread 　エラー判定スレッド() //エラー判定スレッド起動

i=0
while true //メイン処理-無限ループ
　i=i+1;balloon("メイン処理("+i+")")
　sleep(0.1)
wend

procedure エラー判定スレッド()
　j=0
　while true
　 　j=j+1
　 　ifb j>=10 //j>=10エラー発生と仮定(特定の画像が表示されたと仮定)
　 　 　balloon("エラー発生")
　 　 　sckey(getid(GET_THISUWSC_WIN),VK_SHIFT,VK_NONCONVERT);exit //エラー処理へ擬似割り込み/スレッド破棄
　 　endif
　 　sleep(1)
　wend
fend

procedure エラー処理()
　balloon("エラー処理")
　sleep(1)
　poff(P_UWSC_REEXEC,true) //スクリプト再起動
fend

procedure 終了処理()
　exitexit
fend