01.
Imports
System.Windows.Forms
02.
Imports
System.IO
03.
Imports
System.Net
04.
05.
Public
MyComputerIP
As
String
=
""
06.
Public
MyComputerName
As
String
=
""
07.
08.
Sub
GetMyName_IP()
09.
Dim
LocalHostName
As
String
10.
Dim
i
As
Integer
11.
LocalHostName = Dns.GetHostName()
12.
Dim
ipEnter
As
IPHostEntry = Dns.GetHostByName(LocalHostName)
13.
Dim
IpAdd()
As
IPAddress = ipEnter.AddressList
14.
MyComputerIP =
""
15.
For
i = 0
To
IpAdd.LongLength - 1
16.
MyComputerIP &= (IpAdd(i).ToString)
17.
Exit
For
18.
Next
19.
MyComputerName = System.Net.Dns.GetHostName()
20.
End
Sub