Oppure

Loading
15/03/08 14:46
Dax89
Quella funzione ti restituisce una classe IPAddress, per ottenerlo sotto forma di 'string' basta usare semplicemente il metodo ToString() della classe IPAddress ;)
aaa
15/03/08 15:33
Phoenix85
Postato originariamente da Dax89:

Quella funzione ti restituisce una classe IPAddress, per ottenerlo sotto forma di 'string' basta usare semplicemente il metodo ToString() della classe IPAddress ;)

Allora...
nella form_load ho dichiarato una variabile "ipp" e lancio un msgbox nel seguente modo:
Dim ipp As New MyNamespace.IpFinder
MsgBox(ipp.ToString)


Nell'esecuzione del programma, all'interno della msgbox, al posto dell'ip, mi vien fuori il seguente risultato:
"WindowsApplication1.MyNamespace.IpFinder"

Dove sbaglio?:(
aaa
15/03/08 18:38
gantonio
Pensavo che avessi risolto ... eccoti le linee che ci vogliono ...

Imports System.IO
Imports System.Net

...

Dim wrq As WebRequest = WebRequest.Create("http://pchelplive.com/ip.php")
Dim wrp As WebResponse = wrq.GetResponse()
Dim sr As StreamReader = New StreamReader(wrp.GetResponseStream())

MessageBox.Show(sr.ReadToEnd())
aaa
17/03/08 14:34
Phoenix85
Postato originariamente da gantonio:

Pensavo che avessi risolto ... eccoti le linee che ci vogliono ...

Imports System.IO
Imports System.Net

...

Dim wrq As WebRequest = WebRequest.Create("http://pchelplive.com/ip.php")
Dim wrp As WebResponse = wrq.GetResponse()
Dim sr As StreamReader = New StreamReader(wrp.GetResponseStream())

MessageBox.Show(sr.ReadToEnd())


Non ho parole...
sei un grande :D

Grazie, grazie a tutti voi...siete assurdi!!:love:

Vi amo!! :rotfl:
aaa
17/03/08 17:57
Phoenix85
Ciao...
posso continuare da qui, o apro un nuovo thread per un problema riguardante l'ip???

Ora ho trvoato l'ip della connessione ad internet (o meglio, avete trovato :D )...ora ho una funzione che lo richiama per creare un listner delle connessioni in ingresso al server, che mi da errore (non ricordo se l'ho detto, ma vorrei creare un programma client/server. Dato che sono nubbissimo, sto utilizzando delle guide e dei codici trovati sul web...in modo da provare ed imparare..:)).

La funzione è la seguente:
 
Private Sub Listen()
        Dim listener As New System.Net.Sockets.TcpListener(IP(), porta)
        listener.Start()
End Sub


La funzione IP(), è quella che mi avete passato prima, e contiene l'indirizzo IP che appare nella msgbox, in formato stringa.
L'errore che mi vien furi è il seguente:

Impossibile eseguire il cast di oggetti di tipo 'System.String' sul tipo 'System.Net.IPAddress'.

e mi viene evidenziata la seguente riga:
System.Net.Sockets.TcpListener(IP(), porta)


Da quello che capisco, dovrei converitre il risultato di IP() in IpAddress...ma non riesco a convertirlo correttamente.
Come mai? :)
Grazie ancora per il vostro aiuto...
Ultima modifica effettuata da Phoenix85 17/03/08 18:03
aaa
18/03/08 14:55
Il Totem
Veramente è il contrario. Dato che la funzione che usi restituisce un IpAddress. Per convertirlo in stringa devi fare come ha precedentemente detto Dax89, ossia con ToString.

P.S.: se sei niubbissimo, studia prima il resto e poi passa a questo.
Ultima modifica effettuata da Il Totem 18/03/08 14:55
aaa
18/03/08 17:16
Phoenix85
Uhmmm a dire il vero la variabile IP_Address è dichiarata come stringa e prende valore da sr.tostring (sr è dichiarato nel listato che trovi sopra).

Quindi dovrebbe essere il problema inverso, erro?
aaa
18/03/08 19:36
gantonio
Sì ... devi convertire la stringa in IPAddress ...

Devi scrivere

Private Sub Listen()
   Dim ipAddress As IPAddress = IPAddress.Parse(IP())
   Dim listener As New System.Net.Sockets.TcpListener(ipAddress, porta)
   listener.Start()
End Sub


ma fossi in te seguirei il consiglio di Totem ... affronta problematiche piu' semplici per ora ...

(P.S. Secondo me avrai problemi nel fare il listening sull' IP pubblico ... :-| )
Ultima modifica effettuata da gantonio 18/03/08 19:43
aaa