Boundary-POST via Webrequest übergeben funktioniert nicht

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von mewcrazy.

    Boundary-POST via Webrequest übergeben funktioniert nicht

    Hallo,
    und zwar möchte ich gerne bei einer Seite ein Formular übertragen. Dieses Formular "arbeitet" nicht mit normalen POSTs, sondern mit den Boundarys. Nun habe ich also den Boundary-Content nachgestellt und via WebRequest abgeschickt. Allerdings akzeptiert die Seite anscheinend meinen POST nicht, da ich im Quelltext keine Bestätigung finden kann, die normalerweise fest auf der Seite ist bei einem erfolgreichen Eintrag.

    LiveHTTPHeader-Ausschnitt:
    Spoiler anzeigen

    XML-Quellcode

    1. http://www."google.de"/ui.php?ua=tvshow&do=add
    3. POST /ui.php?ua=tvshow&do=add HTTP/1.1
    4. Host: www."google.de"
    5. User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.1; de; rv:1.9.2.10) Gecko/20100914 Firefox/3.6.8;MEGAUPLOAD 1.0
    6. Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
    7. Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3
    8. Accept-Encoding: gzip,deflate
    9. Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
    10. Keep-Alive: 115
    11. Connection: keep-alive
    12. Referer: http://www."google.de"/ui.php?ua=tvshow&do=add
    13. Cookie: lang=de; __utma=227930369.10588397.1284951760.1285532059.1285534788.21; __utmz=227930369.1285251781.4.2.utmcsr=xmarks.com|utmccn=(referral)|utmcmd=referral|utmcct=/topic/stream_seiten; lastview=189518; onlylanguage=de; PHPSESSID=72hdvld86ugv0c6ke173m7aut0; __utmc=227930369; __utmb=227930369.18.10.1285534788
    14. Content-Type: multipart/form-data; boundary=---------------------------130281863114589
    15. Content-Length: 4253
    16. -----------------------------130281863114589
    17. Content-Disposition: form-data; name="title"
    19. Alle Hassen Chris
    20. -----------------------------130281863114589
    21. Content-Disposition: form-data; name="season"
    23. 01
    24. -----------------------------130281863114589
    25. Content-Disposition: form-data; name="episode"
    27. 16
    28. -----------------------------130281863114589
    29. Content-Disposition: form-data; name="language"
    31. 2
    32. -----------------------------130281863114589
    33. Content-Disposition: form-data; name="hoster"
    35. 94
    36. -----------------------------130281863114589
    37. Content-Disposition: form-data; name="link"
    39. http://www.filestage.to/watch/08517ad3ecf5562dad2d29aa39e878b4/Alle.hassen.Chris.S01E16.Chris.hasst.die.Gicht_randomanon.avi
    40. -----------------------------130281863114589
    41. Content-Disposition: form-data; name="genre1"
    44. -----------------------------130281863114589
    45. Content-Disposition: form-data; name="genre2"
    48. -----------------------------130281863114589
    49. Content-Disposition: form-data; name="genre3"
    52. -----------------------------130281863114589
    53. Content-Disposition: form-data; name="genre4"
    56. -----------------------------130281863114589
    57. Content-Disposition: form-data; name="genre5"
    60. -----------------------------130281863114589
    61. Content-Disposition: form-data; name="thumbnail"
    63. upload
    64. -----------------------------130281863114589
    65. Content-Disposition: form-data; name="thumbnailfile"; filename=""
    66. Content-Type: application/octet-stream
    69. -----------------------------130281863114589
    70. Content-Disposition: form-data; name="thumbnaillink"
    73. -----------------------------130281863114589
    74. Content-Disposition: form-data; name="description"
    77. -----------------------------130281863114589
    78. Content-Disposition: form-data; name="duration"
    81. -----------------------------130281863114589
    82. Content-Disposition: form-data; name="fsk"
    85. -----------------------------130281863114589
    86. Content-Disposition: form-data; name="countryyear"
    89. -----------------------------130281863114589
    90. Content-Disposition: form-data; name="director"
    93. -----------------------------130281863114589
    94. Content-Disposition: form-data; name="actors"
    97. -----------------------------130281863114589
    98. Content-Disposition: form-data; name="detail[1]"
    101. -----------------------------130281863114589
    102. Content-Disposition: form-data; name="detailtext[1]"
    105. -----------------------------130281863114589
    106. Content-Disposition: form-data; name="detail[2]"
    109. -----------------------------130281863114589
    110. Content-Disposition: form-data; name="detailtext[2]"
    113. -----------------------------130281863114589
    114. Content-Disposition: form-data; name="detail[3]"
    117. -----------------------------130281863114589
    118. Content-Disposition: form-data; name="detailtext[3]"
    121. -----------------------------130281863114589
    122. Content-Disposition: form-data; name="detail[4]"
    125. -----------------------------130281863114589
    126. Content-Disposition: form-data; name="detailtext[4]"
    129. -----------------------------130281863114589
    130. Content-Disposition: form-data; name="detail[5]"
    133. -----------------------------130281863114589
    134. Content-Disposition: form-data; name="detailtext[5]"
    137. -----------------------------130281863114589
    138. Content-Disposition: form-data; name="detail[6]"
    141. -----------------------------130281863114589
    142. Content-Disposition: form-data; name="detailtext[6]"
    145. -----------------------------130281863114589
    146. Content-Disposition: form-data; name="detail[7]"
    149. -----------------------------130281863114589
    150. Content-Disposition: form-data; name="detailtext[7]"
    153. -----------------------------130281863114589
    154. Content-Disposition: form-data; name="detail[8]"
    157. -----------------------------130281863114589
    158. Content-Disposition: form-data; name="detailtext[8]"
    161. -----------------------------130281863114589
    162. Content-Disposition: form-data; name="detail[9]"
    165. -----------------------------130281863114589
    166. Content-Disposition: form-data; name="detailtext[9]"
    169. -----------------------------130281863114589
    170. Content-Disposition: form-data; name="adtext"
    173. -----------------------------130281863114589
    174. Content-Disposition: form-data; name="adlink"
    177. -----------------------------130281863114589--
    179. HTTP/1.1 200 OK
    180. Server: nginx/0.6.32
    181. Date: Sun, 26 Sep 2010 21:41:09 GMT
    182. Content-Type: text/html
    183. Transfer-Encoding: chunked
    184. Connection: keep-alive
    185. X-Powered-By: PHP/5.3.2-2
    186. Expires: Thu, 19 Nov 1981 08:52:00 GMT
    187. Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0
    188. Pragma: no-cache
    189. Content-Encoding: gzip
    190. ----------------------------------------------------------


    Hier mein WebRequest für den Login:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Function Req(ByVal Site As String, ByVal Post As String, ByVal Method As String, ByVal Host As String) As String
    2. Dim CookieCount As Double = 0
    3. Dim R As HttpWebRequest = HttpWebRequest.Create(Site)
    5. R.Method = Method
    6. R.ServicePoint.Expect100Continue = False
    7. R.CookieContainer = Cookies
    8. R.Host = Host
    9. R.MaximumAutomaticRedirections = 20
    10. R.AllowAutoRedirect = True
    11. R.Referer = ""
    12. R.Timeout = 10000
    13. R.ContentType = "application/x-www-form-urlencoded"
    14. R.ContentLength = Post.Length
    15. Dim writer As New IO.StreamWriter(R.GetRequestStream(), System.Text.Encoding.ASCII)
    16. writer.Write(Post)
    17. writer.Close()
    19. Dim Response As HttpWebResponse = DirectCast(R.GetResponse, HttpWebResponse)
    20. Response.Cookies = R.CookieContainer.GetCookies(R.RequestUri)
    21. Dim Reader As IO.StreamReader = New IO.StreamReader(Response.GetResponseStream)
    22. Dim SourceCode As String = Reader.ReadToEnd()
    23. Debug.Print(SourceCode)
    24. Reader.Close()
    26. For Each SetCookie As Cookie In Response.Cookies
    27. Debug.Print(SetCookie.Name)
    28. Next
    30. Return SourceCode
    31. End Function

    So setze ich den Login ein: (funktioniert auch einwandfrei, also Login wird auf jedenfall übernommen.)
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Dim var_movie2kcom_login As String = Req("http://www."google.de"/login.php?ua=login", "username" & User & "&password=" & Passwort, "POST", "www."google.de"")
    2. If var_movie2kcom_login.Contains("Add a tvshow") Then
    3. TextBox1.AppendText("Login auf "google.de" erfolgreich!")
    4. Else : TextBox1.AppendText("Login auf "google.de" fehlgeschlagen!")
    5. End If


    Und hier mein WebRequest für das Eintrag-Formular:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Function webrequest_movie2kcom(ByVal Site As String, ByVal Post As String, ByVal Method As String, ByVal Host As String) As String
    2. Dim R As HttpWebRequest = HttpWebRequest.Create(Site)
    4. R.Method = Method
    5. R.ServicePoint.Expect100Continue = True
    6. R.CookieContainer = Cookies
    7. R.Host = Host
    8. R.MaximumAutomaticRedirections = 200
    9. R.AllowAutoRedirect = True
    10. R.Referer = "http://www."google.de"/ui.php?ua=tvshow&do=add"
    11. R.Timeout = 10000
    12. R.Headers("useragent") = "Mozilla/5.0 (Windows; U; Windows NT 6.1; de; rv:1.9.2.8) Gecko/20100722 Firefox/3.6.8"
    13. R.ContentType = "Content-Type: multipart/form-data; boundary=---------------------------" & TimeHash
    14. R.ContentLength = Post.Length
    15. Dim writer As New IO.StreamWriter(R.GetRequestStream(), System.Text.Encoding.ASCII)
    16. writer.Write(Post)
    17. writer.Close()
    18. Dim Response As HttpWebResponse = DirectCast(R.GetResponse, HttpWebResponse)
    19. Response.Cookies = R.CookieContainer.GetCookies(R.RequestUri)
    20. Dim Reader As IO.StreamReader = New IO.StreamReader(Response.GetResponseStream)
    21. Dim SourceCode As String = Reader.ReadToEnd()
    22. Debug.Print(SourceCode)
    23. Reader.Close()
    25. For Each SetCookie As Cookie In Response.Cookies
    26. Debug.Print(SetCookie.Name)
    27. Next
    29. Return SourceCode
    30. End Function

    So setze ich es ein:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Dim var_movie2kcom_add As String = webrequest_movie2kcom("http://www."google.de"/ui.php?ua=tvshow&do=add", boundary, "POST", "www."google.de"")

    Beide Requests nutzen den folgenden Cookiecontainer: (Da sollte ja kein Fehler liegen, Login funktioniert ja.)
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Cookies As System.Net.CookieContainer = New CookieContainer




    Ich bin so langsam wirklich ratlos, eine Fehlerquelle die ich mir vorstellen könnte wäre die im Original 15 stellige Zahl, die bei den Boundary-Posts vorkommt. Leider weiß ich nicht wie ich diese nachstelle. Aber ansonsten sollte soweit doch alles richtig sein?

    Ich hoffe es kann mir jemand helfen :)


    Vielen Dank im voraus,
    mewcrazy

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

    Folgendermaßen bilden ich den Boundary-String. Mir ist klar das man das sicher optimieren kann, aber am Anfang mache ich so etwas lieber übersichtlicher damit ich Fehler vermeide.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Dim boundary_title As String = "-----------------------------" & TimeHash
    2. Dim boundary_type As String = "Content-Disposition: form-data; name="
    4. Dim boundary As String = boundary_title & vbCrLf & boundary_type & """title""" & vbCrLf & vbCrLf & txt_title.Text & vbCrLf
    5. boundary &= boundary_title & vbCrLf & boundary_type & """season""" & vbCrLf & vbCrLf & combo_season.Text & vbCrLf
    6. boundary &= boundary_title & vbCrLf & boundary_type & """episode""" & vbCrLf & vbCrLf & txt_episode.Text & vbCrLf
    7. boundary &= boundary_title & vbCrLf & boundary_type & """language""" & vbCrLf & vbCrLf & txt_sprache.Text & vbCrLf
    8. boundary &= boundary_title & vbCrLf & boundary_type & """hoster""" & vbCrLf & vbCrLf & txt_hoster.Text & vbCrLf
    9. boundary &= boundary_title & vbCrLf & boundary_type & """link""" & vbCrLf & vbCrLf & txt_link.Text & vbCrLf
    10. boundary &= boundary_title & vbCrLf & boundary_type & """genre1""" & vbCrLf & vbCrLf & combo_genre1.Text & vbCrLf
    11. boundary &= boundary_title & vbCrLf & boundary_type & """genre2""" & vbCrLf & vbCrLf & combo_genre2.Text & vbCrLf
    12. boundary &= boundary_title & vbCrLf & boundary_type & """genre3""" & vbCrLf & vbCrLf & combo_genre3.Text & vbCrLf
    13. boundary &= boundary_title & vbCrLf & boundary_type & """genre4""" & vbCrLf & vbCrLf & combo_genre4.Text & vbCrLf
    14. boundary &= boundary_title & vbCrLf & boundary_type & """genre5""" & vbCrLf & vbCrLf & combo_genre5.Text & vbCrLf
    15. boundary &= boundary_title & vbCrLf & boundary_type & """thumbnail""" & vbCrLf & vbCrLf & "upload" & vbCrLf
    16. boundary &= boundary_title & vbCrLf & boundary_type & """thumnailfile""" & "; filename=""""" & vbCrLf & "Content-Type: application/octet-stream" & vbCrLf & vbCrLf & vbCrLf
    17. boundary &= boundary_title & vbCrLf & boundary_type & """thumbnaillink""" & vbCrLf & vbCrLf & txt_thumbnaillink.Text & vbCrLf
    18. boundary &= boundary_title & vbCrLf & boundary_type & """description""" & vbCrLf & vbCrLf & txt_beschreibung.Text & vbCrLf
    19. boundary &= boundary_title & vbCrLf & boundary_type & """duration""" & vbCrLf & vbCrLf & txt_duration.Text & vbCrLf
    20. boundary &= boundary_title & vbCrLf & boundary_type & """fsk""" & vbCrLf & vbCrLf & txt_fsk.Text & vbCrLf
    21. boundary &= boundary_title & vbCrLf & boundary_type & """countryyear""" & vbCrLf & vbCrLf & txt_countryyear.Text & vbCrLf
    22. boundary &= boundary_title & vbCrLf & boundary_type & """director""" & vbCrLf & vbCrLf & txt_director.Text & vbCrLf
    23. boundary &= boundary_title & vbCrLf & boundary_type & """actors""" & vbCrLf & vbCrLf & txt_actors.Text & vbCrLf
    24. boundary &= boundary_title & vbCrLf & boundary_type & """detail[1]""" & vbCrLf & vbCrLf & vbCrLf
    25. boundary &= boundary_title & vbCrLf & boundary_type & """detailtext[1]""" & vbCrLf & vbCrLf & vbCrLf
    26. boundary &= boundary_title & vbCrLf & boundary_type & """detail[2]""" & vbCrLf & vbCrLf & vbCrLf
    27. boundary &= boundary_title & vbCrLf & boundary_type & """detailtext[2]""" & vbCrLf & vbCrLf & vbCrLf
    28. boundary &= boundary_title & vbCrLf & boundary_type & """detail[3]""" & vbCrLf & vbCrLf & vbCrLf
    29. boundary &= boundary_title & vbCrLf & boundary_type & """detailtext[3]""" & vbCrLf & vbCrLf & vbCrLf
    30. boundary &= boundary_title & vbCrLf & boundary_type & """detail[4]""" & vbCrLf & vbCrLf & vbCrLf
    31. boundary &= boundary_title & vbCrLf & boundary_type & """detailtext[4]""" & vbCrLf & vbCrLf & vbCrLf
    32. boundary &= boundary_title & vbCrLf & boundary_type & """detail[5]""" & vbCrLf & vbCrLf & vbCrLf
    33. boundary &= boundary_title & vbCrLf & boundary_type & """detailtext[5]""" & vbCrLf & vbCrLf & vbCrLf
    34. boundary &= boundary_title & vbCrLf & boundary_type & """detail[6]""" & vbCrLf & vbCrLf & vbCrLf
    35. boundary &= boundary_title & vbCrLf & boundary_type & """detailtext[6]""" & vbCrLf & vbCrLf & vbCrLf
    36. boundary &= boundary_title & vbCrLf & boundary_type & """detail[7]""" & vbCrLf & vbCrLf & vbCrLf
    37. boundary &= boundary_title & vbCrLf & boundary_type & """detailtext[7]""" & vbCrLf & vbCrLf & vbCrLf
    38. boundary &= boundary_title & vbCrLf & boundary_type & """detail[8]""" & vbCrLf & vbCrLf & vbCrLf
    39. boundary &= boundary_title & vbCrLf & boundary_type & """detailtext[8]""" & vbCrLf & vbCrLf & vbCrLf
    40. boundary &= boundary_title & vbCrLf & boundary_type & """detail[9]""" & vbCrLf & vbCrLf & vbCrLf
    41. boundary &= boundary_title & vbCrLf & boundary_type & """detailtext[9]""" & vbCrLf & vbCrLf & vbCrLf
    42. boundary &= boundary_title & vbCrLf & boundary_type & """adtext""" & vbCrLf & vbCrLf & txt_adtext.Text & vbCrLf
    43. boundary &= boundary_title & vbCrLf & boundary_type & """adlink""" & vbCrLf & vbCrLf & txt_adlink.Text & vbCrLf
    44. boundary &= boundary_title & "--" & vbCrLf & vbCrLf & vbCrLf

    So sieht mein fertiger Boundary-String dann aus:
    Spoiler anzeigen

    Brainfuck-Quellcode

    1. -----------------------------634211421824535394
    2. Content-Disposition: form-data; name="title"
    4. Alle hassen Chris
    5. -----------------------------634211421824535394
    6. Content-Disposition: form-data; name="season"
    8. 01
    9. -----------------------------634211421824535394
    10. Content-Disposition: form-data; name="episode"
    12. 19
    13. -----------------------------634211421824535394
    14. Content-Disposition: form-data; name="language"
    16. 2
    17. -----------------------------634211421824535394
    18. Content-Disposition: form-data; name="hoster"
    20. 94
    21. -----------------------------634211421824535394
    22. Content-Disposition: form-data; name="link"
    24. http://www.filestage.to/watch/12ca2ac47e7d15f4bca55a6deb892d78/Alle.hassen.Chris.S01E19.Chris.hasst.Karate_randomanon.avi
    25. -----------------------------634211421824535394
    26. Content-Disposition: form-data; name="genre1"
    29. -----------------------------634211421824535394
    30. Content-Disposition: form-data; name="genre2"
    33. -----------------------------634211421824535394
    34. Content-Disposition: form-data; name="genre3"
    37. -----------------------------634211421824535394
    38. Content-Disposition: form-data; name="genre4"
    41. -----------------------------634211421824535394
    42. Content-Disposition: form-data; name="genre5"
    45. -----------------------------634211421824535394
    46. Content-Disposition: form-data; name="thumbnail"
    48. upload
    49. -----------------------------634211421824535394
    50. Content-Disposition: form-data; name="thumnailfile"; filename=""
    51. Content-Type: application/octet-stream
    54. -----------------------------634211421824535394
    55. Content-Disposition: form-data; name="thumbnaillink"
    58. -----------------------------634211421824535394
    59. Content-Disposition: form-data; name="description"
    62. -----------------------------634211421824535394
    63. Content-Disposition: form-data; name="duration"
    66. -----------------------------634211421824535394
    67. Content-Disposition: form-data; name="fsk"
    70. -----------------------------634211421824535394
    71. Content-Disposition: form-data; name="countryyear"
    74. -----------------------------634211421824535394
    75. Content-Disposition: form-data; name="director"
    78. -----------------------------634211421824535394
    79. Content-Disposition: form-data; name="actors"
    82. -----------------------------634211421824535394
    83. Content-Disposition: form-data; name="detail[1]"
    86. -----------------------------634211421824535394
    87. Content-Disposition: form-data; name="detailtext[1]"
    90. -----------------------------634211421824535394
    91. Content-Disposition: form-data; name="detail[2]"
    94. -----------------------------634211421824535394
    95. Content-Disposition: form-data; name="detailtext[2]"
    98. -----------------------------634211421824535394
    99. Content-Disposition: form-data; name="detail[3]"
    102. -----------------------------634211421824535394
    103. Content-Disposition: form-data; name="detailtext[3]"
    106. -----------------------------634211421824535394
    107. Content-Disposition: form-data; name="detail[4]"
    110. -----------------------------634211421824535394
    111. Content-Disposition: form-data; name="detailtext[4]"
    114. -----------------------------634211421824535394
    115. Content-Disposition: form-data; name="detail[5]"
    118. -----------------------------634211421824535394
    119. Content-Disposition: form-data; name="detailtext[5]"
    122. -----------------------------634211421824535394
    123. Content-Disposition: form-data; name="detail[6]"
    126. -----------------------------634211421824535394
    127. Content-Disposition: form-data; name="detailtext[6]"
    130. -----------------------------634211421824535394
    131. Content-Disposition: form-data; name="detail[7]"
    134. -----------------------------634211421824535394
    135. Content-Disposition: form-data; name="detailtext[7]"
    138. -----------------------------634211421824535394
    139. Content-Disposition: form-data; name="detail[8]"
    142. -----------------------------634211421824535394
    143. Content-Disposition: form-data; name="detailtext[8]"
    146. -----------------------------634211421824535394
    147. Content-Disposition: form-data; name="detail[9]"
    150. -----------------------------634211421824535394
    151. Content-Disposition: form-data; name="detailtext[9]"
    154. -----------------------------634211421824535394
    155. Content-Disposition: form-data; name="adtext"
    158. -----------------------------634211421824535394
    159. Content-Disposition: form-data; name="adlink"
    162. -----------------------------634211421824535394--
    163. Leerzeile
    164. Leerzeile (Habe gedacht an den beiden letzten Leerzeilen liegt es, aber hat leider keine Änderung gebracht.)


    Musste das in einen neuen Beitrag packen, da nur 15000 Zeichen pro Beitrag genutzt werden dürfen.

    Ach du machst mich auf den Rechtschreibfehler aufmerksam. Na das ist ja mal wieder ein VB-Paradise Niveau wie man es aus jedem 2. Thread kennt.

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

    mewcrazy schrieb:

    Na das ist ja mal wieder ein VB-Paradise Niveau wie man es aus jedem 2. Thread kennt

    *lach* aber Du musst zugeben die Rächtschreibung ist in diesem Forum auch wirklich unter aller , ehem, Kanone ist ...

    Ich hab mir Deinen Code mal näher angeschaut: viel Konstruktives kann ich zwar nicht ergänzen, aber damit Du Dich vollkommen verlassen fühlst:

    - beim Login-Code muss es "username=" & User heissen, sonst klappt der Login nie
    - die Prüfung auf Erfolg sollte per Contains("Logged in...") erfolgen, sonst auch falsch
    - statt Ascii.GetBytes sollte das Encoding per UTF8.GetBytes erfolgen, leider auch nicht der entscheidende Fehler
    - Deine Boundaries scheinen richtig zu sein, auch die "--" mehr bei den Params und am Ende der Nachricht
    - am Ende des Poststring kommt bei FF nur 1 vbCRLF

    Wenn man allerdings statt dem Live HTTP Header Addon einen Sniffer wie Net Monitor verwendet fällt auf, dass die Nachrichten unterschiedlich übertragen werden. Bei Verwendung von FF erscheinen die einzelnen Params als MultiPartEntry, während bei dem selbst erstellten HttpWebRequest die Params als PayLoad Lines erscheinen. Habe leider in der 1 Stunde in der ich mich damit beschäftigt habe noch nicht rausbekommen wo der Unterschied liegt bzw. wie er zustande kommt.

    Ausserdem ist die Länge der PostBytes bei FF und Deinem Code um über 100 Bytes verschieden, genauer hab ich noch nicht nachgeschaut.

    Meine Referenz für Post Boundaries war in der Vergangenheit immer dieser Artikel. Da Du den 15stelligen TimeHash angesprochen hattest: sollte eigentlich vollkommen egal sein, lt. RFC 1521 ist sogar irgendein eindeutiger String erlaubt, kann natürlich immer sein dass der Server eine Prüfung eingebaut hat.

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

    Danke für deine Antwort,
    es funktioniert nun, allerdings habe ich mir eine HTTPPostRequest Class zur Hilfe genommen und meinen Login eingebaut + Cookiecontainer, nun funktioniert alles, und das sogar ohne das ich alle Variablen erwähnen muss wie es das Formular auf der Webseite macht.

    Hier die Klasse:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports Microsoft.Win32
    3. Imports System.Runtime.CompilerServices
    4. Imports System.Net
    5. Imports System.Text
    7. Public Class Post
    8. Private m_PostArray As New ArrayList
    9. Private m_url As String
    10. Private m_timeout As Integer = 30000
    13. Public Sub New(ByVal url As String)
    14. m_url = url
    15. End Sub
    17. Public Sub New(ByVal url As String, ByVal Timeout As String)
    18. m_url = url
    19. End Sub
    22. Public Property Timeout As Integer
    23. Get
    24. Return m_timeout
    25. End Get
    26. Set(ByVal Value As Integer)
    27. m_timeout = Value
    28. End Set
    29. End Property
    31. Public Sub AddVariable(ByVal Variable As String, ByVal Value As String)
    32. Dim StringValueObj As New StringValue
    34. StringValueObj.Variable = Variable
    36. StringValueObj.Value = Value
    39. m_PostArray.Add(StringValueObj)
    40. End Sub
    42. Public Sub AddFile(ByVal Variable As String, ByVal File_Path As String)
    43. Dim FileValueObj As New FileValue
    44. FileValueObj.Variable = Variable
    45. FileValueObj.FilePath = File_Path
    47. m_PostArray.Add(FileValueObj)
    48. End Sub
    49. Public Function SubmitPost() As String
    51. Dim containsFile As Boolean = False
    52. Dim request As HttpWebRequest = DirectCast(WebRequest.Create(m_url), HttpWebRequest)
    53. request.CookieContainer = Cookies
    54. Dim boundary As String = "----------------------------" &
    55. DateTime.Now.Ticks.ToString("x")
    57. request.Method = "POST"
    59. request.KeepAlive = True
    60. 'request.UserAgent = "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1)"
    62. request.Timeout = m_timeout
    64. 'request.Headers.Add("Accept-Language", "vb,en-us;q=0.7,en;q=0.3")
    66. request.ContentType = "multipart/form-data; boundary=" & boundary
    67. request.Credentials = System.Net.CredentialCache.DefaultCredentials
    69. 'request.PreAuthenticate = False
    72. Dim builder As New StringBuilder()
    73. Dim builder2 As New StringBuilder
    76. For z As Integer = 0 To m_PostArray.Count - 1
    77. If TypeOf (m_PostArray(z)) Is StringValue Then
    79. builder.Append("--" & boundary) 'ALWAYS KEEP THE two -- otherwise boundary will not be correct aka dont change this line
    81. builder.Append(vbCrLf)
    83. builder.Append("Content-Disposition: form-data; name=""" &
    84. m_PostArray(z).Variable & """" & vbCrLf)
    86. builder.Append(vbCrLf)
    88. builder.Append(m_PostArray(z).Value)
    90. builder.Append(vbCrLf)
    92. builder2.Append(m_PostArray(z).Variable & "=" &
    93. m_PostArray(z).Value & "&")
    94. End If
    97. If TypeOf (m_PostArray(z)) Is FileValue Then
    99. containsFile = True
    100. builder.Append("--" & boundary)
    101. builder.Append(vbCrLf)
    103. builder.Append("Content-Disposition: form-data; name=""" &
    104. m_PostArray(z).Variable & """;filename=""" &
    105. m_PostArray(z).FileName & """" & vbCrLf)
    107. builder.Append("Content-Type: " & m_PostArray(z).ContentType &
    108. vbCrLf)
    109. builder.Append(vbCrLf)
    111. builder.Append(Encoding.UTF8.GetString(m_PostArray(z).FileData))
    113. 'builder.Append(m_PostArray(z).FileData)
    115. builder.Append(vbCrLf)
    116. End If
    118. Next
    121. builder.Append("--" & boundary & "--" & vbCrLf)
    123. builder2 = builder2.Remove(builder2.Length - 1, 1)
    126. Dim bytes As Byte()
    127. If containsFile = True Then
    129. bytes = Encoding.UTF8.GetBytes(builder.ToString)
    130. Else
    132. request.ContentType = "application/x-www-form-urlencoded"
    134. bytes = Encoding.UTF8.GetBytes(builder2.ToString)
    136. End If
    139. request.ContentLength = bytes.Length
    141. Dim ReturnString As String = ""
    142. Using stream As Stream =
    143. request.GetRequestStream
    144. stream.Write(bytes, 0,
    145. bytes.Length)
    146. stream.Flush()
    148. stream.Close()
    149. Try
    150. Using response As WebResponse = request.GetResponse
    152. Using reader As StreamReader = New StreamReader(response.GetResponseStream)
    154. ReturnString = reader.ReadToEnd
    156. End Using
    157. End Using
    158. Catch ex As Exception
    159. ReturnString = "ERROR"
    160. End Try
    161. End Using
    162. Return ReturnString
    163. End Function
    165. Private Class StringValue
    166. Private m_Variable As String
    167. Private m_Value As String
    170. Public Property Variable As String
    171. Get
    172. Return m_Variable
    173. End Get
    174. Set(ByVal Value As String)
    175. m_Variable = Value
    176. End Set
    177. End Property
    179. Public Property Value As String
    180. Get
    181. Return m_Value
    182. End Get
    183. Set(ByVal Value As String)
    184. m_Value = Value
    185. End Set
    186. End Property
    188. End Class
    190. Private Class FileValue
    191. Private m_Variable As String
    192. Private m_FilePath As String
    194. Private m_FileData As Byte()
    195. Private m_FileName As String
    197. Private m_ContentType As String
    198. Public Property Variable As String
    199. Get
    200. Return m_Variable
    201. End Get
    202. Set(ByVal Value As String)
    203. m_Variable = Value
    204. End Set
    206. End Property
    208. Public Property FilePath As String
    210. Get
    211. Return m_FilePath
    212. End Get
    213. Set(ByVal Value As String)
    214. m_FilePath = Value
    215. If My.Computer.FileSystem.FileExists(m_FilePath) = True Then
    216. 'Load data of the file
    217. Using stream As FileStream = New FileStream(m_FilePath, FileMode.Open, FileAccess.Read)
    219. Dim array As Byte() = New Byte((CInt((stream.Length - 1)) + 1) - 1) {}
    221. stream.Read(array, 0, array.Length)
    223. m_FileData = array
    224. End Using
    226. 'Get Name of File with extension
    227. m_FileName =
    228. Split(m_FilePath, "\")(Split(m_FilePath, "\").Length - 1)
    230. 'Get Content Type
    231. m_ContentType = GetMIMEType(m_FilePath, False)
    232. End If
    234. End Set
    235. End Property
    236. Public ReadOnly Property FileData As Byte()
    237. Get
    238. Return m_FileData
    239. End Get
    240. End Property
    242. Public ReadOnly Property FileName As String
    243. Get
    245. Return m_FileName
    246. End Get
    247. End Property
    248. Public ReadOnly Property ContentType As String
    249. Get
    250. Return m_ContentType
    251. End Get
    252. End Property
    253. Private Shared Function GetMIMEType(ByVal szFileName As String, ByVal forceDatabase As Boolean) As String
    254. Dim str2 As String = Nothing
    255. Dim extension As String = Path.GetExtension(szFileName)
    256. Dim objectValue As Object = Nothing
    257. If Not forceDatabase Then
    258. Dim key As RegistryKey =
    259. Registry.ClassesRoot.OpenSubKey(extension)
    260. If (Not key Is Nothing) Then
    261. objectValue =
    262. RuntimeHelpers.GetObjectValue(key.GetValue("Content Type"))
    264. key.Close()
    265. End If
    266. End If
    268. If (forceDatabase AndAlso (objectValue Is Nothing)) Then
    269. Return objectValue.ToString
    270. End If
    272. Dim key2 As RegistryKey =
    273. Registry.ClassesRoot.OpenSubKey("MIME\Database\Content Type")
    274. Dim str4 As String
    275. For Each str4 In
    276. key2.GetSubKeyNames
    277. Dim key3 As RegistryKey =
    278. key2.OpenSubKey(str4)
    279. Dim obj3 As Object =
    280. RuntimeHelpers.GetObjectValue(key3.GetValue("Extension"))
    282. If ((Not obj3 Is Nothing) AndAlso (obj3.ToString = extension)) Then
    283. str2 = str4
    284. Exit For
    286. End If
    287. key3.Close()
    288. Next
    290. key2.Close()
    291. Return str2
    292. End Function
    293. End Class
    295. End Class

Facebook
Telefonspende