Question

所以我试图在我的vb.net应用程序上创建一个登录表单，该表单将通过我的php脚本连接到我的mysql数据库中。所以我已经设置了一个wampp服务器来测试它。我的php代码在下面

    <?php
if($_POST)
{
    if(isset($_POST["username"]) && isset($_POST["password"]))
    {
        $connect = mysql_pconnect("localhost","root","");
        if($connect)
        {
            $select = mysql_select_db("ktmf",$connect);
            if($select)
            {
                $user = mysql_escape_string($_POST["username"]);
                $pwd = mysql_escape_string($_POST["password"]);
                $GetRows = mysql_query("SELECT * FROM users WHERE username='$user' AND password='$pwd'");
                $RowCount=mysql_num_rows($GetRows);
                if($RowCount>0)
                {
                    die("Correct !");
                }
                else
                {
                    die("Incorrect !");
                }
            }
            else
            {
                die("Unable to select database." . mysql_error());
            }
        }
        else
        {
            die("Unable connect to database." . mysql_error());
        }
    }
    else
    {
        die("Access Denied!");
    }
}
else
{
    die("Access Denied!");
}
?>

然后我在那里得到了我的vb.net代码

Imports System.Net
Imports System.Text

Public Class login


    Function AuthUser(ByVal AuthenticationPage As String, ByVal Username As String, ByVal Password As String) As Boolean
        Dim wc As New WebClient()
        wc.Headers.Add("Content-Type", "application/x-www-form-urlencoded")
        Dim Data As String = String.Format("username={0}&password={1}", WebUtility.UrlEncode(Username), WebUtility.UrlEncode(Password))
        Dim ResponseBytes() As Byte = wc.UploadData(AuthenticationPage, "POST", Encoding.ASCII.GetBytes(Data))
        Dim Response As String = Encoding.ASCII.GetString(ResponseBytes)
        If Response.Contains("Correct") Then
            Return True
        Else
            Return False
        End If
    End Function



    Private Sub login_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If AuthUser("http://127.0.0.1/login.php", TextBox1.Text, TextBox2.Text) Then
            Me.Hide()
            works.Show()
        Else
            MsgBox("You have provided invalid username or password. Unable to login.")
        End If
    End Sub
End Class

因此，当我尝试使用应用程序登录时，我收到错误“您提供了无效的用户名或密码。无法登录。”我指定了错误。

我仍然不知道我做错了什么，但如果有人可以帮助我，我会感到沮丧。感谢

Answer 1

您的问题并不包含太多信息，因此只有一般情况：

1）检查你得到的实际反应（如果有的话）

2）如果您没有得到任何回复，请检查Web服务器日志以查看该请求是否完全存在

3）在VB.NET上独立测试PHP脚本。例如。简单的HTML表单可以。

如果您根据上述内容与我们分享您的发现，您可能会得到更具体的答案。

将表单数据从VB.NET发布到PHP脚本

1 个答案: