Program Situs Anti Porno dengan VB 6.0


Program Anti Situs Porno

Program ini menggunakan bahasa pemrograman visual basic 6.0. pada postingan ini saya akan memberikan contoh program yang digunakan untuk memproteksi jaringan internet anda dari situs XXX. Yang perlu disiapkan pertama komputer/labtop, software visual basic 6.0, dan secangkir kopi sebagai pelengkap. Setelah semuanya siap, silahkan buat sebuah proyek baru. Kemudian ikuti langkah berikut ini :

  1. Tambahkan sebuah form, sebuah timer dan sebuah listbox
  2. Masukan kode berikut ini pada form dan pahami prosedurnya.

Berkut ini source codenya :

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 blacklist dengan array
‘ daftar kata-kata ini bisa anda tambah sesuai kebutuhan
Judul(0) = “sex”
Judul(1) = “porn”
Judul(2) = “ngentot”
Judul(3) = “bugil”
Judul(4) = “playboy.com”
Judul(5) = “telanjang”

‘bersihkan Listbox1
List1.Clear
‘hitung dari 0 sampai 5
For i = 0 To 5
‘listbox1 diisi dengan isi variabel judul
List1.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 playboy.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 playboy.com”
Print #1, “127.0.0.1 sex.com”
Print #1, “127.0.0.1 hentai.com”
Close #1
End Sub

3. Tambahkan sebuah modul untuk memuat fungsi-fungsi penting lainnya.

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
4. Cek dan pahami kode-kode fungsi yang telah anda masukan dan pastikan tidak ada yang salah. Kemudian jalankan.

4 thoughts on “Program Situs Anti Porno dengan VB 6.0

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s