Web-Inhalte auslesen und im Programm eintragen?

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von RushDen.

    Web-Inhalte auslesen und im Programm eintragen?

    Hallo

    Ich würde gerne in mein Programm eine Anmelde Funktion einbauen, die Inhalte dieser Person von einen Forum (Wie im Beispiel VB-P) im Programm anzeigt (Profilbild und Name):


    Bild scheint nicht zu gehen .. : mediafire.com/convkey/b2a1/gsbhaao7uvymgeb6g.jpg?size_id=5

    Angemeldet:


    Bild scheint nicht zu gehen .. : mediafire.com/convkey/407f/9cxdfo2c687ba0j6g.jpg?size_id=5

    Wie macht man sowas? :)
    "Denken ist die schwerste Arbeit, die es gibt. Das ist wahrscheinlich auch der Grund, warum sich so wenig Leute damit beschäftigen." - Henry Ford

    Danke für die Antwort!

    Aber im Moment leuchtet mir das noch nicht ein, mit RegEx habe ich noch nicht gearbeitet, ... müsste ich die Website nicht in einen Webbrowser anzeigen, etc. ???
    "Denken ist die schwerste Arbeit, die es gibt. Das ist wahrscheinlich auch der Grund, warum sich so wenig Leute damit beschäftigen." - Henry Ford

    nein musst du nicht bei Regex reicht eine String eingabe ;)
    den krigst du auch ohne Webbrowser z.b über die WebRequest Funktion ;)
    MFG 0x426c61636b4e6574776f726b426974
    InOffical VB-Paradise IRC-Server
    webchat.freenode.net/
    Channel : ##vbparadise

    Okay, aber wie funktioniert das den jetzt genau? Könnt ihr mir vielleicht einen kleinen Ansatz geben? :)

    VB.NET-Quellcode

    1. Dim WebRequest As Net.HttpWebRequest
    3. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    4. WebRequest ???
    5. End Sub
    "Denken ist die schwerste Arbeit, die es gibt. Das ist wahrscheinlich auch der Grund, warum sich so wenig Leute damit beschäftigen." - Henry Ford

    Ich habe mir eine Klasse vorgefertigt, die ich immer verwende, wenn ich mit webrequest(s) arbeite:

    http klasse:

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.Net
    3. Imports System.Text
    5. Public Class Http
    6. Dim cookieCon As New CookieContainer
    7. Dim request As HttpWebRequest
    8. Dim response As HttpWebResponse
    10. Public Function GetResponse(ByVal url As String) As String
    12. 'request.Proxy = New WebProxy(New Uri(My.Settings.proxy))
    15. request = CType(HttpWebRequest.Create(url), HttpWebRequest)
    16. request.CookieContainer = cookieCon
    17. response = CType(request.GetResponse(), HttpWebResponse)
    19. Return New StreamReader(response.GetResponseStream()).ReadToEnd()
    20. End Function
    22. Public Function GetResponse(ByVal url As String, ByVal post As String) As String
    23. request = CType(HttpWebRequest.Create(url), HttpWebRequest)
    24. request.Method = "POST"
    25. request.CookieContainer = cookieCon
    26. request.UserAgent = "Mozilla/5.0 (Windows NT 6.1; rv:8.0) Gecko/20100101 Firefox/8.0"
    27. request.ContentType = "application/x-www-form-urlencoded"
    29. Dim byteArr() As Byte = Encoding.Default.GetBytes(post)
    30. request.ContentLength = byteArr.Length
    32. Dim dataStream As Stream = request.GetRequestStream()
    33. dataStream.Write(byteArr, 0, byteArr.Length)
    35. response = CType(request.GetResponse(), HttpWebResponse)
    37. Return New StreamReader(response.GetResponseStream()).ReadToEnd()
    38. End Function
    39. End Class


    Hier ein bsp. zum aufruf

    VB.NET-Quellcode

    1. Private Function Login(ByVal User As String, ByVal PWD As String) As Boo
    2. With New Http
    4. Dim html As String = .GetResponse("http://www.paypal.de")
    5. Dim csrf As String = html.Substring(html.IndexOf("csrfModel.returnedCsrf")).Split(""""c)(2)
    7. Dim sb As New StringBuilder
    8. sb.Append("csrfModel.returnedCsrf=" & csrf)
    9. sb.Append("&login_email=" & User)
    10. sb.Append("&login_password=" & PWD)
    11. sb.Append("&submit.x=Einloggen")
    13. html = .GetResponse("https://www.paypal.com/de/cgi-bin/webscr?cmd=_login-submit", sb.ToString())
    15. If html.Contains("Wenn diese") Then
    16. Dim Guthaben As String = html.Substring(html.IndexOf("PayPal-Guthaben")).Split(">")(2).Split("<")(0)
    17. Return Guthaben
    18. Else
    19. Return False
    20. End If
    21. End With
    22. End Function

    Was mir immer hilft ist, schrittweise zu denken. Du willst also Web-Inhalte auslesen, dann musst du erstmal:

    -Eine Möglichkeit finden die Web-Inhalte runterzuladen bzw an diese ranzukommen (Guck dir die Methoden des Webclients an)
    -Nachdem man die Web-Inhalte hat, speichert man diese in einer Variable. Nun guckst du dir den Textausschnitt an & versuchst einen Regex pattern zu erstellen.
    Dabei solltest du erstmal den ganzen String 1:1 übernehmen und testen ob dieser überhaupt gefunden wird. Wenn ja fügst du 1-2 Zeichen in den pattern neu ein (also sowas wie *?.+) und testest erneut, bis dein Pattern funktioniert.

    @windowsfan

    1. wird ihm das nichts bringen weil er den Code wahrscheinlich nicht verstehen wird.
    2. Hab ich den Code glaub ich schonmal fast 1:1 in nem epvp tut gesehen

Facebook
Telefonspende