io?!? (Normal User)
Newbie
Messaggi: 7
Iscritto: 07/10/2010
|
ciao a tutti! volevo sapere se era possibile cercare parole nelle pagine web!
mi spiego meglio... in un qualsiasi browsers che si rispetti premendo F3 e digitando una parola il bowser vi farà vedere dove è scritta la parola... io sto realizando un browser con vb6 e mi piacerebbe scrivere in una text una parola e premendo un pulsante mi esca un un msgbox con sritto "la parola ... esiate" o "la parola ... non esiste"... è possibile realizzare un qualcosa del genere? se si come si fa?
Grazie mille!!!
|
|
Overflow (Normal User)
Expert
Messaggi: 334
Iscritto: 11/01/2008
|
devi aggiungere al tuo progetto il componente Inet(Microsoft Internet Transfer Control).
Il metodo OpenURL di questo oggetto ti permette di ottenere il codice sorgente della pagina.
Nell'esempio io ho utilizzando due commandbutton (Command1 per effettuare la connessione alla pagina web e Command2 per la ricerca) ho utilizzato una textbox(textbox1) per visualizzare il codice sorgente della pagina
Codice sorgente - presumibilmente VB.NET |
Dim pagina As String Dim parola As String Private Sub Command1_Click() Inet1.OpenURL "http://www.google.it" 'mi collego al sito web nel mio esempio google DoEvents pagina = Inet1.OpenURL parola = "google" 'la parola da cercare all'interno del sito nel mio caso ho voluto mettere google Text1.Text = pagina End Sub Private Sub Command2_Click() If InStr(1, pagina, parola) > 0 Then 'cerco all'interno quindi del codice sorgente della pagina la parola google nel mio esempio MsgBox "la parola " + parola + " esiste" Else MsgBox "la parola " + parola + " non esiste" End If End Sub
|
Come potrai ben vedere se cerchi una parola ad esempio html che magari non campare nel testo del pagina il programma la troverà poichè la ricerca avviene nell'intero codice sorgente della pagina
|
|
io?!? (Normal User)
Newbie
Messaggi: 7
Iscritto: 07/10/2010
|
|
|