09/04/04 21:44:58 /d+v7qoR0
IPアドレスをワンクリックで変えるために下記のスクリプトを書きましたが、ページの読
み込み完了まで待ってくれなくてどうもうまくいきません。どこが悪いのでしょうか？
//CREATEOLEOBJで生成
IE = CREATEOLEOBJ("InternetExplorer.Application")
//IE可視化
IE.visible = True
//URLジャンプ
IE.navigate("URLﾘﾝｸ(ctu.fletsnet.com)")
//ロード完了まで待つ
REPEAT
SLEEP(0.1)
UNTIL !IE.busy AND IE.readystate = 4
id = GETID("CTU設定 - Windows Internet Explorer", "IEFrame", -1)
CLKITEM(id, "ログイン", CLK_ACC)
//ロード完了まで待つ
REPEAT
SLEEP(0.1)
UNTIL !IE.busy AND IE.readystate = 4
CLKITEM(id, "切断", CLK_ACC)
//ロード完了まで待つ
REPEAT
SLEEP(0.1)
UNTIL !IE.busy AND IE.readystate = 4
CLKITEM(id, "接続", CLK_ACC)