質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
Internet Explorer

Internet Explorer(IE;MSIE)はマイクロソフトが開発したウェブブラウザです。Microsoft Windowsに組み込まれています。

Redmine

Redmineは、プロジェクトのタスク管理、進捗管理、情報共有が可能な、 オープンソースプロジェクト管理ソフトウェアです。

VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

Q&A

0回答

2400閲覧

VB.netでRedmineの404エラーページのStatusCodeが200で返ってくる

greentown

総合スコア15

Internet Explorer

Internet Explorer(IE;MSIE)はマイクロソフトが開発したウェブブラウザです。Microsoft Windowsに組み込まれています。

Redmine

Redmineは、プロジェクトのタスク管理、進捗管理、情報共有が可能な、 オープンソースプロジェクト管理ソフトウェアです。

VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

0グッド

1クリップ

投稿2017/06/14 08:10

###前提・実現したいこと
VB.netでIEを操作してRedmineを編集するプログラムを作成しています。
Redmineのチケットのページが存在するページかどうかを判断したく、HttpWebrequest,HttpWebResponseを使用して
status codeで判断しようと思っています。
しかし、404エラーと表示されるページでも200 OKと返ってきてしまいます。
デベロッパーツールのネットワークタブの応答ヘッダーには404と表示されているのですが、応答ヘッダーの取得は別の方法があるのでしょうか。
何かわかる方いましたら教えてください。

下記は参考にしたソースです。

###該当のソースコード

'要求するURL Dim url As String = "http://www.yahoo.co.jp/hoge.html" 'WebRequestの作成 Dim webreq As System.Net.HttpWebRequest = _ CType(System.Net.WebRequest.Create(url), _ System.Net.HttpWebRequest) Dim webres As System.Net.HttpWebResponse = Nothing Try 'サーバーからの応答を受信するためのWebResponseを取得 webres = CType(webreq.GetResponse(), System.Net.HttpWebResponse) '応答したURIを表示する Console.WriteLine(webres.ResponseUri) '応答ステータスコードを表示する Console.WriteLine("{0}:{1}", _ webres.StatusCode, webres.StatusDescription) Catch ex As System.Net.WebException 'HTTPプロトコルエラーかどうか調べる If ex.Status = System.Net.WebExceptionStatus.ProtocolError Then 'HttpWebResponseを取得 Dim errres As System.Net.HttpWebResponse = _ CType(ex.Response, System.Net.HttpWebResponse) '応答したURIを表示する Console.WriteLine(errres.ResponseUri) '応答ステータスコードを表示する Console.WriteLine("{0}:{1}", _ errres.StatusCode, errres.StatusDescription) Else Console.WriteLine(ex.Message) End If Finally '閉じる If Not (webres Is Nothing) Then webres.Close() End If End Try

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

まだ回答がついていません

会員登録して回答してみよう

アカウントをお持ちの方は

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問