[VB.NET] Aprire una pagina web senza webbrowser

[Marcoluca56]

Salve ragazzi,
volevo sapere come posso aprire una pagina senza il webbrowser. Mi spiego meglio.
A me non interessa visualizzare la pagina, ma devo solo inviare la richiesta di invio e vorrei farlo senza usare webbrowser e quindi senza intasare il mio programmino con cookie e cache.
Inoltre vorrei che questo comando si ripetesse ogni tot minuti.

Spero in una vostra risposta.

[oregon]

Usa queste classi

http://msdn.microsoft.com/it-it/libr...httpwebrequest(v=vs.100).aspx

http://msdn.microsoft.com/it-it/libr...ttpwebresponse(v=vs.100).aspx

[Marcoluca56]

Ti ringrazio per la risposta.

Avevo pensato di dare questo comando, ma non so se sbaglio....

Dim wCli As System.Net.WebClient = New System.Net.WebClient()
Dim codice As String = wCli.DownloadString("http://miosito.it")

questo per non farlo aprire al webbrowser ed inviare solo la richiesta di navigare al sito "mio sito". E' sbagliato?

[Marcoluca56]

In attesa di una tua/vostra risposta al quesito precedente vi posto l'intero codice fin qui scritto

Imports System.Net

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("Creato da Marcoluca56")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim HttpWReq As HttpWebRequest = _
   CType(WebRequest.Create(New Uri("http://www.tuttopertuttigusti.blogspot.it")), HttpWebRequest)
        HttpWReq.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.4) Gecko/20060508 Firefox/1.5.0.4"
        HttpWReq.UserAgent = "Opera/9.80 (Windows NT 5.1; U; it) Presto/2.7.62 Version/11.00"
        Dim HttpWResp As HttpWebResponse = _
           CType(HttpWReq.GetResponse(), HttpWebResponse)
        HttpWResp.Close()
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
        Dim myReq As HttpWebRequest = _
     WebRequest.Create("http://MIOSITO.IT")
    End Sub

è corretto fin qui? La richiesta viene inviata/ricevuta?
Posso inserire i 2 useragent? O sbaglio?

Grazie in anticipo

[MItaly]

Originariamente inviato da Marcoluca56
Posso inserire i 2 useragent?

Lo user agent è uno solo, così stai solo sovrascrivendo la stessa property (che assumerà solo l'ultimo valore che le assegni).

Tra parentesi, il linguaggio di riferimento va indicato nel titolo, qui ho corretto io.

[Marcoluca56]

Mi scuso per non aver inserito il titolo nel post.

Ragazzi potreste darmi una mano? Grazie

[Marcoluca56]

Ragazzi ho cercato di andare avanti, ma nada.

A me non interessa visualizzare la pagina, ma devo solo inviare la richiesta di invio e vorrei farlo senza usare webbrowser e quindi senza intasare il mio programmino con cookie e cache.
Quindi ho pensato ad una webrequest di tipo GET visto che non mi occorre scrivere nessun username o quant'altro.

Allora ho pensato di dare queste righe di codice:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim req As System.Net.HttpWebRequest = CType(System.Net.HttpWebRequest.Create("http://tuttopertuttigusti.blogspot.com/"), System.Net.HttpWebRequest)
        req.Method = "GET"
        Using res As System.Net.HttpWebResponse = CType(req.GetResponse(), System.Net.HttpWebResponse)
            Dim statusCode As String = res.StatusCode
            Dim description As String = res.StatusDescription
            Dim str As System.IO.StreamReader = New System.IO.StreamReader(res.GetResponseStream())
            Dim response As String = str.ReadToEnd()
            str.Close()
        End Using
        MsgBox("Ho finito!")
    End Sub

Però ho notato che nonostante in fase di debug non mi da errori, la richiesta non viene eseguita. Infatti, ho testato tramite un sito web se venisse effettivamente caricata la richiesta, tramite l'incremento di un visitatore (ho utilizzato un casuale forum di forumfree per testarlo) ma nada

Dove sbaglio??

Vi ringrazio anticipatamente

[oregon]

Semplicemente, usando un RichTextBox

        Dim WebReq As HttpWebRequest = HttpWebRequest.Create("http://tuttopertuttigusti.blogspot.com")
        WebReq.Method = "GET"
        Dim WebResp As HttpWebResponse = CType(WebReq.GetResponse(), HttpWebResponse)
        Dim dataStream As Stream = WebResp.GetResponseStream()
        Dim reader As New StreamReader(dataStream)
        Dim responseFromServer As String = reader.ReadToEnd()
        RichTextBox1.Text = responseFromServer
        reader.Close()
        dataStream.Close()
        WebResp.Close()

[Marcoluca56]

scusa oregon, non ho capito

[oregon]

Cosa non hai capito?