Webclient login und anschliessen Quelltext auslesen.

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von schnibli.

    Webclient login und anschliessen Quelltext auslesen.

    Hallo,

    Ich würde mich gerne via webclient auf einer Seite einloggen und anschliessend den Quelltext auslesen, ist dies möglich?

    Mein anfang:

    VB.NET-Quellcode

    1. Dim client As New Net.WebClient
    2. client.OpenRead("https://meineseite.html")
    3. Dim loginInfo As New Specialized.NameValueCollection
    4. loginInfo.Add("pb_auth_user", "5337")
    5. loginInfo.Add("pb_auth_password", "*aaa*123")
    6. Dim html As String = client.DownloadString("https://meine_seite/index.html")
    7. MsgBox(html)

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „schnibli“ ()

    schnibli schrieb:

    Hallo,

    Ich würde mich gerne via webclient auf einer Seite einloggen und anschliessend den Quelltext auslesen, ist dies möglich?

    Mein anfang:

    VB.NET-Quellcode

    1. Dim client As New Net.WebClient
    2. client.OpenRead("https://meineseite.html")
    3. Dim loginInfo As New Specialized.NameValueCollection
    4. loginInfo.Add("pb_auth_user", "5337")
    5. loginInfo.Add("pb_auth_password", "*aaa*123")
    6. Dim html As String = client.DownloadString("https://meine_seite/index.html")
    7. MsgBox(html)



    stackoverflow.com/questions/82…with-system-net-webclient

    hier solltest du eventuell fündig werden.

    Und schreib dir dein HTML lieber in eine Text datei. Bei mir kam bei manchen Abfragen einfach keine MessageBox, obwohl die Daten vorhanden waren.

    Kannst du mir ein Bisschen auf die Sprünge helfen, ich schaffe es nicht.

    Meine Felder die befüllt werden sollten:

    HTML-Quellcode

    1. ​<center><form name="log" method="post" onsubmit="return check_form();" action="/index.html"><table width="250" cellspacing="2" cellpadding="2" class="tabFormTable"><tr> <td>Benutzerkennung</td> <td><input type="text" name="pb_auth_user" id="pb_auth_user" value=""></tr><tr> <td>Passwort</td> <td><input maxlength="16" type="password" name="pb_auth_password" id="pb_auth_password" value=""></td></tr>
    2. <tr> <td></td><td><input type="submit" value="Benutzerkennung" class="tabFormButton"></td></tr>


    Und anschliessend soll er sich anmelden und den quelltext anzeigen oder herunterladen :s

    Ich habe es nun so Probiert:

    VB.NET-Quellcode

    1. ​Dim cookieJar As New Net.CookieContainer()
    2. Dim request As Net.HttpWebRequest
    3. Dim response As Net.HttpWebResponse
    4. Dim strURL As String = ""
    6. Try
    7. 'Get Cookies
    8. strURL = "https://my.sipcall.ch:8444/"
    9. request = CType(HttpWebRequest.Create(strURL), HttpWebRequest)
    10. request.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2.3) Gecko/20100401 Firefox/3.6.3"
    11. request.Method = "GET"
    12. request.CookieContainer = cookieJar
    13. response = CType(request.GetResponse(), HttpWebResponse)
    15. For Each tempCookie As Net.Cookie In response.Cookies
    16. cookieJar.Add(tempCookie)
    17. Next
    19. 'Send the post data now
    20. request = CType(HttpWebRequest.Create(strURL), HttpWebRequest)
    21. request.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2.3) Gecko/20100401 Firefox/3.6.3"
    22. request.Method = "POST"
    23. request.AllowAutoRedirect = True
    24. request.CookieContainer = cookieJar
    26. Dim writer As StreamWriter = New StreamWriter(request.GetRequestStream())
    27. writer.Write("pb_auth_user=loginname&pb_auth_password=passwort")
    28. writer.Close()
    29. response = CType(request.GetResponse(), HttpWebResponse)
    31. 'Get the data from the page
    32. Dim stream As StreamReader = New StreamReader(response.GetResponseStream())
    33. Dim data As String = stream.ReadToEnd()
    34. response.Close()
    35. TextBox1.Text = data
    36. If data.Contains("<title>sipcall") = True Then
    37. 'LOGGED IN SUCCESSFULLY
    38. MessageBox.Show("logged in sucessfully")
    39. Else
    40. MessageBox.Show("Not logged in")
    41. End If
    43. Catch ex As Exception
    44. MessageBox.Show(ex.tostring)
    45. End Try
    46. End Sub

    Import System.Net ist dran,

    VB.NET-Quellcode

    1. ​
    2. Imports System.Net
    3. Imports System.IO
    5. Public Class Form1
    7. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    8. Dim cookieJar As New Net.CookieContainer()
    9. Dim request As Net.HttpWebRequest
    10. Dim response As Net.HttpWebResponse
    11. Dim strURL As String = ""
    12. Try
    13. 'Get Cookies
    14. strURL = "https://my.sipcall.ch:8444/"
    15. request = HttpWebRequest.Create(strURL)
    16. request.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2.3) Gecko/20100401 Firefox/3.6.3"
    17. request.Method = "GET"
    18. request.CookieContainer = cookieJar
    19. response = request.GetResponse()
    20. For Each tempCookie As Net.Cookie In response.Cookies
    21. cookieJar.Add(tempCookie)
    22. Next
    23. 'Send the post data now
    24. request = HttpWebRequest.Create(strURL)
    25. request.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2.3) Gecko/20100401 Firefox/3.6.3"
    26. request.Method = "POST"
    27. request.AllowAutoRedirect = True
    28. request.CookieContainer = cookieJar
    29. Dim writer As StreamWriter = New StreamWriter(request.GetRequestStream())
    30. writer.Write("pb_auth_user=meinusername&pb_auth_password=meinpaswort")
    31. writer.Close()
    32. response = request.GetResponse()
    33. 'Get the data from the page
    34. Dim stream As StreamReader = New StreamReader(response.GetResponseStream())
    35. Dim data As String = stream.ReadToEnd()
    36. response.Close()
    37. TextBox1.Text = data
    38. If data.Contains("<title>sipcall") = True Then
    39. 'LOGGED IN SUCCESSFULLY
    40. MessageBox.Show("logged in sucessfully")
    41. Else
    42. MessageBox.Show("Not logged in")
    43. End If
    44. Catch ex As Exception
    45. MessageBox.Show(ex.ToString)
    46. End Try
    47. End Sub
    48. End Class

    er sagt aber immernoch not logget in

Facebook
Telefonspende