Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim mFileStream As New FileStream("/Image Location/", FileMode.Open)
- Dim mRequest As WebRequest = WebRequest.Create("/URL/")
- mRequest.Headers.Set("filename", "new name")
- mRequest.Proxy = New WebProxy("/URL/", True)
- mRequest.Method = "POST"
- mRequest.ContentLength = mFileStream.Length
- Dim mCredentials As New NetworkCredential
- mCredentials.Password = "/pass/"
- mCredentials.UserName = "/Login Name/"
- mRequest.Credentials = mCredentials
- Dim mData(mFileStream.Length - 1) As Byte
- mFileStream.Read(mData, 0, mFileStream.Length)
- mFileStream.Close()
- Using dataStream As Stream = mRequest.GetRequestStream()
- dataStream.Write(mData, 0, mData.Length)
- dataStream.Close()
- End Using
- Dim mResponse As HttpWebResponse = CType(mRequest.GetResponse(), HttpWebResponse)
- mResponse.Close()
Add Comment
Please, Sign In to add comment