| タイトル | ： webでのログイン後のページを完全に読み込んだイベントの取得 |
| 記事No | ： 4071 |
| 投稿日 | ： 2006/08/10(Thu) 14:50 |
| 投稿者 | ： 48pan |
前回お世話になりました、ありがとうございます。
webでのログイン後のページを完全に読み込んだイベントの取得をしたいのですが、
下のコードでログインしてます、ログイン後のページに入力したいのですが、出来るときと出来
ない時がありいろいろ探してテストしましたが上手く行きません、どうにかお力をください。
他のソースを貼り付けしてテストしても定義が〜〜の様なエラーがでます、その設定すらよくわ
かりません、
Do While objIE(w).DocumentComplete() = True
Loop
と書いてもエラーです
Do While objIE(w).Busy
Loop
Do While (objIE(w).document.ReadyState <> "complete")
Loop
だと不安定でした。
使用コードです。
objIE(w) = CreateObject("InternetExplorer.application")
objIE(w).Visible = True 'IE表示
On Error Resume Next
Dim bDATA() As Byte
strDATA = "loginid=" + ssd(w - 1).id + "&passwd=" + ssd(w - 1).
ps01 +_
&submit%25template=%A5%ED%A5%B0%A5%A4%A5%F3"
URL01 = "hhttps://member.rakuten-sec.co.jp/bv/app/Login.do"
ReDim bDATA(Len(strDATA) - 1) '配列のサイズを計算
bDATA = System.Text.Encoding.GetEncoding(932).GetBytes(strDATA)
objIE(w).Navigate(URL01, , , bDATA, "Content-type: application/x-www-form-urlencod
ed")
|