Oppure

Loading
14/09/08 8:29
mirkos90
Salve ragazzi ho un dilemma :P
Praticamente dovrei fare un programma in visual basic, che prende un IP da un file TXT contenuto in un sito (quindi da remoto) (tipo fopen() in PHP) e che lo scriva in un file (assieme ad altre righe di testo).
Io non sono bravo in Visual Basic sarebbe gradita una guida o una spiegazione teorica :)

GRAZIE MILLE :k::k:
Ultima modifica effettuata da mirkos90 14/09/08 8:30
aaa
14/09/08 8:41
GrG
Aggiungi il componente Microsoft Internet file transfer controls

poi inserisci questo codice in un button:
dim ip as string
private sub command1_click()
ip = inet1.openurl("http://www.tuosito.it/doc.txt"
end sub


Ip conterrà il testo del TXT
aaa
14/09/08 8:50
mirkos90
ok Sono alla modifica dei files :k: c'è un MINUSCOLO problema
io ho usato questo codice per modificare i file
Open "C:\WINDOWS\system32\drivers\etc\hosts" For Output As #1
Print #1, ip
Close #1


Qui mi dà errore perkè Hosts non ha Estensione!! :S:S che fare???
Ultima modifica effettuata da mirkos90 14/09/08 9:50
aaa
14/09/08 9:40
antometal
modificata la variabile, devi inviare il file e salvato con lo stesso percorso, in modo da sovrascriverlo
aaa
14/09/08 9:51
mirkos90
Postato originariamente da antometal:

modificata la variabile, devi inviare il file e salvato con lo stesso percorso, in modo da sovrascriverlo

non ho capito :S

EDIT: avevo aggiornato la risposta :P mi hai risposto appena avevo aggiornato la risp :P sono riuscito a capire come modificare ma il prob è che il file che devo modificare io non ha estensione e quindi vb dà errore :S:S:S
Ultima modifica effettuata da mirkos90 14/09/08 9:52
aaa
14/09/08 9:59
antometal
nn si tratta dell' estensione, il problema è che hai messo # per assegnare il numero al file...
prova così
Open "C:\WINDOWS\system32\drivers\etc\hosts" For Output As 1
Print #1, ip
Close #1 
aaa
14/09/08 10:07
mirkos90
l'ho fatto :)
il debug dice path/file access error
infatti se provo a mettere hosts.txt mi crea un nuovo file chiamato hosts.txt con il contenuto che "deve avere"
:S:S:S:S
Edit:
Ma se Elimino il file HOSTS, creo un file hosts.txt e rinomino il file hosts?
:) Come si potrebbe fare?? (uso vb 6 ovviamente :P)

RI-EDIT:
Ho provato l'eliminazione di hosts ma dà sempre lo stesso errore
ho usato la funzione kill("C:\WINDOWS\system32\drivers\etc\hosts";)
(se provo ad eliminare hosts.txt lo elimina..)
Ultima modifica effettuata da mirkos90 14/09/08 10:13
aaa
14/09/08 10:12
antometal
Postato originariamente da antometal:

nn si tratta dell' estensione, il problema è che hai messo # per assegnare il numero al file...
prova così
Open "C:\WINDOWS\system32\drivers\etc\hosts" For Output As 1
Print #1, ip
Close #1 


NON É VERO...8-|


forse il file è di sola lettura!
aaa