HttpWebRequest Tutorial (für Anfänger)

    • VB.NET

    Es gibt 31 Antworten in diesem Thema. Der letzte Beitrag () ist von Pidgin.

      Hallo Dave,

      du verwendest beim erstellen des Request anscheinend eine falsche URL. Dort muss immer die URL stehen bei welcher man sich anmelden möchte beim Beispiel von Igoe z.B.
      vb-community.eu/board/index.php?form=UserLogin&

      Du darft da nicht einfach nur /board/index.php verwenden sondern die gesamte URL!
      Also so:

      VB.NET-Quellcode

      1. Dim Request As HttpWebRequest = CType(WebRequest.Create("http://vb-community.eu/board/index.php?form=UserLogin&"), HttpWebRequest)


      Hoffe ich konnte helfen ansonsten einfach bescheid geben!

      Gruß

      Icemanns

      Hey habe es auch für steam verucht aber es funkt net ...


      VB.NET-Quellcode

      1. Imports System.IO, System.Net, System.Text
      2. Public Class Form1
      4. Private Sub cmdCheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      7. Dim Request As HttpWebRequest = CType(WebRequest.Create("http://store.steampowered.com/login/?snr=1_4_4__11"), HttpWebRequest)
      8. Request.Method = "POST"
      9. Request.ContentType = "application/x-www-form-urlencoded"
      10. Dim Post As String = "username=" & TextBox1.Text & "password=" & TextBox2.Text
      11. Dim byteArray() As Byte = Encoding.UTF8.GetBytes(Post)
      12. Request.ContentLength = byteArray.Length
      13. Dim DataStream As Stream = Request.GetRequestStream()
      14. DataStream.Write(byteArray, 0, byteArray.Length)
      15. DataStream.Close()
      17. Dim Response As HttpWebResponse = Request.GetResponse()
      18. DataStream = Response.GetResponseStream()
      19. Dim reader As New StreamReader(DataStream)
      20. Dim ServerResponse As String = reader.ReadToEnd()
      21. reader.Close()
      22. DataStream.Close()
      23. Response.Close()
      25. If InStr(ServerResponse, "Danke für Ihre Anmeldung") Then
      26. MsgBox("Sie haben sich erfolgreich eingelogt", MsgBoxStyle.Information, "Information")
      27. Else
      28. MsgBox("Login fehlgeschlagen. Bitte versuchen sie es erneut und überprüfen ihre eingabe", MsgBoxStyle.Critical, "Fehler")
      29. End If
      31. End Sub
      32. End Class


      sry das das thema so alt is aber brauche hilfe :>

      cu

      CodeTags korrigiert ~VaporiZed

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

      Es geht bei meinem eigenen Forum (Software die gleiche wie VB Paradise (WBB)) nicht.
      Ich habs genau so gemacht wie hier im Tutorial

      VB.NET-Quellcode

      1. Imports System.IO
      2. Imports System.Net
      3. Imports System.Text
      5. Public Class login
      7. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      9. Dim Request As HttpWebRequest = CType(WebRequest.Create("http://www.vb-community.eu/index.php?form=UserLogin"), HttpWebRequest)
      10. Request.Method = "POST"
      11. Request.ContentType = "application/x-www-form-urlencoded"
      12. Dim Post As String = "username=" & TextBox1.Text & "&password=" & TextBox2.Text & "&remember=yes&submit=Anmelden&action=do_login&url=http://www.flourity-wow.eu/forum/index.php"
      13. Dim byteArray() As Byte = Encoding.UTF8.GetBytes(Post)
      14. Request.ContentLength = byteArray.Length
      15. Dim DataStream As Stream = Request.GetRequestStream()
      16. DataStream.Write(byteArray, 0, byteArray.Length)
      17. DataStream.Close()
      19. Dim Response As HttpWebResponse = Request.GetResponse()
      20. DataStream = Response.GetResponseStream()
      21. Dim reader As New StreamReader(DataStream)
      22. Dim ServerResponse As String = reader.ReadToEnd()
      23. reader.Close()
      24. DataStream.Close()
      25. Response.Close()
      27. TextBox3.Text = ServerResponse
      29. If InStr(ServerResponse, "Du hast dich erfolgreich eingeloggt.") Then
      30. MessageBox.Show("Login OK")
      31. Else
      32. MessageBox.Show("Login nicht OK")
      33. End If
      36. End Sub
      37. End Class



      hier

      VB.NET-Quellcode

      1. Response As HttpWebResponse = Request.GetResponse()
      kommt immer "WebException wurde nicht behandelt. Der Remoteserver hat einen Fehler zurückgegeben: (417) Expectation Failed."
      wäre nice wenn mir jemand helfen könnte danke schon mal im voraus
      mfg Shambala

      Danke für das sehr gute Tut!
      Ich habe nach diesem Tutorial eine Abfrage zur Validierung von Mehrwertsteuer-UID-Nummern bei der EU-Kommission geschrieben (ec.europa.eu/taxation_customs/vies/vatResponse.html).

      Die http-Headers habe ich abgefragt:
      Spoiler anzeigen

      ec.europa.eu/taxation_customs/vies/generateForm.html

      POST /taxation_customs/vies/generateForm.html HTTP/1.1
      Host: ec.europa.eu
      User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:31.0) Gecko/20100101 Firefox/31.0
      Accept: application/json;charset=UTF-8
      Accept-Language: de,en-US;q=0.7,en;q=0.3
      Accept-Encoding: gzip, deflate
      DNT: 1
      Content-Type: application/json; charset=UTF-8
      X-Requested-With: XMLHttpRequest
      Referer: ec.europa.eu/taxation_customs/vies/vatRequest.html
      Content-Length: 11
      Cookie: JSESSIONID=m5rlT28hzVCbNxvnHn6sTLrNH5JqpHyRpbsF4JvNhy6nGrW0twvM!2061453058
      Connection: keep-alive
      Pragma: no-cache
      Cache-Control: no-cache
      {"ms":"AT"}
      HTTP/1.1 200 OK
      Date: Fri, 22 Aug 2014 08:17:22 GMT
      Content-Type: application/json;charset=UTF-8
      Server: Europa
      Transfer-Encoding: chunked
      Connection: Keep-Alive
      Content-Encoding: gzip
      ----------------------------------------------------------
      ec.europa.eu/taxation_customs/vies/vatResponse.html

      POST /taxation_customs/vies/vatResponse.html HTTP/1.1
      Host: ec.europa.eu
      User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:31.0) Gecko/20100101 Firefox/31.0
      Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
      Accept-Language: de,en-US;q=0.7,en;q=0.3
      Accept-Encoding: gzip, deflate
      DNT: 1
      Referer: ec.europa.eu/taxation_customs/vies/vatRequest.html
      Cookie: JSESSIONID=m5rlT28hzVCbNxvnHn6sTLrNH5JqpHyRpbsF4JvNhy6nGrW0twvM!2061453058
      Connection: keep-alive
      Content-Type: application/x-www-form-urlencoded
      Content-Length: 176
      memberStateCode=AT&number=U63997535&traderName=&traderStreet=&traderPostalCode=&traderCity=&requesterMemberStateCode=AT&requesterNumber=U57742688&action=check&check=Pr%C3%BCfen
      HTTP/1.1 200 OK
      Date: Fri, 22 Aug 2014 08:17:32 GMT
      Transfer-Encoding: chunked
      Content-Type: text/html;charset=UTF-8
      Content-Language: de
      Server: Europa
      Connection: Keep-Alive
      Content-Encoding: gzip


      Der Code zur Abfrage lautet:
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Public Sub ValidateUIDPerHttpRequest( _
      2. ByVal LandTester As String, _
      3. ByVal UidTester As String, _
      4. ByVal LandKontrahent As String, _
      5. ByVal UidKontrahent As String, _
      6. ByRef IsValidUid As Boolean)
      8. Try
      9. Dim uriString As String = "http://ec.europa.eu/taxation_customs/vies/vatResponse.html"
      11. Dim Request As HttpWebRequest = CType(WebRequest.Create(uriString), HttpWebRequest)
      13. Request.Method = "POST"
      14. Request.ContentType = "application/x-www-form-urlencoded"
      15. Dim Post As String = "memberStateCode=" & LandTester & "&number=" & UidTester & _
      16. "&traderName=&traderStreet=&traderPostalCode=&traderCity=&" & _
      17. "requesterMemberStateCode=" & LandKontrahent & "&requesterNumber=" & UidKontrahent & _
      18. "&action=check&check=Pr%C3%BCfen"
      19. Dim byteArray() As Byte = Encoding.UTF8.GetBytes(Post)
      20. Request.ContentLength = byteArray.Length
      21. Dim DataStream As Stream = Request.GetRequestStream()
      22. DataStream.Write(byteArray, 0, byteArray.Length)
      23. DataStream.Close()
      25. Dim Response As HttpWebResponse = CType(Request.GetResponse(), HttpWebResponse)
      26. DataStream = Response.GetResponseStream()
      27. Dim reader As New StreamReader(DataStream)
      28. Dim ServerResponse As String = reader.ReadToEnd()
      29. reader.Close()
      30. DataStream.Close()
      31. Response.Close()
      33. If InStr(ServerResponse, "MwSt-Nummer gültig") > 0 Then
      34. MsgBox("MwSt-Nummer gültig", MsgBoxStyle.Information, "Information")
      35. IsValidUid = True
      36. Else
      37. 'MsgBox("MwSt-Nummer UNGÜLTIG! Bitte versuchen sie es erneut und überprüfen ihre Eingabe", MsgBoxStyle.Critical, "Fehler")
      38. Console.WriteLine(ServerResponse)
      39. IsValidUid = False
      40. End If
      42. Catch e As Net.WebException
      44. Console.WriteLine(e.Message)
      46. If e.Status = WebExceptionStatus.ProtocolError Then
      47. Console.WriteLine("Status Code : {0}", CType(e.Response, HttpWebResponse).StatusCode)
      48. Console.WriteLine("Status Description : {0}", CType(e.Response, HttpWebResponse).StatusDescription)
      49. End If
      51. Catch e As Exception
      52. Console.WriteLine(e.Message)
      53. End Try
      55. End Sub


      Dabei bekomme ich die folgende Response:
      Spoiler anzeigen

      HTML-Quellcode

      1. "<html xmlns="http://www.w3.org/1999/xhtml">
      2. <head>
      3. <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
      4. <meta name="http-equiv" content="Content-type: text/html; charset=UTF-8"/>
      5. <meta name="Keywords" content="customs,taxation,VAT,european union,eu" />
      6. <meta name="publisher" content="Taxation and Customs Union"/>
      7. <meta name="creator" content="COMM/DG/TAXUD" />
      9. <!-- Commission template -->
      10. <link href="/taxation_customs/vies/css/template-2012/ec.css" media="all" rel="stylesheet" type="text/css" />
      11. <!--[if IE]><link rel="stylesheet" href="/taxation_customs/vies/css/template-2012/ec-ie.css" type="text/css" media="all"></link><![endif]-->
      13. <!-- Menu is not in template -->
      14. <link type="text/css" rel="stylesheet" href="/taxation_customs/vies/css/menu.css" media="all" />
      15. <!-- VoW stylesheet -->
      16. <link type="text/css" rel="stylesheet" href="/taxation_customs/vies/css/app-layout.css" media="all" />
      18. <!-- Commission template -->
      19. <script src="/taxation_customs/vies/scripts/ec.js" type="text/javascript"></script>
      21. <script type="text/javascript" src="scripts/jquery-1.7.1.min.js;jsessionid=n7cqT3Sdcdn9cJb1jm4PJSsfNnhlM8jPNdP6pwBY1gGhw3P7yhyt!2061453058 "></script>
      22. <script type="text/javascript" src="scripts/json.min.js;jsessionid=n7cqT3Sdcdn9cJb1jm4PJSsfNnhlM8jPNdP6pwBY1gGhw3P7yhyt!2061453058 "></script>
      23. <script type="text/javascript" src="scripts/jquery-ui-1.7.2.custom.min.js"></script>
      24. <script type="text/javascript" src="scripts/vow.js"></script>
      26. <title>VIES</title>
      27. </head>
      28. <body>
      29. <a id="top-page" name="top-page"></a>
      30. <div id="layout" class="layout">


      Was mache ich falsch? Wenn ihr testen wollt, könnt Ihr einsetzen z.B.:
      Mitgliedstaat (LandTester) = "AT"
      MwSt-Nummer (UidTester) = "U63997535"
      Mitgliedstaat des Antragstellers (LandKontrahent) = "AT"
      MwSt-Nummer (UidKontrahent) = "U57742688"

      Für Hinweise bin ich sehr dankbar!!!


      Spoiler- und Codetags eingefügt
      -Artentus

      Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Artentus“ ()

      Du musst Thread.Sleep(2000) benutzen, aber benutze Threads ( googlen lohnt sich ;) ), sodass die GUI sich nicht aufhängt.

      ~ Alex-Digital :)
      ~ Alex-Digital :D

      if(!Internet.VBP.Get<User>("Alex-Digital").IsOnline) this.Close(); :D

    Facebook
    Telefonspende