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

UWSCが閉鎖されたようなので、スクリプトをAutoitに書き換えアイディアを埋もれさせないようにしたいと思います。
Autoitは海外では有名なBasic似たスクリプト言語です。画像認識も得意だしGUIも簡単に作れます。

ここのUWSCスクリプトをAutoitに変更：

UWSCで自動化超速!! Windows マクロテクニック掲載スクリプト一覧

リスト4-20、4-12

Autoitの記事：

https://take-web.com/cad/2019/06/uw_autit/

UWSC :　リスト4-20：現在時間をメッセージボックスに表示する
1. Autoitに変換　_NowDate() _NowTimeを使用
UWSC : 4-12：いろいろな情報を取得する
1. 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()

（２）変数　先頭に＄

（３）改行　”<#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)