Toggle navigation
Home
Latest pastes
FAQ
Random
Register
Login
.NET GETIP
SUBMITTED BY:
Guest
DATE:
Aug. 5, 2014, 9:14 p.m.
FORMAT:
C#
SIZE:
815 Bytes
Raw
Download
Tweet
HITS:
24469
Go to comments
Report
Imports
System
.
Net
Public
Class
Form1
Private
Sub
Form1_Load
(
sender
As
System
.
Object
,
e
As
System
.
EventArgs
)
Handles
MyBase
.
Load
Label4
.
Text
=
My
.
Computer
.
Name
Label2
.
Text
=
GetIpV4
()
End
Sub
Public
Function
GetIpV4
()
As
String
Dim
myHost
As
String
=
Dns
.
GetHostName
Dim
ipEntry
As
IPHostEntry
=
Dns
.
GetHostEntry
(
myHost
)
Dim
ip
As
String
=
""
For
Each
tmpIpAddress
As
IPAddress
In
ipEntry
.
AddressList
If
tmpIpAddress
.
AddressFamily
=
Sockets
.
AddressFamily
.
InterNetwork
Then
Dim
ipAddress
As
String
=
tmpIpAddress
.
ToString
ip
=
ipAddress
Exit
For
End
If
Next
Return
ip
End
Function
End
Class
Please enable JavaScript to view the
comments powered by Disqus.
comments powered by
Disqus