Ich finde, du solltest beim
byteArr() statt UTF-8 lieber iso-8859-1 oder Default als Encoding nutzen.
Und bei der ersten GetResponse Funktion beim StreamReader auch nochmal die Encoding dazuschalten, da du sonst keine Sonderzeichen über ASCII darstellen kannst.
PHP Code:
Public Function GetResponse(ByVal url As String) As String
request = CType(HttpWebRequest.Create(url), HttpWebRequest)
request.CookieContainer = cookieCon
response = CType(request.GetResponse(), HttpWebResponse)
Dim reader As StreamReader = New StreamReader(response.GetResponseStream(), Encoding.GetEncoding("iso-8859-1"))
Return reader.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:13.0) Gecko/20100101 Firefox/13.0.1"
request.ContentType = "application/x-www-form-urlencoded;charset=iso-8859-1"
Dim byteArr() As Byte = Encoding.GetEncoding("iso-8859-1").GetBytes(post)
request.ContentLength = byteArr.Length
Dim dataStream As Stream = request.GetRequestStream()
dataStream.Write(byteArr, 0, byteArr.Length)
response = CType(request.GetResponse(), HttpWebResponse)
Dim reader As StreamReader = New StreamReader(response.GetResponseStream(), Encoding.GetEncoding("iso-8859-1"))
Return reader.ReadToEnd
End Function