UWSCの入力方法について

質問

UWSCに関しての質問です。
下記スクリプト内容

Fukidasi("URLやパスワード日付を入力しています。", 200, 200, 1, 16, "ＭＳ 明朝")

IE=exec("C:\Program Files\Internet Explorer\IEXPLORE.EXE") //ここまで正常
sendstr(IE,"https://＊＊＊＊＊＊＊＊＊.html",1,1)
sckey(IE,VK_alt,d)
sckey(IE,VK_enter) // url

Sleep(5)//ここに飛んでしまう
KBD(VK_y,CLICK,01)

上記のように入力すると「//ここまで正常」まで動作するのですが、
その後、「//ここに飛んでしまう」にいってしまいます。
自宅のPC（WINXP）では問題なく作業するのですが、
会社のPC（WIN2000）では出来ません。
これは何が原因なんでしょうか。回答宜しくお願いします。

回答No.3

porilin

１です。
質問者さんのスクリプトを当方のＷｉｎ２０００環境で動かしたところ、正常に動作しました。
尚、ＵＲＬは"http://wwww.google.co.jp"を使用しています。
起動後、検索用のマスにyが挿入されました。
ＩＥの設定の問題では？(アドレスバーが非表示になっているか、他の入力欄-googleのツールバーとか-が出ちゃっているとか？)
下記のスクリプトでも駄目ですかね？

IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
IE.Navigate("http://*＊＊＊＊＊＊＊＊＊＊＊＊")　
fukidasi("接続待ち")
while True　　　　　　　　　　　　　　　　　　　　　　　// 接続表示待ち
　　if (! IE.busy) and (IE.readyState=4) then Break
　　sleep(0.1)
wend
fukidasi()

他の質問にも回答を出していますが、そっちはどうですか？
答えがわかったらちゃんと閉めてくださいね。

回答No.2

porilin

１です。訂正。
fukidasi("ＵＲＬ転送中")
while getstr(IE,1) <> "https://＊＊＊＊＊＊＊＊＊.html"
sendstr(IE,"https://＊＊＊＊＊＊＊＊＊.html",1,1)
wend
fukidasi()
msgbox("ちゃんと入力されたか確認")

getstrのパラメータを間違えてたっぽいので修正。

回答No.1

porilin

とりあえず
sendstr(IE,"https://＊＊＊＊＊＊＊＊＊.html",1,1)
のところを
fukidasi("ＵＲＬ転送中")
while getstr(IE,1,1) <> "https://＊＊＊＊＊＊＊＊＊.html"
sendstr(IE,"https://＊＊＊＊＊＊＊＊＊.html",1,1)
wend
fukidasi()
msgbox("ちゃんと入力されたか確認")
で、ＵＲＬがちゃんと転送できるか見てみては？
成功していたら最後のmsgboxは消してください
もしかしたら速度の問題かもしれません(上記なら書き込みが確認できるまで回ります)。
他には、Ｗ２ＫのＩＥが立ち上がった時にＵＲＬの入力欄が入力ＢＯＸ１になっていないのかもしれません。
尚、上のコーディングはここにベタ打ちなので入力ミスとかあったらごめんなさい。
ＵＲＬ転送がうまく行った後もsleep(0.5)くらいを保険で入れておいた方が安心（謎

お礼

お礼の返事が送れてしまい申し訳ございません。いろいろ試してみましたが、
未だ改善できずにおります。（上記の件はまだ試しておりません。）
下記に試したスクリプトをコピーペーストしました。

//★★★★★下記の吹き出しは表示されます。
　　Fukidasi("URLやパスワード日付を入力しています。",　200,　200,　1,　16,　"ＭＳ 明朝")

//★★★★★下記通りインターネットエクスプローラは起動します。
IE=exec("C:\Program Files\Internet Explorer\IEXPLORE.EXE")

//×××××下記は動作していないような気がします・・・・
sendstr(IE,"https://www.***********",1,1)
//上記の、「1,1,）」の数字が違うのかなっと思い適当に入れ替えましたが全く反応なし。

sckey(IE,VK_alt,d)
sckey(IE,VK_enter)

Sleep(5)
KBD(VK_y,CLICK,01)

//★★★★★下記の吹き出しは表示されます。
　　Fukidasi("あああああああ",　300,　200,　1,　16,　"ＭＳ 明朝")

//★★★★★下記三行はログインに入力されます。
KBD(VK_a,CLICK,01)
KBD(VK_b,CLICK,01)
KBD(VK_c,CLICK,01)

//×××××下記は動作していないような気がします・・・・
sendstr(IE,"zzz",3,1)//ログイン名

//★★★★★下記の吹き出しは表示されます。
　　Fukidasi("いいいいいいい",　300,　200,　1,　16,　"ＭＳ 明朝")

//★★★★★下記三行はログインに入力されます。
KBD(VK_d,CLICK,01)
KBD(VK_e,CLICK,01)
KBD(VK_f,CLICK,01)

//×××××エンドレスになりスクリプトが終了しません。恐らく下記からリピートし続けている模様
Repeat
Sleep(0.2)
Until GETSTR(IE, 1, STR_STATUS) = "ページが表示されました"

今思ったのですが、どうもIDを取得していないのかな？っと思いました。
最初の部分に

IE=GETID(GET_ACTIVE_WIN)

を入れるとどうなるか試していなかったので、明日以降、porilin様の案も含めて
試してみます。＊解決したら補足に入力します。

ちなみに会社のXPマシンは正常に実行しました。