Imports System
Imports System.Net
Imports System.Net.Sockets
Public Class iphost
Dim Iph As IPHostEntry = Dns.Resolve(frmBrowser.WebBrowser.Url.Host)
Private Sub iphost_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label1.Text = "L'ip Del Sito " & frmBrowser.WebBrowser.Url.Host & " è"
TextBox1.Text = Iph.AddressList(0).ToString
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Clipboard.SetText(TextBox1.Text)
End Sub
End Class