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