Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim hostname As String = Dns.GetHostName()
- Dim ipaddress As String = CType(Dns.GetHostByName(hostname).AddressList.GetValue(0), IPAddress).ToString
- TextBox1.Text = ipaddress
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement