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
Pagine: [
1
2
3
]
|
maxas
(Normal User)
Rookie
Messaggi:
53
Iscritto:
26/07/2009
Postato alle
13:38
Giovedì, 13/08/2009
sapete dirmi dove sbaglio
Codice sorgente - presumibilmente VB.NET
Public
Class
Form1
Private
Sub
Form1_Load
(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.
EventArgs
)
Handles
MyBase
.
Load
Try
' dichiara una nuova collezione
Dim
IpCollection
As
New
Collection
' ottiene l'indirizzo IP dal dominio inserito
Dim
i
As
Integer
Dim
ipE
As
Net.
IPHostEntry
=
System.
Net
.
Dns
.
GetHostEntry
(
"http://it.msn.com/"
)
Dim
IpA
(
)
As
Net.
IPAddress
=
ipE.
AddressList
' ottiene tutti gli indirizzi IP relativi al dominio
For
i
=
0
To
IpA.
GetUpperBound
(
0
)
IpCollection.
Add
(
IpA
(
i
)
.
ToString
)
Next
' restituisce il primo IP ottenuto
Dim
AddressIP
As
String
AddressIP
=
IpCollection.
Item
(
0
)
Catch
ex
As
Exception
MsgBox
(
"An error has occured"
)
End
Try
End
Sub
End
Class
VB.NET_Program_91
(
Member
)
Pro
Messaggi:
93
Iscritto:
10/02/2008
Postato alle
16:59
Giovedì, 13/08/2009
Hai importato queste librerie?:
Codice sorgente - presumibilmente C# / VB.NET
Imports System.Net
Imports System.Net.Dns
Imports System.Net.Sockets
Ultima modifica effettuata da
VB.NET_Program_91
il 13/08/2009 alle 17:17
ProgrMan93
(Ex-Member)
Pro
Messaggi:
68
Iscritto:
25/06/2008
Postato alle
18:33
Giovedì, 13/08/2009
che errore ti esce precisamente?
maxas
(Normal User)
Rookie
Messaggi:
53
Iscritto:
26/07/2009
Postato alle
19:25
Giovedì, 13/08/2009
si ho provato ma non funziona....
quello che ce scritto nel codice...
ruggy94
(
Member
)
Guru
Messaggi:
890
Iscritto:
21/04/2008
Postato alle
20:47
Giovedì, 13/08/2009
Testo quotato
Postato originariamente da
maxas
:
quello che ce scritto nel codice...
Leva un attimo il try...catch e vediamo quale eccezione si presenta esattamente.
maxas
(Normal User)
Rookie
Messaggi:
53
Iscritto:
26/07/2009
Postato alle
21:16
Giovedì, 13/08/2009
fatto l'errore me lo da dove o messo '<<<
Codice sorgente - presumibilmente VB.NET
Public
Class
Form1
Private
Sub
Form1_Load
(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.
EventArgs
)
Handles
MyBase
.
Load
' dichiara una nuova collezione
Dim
IpCollection
As
New
Collection
' ottiene l'indirizzo IP dal dominio inserito
Dim
i
As
Integer
Dim
ipE
As
Net.
IPHostEntry
=
System.
Net
.
Dns
.
GetHostEntry
(
"http://it.msn.com/"
)
Dim
IpA
(
)
As
Net.
IPAddress
=
ipE.
AddressList
' ottiene tutti gli indirizzi IP relativi al dominio
For
i
=
0
To
IpA.
GetUpperBound
(
0
)
IpCollection.
Add
(
IpA
(
i
)
.
ToString
)
Next
' restituisce il primo IP ottenuto
Dim
AddressIP
As
String
AddressIP
=
IpCollection.
Item
(
0
)
'<<<<dice L'indice dell'insieme deve essere compreso tra 1 e la dimensione dell'insieme.
End
Sub
End
Class
ruggy94
(
Member
)
Guru
Messaggi:
890
Iscritto:
21/04/2008
Postato alle
22:09
Giovedì, 13/08/2009
E allora il problema è che hai inserito indice 0.
maxas
(Normal User)
Rookie
Messaggi:
53
Iscritto:
26/07/2009
Postato alle
22:44
Giovedì, 13/08/2009
e ke devo fare...
ruggy94
(
Member
)
Guru
Messaggi:
890
Iscritto:
21/04/2008
Postato alle
22:45
Giovedì, 13/08/2009
Testo quotato
Postato originariamente da
maxas
:
e ke devo fare...
Codice sorgente - presumibilmente Plain Text
AddressIP = IpCollection.Item(1)
Pagine: [
1
2
3
]
|