UWSC >> Autoitに変換 (3)現在時間を表示,WEBInfo

ここのUWSCスクリプトを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)

uwsc 時刻

 

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)

Autoit 日付時刻

取得したデータは、分割して使います。

 

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)

UWSC Info

 

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)

Autoit で取得

 

コメント

タイトルとURLをコピーしました