Как я могу использовать эту функцию для редактирования вставки в a VB.NET консоль ?
я хочу отредактировать указанную вставку из консоли
у меня есть api сайта pastebin, но я не знаю, как его использовать
Что я уже пробовал:
Public Class Pastebin Public Function NewPaste(ByVal Content As String) Dim api_dev_key As String = "" '<-- Your API key here Dim api_paste_code As String = URLEncode(Content) Dim api_paste_private As String = "2" 'Dim api_paste_name As String = URLEncode(Name) Dim api_paste_expire_date As String = "10M" Dim api_paste_format As String = "php" Dim api_user_key As String = "" Dim Response As String = HttpPost("http://pastebin.com/api/api_post.php", "api_option=paste&api_dev_key=" & api_dev_key & "&api_paste_code=" & api_paste_code) If Response.Contains("Bad API request") = False Then Return Raw(Response) Else Return "Error" End If End Function Private Function URLEncode(ByVal EncodeStr As String) As String Dim i As Integer Dim erg As String erg = EncodeStr erg = Replace(erg, "%", Chr(1)) erg = Replace(erg, "+", Chr(2)) For i = 0 To 255 Select Case i Case 37, 43, 48 To 57, 65 To 90, 97 To 122 Case 1 erg = Replace(erg, Chr(i), "%25") Case 2 erg = Replace(erg, Chr(i), "%2B") Case 32 erg = Replace(erg, Chr(i), "+") Case 3 To 15 erg = Replace(erg, Chr(i), "%0" & Hex(i)) Case Else erg = Replace(erg, Chr(i), "%" & Hex(i)) End Select Next Return erg End Function Public Function Raw(ByVal URL As String) Dim ID As String = URL.Substring(URL.LastIndexOf("/") + 1) ID = "http://pastebin.com/raw.php?i=" & ID Return ID End Function Private Function HttpPost(ByVal URL As String, ByVal Data As String) Dim request As WebRequest = WebRequest.Create(URL) request.Method = "POST" Dim byteArray As Byte() = Encoding.UTF8.GetBytes(Data) request.ContentType = "application/x-www-form-urlencoded" request.ContentLength = byteArray.Length Dim dataStream As Stream = request.GetRequestStream() dataStream.Write(byteArray, 0, byteArray.Length) dataStream.Close() Dim response As WebResponse = request.GetResponse() 'Console.WriteLine(CType(response, HttpWebResponse).StatusDescription) dataStream = response.GetResponseStream() Dim reader As New StreamReader(dataStream) Dim responseFromServer As String = reader.ReadToEnd() reader.Close() dataStream.Close() response.Close() Return responseFromServer End Function End Class
[no name]
Итак, вы хотите использовать API Pastebin из a VB.NET консольное приложение. Пожалуйста, будьте более конкретны, большинство людей не смогут сделать такой вывод.
Если Пастебин предоставил VB.NET например, они будут иметь документацию с ним, чтобы сказать вам, какие методы вызывать, и как, чтобы достичь различных вещей.