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"
 
		    ' 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"
 
		    ' Set the content length of the string being posted.
		    myHttpWebRequest.ContentLength = postData.Length
 
			Dim sr As New StreamReader(myHttpWebRequest.GetRequestStream(), _
  System.Text.Encoding.Default)
			sData =  sr.ReadToEnd()
			sr.Close()
 
		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.