Cara Membuat Program Aplikasi Pemblokir Situs Pornografi dengan VB6.0

Dim i As Integer 'variabel i sebagai integer.
    ' variabel judul sebagai array dengan tipe string dan isinya ada enam (6)
    Dim Judul(5) As String
    Dim x As Long ' variabel x bertipe long integer

    Private Sub Form_Load()
    'panggil fungsi blacklist
    BlackList
    'set interval timer 3 detik
    Timer1.Interval = 3000
    BuatFileHost
    End Sub

    Private Sub Timer1_Timer()
    TutupJudul
    TutupIE
    End Sub

    Private Sub BlackList()
    ' mengisi daftar judul atau kata yang akan di blacklist dengan array
    ' daftar kata-kata ini bisa anda tambah sesuai kebutuhan
    Judul(0) = "isi kata-kata yang di blacklist"
    Judul(1) = "isi kata-kata yang di blacklist"
    Judul(2) = "isi kata-kata yang di blacklist"
    Judul(3) = "isi kata-kata yang di blacklist"
    Judul(4) = "alamat website yang di blacklist.com"
    Judul(5) = "isi kata-kata yang di blacklist"

    'bersihkan Listbox1
    ListBox1.Clear
    'hitung dari 0 sampai 5
    For i = 0 To 5
    'listbox1 diisi dengan isi variabel judul
    ListBox1.AddItem Judul(i)
    Next
    End Sub

    Private Sub TutupIE()
    'karena internet explorer tdk bisa di tutup dengan sendmessage
    Dim c As String
    'On Error Resume Next
    'tutup internet explorer dengan cmd
    Shell "cmd /c taskkill /f /im iexplore.exe ", vbHide
    End Sub

    Private Sub TutupJudul()
    'hitung variabel i sebanyak nilai array
    For i = 0 To 5
    'cari aplikasi apapun yg punya caption/judul seseuai daftar blacklist
    x = FindWindowWild("*" & Judul(i) & "*", False)
    'tutup target
    SendMessage x, WM_CLOSE, 0, 0
    Next
    End Sub

    Private Sub BuatFileHost()
    On Error Resume Next
    'buat file host, yang akan meredirect request akses ke suatu alamat
    'menuju alamat yang lain sesuai keinginan kita
    'akses ke pl*yb*y.com akan diarahkan ke localhost 127.0.0.1

    Open "c:\windows\system32\drivers\etc\hosts" For Output As 1
    Print #1, "127.0.0.1 alamat website.com"
    Print #1, "127.0.0.1 alamat website.com"
    Print #1, "127.0.0.1 alamat website.com"
    Close #1
    End Sub

6. Tambahkan 1 module, lalu copy-paste kode dibawah ini :

    Private Declare Function EnumWindows& Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long)
    Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
    Private Declare Function IsWindowVisible& Lib "user32" (ByVal hwnd As Long)
    Private Declare Function GetParent& Lib "user32" (ByVal hwnd As Long)

    Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
    Public Const WM_CLOSE = &H10

    Dim sPattern As String, hFind As Long

    Private Function EnumWinProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
    Dim k As Long, sName As String
    If IsWindowVisible(hwnd) And GetParent(hwnd) = 0 Then
    sName = Space$(128)
    k = GetWindowText(hwnd, sName, 128)
    If k > 0 Then
    sName = Left$(sName, k)
    If lParam = 0 Then sName = UCase(sName)
    If sName Like sPattern Then
    hFind = hwnd
    EnumWinProc = 0
    Exit Function
    End If
    End If
    End If
    EnumWinProc = 1
    End Function

    Public Function FindWindowWild(sWild As String, Optional bMatchCase As Boolean = True) As Long
    sPattern = sWild
    If Not bMatchCase Then sPattern = UCase(sPattern)
    EnumWindows AddressOf EnumWinProc, bMatchCase
    FindWindowWild = hFind
    End Function

7. Simpan hasil pekerjaan Anda, dan langsung jalankan programmnya

8. Setelah program sudah jalan buka internet Anda di google ketik kata yang sudah di blacklist di
    Form VB kemudian buka linknya apa yang terjadi?

    Judul(0) = ""

    Judul(1) = ""

    Judul(2) = ""

    Judul(3) = ""

    Judul(4) = ""

    Judul(5) = ""

    dst........