ＶＢで表示したホームページのログイン要求にプログラムで応答したい。

質問

ＶＢでＷｅｂ　ｂｒｏｗｓｅｒコントロールで表示したホームページのログイン、パスワード入力要求に対し、プログラムで自動的に応答したい。又、ログイン後のホームページ画面の内容を読みとるにはどうしたらよいでしょうか。
本で調べたりしたのですがわからなくて。

回答No.2

todo36 · ベストアンサー

WebBrowserから入れたぞ。

Private Sub Command1_Click()

Dim URL As String
Dim s As String
Dim PostData() As Byte

URL = "http://login.mail.goo.ne.jp/certify-cgi/oshiete/ask_login.cgi"
s = "success=http://oshiete1.goo.ne.jp/goo_jumpin.php3?next_to=mypage.php3" _
& "&site=oshiete.goo.ne.jp" _
& "&auto=0" _
& "&uname=" & Text1.Text _
& "&pass=" & Text2.Text
PostData = StrConv(s, vbFromUnicode)
WebBrowser1.Navigate URL, 0, "", PostData
End Sub

お礼

お返事大変遅くなって申し訳ありません。
週末、中国旅行から帰ってきて、やっとこの３連休で少しおちついてやってみることができました。
Ｎｏ．１がちょっとわかりづらかったのですが、Ｎｏ．２を教えていただき、ｇｏｏのログインは問題なくできました。
これから、別のログインを試してみます。
おかげさまでなんとかできそうです。
ありがとうございました。
お返事遅くなったことを繰り返しおわびします。
今後ともよろしくお願いし足します。

回答No.1

todo36

"教えて！goo"のように<form>タグで認証を行う頁には、NavigateメソッドのPostData引数に
パラメータをセットすれば出来ます。

form action="http:***/login.cgi" method=post>
<input type="text" name="uname">
<input type="password" name="pass">
<input type="submit">
</form>

この場合は,"http:***/login.cgi"に文字列"uname=hoge&pass=hogehoge"をPOSTすれば行けます

参考URL：

http://oshiete1.goo.ne.jp/kotaeru.php3?q=327079

お礼

返事遅くなり申し訳ありません。
参考のＵＲＬもみながらやっていますが、ログオンエラーになってしまいます。データを送っているようですが、まだうまくいってません。
もう少しトライ＆エラーでやってみます。
旅行にでたりするので少し返事が遅れるかもしれませんがお許しください。
結果は、又ご報告します。