Salve, io ho questo problema: devo eseguire il post login sul sito del gestore telefonico 3, dopodichè devo scaricare la pagina info costi ed elaborere tutti i dati. Ho provato in diversi modo, classi, ma niente non riesco assolutamente a fare questi due post "collegati". Sul sito della 3 il login è un modulo chiamato "formdati" ed è forse questa la variabile che mi frega perchè io faccio il post alla pagina e non al modulo, però, non capisco come fare... in allegato posto un po' di scritto da osservare (è un po' un miscuglio di prove che purtroppo nn hanno portato ad alcun risultato... Spero che mi aiuterete.... thanks
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'Dim post As New HttpPost()
'post.Url = "http://www.tre.it:80/selfcare/areaclienti133/4552_infoCosti_ITA_LOGGED.xsl"
'post.Encoding = Encoding.UTF8
'post.Type = HttpPost.PostTypes.POST
'post.Values.Add("proposition", "consumer")
'post.Values.Add("username", user)
'post.Values.Add("password", pass)
'post.Post()
'dim buffer As String = String.Empty
'buffer = post.Post()
'
'' Address of URL
'Dim URL As String = "http://www.tre.it/selfcare/login"
'Dim richiesta As HttpWebRequest = WebRequest.Create(URL)
'richiesta.Method = "POST"
'richiesta.Accept = "text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5"
'richiesta.ContentType = "application/x-www-form-urlencoded"
'richiesta.Referer = "http://www.tre.it/selfcare/areaclienti133/4552_infoCosti_ITA_HTML.xsl"
Dim request As WebRequest = WebRequest.Create("http://www.tre.it/selfcare/login")
request.Method = "POST"
Dim postdata As String = "proposition=consumer&username=user&password=p ass"
Dim bytearray As Byte() = Encoding.UTF8.GetBytes(postdata)
request.ContentType = "application/x-www-form-urlencoded"
request.ContentLength = bytearray.Length
Dim newStream As Stream = request.GetRequestStream()
newStream.Write(bytearray, 0, bytearray.Length)
newStream.Close()
Dim risposta As WebResponse = request.GetResponse()
newStream = risposta.GetResponseStream
Dim leggi As New StreamReader(newStream)
Dim leggidalserver As String = leggi.ReadToEnd()
leggi.Close()
newStream.Close()
risposta.Close()
'Dim request2 As WebRequest = WebRequest.Create("http://www.tre.it/selfcare/areaclienti133/4552_infoCosti_ITA_LOGGED.xsl")
'request2.Method = "GET"
'Dim risposta2 As WebResponse = request2.GetResponse()
'newStream2 = risposta2.GetResponseStream
'Dim leggi2 As New StreamReader(newStream2)
'Dim leggidalserver2 As String = leggi2.ReadToEnd()
'leggi2.Close()
'newStream2.Close()
'risposta2.Close()
My.Computer.FileSystem.WriteAllText(Application.St artupPath + "\Test.html", leggidalserver, True)
MsgBox("ok")
'Dim response As HttpWebResponse = request.GetResponse()
'Dim reader As StreamReader = New StreamReader(response.GetResponseStream())
'Dim str As String = reader.ReadToEnd()
End Sub