[VB2010] Submit form con web client

[Skyscraper84]

Ciao,
dovrei effettuare il submit di un form utilizzando un web client.
ho provato il seguente codice

Dim web As New System.Net.WebClient()
  
Public Sub Prova()
        Try
            web.Headers.Add("Content-Type", "application/x-www-form-urlencoded")
            Dim d As Byte() = System.Text.Encoding.ASCII.GetBytes("username=" & Utente & "&password=" & Password)
            Dim res As Byte() = web.UploadData(https://urlaction, "POST", d)
            Dim s As String
            s = System.Text.Encoding.ASCII.GetString(res)
            Console.WriteLine(s)
        Catch ex As Exception
            Debug.Print(ex.Message)
        End Try
       End Sub

oppure

Dim WebClient As New WebClient()
   
Public Sub Authenticate(username As String, password As String)
        Dim data As New NameValueCollection()
 
        data.Add("username", username)
        data.Add("password", password)
 
        Dim res As Byte() = WebClient.UploadValues(("https://urlaction"), data)
        Dim s As String
        s = System.Text.Encoding.ASCII.GetString(res)
        Console.WriteLine(s)
       End Sub

ma mi stampa sulla console il codice HTML della pagina come se facessi il submit senza indicare nessun valore.

Dove sbaglio?

[SirJo]

C'è un motivo particolare per il quale stai usando WebClient ??
Io questo problema lo vedrei meglio se tu usassi un WebBrowser

Sergio

[Skyscraper84]

Ciao!
Si purtroppo si tratta di un'applicazione console, non ho interfaccia grafica e quindi nada webbrowser

[SirJo]

Invece che usare WebClient potresti usare WebRequest perchè così riesci a controllare meglio quello che succede

Dim request As HttpWebRequest = DirectCast(WebRequest.Create("https://urlaction"), HttpWebRequest)

request.Method = "POST"

Dim postData As String = "username=pippo&password=pluto"
Dim byteArray As Byte() = ASCIIEncoding.ASCII.GetBytes(postData)

request.ContentType = "application/x-www-form-urlencoded"
request.ContentLength = byteArray.Length

Dim dataStream As Stream = request.GetRequestStream()
dataStream.Write(byteArray, 0, byteArray.Length)
dataStream.Close()

' Get the response.
Dim response As WebResponse = request.GetResponse()
dataStream = response.GetResponseStream()

Dim reader As New StreamReader(dataStream)
Dim responseFromServer As String = reader.ReadToEnd()
Console.WriteLine(responseFromServer)

reader.Close()
dataStream.Close()
response.Close()

Comunque secondo me non funziona perchè stai chiamando un https (invece che il classico http) e quindi dovresti dare un'occhiata su come abilitare il protocollo SSL

Sergio

[cassano]

Se non sbaglio puoi usare anche la nuova classe HttpClient.

[kenshiro81]

Vi chiedo se io volessi inviare un url con textbox come dovrei fare? ho provato con

Dim postData As String = "username=pippo&password=pluto" + textbox1.text

ma in questo caso poi non risulto loggato.

[oregon]

Vi chiedo se io volessi inviare un url con textbox come dovrei fare? ho provato con

Dim postData As String = "username=pippo&password=pluto" + textbox1.text

ma in questo caso poi non risulto loggato.

La spedizione in chiaro di utenza e password non mi pare molto consigliabile ...

A meno che non sia un keylogger fatto in casa ...

[kenshiro81]

La spedizione in chiaro di utenza e password non mi pare molto consigliabile ...

A meno che non sia un keylogger fatto in casa ...

Non è un keylogger ma devo semplice loggarmi in automatico,ed avere una risposta dopo aver inviato un url dalla textbox

[cassano]

Devi usare un cookiecontainer per memorizzare il cookie di autenticazione.

[kenshiro81]

Devi usare un cookiecontainer per memorizzare il cookie di autenticazione.

Dove inserisco il cookie?

Dim tempCookies As New CookieContainer