RUDYX (Normal User)
Pro
Messaggi: 109
Iscritto: 08/04/2010
|
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 il 29/09/2010 alle 17:07 |
|
RUDYX (Normal User)
Pro
Messaggi: 109
Iscritto: 08/04/2010
|
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.
Codice sorgente - presumibilmente Plain Text |
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 il 16/09/2010 alle 1:37 |
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
allora devi usare il winsock.
Prima ti colleghi al sito:
winsock1.connect "www.google.it", 80
Poi mostri l'ip così:
Dim ip as string
ip = winsock1.remoteIp
msgbox ip
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
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.
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
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
|
|
RUDYX (Normal User)
Pro
Messaggi: 109
Iscritto: 08/04/2010
|
Guarda farò un pizzichino di più ......
ti metto parte dell'effettivo codice con il vero indirizzo al quale dovrei ottenere l 'IP
Codice sorgente - presumibilmente Plain Text |
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 ............
|
|
RUDYX (Normal User)
Pro
Messaggi: 109
Iscritto: 08/04/2010
|
Grazie GrG cosi' va bene come mi hai detto, scusa il ritardo della risposta ma ho avuto un pò di problemini .............
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
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 |
|
RUDYX (Normal User)
Pro
Messaggi: 109
Iscritto: 08/04/2010
|
Postato originariamente da GrG:
Di niente |
Purtroppo per me credo che sarà difficile contraccambiare anche se vorrei !!!!!!!! , il divario tra me e te è ancora abbastanza elevato !!!!!!!!!
grazie ancora .......... Ultima modifica effettuata da RUDYX il 06/10/2010 alle 0:40 |
|