Questo sito utilizza cookies
solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi
l'informativa sui cookies
.
Accesso in corso...
Username:
Password:
oppure
Username o password invalidi
Forum
Sorgenti
C
C++
Managed C++
Visual Basic .NET
Visual Basic
Visual C++
Java
C#
Perl
Qbasic
Delphi
Python
Prolog
Lua
Scheme
Cobol
LabVIEW
Ruby
ASP
PHP/MySQL
x86 Assembly
MIPS Assembly
Pascal
Fortran
Bash
Gml
Javascript
Programmi
Animazioni
Desktop
Esempi
Giochi
Grafica e Fotografia
Insegnamento e hobby
Internet
Lavoro e finanza
Matematica e fisica
Moduli e librerie
Musica
Networking
Scripts
Sicurezza
System Tweak
Utility
Web authoring
Guide
Visual Basic .NET
Pascal
HTML
SDL
Typescript
VBScript
Batch scripting
GWBasic
Licenze Software
Recensioni
Manuali
Software
Tutorials
Linguaggi
ASP
C
C#
C++
Delphi
Java
Pascal
Perl
PHP
Prolog
Python
Ruby
Ruby On Rails
Scheme
Visual Basic
Google
Hardware
Informatica
Internet
iPhone
Masterizzare
CD
DVD
Files Immagine
Mp3 e Audio
Sicurezza e OS
Sistemi operativi
Linux
Windows
Video Digitale
Lezioni
Programmazione
Ruby
iOS
Tecnologie
Multi Touch
Project Zone
Che cos'è?
Progetti più attivi
Editor mappe
Analisi testi
Parole
FILDER
2048
2D Mappy
RTDownloadCounter
SSBackUp
Estrazione
Codificatore
pSIMPLETRON
ErrorReporter.NET
Web Escape
Napoleon
Mini Cad
Tutti i progetti
Utility
News nel tuo sito
Blog
Compilatori
Masterizzare
Siti amici
Pubblica un sorgente
Programmare
Come imparare a programmare
Come diventare un buon programmatore
Community
Chi Siamo?
Membri
Dev Team
Join Us
Libreria
Premio Stallman
I Top 10
Medagliere
Mascotte
Foto raduni
Assumici
Scrivici
supportaci
Forum
-
C# / VB.NET
- trovare l'ip di un sito - Pagina 2
Pagine: [
1
2
3
]
|
maxas
(Normal User)
Rookie
Messaggi:
53
Iscritto:
26/07/2009
Postato alle
23:37
Giovedì, 13/08/2009
non funziona....
ruggy94
(
Member
)
Guru
Messaggi:
890
Iscritto:
21/04/2008
Postato alle
23:44
Giovedì, 13/08/2009
Testo quotato
Postato originariamente da
maxas
:
non funziona....
Non credo che bastino 2 parole per descrivere accuratamente un problema. Potresti spiegare perchè non funziona? Da' errori...o cosa?
VB.NET_Program_91
(
Member
)
Pro
Messaggi:
93
Iscritto:
10/02/2008
Postato alle
2:10
Venerdì, 14/08/2009
Ecco finalmente ho risolto
Questo è il codice corretto:
Codice sorgente - presumibilmente VB.NET
Imports
System.
Net
Imports
System.
Net
.
Sockets
Public
Class
Form1
Dim
hostentrata
As
IPHostEntry
Dim
IPentrata
As
IPAddress
(
)
Dim
i
As
Integer
Private
Sub
Form1_Load
(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.
EventArgs
)
Handles
MyBase
.
Load
Try
hostentrata
=
Dns.
GetHostByName
(
"www.google.it"
)
IPentrata
=
hostentrata.
AddressList
For
i
=
0
To
IPentrata.
Length
-
1
TextBox1.
Text
=
(
IPentrata
(
i
)
.
ToString
)
Next
Catch
ex
As
SocketException
MsgBox
(
ex.
StackTrace
.
ToString
)
End
Try
End
Sub
End
Class
Spero di esserti stato di aiuto
ProgrMan93
(Ex-Member)
Pro
Messaggi:
68
Iscritto:
25/06/2008
Postato alle
10:06
Venerdì, 14/08/2009
Testo quotato
Postato originariamente da
maxas
:
fatto l'errore me lo da dove o messo '<<<
Codice sorgente - presumibilmente C# / VB.NET
AddressIP = IpCollection.Item(0) '<<<<dice L'indice dell'insieme deve essere compreso tra 1 e la dimensione dell'insieme.
End Sub
End Class
Strano quando ho provato il tuo codice e ho tolto il try l'eccezione sollevata era "Host sconosciuto"
maxas
(Normal User)
Rookie
Messaggi:
53
Iscritto:
26/07/2009
Postato alle
10:49
Venerdì, 14/08/2009
funziona....^^
ma una cosa mi dice qui
Dns.GetHostByName
che e obsoleto perché con cosa dovrei cambialo per non farlo comparire
ProgrMan93
(Ex-Member)
Pro
Messaggi:
68
Iscritto:
25/06/2008
Postato alle
11:59
Venerdì, 14/08/2009
Fai così:
Codice sorgente - presumibilmente VB.NET
Imports
System.
Net
Imports
System.
Net
.
Sockets
Public
Class
Form1
Dim
hostentrata
As
IPHostEntry
Dim
IPentrata
As
IPAddress
(
)
Dim
i
As
Integer
Private
Sub
Form1_Load
(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.
EventArgs
)
Handles
MyBase
.
Load
Try
'Al posto si Dns.GetHostByName metti Dns.GetHostEntry
hostentrata
=
Dns.
GetHostEntry
(
"www.google.it"
)
IPentrata
=
hostentrata.
AddressList
For
i
=
0
To
IPentrata.
Length
-
1
TextBox1.
Text
=
(
IPentrata
(
i
)
.
ToString
)
Next
Catch
ex
As
SocketException
MsgBox
(
ex.
StackTrace
.
ToString
)
End
Try
End
Sub
End
Class
maxas
(Normal User)
Rookie
Messaggi:
53
Iscritto:
26/07/2009
Postato alle
13:01
Venerdì, 14/08/2009
funziona ma ce una cosa che non riesco a capire
tipo cosi funziona
Codice sorgente - presumibilmente VB.NET
Imports
System.
Net
Imports
System.
Net
.
Sockets
Public
Class
Ipsito
Private
Sub
Ipsito_Load
(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.
EventArgs
)
Handles
MyBase
.
Load
Dim
hostentrata
As
IPHostEntry
Dim
IPentrata
As
IPAddress
(
)
Dim
i
As
Integer
Me
.
Text
=
Form1.
Text
Try
hostentrata
=
Dns.
GetHostEntry
(
"www.google.it"
)
IPentrata
=
hostentrata.
AddressList
For
i
=
0
To
IPentrata.
Length
-
1
MsgBox
(
IPentrata
(
i
)
.
ToString
)
Next
Catch
ex
As
SocketException
MsgBox
(
ex.
StackTrace
.
ToString
)
End
Try
End
Sub
End
Class
e inceve cosi no
Codice sorgente - presumibilmente VB.NET
Imports
System.
Net
Imports
System.
Net
.
Sockets
Public
Class
Ipsito
Private
Sub
Ipsito_Load
(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.
EventArgs
)
Handles
MyBase
.
Load
Dim
hostentrata
As
IPHostEntry
Dim
IPentrata
As
IPAddress
(
)
Dim
i
As
Integer
Me
.
Text
=
Form1.
Text
Try
hostentrata
=
Dns.
GetHostEntry
(
Form1.
indirizzo
.
Text
)
IPentrata
=
hostentrata.
AddressList
For
i
=
0
To
IPentrata.
Length
-
1
TextBox1.
Text
=
(
IPentrata
(
i
)
.
ToString
)
Next
Catch
ex
As
SocketException
MsgBox
(
ex.
StackTrace
.
ToString
)
End
Try
End
Sub
End
Class
VB.NET_Program_91
(
Member
)
Pro
Messaggi:
93
Iscritto:
10/02/2008
Postato alle
14:42
Venerdì, 14/08/2009
Testo quotato
Postato originariamente da
maxas
:
e inceve cosi no
Codice sorgente - presumibilmente VB.NET
Imports
System.
Net
Imports
System.
Net
.
Sockets
Public
Class
Ipsito
Private
Sub
Ipsito_Load
(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.
EventArgs
)
Handles
MyBase
.
Load
Dim
hostentrata
As
IPHostEntry
Dim
IPentrata
As
IPAddress
(
)
Dim
i
As
Integer
Me
.
Text
=
Form1.
Text
Try
hostentrata
=
Dns.
GetHostEntry
(
Form1.
indirizzo
.
Text
)
IPentrata
=
hostentrata.
AddressList
For
i
=
0
To
IPentrata.
Length
-
1
TextBox1.
Text
=
(
IPentrata
(
i
)
.
ToString
)
Next
Catch
ex
As
SocketException
MsgBox
(
ex.
StackTrace
.
ToString
)
End
Try
End
Sub
End
Class
Basta inserire un controllo button e si risolve tutto
In questo modo:
Codice sorgente - presumibilmente VB.NET
Imports
System.
Net
Imports
System.
Net
.
Sockets
Public
Class
Ipsito
Private
Sub
Button1_Click
(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.
EventArgs
)
Handles
Button1.
Click
Dim
hostentrata
As
IPHostEntry
Dim
IPentrata
As
IPAddress
(
)
Dim
i
As
Integer
Me
.
Text
=
Me
.
Text
Try
hostentrata
=
Dns.
GetHostEntry
(
TextBox2.
Text
)
IPentrata
=
hostentrata.
AddressList
For
i
=
0
To
IPentrata.
Length
-
1
TextBox1.
Text
=
(
IPentrata
(
i
)
.
ToString
)
Next
Catch
ex
As
SocketException
MsgBox
(
ex.
StackTrace
.
ToString
)
End
Try
End
Sub
End
Class
Spero ti sia stato d' aiuto
Ultima modifica effettuata da
VB.NET_Program_91
il 14/08/2009 alle 14:43
Pagine: [
1
2
3
]
|