Membuat Website Blocker Dengan VB 2010

Nah kali ini kita akan membuat website blocker dengan vb 2010 ,mungkin anda pernah bertanya bagaimana cara memblokir situs ,anda cari di google anda ketemu caranya bukan nah kali ini kita akan membuat nya lebih praktis dengan software kita sendiri bagi sobat Lab-vb sudah tak sabar langsung saja ^^



1. Jalan kan VB 2010
2. Klik Window  Form Aplication
3. Name nya di Ganti menjadi  WebSite Blockers
4. Tambahkan 2 Button ,1 List Box dan ubah Form 1 Sesuka hati
5. Ubah Button1 Jadi Add dan Button 2 Jadi Remove
6. Double Klik Form1 dan masukan kode ini dibawah  Public Class Form1 dan di atas Private Sub Form1_Load bla bla bla



Dim HostsFile As String = System.Environment.GetFolderPath(Environment.SpecialFolder.System) & "\drivers\etc\hosts"
    Sub LoadFile(ByVal FileName As String)
        ListBox1.Items.Clear()

        Dim i As Integer = FreeFile()
        Dim s As String

        FileOpen(i, FileName, OpenMode.Input)
        Do Until EOF(i)
            Input(i, s)
            If InStr(s, "127.0.0.1 ") Then
                s = Split(s, " ")(1)
                If s <> "" Then ListBox1.Items.Add(Trim(s))
            End If
        Loop
        FileClose(i)
    End Sub

    Sub SaveFile(ByVal FileName As String)
        Dim i As Integer = FreeFile()
        Dim j As Integer
        Dim s As String

        For j = 0 To ListBox1.Items.Count - 1
            s = s & "127.0.0.1 " & ListBox1.Items(j).ToString & vbCrLf
        Next

        FileOpen(i, FileName, OpenMode.Output)
        PrintLine(i, s)
        FileClose(i)

        Shell("ipconfig /flushdns", AppWinStyle.Hide)
    End Sub


7. nah di atas kita  sudah membuat Sub Load File n Sub Save File  nah sekarang kita ketikan  kode ini dibawah Private Sub Form1_Load bla bla bla
 LoadFile(HostsFile)
8. Balik Ke Form1.vb[Design] Double Klik Button1 /Add dan masukan kode ini

 Dim s As String
        s = InputBox("Ketikan Url Yang mau Diblokir  !", "Website Blocker", "www.")

        If Trim(s) <> "" Then ListBox1.Items.Add(Trim(s))

        SaveFile(HostsFile)
    End Sub
9. Balik Ke Form1.vb[Design] Double Klik Button2 /Remove dan masukan kode ini

ListBox1.Items.Remove(ListBox1.SelectedItem)
        SaveFile(HostsFile)
10. Tekan F5
Kunjungi Terus Lab-vb.blogspot.com