vb.net - 匿名文件 api？网络请求

Question

https://anonfiles.com/api/help

我想在那里使用 api，但我不知道 webrequests 是如何工作的。：S 在我尝试过这个之前我从来没有做过 webreq，还有很多其他的东西我可以在这里得到一些帮助吗？

  ' Create a request using a URL that can receive a post. 
    Dim request As WebRequest = WebRequest.Create("https://anonfiles.com/api/")
    ' Set the Method property of the request to POST.
    request.Method = "POST"
    ' Create POST data and convert it to a byte array.
    Dim postData As String = "file=C:\Users\blaa\Documents\eng.txt"
    Dim byteArray As Byte() = Encoding.UTF8.GetBytes(postData)
    ' Set the ContentType property of the WebRequest.
    request.ContentType = "application/x-www-form-urlencoded"
    ' Set the ContentLength property of the WebRequest.
    request.ContentLength = byteArray.Length
    ' Get the request stream.
    Dim dataStream As Stream = request.GetRequestStream()
    ' Write the data to the request stream.
    dataStream.Write(byteArray, 0, byteArray.Length)
    ' Close the Stream object.
    dataStream.Close()
    ' Get the response.
    Dim response As WebResponse = request.GetResponse()
    ' Display the status.
    Console.WriteLine(CType(response, HttpWebResponse).StatusDescription)
    ' Get the stream containing content returned by the server.
    dataStream = response.GetResponseStream()
    ' Open the stream using a StreamReader for easy access.
    Dim reader As New StreamReader(dataStream)
    ' Read the content.
    Dim responseFromServer As String = reader.ReadToEnd()
    ' Display the content.
    MsgBox(responseFromServer)

    ' Clean up the streams.
    reader.Close()
    dataStream.Close()
    response.Close()

Answer 1

你可以试试这个，它更容易一点：

    Dim WithEvents client As New System.Net.WebClient()

    Public Sub StartUpload(ByVal targetUrl As String, ByVal filename As String)

        Dim uriString As New System.Uri(targetUrl)
        client.UploadFileAsync(uriString, filename)

    End Sub

    Sub FileUploadCompleted(ByVal sender As Object, ByVal e As System.Net.UploadFileCompletedEventArgs) Handles client.UploadFileCompleted
        Dim response As String = System.Text.Encoding.ASCII.GetString(e.Result)

        ' further process your response string
    End Sub

    Sub Main()

        Try
            StartUpload("https://anonfiles.com/api", "D:\index.html")

            Console.ReadKey()


        Catch ex As Exception
            Console.WriteLine(ex.Message)
            Console.ReadKey()

        End Try

    End Sub