Salve a tutti, qualcuno mi saprebbe dire perche questo codice mi restituisce valori sbagliati?
Per valori sbagliati, intendo che mi da o sempre succesful o sempre failed :ccodice:Dim PostData As String = "username=" & TextBoxX1.Text & "&password=" & TextBoxX2.Text & "&return=aW5kZXgucGhwP29wdGlvbj1jb21fdXNlcnMmdmlldz1wcm9maWxl&eaf3f5cf5a5d7fec88d3c00e013b3a3e=1" Dim TempCookies As New CookieContainer Dim Encoding As New UTF8Encoding Dim ByData As Byte() = Encoding.GetBytes(PostData) Dim PostReq As HttpWebRequest = DirectCast(WebRequest.Create("http://www.ironnetwork.altervista.org/index.php?option=com_users&view=login"), HttpWebRequest) PostReq.Method = "POST" PostReq.KeepAlive = True PostReq.CookieContainer = TempCookies PostReq.ContentType = "application/x-www-form-urlencoded" PostReq.Referer = "http://www.ironnetwork.altervista.org/" PostReq.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:23.0) Gecko/20100101 Firefox/23.0" PostReq.ContentLength = ByData.Length Dim postreqstream As Stream = PostReq.GetRequestStream postreqstream.Write(ByData, 0, ByData.Length) postreqstream.Close() Dim postresponse As HttpWebResponse postresponse = DirectCast(PostReq.GetResponse(), HttpWebResponse) TempCookies.Add(postresponse.Cookies) Dim postreqreader As New StreamReader(postresponse.GetResponseStream()) Dim Page As String = postreqreader.ReadToEnd If Page.Contains("coincidono") Then MsgBox("Login Failed") Else MsgBox("Login succesfull") End If

Rispondi quotando