[VB6] Estrarre pagina da sito Web

[zanlu88s]

io ho questo sito web:
http://travmap.shishnet.org/

qui vi sono vari text box da compilare... tipo il server da selezionare... il nome dell'alleanza e il nome del player.
clikkando poi sull Button "OK" ci mostra l'immagine.
Io ho sia il server, l'ally e il nome del player salvati nelle rispettive variabili dentro al mio programmino.
Ora come posso fare per connettere al sito, dare l'Ok al bottone avendo compilato i vari campi con le variabili che gli passo, prendere l'immagine che mi tira fuori e salvarla..

Ragà aiutatemi sto incasinato forte.
Ho provato a farmi il grafico da me ma l'oggetto MsChart è quasi incontrollabile per disegnare i punti precisi.. non riesco a capire da cosa dipendono, quindi questo è l'unico modo per rimediare.
grazie anticipatamente.

[ans]

secondo me ti stai incasinando e tanto, quando inserisci i dati in quel sito ti genera un link giusto? Beh fai un semplice download dell'immagine ricostruendoti l'url in base a quella che il sito ti genera che è del tipo:

http://travmap.shishnet.org/map.php?lang=en&server=........&alliance=........&player=........&town=........&groupby=player&casen=on&format=png&

al posto dei ........ ci metti i tuoi dati e poi fai il download (Internet Transfer Control o altro ci sono cmq thread che già trattano l'argomento se cerchi)

[zanlu88s]

ragazzi questo codice non so cosa mettere al posto di iniet ...aiutatemi.


Private Sub Command1_Click()
Dim byteData() As Byte
Dim intFile As Integer
Dim urlDownload As String

urlDownload = "http://travmap.shishnet.org/map.php?lang=en&server=s7.travian.it&alliance=id%3 A1527&groupby=player&casen=on&format=png&"
intFile = FreeFile()

byteData() = .OpenURL(urlDownload, icByteArray) 'al posto di Inet il nome dell'oggetto

Open App.Path & "\" For Binary Access Write As #intFile
Put #intFile, , byteData()
Close #intFile
End Sub

non so nemmeno se sia giusto metterlo nel command button

[zanlu88s]

Private Sub Command1_Click()
Dim byteData() As Byte
Dim intFile As Integer
Dim urlDownload As String

urlDownload = "http://travmap.shishnet.org/map.php?lang=en&server=s7.travian.it&alliance=id%3 A1527&groupby=player&casen=on&format=png&"
intFile = FreeFile()

byteData() = Inet .OpenURL(urlDownload, icByteArray) 'al posto di Inet il nome dell'oggetto

Open App.Path & "\" For Binary Access Write As #intFile
Put #intFile, , byteData()
Close #intFile
End Sub

[alka]

Ho unito le discussioni. Per favore, non aprire più thread per lo stesso problema o argomento.

[ans]

devi aggiungere al progetto il componente Internet Transfer Control, dai il nome all'oggetto e lo utilizzi nel codice.