cant login website using httpwebrequest/responce vb.net

Question

Я новичок в vb.net (visual studio 2008). Я пытаюсь создать приложение с помощью vb.net, которое можно использовать для входа на сайт и просмотра этого веб-сайт без использования веб-браузера (я не хочу использовать webbrowser vb.net). Я получил код для этого из сети, я сделал временную страницу входа в систему, используя php и mysql на своем компьютере (работает нормально). , но когда я пытался войти в систему, используя vb.net, он не работает ... , потому что я не знаю, в какой части кода не работает, я вставляю здесь весь код.

ниже мой HTML код для формы входа

<td style="width: 188px;"><input maxlength="120" size="30" name="login" class="css" id="login"><br> 
<br> 
</td> 
</tr> 
<tr> 

<td><b>Password</b></td> 
<td><input maxlength="100" size="30" name="password" class="css" id="password" type="password"><br> 
<br> 
</td> 
</tr> 
<tr> 
<td>&nbsp;</td> 
<td><input name="submit" value="Login" class="button" type="submit"></td> 

это vb.net код, который я получил его от нетх изменил URL на мой LOCALHOST website..and добавил имя пользователя и пароль (оба корень), а также это <big>Welcome

Imports System.Net 
Imports System.Text 
Imports System.IO 

Public Class Form1 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
     Dim cookieJar As New Net.CookieContainer() 
     Dim request As Net.HttpWebRequest 
     Dim response As Net.HttpWebResponse 
     Dim strURL As String 

     Try 
      'Get Cookies 
      strURL = "http://localhost/login.php" 
      request = Net.HttpWebRequest.Create(strURL) 
      request.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2.3) Gecko/20100401 Firefox/3.6.3" 
      request.Method = "GET" 
      request.CookieContainer = cookieJar 
      response = request.GetResponse() 

      For Each tempCookie As Net.Cookie In response.Cookies 
       cookieJar.Add(tempCookie) 
      Next 

      'Send the post data now 
      request = Net.HttpWebRequest.Create(strURL) 
      request.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2.3) Gecko/20100401 Firefox/3.6.3" 
      request.Method = "POST" 
      request.AllowAutoRedirect = True 
      request.CookieContainer = cookieJar 

      Dim writer As StreamWriter = New StreamWriter(request.GetRequestStream()) 
      writer.Write("login=root & password=root") 
      writer.Close() 
      response = request.GetResponse() 

      'Get the data from the page 
      Dim stream As StreamReader = New StreamReader(response.GetResponseStream()) 
      Dim data As String = stream.ReadToEnd() 
      RichTextBox1.Text = data 
      WebBrowser1.DocumentText = RichTextBox1.Text 
      response.Close() 

      If data.Contains("<big>Welcome") = True Then 
       'LOGGED IN SUCCESSFULLY 
      End If 

     Catch ex As Exception 
      MsgBox(ex.Message) 
     End Try 
    End Sub 
End Class 

Спасибо за вашу помощь

Answer 1

Этот метод работает только для сайтов, которые используют параметр URL. Убедитесь, что вы можете войти в свой сайт, как это:

http://localhost/login.php?user=your_username&password=your_password 

Также удалить пробелы здесь:

writer.Write("login=root&password=root") 

Answer 2

Убедитесь, что вы отправляете правильно HttpWebRequest

вы можете использовать Live HTTP Headers plugin for Firefox или Fiddler для захвата веб-запрос/ответ.

Сначала установите один из указанных выше, а затем войдите на сайт с помощью своего веб-браузера и возьмите «запрошенные данные» из своего веб-браузера.

Затем создайте свой HttpWebRequest в соответствии с этими данными.

Если ваш сайт использует метод HTTP GET, используйте метод Alex85.

http://localhost/login.php?user=your_username&password=your_password

вы можете попробовать следующий код для метода 'HTTP POST'.

Dim Request As HttpWebRequest 
Dim response As Net.HttpWebResponse 
Dim cookieJar As New Net.CookieContainer() 

Dim strURL As String = "http://localhost/login.php" 
dim PostData as string 
PostData = "login=root&password=root" 'Set this according to captured data 

request = Net.HttpWebRequest.Create(strURL) 
Request.Host = "localhost" 
request.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2.3) Gecko/20100401 Firefox/3.6.3" 
request.Method = "GET" 
request.CookieContainer = cookieJar 
response = request.GetResponse() 

For Each tempCookie As Net.Cookie In response.Cookies 
     cookieJar.Add(tempCookie) 
Next 

Response.Close() 

    Request = Net.HttpWebRequest.Create(strURL) 
    Request.Host = "localhost" 
    Request.UserAgent = "Mozilla/5.0 (Windows NT 5.1; rv:9.0.1) Gecko/20100101 Firefox/9.0.1" 
    Request.Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" 
    Request.KeepAlive = True 
    Request.CookieContainer = CookieJar 
    Request.AllowAutoRedirect = False 
    Request.ContentType = "application/x-www-form-urlencoded" 
    Request.Method = "POST" 
    Request.ContentLength = PostData.Length 

    Dim requestStream As Stream = Request.GetRequestStream() 
    Dim postBytes As Byte() = Encoding.ASCII.GetBytes(PostData) 

    requestStream.Write(postBytes, 0, postBytes.Length) 
    requestStream.Close() 

    Dim Response As HttpWebResponse = Request.GetResponse() 
    Dim stream As StreamReader = New StreamReader(response.GetResponseStream()) 
    Dim data As String = stream.ReadToEnd() 
    RichTextBox1.Text = data 
    WebBrowser1.DocumentText = RichTextBox1.Text 
    response.Close() 

     If data.Contains("<big>Welcome") = True Then 
      'LOGGED IN SUCCESSFULLY 
     End If