samwarez
Registered Member
- Sep 17, 2015
- 88
- 32
Please Help Me (convert VB.net code to VB6)
this code
-------------------------------------------------------------------
Imports System.IO
Imports System.Text
Imports System.Net
Public Sub Upload()
Dim imageData() As Byte
Dim fileStream As FileStream = File.OpenRead(Application.StartupPath & "\1.png")
imageData = New Byte((fileStream.Length) - 1) {}
fileStream.Read(imageData, 0, imageData.Length)
fileStream.Close()
Dim uploadRequestString As String = HttpUtility.UrlEncode("image", Encoding.UTF8) + "=" + HttpUtility.UrlEncode(System.Convert.ToBase64String(imageData))
Dim webRequest As HttpWebRequest = CType(Net.WebRequest.Create("http://api.imgur.com/3/upload"), HttpWebRequest)
webRequest.Method = "POST"
webRequest.ContentType = "application/x-www-form-urlencoded"
webRequest.Headers.Add("Authorization: Client-ID XXX")
webRequest.ServicePoint.Expect100Continue = False
Dim streamWriter As IO.StreamWriter = New IO.StreamWriter(webRequest.GetRequestStream)
streamWriter.Write(uploadRequestString)
streamWriter.Close()
Dim response As WebResponse = webRequest.GetResponse
Dim responseStream As Stream = response.GetResponseStream
Dim responseReader As StreamReader = New StreamReader(responseStream)
Dim responseString As String = responseReader.ReadToEnd
Dim ImageURL As String = Split(responseString, "<original>")(1).Split("<")(0)
Dim X As String
X = ImageURL
Clipboard.SetText(X)
System.Diagnostics.Process.Start(X)
End Sub
---
thanks in advance
this code
-------------------------------------------------------------------
Imports System.IO
Imports System.Text
Imports System.Net
Public Sub Upload()
Dim imageData() As Byte
Dim fileStream As FileStream = File.OpenRead(Application.StartupPath & "\1.png")
imageData = New Byte((fileStream.Length) - 1) {}
fileStream.Read(imageData, 0, imageData.Length)
fileStream.Close()
Dim uploadRequestString As String = HttpUtility.UrlEncode("image", Encoding.UTF8) + "=" + HttpUtility.UrlEncode(System.Convert.ToBase64String(imageData))
Dim webRequest As HttpWebRequest = CType(Net.WebRequest.Create("http://api.imgur.com/3/upload"), HttpWebRequest)
webRequest.Method = "POST"
webRequest.ContentType = "application/x-www-form-urlencoded"
webRequest.Headers.Add("Authorization: Client-ID XXX")
webRequest.ServicePoint.Expect100Continue = False
Dim streamWriter As IO.StreamWriter = New IO.StreamWriter(webRequest.GetRequestStream)
streamWriter.Write(uploadRequestString)
streamWriter.Close()
Dim response As WebResponse = webRequest.GetResponse
Dim responseStream As Stream = response.GetResponseStream
Dim responseReader As StreamReader = New StreamReader(responseStream)
Dim responseString As String = responseReader.ReadToEnd
Dim ImageURL As String = Split(responseString, "<original>")(1).Split("<")(0)
Dim X As String
X = ImageURL
Clipboard.SetText(X)
System.Diagnostics.Process.Start(X)
End Sub
---
thanks in advance