0

ファイルを使用して簡単なログインシステムを作成しようとしています

Dim response As System.Net.HttpWebResponse = request.GetResponse()
        If response.StatusCode = HttpStatusCode.NotFound Then
        MsgBox("Invalid Login")
Else

My Code Here

しかし、デバッグしてテストすると、404エラーが発生します。ポップアップではありません。

これを回避する他の方法はありますか？

編集：

これが私のコードです

        Try
        Dim response As HttpWebResponse = request.GetResponse()

        MessageBox.Show("Allgood")
    Catch ex As WebException
        If response.StatusCode = HttpStatusCode.NotFound Then
            MsgBox("Invalid Login")
        End If
               End Try
    Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
    Dim passcheck As String = sr.ReadToEnd
    Dim pass As String = PasswordTextBox.Text
    If passcheck.Contains(pass) Then
        MessageBox.Show("Welcome " + UsernameTextBox.Text)
        Form1.Show()
        Me.Close()
    Else
        MessageBox.Show("Invalid Login")

    End If

End Sub
4

2 に答える 2

1

WebExceptionをスローしていると思われるため、 GetResponse を Try Catch ブロックでラップし、Web 例外をキャッチしてから、独自のダイアログを表示する必要があります。

Dim response As System.Net.HttpWebResponse
Try
    response = request.GetResponse()

    'If it gets here, it did not throw an exception
    MessageBox.Show("It's all good.")
Catch ex as WebException
    If DirectCast(ex.Response, System.Net.HttpWebResponse).StatusCode  = HttpStatusCode.NotFound Then
        MsgBox("Invalid Login")
    End If
End Try
于 2012-04-16T00:30:01.517 に答える
0

奇妙なことに、プロジェクトのプロパティでアプリケーションがWindows フォーム アプリケーションであることを確認してください。ただし、回避策として、次のコードを使用して Visual Studio 出力ウィンドウに出力できます。

Debug.WriteLine("Invalid Login")

Ctrl「出力ウィンドウ」を有効にするには、メニューの「表示」から「出力」に移動するか、 + W+を押しOます。

于 2012-04-16T00:26:41.200 に答える