Guest User

Untitled

a guest
Jun 5th, 2018
126
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.12 KB | None | 0 0
  1. Dim mFileStream As New FileStream("/Image Location/", FileMode.Open)
  2. Dim mRequest As WebRequest = WebRequest.Create("/URL/")
  3. mRequest.Headers.Set("filename", "new name")
  4. mRequest.Proxy = New WebProxy("/URL/", True)
  5. mRequest.Method = "POST"
  6. mRequest.ContentLength = mFileStream.Length
  7. Dim mCredentials As New NetworkCredential
  8. mCredentials.Password = "/pass/"
  9. mCredentials.UserName = "/Login Name/"
  10. mRequest.Credentials = mCredentials
  11. Dim mData(mFileStream.Length - 1) As Byte
  12. mFileStream.Read(mData, 0, mFileStream.Length)
  13. mFileStream.Close()
  14. Using dataStream As Stream = mRequest.GetRequestStream()
  15. dataStream.Write(mData, 0, mData.Length)
  16. dataStream.Close()
  17. End Using
  18.  
  19. Dim mResponse As HttpWebResponse = CType(mRequest.GetResponse(), HttpWebResponse)
  20. mResponse.Close()
Add Comment
Please, Sign In to add comment