02-11-2011, 03:06 PM
Okay i think i got it or else you can try and work with it a little
Youtube Video: <!-- m --><a class="postlink" href="http://www.youtube.com/watch?v=uHkut4ay7kE">http://www.youtube.com/watch?v=uHkut4ay7kE</a><!-- m -->
This is to show what you will need so it the site will be most unlikely be able to be opened
Code:
Imports System.IO
Public Class Form1
Sub BlockSite()
Dim systempath As String = Environment.GetFolderPath(Environment.SpecialFolder.System)
Dim Hosts As String = systempath & "\" & "Drivers" & "\" & "etc" & "\" & "hosts"
Dim writer As New StreamWriter(Hosts)
writer.Write(Environment.NewLine)
writer.Write("127.0.0.1" + " " + " " + TextBox1.Text + vbNewLine)
writer.Write("127.0.0.1" + " " + " " + TextBox2.Text + vbNewLine)
writer.Write("127.0.0.1" + " " + " " + TextBox3.Text + vbNewLine)
ListBox1.Items.Add(TextBox1.Text)
ListBox1.Items.Add(TextBox2.Text)
ListBox1.Items.Add(TextBox3.Text)
writer.Write(Environment.NewLine)
writer.Dispose()
End Sub
Youtube Video: <!-- m --><a class="postlink" href="http://www.youtube.com/watch?v=uHkut4ay7kE">http://www.youtube.com/watch?v=uHkut4ay7kE</a><!-- m -->
This is to show what you will need so it the site will be most unlikely be able to be opened
Website: <!-- m --><a class="postlink" href="http://www.PBAProductions.com">http://www.PBAProductions.com</a><!-- m -->
E-Mail: <!-- e --><a href="mailtoatrick@AriSystems.Org">Patrick@AriSystems.Org</a><!-- e -->
Skype: Qwaxer
Youtube: Qwaxer
E-Mail: <!-- e --><a href="mailtoatrick@AriSystems.Org">Patrick@AriSystems.Org</a><!-- e -->
Skype: Qwaxer
Youtube: Qwaxer