Ciao tutti, spero possiate aiutarmi... Uso vb.net 2008 express.
Io devo fare un programma che si collega a google e scrivendo magari su una textbox la chiave di ricerca, schiaccio il bottone e devo salvare tutti i link che google restituisce con la ricerca..

vi riassumo il problema: il programma deve collegarsi a google fare la ricerca con la parola che prende in input il programma e salvare in un file di testo tutti i link che google restituisce dalla ricerca. Avevo intenzione di usare le APi di google xk non ho trovato altre soluzioni..
vi posto il codice che ho scritto, che funziona, ma mi restituisce una decina di risultati così...

codice:
Imports Google.API.GoogleClient
Imports Google.API.Search
Imports System.IO.StreamReader
Imports System.IO.StreamWriter
Public Class Form1
    Dim ricerca As String
    Const qualsiasidata As String = "&aq=f&aqi=g10&aql=&oq="
    Const mese As String = "&hl=it&tbo=1&prmd=ivns&source=lnt&tbs=qdr:m&sa=X&ei=M6pVTcO7EsSj8QOf85zmDA&ved=0CBAQpwUoBQ"
    Const ventiquattroore As String = "&hl=it&tbo=1&prmd=ivns&source=lnt&tbs=qdr:d&sa=X&ei=W6pVTaetFsWs8gPCi9H7DA&ved=0CA0QpwUoAg"
    Const settimana As String = "&hl=it&tbo=1&prmd=ivns&source=lnt&tbs=qdr:w&sa=X&ei=GKtVTa3xGo6q8QOV7tnoDA&ved=0CA4QpwUoAw"
    Const anno As String = "&hl=it&tbo=1&prmd=ivns&source=lnt&tbs=qdr:y&sa=X&ei=GKtVTa3xGo6q8QOV7tnoDA&ved=0CBAQpwUoBQ"
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Esci.Click
        End
    End Sub

    Private Sub Indietro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Indietro.Click
        WebBrowser1.GoBack()
    End Sub

    Private Sub Home_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Home.Click
        WebBrowser1.GoHome()
    End Sub

    Private Sub Avanti_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Avanti.Click
        WebBrowser1.GoForward()
    End Sub
    Private Sub Cerca_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cerca.Click
        ricerca = TextBox1.Text
        ricerca = ricerca.Replace(" ", "+")
        If ComboBox1.Text = "ultimo mese" Then
            WebBrowser1.Navigate("http://www.google.it/search?q=" & ricerca & mese)
        ElseIf ComboBox1.Text = "ultime 24 ore" Then
            WebBrowser1.Navigate("http://www.google.it/search?q=" & ricerca & ventiquattroore)
        ElseIf ComboBox1.Text = "ultimo anno" Then
            WebBrowser1.Navigate("http://www.google.it/search?q=" & ricerca & anno)
        ElseIf ComboBox1.Text = "ultima settimana" Then
            WebBrowser1.Navigate("http://www.google.it/search?q=" & ricerca & settimana)
        ElseIf ComboBox1.Text = "Qualsiasi data" Then
            WebBrowser1.Navigate("http://www.google.it/search?q=" & ricerca & qualsiasidata)
        End If

    End Sub
 ' I MIEI PROBLEMI COMINCIANO QUI.. LA PARTE PRIMA LASCIATELA PERDERE.. IL PROBLEMA è IN SALVALINKGOOGLE QUI SOTTO
    Private Sub salvalinkgoogle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Leech.Click
        ricerca = TextBox1.Text
        Dim savefile As New SaveFileDialog
        savefile.FileName = "leech"
        savefile.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*)"
        savefile.Title = "Save"
        savefile.ShowDialog()
        Dim file As New System.IO.StreamWriter(savefile.FileName)
        Dim client As New GwebSearchClient("www.google.it")
        Dim results As IList = client.Search(ricerca, 32)
        For Each result As IWebResult In results
            ListBox1.Items.Add(result.Url)
            file.WriteLine(result.Url)
        Next
        file.Close()
        MsgBox("File salvato!")
    End Sub

    Private Sub NavigaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NavigaToolStripMenuItem.Click
        Indietro.Visible = True
        Avanti.Visible = True
        Home.Visible = True
        Esci.Visible = True
        WebBrowser1.Visible = True
        Leech.Visible = False
        Cerca.Visible = True
        TextBox1.Visible = True
        ComboBox1.Visible = True
        Label1.Visible = True
        ListBox1.Visible = False
        PictureBox1.Visible = True
        Button1.Visible = False
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Indietro.Visible = False
        Avanti.Visible = False
        Home.Visible = False
        Esci.Visible = False
        WebBrowser1.Visible = False
        Leech.Visible = False
        Cerca.Visible = False
        TextBox1.Visible = False
        ComboBox1.Visible = False
        Label1.Visible = False
        PictureBox1.Visible = False
        ComboBox1.Items.Add("ultime 24 ore")
        ComboBox1.Items.Add("ultimo mese")
        ComboBox1.Items.Add("ultimo anno")
        ComboBox1.Items.Add("ultima settimana")
        ComboBox1.Items.Add("Qualsiasi data")
        TextBox1.Focus()
        ComboBox1.Text = "Qualsiasi data"

    End Sub

    Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
        End
    End Sub

    Private Sub LeechaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LeechaToolStripMenuItem.Click
        Indietro.Visible = False
        Avanti.Visible = False
        Home.Visible = False
        Esci.Visible = True
        WebBrowser1.Visible = False
        Leech.Visible = True
        Cerca.Visible = False
        TextBox1.Visible = True
        ComboBox1.Visible = False
        Label1.Visible = False
        ListBox1.Visible = True
        PictureBox1.Visible = True
        Button1.Visible = True
    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListBox1.Items.Clear()
    End Sub
End Class