[VB6]WinsockでProxyを利用する方法 (ID:92233)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 過去に同じような質問があり解決に至っているようでしたが どのように解決したのかサンプルコード等が記述されていないようでしたので 今後同じような問題に悩まされる方々の為、資料提供しておきます。 例えば通常WinsockコントロールでWebサーバーにアクセスする場合は次のように記述します。 〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜 Winsock1.RemoteHost = "www.microsoft.com" Winsock1.RemotePort = 80 Winsock1.Protocol = sckTCPProtocol Winsock1.Connect 〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜 Proxy経由にしたい場合は「Winsock1.Connect」部分が変化し 「Winsock1.Connect "Proxyのアドレス", "使用ポート番号"」 のように記述します。 ※「192.168.0.1:8000」というProxyを経由する場合。 〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜 Winsock1.RemoteHost = "www.microsoft.com" Winsock1.RemotePort = 80 Winsock1.Protocol = sckTCPProtocol Winsock1.Connect "192.168.0.1", "8000" 〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜 ※Proxyのアドレス部分は「microsoft.proxy.com」のように ホスト名指定でもOKです。 又、Webサーバーにデータ要求を送信する部分も次のように変化します。 〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜 【通常時】 Winsock1.SendData CStr("GET /index.html" + vbCrLf) 〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜 【Proxy使用時】 Winsock1.SendData CStr("GET http://www.microsoft.com/index.html" + vbCrLf) 〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜 Proxy使用時は先頭URLからフルパスで指定しなければなりません。 以上です。