No.2ベストアンサー
- 回答日時:
すみません、ResponseCode や ResponseInfo はクライアント側のエラーでした。
GetHeaderでHTTPレスポンスのヘッダを取得できます。
HTTPヘッダの1行目がHTTPステータスなので、「HTTP/1.0 404 Not Found」などが入ります。
以下を試してみてください。
-----------------------------------
Private Sub Command1_Click()
Dim strURL As String
'存在しないアドレス
strURL = "http://www.msn.co.jp/hadfhg.htm"
Inet1.OpenURL strURL
Debug.Print Inet1.GetHeader
End Sub
-----------------------------------
※存在しないURL「http://www.msn.com/hadfhg.htm」は、msn.comサーバーの仕様なのか、なぜかバイナリデータを返してくるようです。
バイナリを受け取るようにすれば良いと思いますが、上記ではとりあえずmsn.co.jpにしてあります。
No.1
- 回答日時:
ResponseCode や ResponseInfo プロパティで取得できます。
ただ、StateChanged イベントを拾うために、Execute などを使う必要があると思います。
この回答への補足
早速のご回答ありがとうございます。やってみましたが、どうもうまく行きません。
FormにCommandButton(Command1)、Inet(Inet1)を配置
↓ソース(見栄え上、全角スペースを入れてあります)
Private Sub Command1_Click()
Dim strURL As String
'存在しないアドレス
strURL = "http://www.msn.com/hadfhg.htm"
Call Inet1.Execute(strURL, "GET")
End Sub
Private Sub Inet1_StateChanged(ByVal State As Integer)
Debug.Print "event received(" & _
State & ") [" & _
Inet1.ResponseInfo & "," & _
Inet1.ResponseCode & "]"
If State = 12 Then 'icResponseCompleted
Inet1.Cancel
End If
End Sub
↓Command1クリック後、イミディエイトウィンドウ出力結果
event received(3) [,0]
event received(4) [,0]
event received(5) [,0]
event received(6) [,0]
event received(7) [,0]
event received(8) [,0]
event received(12) [,0]
event received(9) [,0]
event received(10) [,0]
Executeのパラメータがまずいのかな、と思っているんですが。。。
再度ご教授頂ければ幸いです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(プログラミング・Web制作) mariadbでのエラー 1 2022/11/15 12:31
- その他(ゲーム) SkyrimSEのMod organizer で困っています。誰か助けてください。 1 2022/12/05 01:49
- その他(プログラミング・Web制作) bashのgrepで複数の検索、かつスクリプト内で改行する方法を教えてください。 1 2022/10/06 20:09
- UNIX・Linux 実行の仕方及び実行結果が分かりません。 2 2022/11/17 19:31
- オープンソース php-Laravelのインストールについて 1 2022/08/13 01:08
- その他(プログラミング・Web制作) ラズパイ上の、pythonのエラーについて 1 2023/04/12 23:27
- オープンソース Python openpyxlを使用したセル番地の使用について 1 2023/08/03 22:05
- その他(プログラミング・Web制作) サニタイズcssが反映されません、、( ; ; ) file not found と出てしまいます 2 2022/06/14 18:13
- Visual Basic(VBA) VB6の公式リファレンスはありますか?特に既定のプロパティを知りたいです 1 2022/11/25 12:00
- C言語・C++・C# ActiveXコントロールを.NETにインポートできない??? 2 2023/05/02 02:50
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAで大量のファイルをシート名...
-
VBA ユーザーフォーム ボタンク...
-
【マクロ】1つのマクロの中に...
-
郵便番号検索APIにてget Elemen...
-
Vba 実数および実数タイプの変...
-
ExcelのVBAコードについて教え...
-
エクセルのマクロについて教え...
-
エクセルVBAについて
-
VBAの計算で@が出てしまう件
-
VBA listBoxについて
-
VBAを使用した時間管理
-
エクセルについて
-
Excelのマクロについて教えてく...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
VBAの質問になります Userform内で
-
VBAの質問になります メッセー...
-
月ごとに作成している日報ファ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
C# try-catch でcatchに飛ばす方法
-
FileCopy時のエラー
-
エラー 'ASP 0115' について
-
EXECLマクロでshapeがグルーフ...
-
CreateObject("Excel.Applicati...
-
VBSからPDFファイルを開きたい...
-
winsock通信時エラーの回避
-
ASP.NET C# ローカルのパスが呼...
-
Outlookで添付ファイルの有無を...
-
エラー 'ASP 0115'
-
WinXPProにVC++6.0をイン...
-
fopenでエラーとなる
-
IIS7.5の設定の仕方
-
エラー内容について
-
ASPプログラミングでADODB.C...
-
ASP.NETで使用しているJavascri...
-
ASPからWscriptを利用して外部...
-
オブジェクト生成エラー
-
VB6でRDOに接続できない
-
オラクル接続をopenしようとす...
おすすめ情報