タイトル : Re^2: HTTPサーバーにPOST要求してログイン 投稿日 : 2010/03/22(Mon) 23:09 投稿者 : keisuke
こんばんは、です、 色々、調べたり、他の方法をトライしてみましたが、、、、、 > 実際の通信内容が、どのような内容になっているのかは調べてみましたか? GET http://mobile.rakuten-sec.co.jp/favicon.ico HTTP/1.1 User-Agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.1; Trident/4.0; YTB720; GTB6.3; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729; Media Center PC 6.0; Media Center PC 5.0; SLCC1; Tablet PC 2.0; Lunascape 6.0.3.20663) Host: mobile.rakuten-sec.co.jp Pragma: no-cache Cookie: s_pers=%20s_vnum%3D1269189115610%2526vn%253D32%7C1269189115610%3B%20s_sec-pn%3D%255Bmember%255Dapp%253Acom_web_order_direct%7C1269070909743%3B%20s_invisit%3Dtrue%7C1269070909750%3B%20mem%3Dy%7C1276845109756%3B%20s_nr%3D1269069109762-Repeat%7C1276845109762%3B; mbox=PC#1258355569504-924597.18#1270269372|check#true#1269059832|session#1269059757115-605053#1269061632; LATEST_LOGOUT_DATE=Wed%2C%2024%20Feb%202010%2006%3A24%3A49%20UTC; > 通常の手続きと同じ文字列が得られたのは、どのエンコードを使った場合でしたか? **932です。 > > URL02 = postData > 変換された URL02 の内容は、適切な内容になっているのでしょうか? ** 多分 > Cookie や User-Agent 等でブロックされているケースも無いとは言えませんし。 Cookieのあるほかのサイトで動作するもので試してみましたが駄目でした。 POSTでなく、GETでも試してみました、、、 で結局下のコーディングでできました。ありがとうございます。 User-Agentの関係ですね。 Dim enc As System.Text.Encoding = System.Text.Encoding.GetEncoding("shift_jis") Dim wc As WebClient = New WebClient() wc.Headers.Add("User-Agent", _ "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.1)") Dim nvc As NameValueCollection = New NameValueCollection() nvc.Add("loginid", "********") nvc.Add("password", "****") nvc.Add("forward", "3") nvc.Add("fop", "fop") wc.QueryString = nvc Dim result As Byte() = _ wc.DownloadData("https://mobile.rakutenec.co.jp/fopweb/IMFR000_002_doLogin.do") Dim html As String = enc.GetString(result) |