Cara Memblokir situs yang dilarang dengan VB 6.0 - Setiap orang atau sebagian orang pasti pernah melihat atau mengintip sebuah situs yang dilarang di internet baik di sengaja ataupun tidak sengaja, baik di kotak pencarian google, link dan media sosial lainnya, tahukah Anda perbuatan itu di larang oleh Agama manapun terutama Islam, mengapa di larang karena mendekati perbuatan dosa.
"Dan janganlah kamu mendekati jin*, karena jin* suatu perbuatan yang keji dan suatu jalan yang buruk" (QS Al-Isra:32)"
Akhir-akhir ini banyak sekali situs-situs yang tidak sesuai dengan kesusilaan dan ajaran agama kita. Kita sebagai orang tua tentu khawatir sekali dengan keadaan seperti ini, apalagi jaman modern yang sekarang ini berbagai macam Gadged bermunculan, hanya dengan sentuhan jari kita bisa menjelajahi seluruh dunia apapun bisa kita lihat.Yang kita khawatirkan adalah generasi penerus bangsa ini, makanya pemerintah perlu bertindak untuk mengatasi hal ini dengan mengadakan filterisasi situs-situs yang berdampak negatif terhadap anak-anak salah satunya adalah situs berbau larangan agama
Atas dorongan ayat maka Saya berinisiatif mencari-cari bagaimana cara membuat software Pemblokir situs yang dilarang, dan akhirnya Saya ketemukan walaupun Program ini masih sangat sederhana dan perlu pengembangan lebih lanjut.
Cara Memblokir Situs yang dilarang dengan VB 6.0
Ok lansung saja kita tip bagaimana cara membuat software Anti P*rn*grafi dan langkah-langkah apa saja yang harus Anda lakukan:
1. Keimanan dan Ketakwaan Terhadap Tuhan YME
2. Siapkan mental dan tekad untuk menolak situs yang dilarang. Karena jika anda masih berpikir untuk menikmati vidio anu anda akan ragu untuk membuat aplikasi ini.
3 .Bismillah. awali setiap pekerjaan baik dengan berdo'a
4. Buka Program VB 6.0 Anda
5. Tambahkan 1 Timer, 1 Listbox dan beberapa Label (Label Optional) pada Form VB Anda
6. Masukan kode berikut atau copy-paste di bagian General-Declaration :
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
'alamat situs yang di blokir 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 situs yang di blokir"
Print #1, "127.0.0.1alamat situs yang di blokir"
Print #1, "127.0.0.1 alamat situs yang di blokir"
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?
Catatan :
-Anda bisa menambahkan kata-kata yang diblacklisist lainnya di kode program diatas seperti dibawah ini pada bagian
Judul(0) = ""
Judul(1) = ""
Judul(2) = ""
Judul(3) = ""
Judul(4) = ""
Judul(5) = ""
dst........
-Lalu ubah kode program dengan kata Dim Judul (5) as String di sesuikan banyaknya judul
-Angka 5 ganti dengan banyaknya judul
-Semakin banyak Anda menambahkan blacklist semakin banyak pula situs yang dilarang yang Anda blokir
Perhatian Sangat Penting :
alamat website.com adalah alamt situs begituan
Demikian tutorial kali ini semoga bermanfaat dan ridhoi Allah...... Amin
1 comment:
keren banget kak isi blognya
lipmatte wardah
Post a Comment