Использование API pastebin в VB .Net

У меня небольшая проблема, я только что перешел с общедоступного API Pastebin на новый API. Я получаю неверную ошибку API: неверный запрос API, недопустимая опция api.

Вот мой код:

Dim Exposure As Integer = 0
        System.Net.ServicePointManager.Expect100Continue = False
        If ComboBox1.Text = "Public" Then
            Exposure = 0
        Else
            Exposure = 1
        End If
        Dim fi As String = "?api_paste_private=" & Exposure & "&api_paste_format=" & ComboBox2.Text & "&api_paste_expire_date=" & ComboBox3.Text & "&api_dev_key=CENSORED" & "&api_paste_code=" & code
        Dim w As New System.Net.WebClient()
        w.Headers.Add("Content-Type", "application/x-www-form-urlencoded")
        Dim pd As Byte() = System.Text.Encoding.ASCII.GetBytes(fi)
        Dim rd As Byte() = w.UploadData("http://pastebin.com/api/api_post.php", "POST", pd)
        Dim r As String = System.Text.Encoding.ASCII.GetString(rd)
        TextBox6.Text = r
        Return r

Кто-нибудь может мне помочь, пожалуйста!


api vb.net pastebin
person user967587    schedule 27.09.2011    source источник
comment
На странице API написано использовать кодировку UTF-8, поэтому я попытался, и она все еще не работает. Старый код: System.Text.Encoding.ASCII.GetBytes Новый код: System.Text.Encoding.UTF8.GetBytes   -  person user967587    schedule 27.09.2011

Ответы (1)


arrow_upward
2
arrow_downward

Вы должны добавить api_option=paste к своему запросу, как показано здесь: http://pastebin.com/api#2.

person svbnet    schedule 02.10.2011