Imports ProductNamespace ''Imports must at top of class declaration or Dim myObject As ProductNamespace.SeeIntellisense
Dim postReq As HttpWebRequest = DirectCast(WebRequest.Create(URL), HttpWebRequest) postReq.Method = "POST"
Dim postreqstream As Stream = postReq.GetRequestStream() postreqstream.Write(byteData, 0, byteData.Length) postreqstream.Close() Dim postresponse As HttpWebResponse postresponse = DirectCast(postReq.GetResponse(), HttpWebResponse) Dim postreqreader As New StreamReader(postresponse.GetResponseStream()) Dim thepage As String = postreqreader.ReadToEnd
Dim Post = "api_option=paste&api_dev_key=" & DevKey & _
"&api_paste_code=" & PasteData & _
"&api_paste_private=" & Exposure & _
"&api_paste_name=" & Title & _
"&api_paste_expire_date=" & Expire & _
"&api_paste_format=" & Syntax & _
"&api_user_key=" & UserKey & _
"&api_paste_name=" & Title
![=]](/forum/images/emotions/=].gif)