Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Trovare IP di un Dominio DNS
Forum - Visual Basic 6 - Trovare IP di un Dominio DNS

Pagine: [ 1 2 ] Precedente | Prossimo
Avatar
RUDYX (Normal User)
Pro


Messaggi: 109
Iscritto: 08/04/2010

Segnala al moderatore
Postato alle 3:38
Sabato, 11/09/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
PM
Avatar
RUDYX (Normal User)
Pro


Messaggi: 109
Iscritto: 08/04/2010

Up
-1
Down
V
Segnala al moderatore
Postato alle 1:34
Giovedì, 16/09/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

  1. 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
PM
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Up
3
Down
V
Segnala al moderatore
Postato alle 10:21
Sabato, 11/09/2010
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

PM
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Up
1
Down
V
Segnala al moderatore
Postato alle 16:56
Giovedì, 16/09/2010
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.

PM
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Up
1
Down
V
Segnala al moderatore
Postato alle 19:45
Giovedì, 16/09/2010
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

PM
Avatar
RUDYX (Normal User)
Pro


Messaggi: 109
Iscritto: 08/04/2010

Up
0
Down
V
Segnala al moderatore
Postato alle 17:54
Giovedì, 16/09/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

  1. tcp.Connect "fugavittoria.no-ip.org", 80
  2. Form1.Text1.Text = tcp.RemoteHostIP
  3. Form1.Text2.Text = tcp.LocalIP
  4. 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 ............ :)

PM
Avatar
RUDYX (Normal User)
Pro


Messaggi: 109
Iscritto: 08/04/2010

Up
0
Down
V
Segnala al moderatore
Postato alle 19:33
Martedì, 28/09/2010
Grazie GrG cosi' va bene come mi hai detto,  scusa il ritardo della risposta ma ho avuto un pò di problemini .............

PM
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Up
0
Down
V
Segnala al moderatore
Postato alle 17:09
Mercoledì, 29/09/2010
Testo quotato

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 ;)

PM
Avatar
RUDYX (Normal User)
Pro


Messaggi: 109
Iscritto: 08/04/2010

Up
0
Down
V
Segnala al moderatore
Postato alle 0:38
Mercoledì, 06/10/2010
Testo quotato

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 !!!!!!!!!  :yup:


grazie ancora ..........

Ultima modifica effettuata da RUDYX il 06/10/2010 alle 0:40
PM
Pagine: [ 1 2 ] Precedente | Prossimo