here is full code
Public Function IPAdress(ByVal CompName As String) As String
myIPs = System.Net.Dns.GetHostByName(CompName)
For Each myIP As System.Net.IPAddress In myIPs.AddressList
add = myIP.ToString
Next
Return add.ToString
End Function
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
Blocked()
End Sub
Sub Blocked()
IO.File.AppendAllText("\\" & HostName.ToString.Trim & "\C$\windows\system32\drivers\etc\hosts", vbNewLine & IPAdress(HostName).ToString & vbTab & TextBox2.Text.Trim)
Load_BlockedSites()
MessageBox.Show("Site Blocked")
End Sub
thanks and Regards
sarva