scarica pagina

[evil80]

Ciao volevo creare in VB6 un semplice programma che si connette ad un sito (il link lo passo io) e mi scarica su un file txt il codice html della pagina stessa.

Avete consigli da darmi circa come impostarlo (ovviamente in maniera MOOOLTO breve).
Non sono pratico della programmazione in questo senso...posso usare Winsock ?
idee ???

Thanks

[jabjoint]

certo che puoi usare il wsock, devi connetterti alla pagina web poi gli mandi il comando "GET" e lui nella data_arrival riceverà la pagina iniziale.

'GET /index.html HTTP/1.0
Cmq :

Winsock.Connect "www.nomesito.it", 80

'Qunado si connette invii il "GET"
Winsock.SendData "GET /index.html HTTP/1.0" 'dove cm avrai capito index.html è la pagina iniziale.


'nella data_arrival ricevi la pagina cosi':

Dim riceve as string
winsock.getdata riceve,vbstring
MsgBox riceve

[evil80]

ho provato,ma non va...dove sbaglio ???

Private Sub cmdControlla_Click()
     
    Winsock.RemoteHost = txtDominio.Text
    Winsock.RemotePort = Val(txtPorta.Text)
    Winsock.Connect
    
    Winsock.SendData "GET " & txtLink.Text & " HTTP/1.0"
End Sub

Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
    Dim ricevuto As String
    
    Winsock.GetData ricevuto, vbString
    MsgBox ricevuto
End Sub

Ottengo questo errore :
"Wrong protocol or connection state for the requested transaction or request"

Grazie

[jabjoint]

Il codice va quasi bene, solamente che quando ti connetti non puoi inviarli subito la stringa devi aspettare la risposta altrimeti da errore.

Quindi non appena si connette gli invii la stringa:

Private Sub Winsock_Connect()
ws.SendData "GET /index.html HTTP/1.0" & vbCrLf 'ricorda il vbcrlf
End Sub

[Markho]

esiste un metodo mooooolto più semplice, dovrebbe essere scritto anche nell'MSND.. adesso non mi viene in mente... ti invio il codice domani, a lavoro ho un esempio già bello e fatto.
Ciao, ti faccio sapere

[Markho]

allora eccomi qua:

Aggiungi il componente Microsoft Internet Trasfer Control, io ho il 6.0 (SP4)

Aggiungi al form l'oggetto INet (lo chiami per esempio Inet1)

Adesso ad un tasto assegni:

Inet1.URL = "www.microsoft.com" 'qui metti la pagina da scaricare
Text1.Text = Inet1.OpenURL 'assegni a text1 il testo della pagina

Ecco Fatto!!!!

Ciao e fammi sapere

[evil80]

grazie 1000,proverò appeno arrivo a casa.
ciao

[jabjoint]

interessante! Grazie

[Markho]

Hei.... :sexpulp: