Membuat Program Sederhana Blok Website Dengan VB2010

Sebenarnya Tools Seperti Sudah Banyak Bertebaran di internet. tetapi tidak salahnya kita membuat Tools Seperti ini juga, dan memiliki kebanggaan sendiri klo bisa membuat sebuah tools. Dengan Window Tanpa Sebuah Software kita dapat memblokir sebuah website. tetapi dengan bantuan sebuah software kita dapat lebih mudah. oke Kita Mulai

1. buka VB2010 nya
2. Tambah kan 1 TextBox, 2 Button, 1 Label dan 1 Buah Richtextbox. dan susun sehingga membentuk seperti ini




3. double klik pada form. dan masukkan code ini

Code: (Select All)

Dim hosts As String = ("C:\windows\system32\drivers\etc\hosts")
RichTextBox1.LoadFile(hosts, RichTextBoxStreamType.PlainText)

kode diatas di gunakan untuk membuka file host yang ada di drive C : sub folder window dan lain.
file host tersebut yang akan kita gunakan sebagai media blokir. klo berhasil akan tampil tulisan seperti ini di richtextbox1 nya




4. kemudian double klik button Block kemudian ketikkan kode berikut ini.

Code: (Select All)

RichTextBox1.AppendText(Environment.NewLine + "127.0.0.1" + TextBox1.Text)

kode di atas di gunakan untuk menambahkan baris baru, di richtextbox1 sesuai dengan website yang kita tulis di textbox1. dan pada saat kita isi website dan kita tekan tombol block maka akan tampil seperti berikut ini.




4. dan tombol yang terakhir adalah tombol Save ,

Code: (Select All)

Dim filetocreate As String = "C:\windows\system32\drivers\etc\hosts"
RichTextBox1.SaveFile(filetocreate, RichTextBoxStreamType.PlainText)

code diatas di gunakan untuk menyimpan daftar website yang sudah kita blok tadi. ke dalam C:\windows\system32\drivers\etc\hosts.

Note : window yang saya gunakan terdapat Di C: jika window yang kamu gunakan di drive D (berbeda) silakan ganti menjadi : D:\windows\system32\drivers\etc\hosts