UpTheFile-API mit der HttpPostRequestLib

    • VB.NET

      UpTheFile-API mit der HttpPostRequestLib

      VB.NET-Quellcode

      1. Imports HttpPostRequestLib.Net
      2. Imports System.Security.Cryptography
      3. Imports System.Text
      5. Public Class Form1
      6. Private reg As HTTPPostRequest
      7. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      8. OpenFileDialog1.Multiselect = True
      9. If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
      10. reg = New HTTPPostRequest("http://up-the-file.de/api/upload.php")
      11. reg.Encoding = System.Text.Encoding.UTF8
      12. reg.AddVar("user_name", TextBox1.Text)
      13. reg.AddVar("user_pw", MD5StringHash(TextBox2.Text))
      14. Dim file_count As Integer
      15. file_count = 0
      16. For Each file As String In OpenFileDialog1.FileNames
      17. reg.AddFile(file_count, file.ToString)
      18. file_count += 1
      19. Next
      20. Dim result As String = reg.Submit
      21. End If
      22. End Sub
      23. Public Function MD5StringHash(ByVal strString As String) As String
      24. Dim MD5 As New MD5CryptoServiceProvider
      25. Dim Data As Byte()
      26. Dim Result As Byte()
      27. Dim Res As String = ""
      28. Dim Tmp As String = ""
      30. Data = Encoding.ASCII.GetBytes(strString)
      31. Result = MD5.ComputeHash(Data)
      32. For i As Integer = 0 To Result.Length - 1
      33. Tmp = Hex(Result(i))
      34. If Len(Tmp) = 1 Then Tmp = "0" & Tmp
      35. Res += Tmp
      36. Next
      37. Return Res.ToLower
      38. End Function
      39. End Class


      Hier findet ihr einen kleinen Beispielaufbau wie man die UpTheFile-Api nutzen könnte um Dateien hochzuladen.

      Mehr Infos zu der HttpPostReqestLib findet ihr unter: [Release] [Version 3.1] HttpPostRequestLib

      MFG

    Facebook
    Telefonspende