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 回答