Ciao a tutti ho la necessita di effettuare un login a delle pagine web via codice ma non ci riesco ecco il codice, praticamente mi si preesenta sempre la pagina di login.
codice:Dim WEBrequest As HttpWebRequest = CType(HttpWebRequest.Create("http://www.XXXXX.XX/shop/show/brand/20"), HttpWebRequest) WEBrequest.AllowAutoRedirect = True WEBrequest.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 6.1; it; rv:1.9.2.16) Gecko/20110319 Firefox/3.6.16" WEBrequest.Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" WEBrequest.Method = "POST" WEBrequest.CookieContainer = New CookieContainer Dim POSTdata As String = "email=XXXXXX@gmail.com&password=XXXX" Dim byteArray As Byte() = encoding.UTF8.GetBytes(POSTdata) WEBrequest.ContentType = "application/x-www-form-urlencoded" Dim dataSTREAM As Stream = WEBrequest.GetRequestStream() dataSTREAM.Write(byteArray, 0, byteArray.Length) dataSTREAM.Close() Dim WEBresponse As HttpWebResponse = CType(WEBrequest.GetResponse, HttpWebResponse) dataSTREAM = WEBresponse.GetResponseStream() Dim reader As New StreamReader(dataSTREAM) Dim responseFromServer As String = reader.ReadToEnd() reader.Close() dataSTREAM.Close() WEBresponse.Close()

Rispondi quotando