UWSCが閉鎖されたようなので、スクリプトをAutoitに書き換えアイディアを埋もれさせないようにしたいと思います。
Autoitは海外では有名なBasic似たスクリプト言語です。画像認識も得意だしGUIも簡単に作れます。
ここのUWSCスクリプトをAutoitに変更:
リスト4-20、4-12
Autoitの記事:
UWSC : リスト4-20:現在時間をメッセージボックスに表示する
GETTIME() TIME = G_TIME_YY4 + "年" + G_TIME_MM2 + "月" + G_TIME_DD2 + "日" + G_TIME_HH2 + "時" + G_TIME_NN2 + "分" + G_TIME_SS2 + "秒" MSGBOX(TIME)
Autoitに変換 _NowDate() _NowTimeを使用
先頭に
#include <Date.au3>
が必要です。
#include <Date.au3> Local $aTime = StringSplit(_NowTime(5),":") ;時刻分割 Local $time = $aTime[1] & "時" & $aTime[2] & "分" & $aTime[3] & "秒" Local $aDate = StringSplit(_NowDate(),"/") ;日付分割 Local $date = $aDate[1] & "年" & $aDate[2] & "月" & $aDate[3] & "日" MsgBox("","",$date & " " & $time)
取得したデータは、分割して使います。
UWSC : 4-12:いろいろな情報を取得する
IE = CREATEOLEOBJ("InternetExplorer.Application") IE.visible = True IE.navigate("http://class.2kki.com") REPEAT SLEEP(0.1) UNTIL !IE.busy AND IE.READYSTATE = 4 A = IE.document.bgColor B = IE.document.fgColor C = IE.document.linkColor D = IE.document.alinkColor E = IE.document.vlinkColor F = IE.document.URL G = IE.document.domain TOTAL = A + "<#CR>" + B + "<#CR>" + C + "<#CR>" + D + "<#CR>" + E + "<#CR>" + F + "<#CR>" + G MSGBOX(TOTAL)
Autoitに変換
(1)IEでURL開く、待つ
_IECreate() , _IELoadWait()
(2)変数 先頭に$
(3)改行 ”<#CR>” は @CRLF
#include <IE.au3> $oIE = _IECreate("http://class.2kki.com") _IELoadWait($oIE);IE load待つ $A = $oIE.document.bgColor $B = $oIE.document.fgColor $C = $oIE.document.linkColor $D = $oIE.document.alinkColor $E = $oIE.document.vlinkColor $F = $oIE.document.URL $G = $oIE.document.domain $sInfo = $A & @CRLF & $B & @CRLF & $C & @CRLF & $D & @CRLF & $E & @CRLF & $F & @CRLF & $G MsgBox("","",$sInfo)
コメント