Alles geklääääärt;) danke!
//Login
With New Http
Dim sb As New StringBuilder
sb.Append("siteFrom=0")
sb.Append("&strLoginAlias=test123")
sb.Append("&intLoginDomainId=1")
sb.Append("&strLoginPassword=")
sb.Append("&btnLogin=Postfach+abrufen")
sb.Append("&strGeneratedAddress=test123%40spambog.com")
Dim html As String = .GetResponse("http://www.spambog.com/inbox.htm", sb.ToString)
End With
//Http Klasse
Public Class Http
Dim cookieCon As New CookieContainer
Dim request As HttpWebRequest
Dim response As HttpWebResponse
Public Function GetResponse(ByVal url As String) As String
request = CType(HttpWebRequest.Create(url), HttpWebRequest)
request.CookieContainer = cookieCon
response = CType(request.GetResponse(), HttpWebResponse)
Return New StreamReader(response.GetResponseStream()).ReadToEnd()
End Function
Public Function GetResponse(ByVal url As String, ByVal post As String) As String
request = CType(HttpWebRequest.Create(url), HttpWebRequest)
request.Method = "POST"
request.CookieContainer = cookieCon
request.UserAgent = "Mozilla/5.0 (Windows NT 6.1; rv:8.0) Gecko/20100101 Firefox/8.0"
request.ContentType = "application/x-www-form-urlencoded"
Dim byteArr() As Byte = Encoding.UTF8.GetBytes(post)
request.ContentLength = byteArr.Length
Dim dataStream As Stream = request.GetRequestStream()
dataStream.Write(byteArr, 0, byteArr.Length)
response = CType(request.GetResponse(), HttpWebResponse)
Return New StreamReader(response.GetResponseStream()).ReadToEnd()
End Function
End Class
//http://www.elitepvpers.com/forum/coding-tutorials/1575469-vb-net-httpwebrequest-tutorial.html