Oppure

Loading
11/09/10 1:38
RUDYX
Scusate , magari per voi sarà semplicissimo ,ma vorrei sapere quale è la funzione che converte un Dominio DNS nel suo indirizzo IP.......

(ovviamente in VB6)

Grazie :)

EDIT: Modificato il titolo che era troppo generico.
Ultima modifica effettuata da GrG 29/09/10 15:07
aaa
11/09/10 8:21
GrG
allora devi usare il winsock.

Prima ti colleghi al sito:
winsock1.connect "google.it";, 80

Poi mostri l'ip così:
Dim ip as string
ip = winsock1.remoteIp
msgbox ip
aaa
15/09/10 23:34
RUDYX
Ti ringrazio GrG ,
ma anche se questa probabilmente è la risposta giusta
io ho dovuto cambiare l'attributo ,
da : ip = winsock1.remoteIp in : ip = winsock1.remoteHostIp ,
e poi comunque non sono riuscito a ricavare l'IP.

:(

Grazie comunque per ora ottengo il codice IP attraverso un comando SHELL , facendogli eseguire il PING dell'indirizzo DNS
per es.
ping www.google.it  >textappo.txt

dove il risultato lo metto in un file testo che successivamente apro esamino e finalmente ricavo l'IP.
Ultima modifica effettuata da RUDYX 15/09/10 23:37
aaa
16/09/10 14:56
GrG
ehm... si effettivamente mi sono sbagliato era: Winsock1.RemoteHostIP

comunque è strano che non ti funzioni... che errore ti da? O.o

p.s. Anche se hai risolto volevo chiarire, anche perchè questo metodo penso sia più corretto.
aaa
16/09/10 15:54
RUDYX
Guarda farò un pizzichino di più ......
ti metto parte dell'effettivo codice con il vero indirizzo al quale dovrei ottenere l 'IP

tcp.Connect "fugavittoria.no-ip.org", 80
Form1.Text1.Text = tcp.RemoteHostIP
Form1.Text2.Text = tcp.LocalIP
tcp.Close


La cosa a me strana è che il LOCALE (tcp.LocalIP) me lo da corretto , ma poi più nulla neanche errore !!!! boh !!!!!

il Programma va avanti .................. O.o ............ :)
aaa
16/09/10 17:45
GrG
il fatto è che così non dai il tempo al winsock di collegarsi al sito...

nel pulsante lascia solo la riga:
tcp.Connect "fugavittoria.no-ip.org", 80

Poi vai nella sub winsock1_Connect()
che viene eseguita quando il winsock si connette, e dentro questa sub ci metti:

Form1.Text1.Text = tcp.RemoteHostIP
Form1.Text2.Text = tcp.LocalIP
tcp.Close
aaa
28/09/10 17:33
RUDYX
Grazie GrG cosi' va bene come mi hai detto, scusa il ritardo della risposta ma ho avuto un pò di problemini .............
aaa
29/09/10 15:09
GrG
Postato originariamente da RUDYX:

Grazie GrG cosi' va bene come mi hai detto, scusa il ritardo della risposta ma ho avuto un pò di problemini .............


Di niente ;)
aaa