Public Function DownloadFile(ByVal sUrl As String, ByRef sData As String) As _
  Boolean
		    Dim myHttpWebRequest As HttpWebRequest = DirectCast(WebRequest.Create( _
sUrl), HttpWebRequest)
		    myHttpWebRequest.Method = "POST"
'		    myhttpwebrequest.Proxy.Credentials 
 
		    ' Create a new string object to POST data to the Url.
		    Dim inputData As String = "cmd=" & HttpUtility.UrlEncode("login")
 
		    Dim postData As String = inputData
		    Dim encoding As New ASCIIEncoding
		    Dim byte1 As Byte() = encoding.GetBytes(postData)
 
		    ' Set the content type of the data being posted.
		    myHttpWebRequest.ContentType = "application/x-www-form-urlencoded"
 
		    'Do I need to set cotnet type as below if transfer data file?
		    myHttpWebRequest.ContentType = "multipart/form-data encode"
 
 
		    ' Set the content length of the string being posted.
		    myHttpWebRequest.ContentLength = postData.Length
 
		    Dim newStream As Stream = myHttpWebRequest.GetRequestStream()
		    newStream.Write(byte1, 0, byte1.Length)
		    newStream.Close()
		    ' sData = newStream.ToString
 
		End Function

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.