Visual Basic 6 - prelevare i link di una pagina web...

Forum - Visual Basic 6 - prelevare i link di una pagina web...

gecko6989 (Normal User)
Pro

Messaggi: 64
Iscritto: 05/06/2007

Postato alle 12:53
Mercoledì, 23/04/2008

Mettiamo che una semplice pagina web sia formata da link (per esempio link di 2 immagini del tipo: "http://www.sito.it/img01" ,"http://www.sito.it/img02").

Vorrei insomma che venissero prelevati questi link (non conoscendone il numero esatto a priori) e messi in una listbox, in maniera del tutto AUTOMATICA.
In input deve essere dato solo l'indirizzo della pagine web.

Come si fa?

Se può essere d'aiuto ho visto questa cosa nella sezione "link" del browser internet "Opera":
http://img261.imageshack.us/img261/8659/immaginene7.jpg

Ultima modifica effettuata da gecko6989 il 23/04/2008 alle 12:54

gantonio (Normal User)
Guru^2

Messaggi: 1532
Iscritto: 09/09/2007

Postato alle 13:16
Mercoledì, 23/04/2008

Se vuoi provare a farlo in VB6 puoi utilizzare un controllo WebBrowser e il metodo Navigate2 per accedere alla pagina. Poi dovrai esaminare il documento caricato alla ricerca dei link ...

gecko6989 (Normal User)
Pro

Messaggi: 64
Iscritto: 05/06/2007

Postato alle 13:24
Mercoledì, 23/04/2008

E' proprio lì il problema, come faccio a esaminare il documento caricato??

gantonio (Normal User)
Guru^2

Messaggi: 1532
Iscritto: 09/09/2007

Postato alle 16:48
Mercoledì, 23/04/2008

http://support.microsoft.com/kb/238313/en-us

P4p3r0g4 (Member)
Guru

Messaggi: 1319
Iscritto: 29/12/2006

Postato alle 21:08
Mercoledì, 23/04/2008

basta usare un po di ingegno con gli instr
io uso questo di solito (fatto in vb.net 2 mesi fa)

Codice sorgente - presumibilmente VB.NET

Public Function GetText(ByVal OriginalText As String, ByVal TagDiInizio As String, ByVal TagDiFine As String) As String
        On Error Resume Next
        Dim PosDiInizio As Long, PosDiFine As Long, DeltaPos As Long
        PosDiInizio = InStr(OriginalText, TagDiInizio) + Len(TagDiInizio)
        PosDiFine = InStr(CInt(PosDiInizio), OriginalText, TagDiFine)
        DeltaPos = PosDiFine - PosDiInizio
        GetText = Mid(OriginalText, PosDiInizio, DeltaPos)
    End Function

dovrebbe funzionare anche in vb6
poi richiami
link=gettext(tuotesto,codicecheloprecede,codicechelocontinua)