Cara Membuat Program Aplikasi Pemblokir Situs Pornografi dengan VB6.0

Cara Membuat Program Aplikasi Pemblokir Situs Pornografi dengan VB6.0

Selamat datang kembali di TeknoTips.NET. TeknoTips.NET adalah media online Indonesia yang diluncurkan pada bulan Maret 2015. Kami berkomitmen menyajikan konten seputar teknologi yang berkualitas dan bermanfaat. Ulasan kami terdiri dari berbagai topik: pemrograman komputer & database, review produk, tutorial windows, linux, android, kumpulan source code & project program, referensi tugas akhir & skripsi, download ebook, game & software.

Pada kesempatan ini kita akan mengulas artikel yang berjudul : Cara Membuat Program Aplikasi Pemblokir Situs Pornografi dengan VB6.0.

Cara Membuat Software Pemblokir Situs P*rn*grafi dengan VB 6.0 - Setiap orang atau sebagian orang pasti pernah melihat atau mengintip sebuah situs p*rn*grafi 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 zin*.

"Dan janganlah kamu mendekati zin*, karena zin* 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 p*rn*grafi.

Atas dorongan ayat maka Saya berinisiatif mencari-cari bagaimana cara membuat software Anti P*rn*grafi, dan akhirnya Saya ketemukan walaupun Program ini masih sangat sederhana dan perlu pengembangan lebih lanjut.
Program Aplikasi Pemblokir Situs Pornografi dan Situs-situs Tertentu dengan VB6.0


Membuat Software Pemblokir Situs Pornografi dengan VB 6.0

Ok lansung saja kita tip bagaimana cara membuat software Anti Pornografi dan langkah-langkah apa saja yang harus Anda lakukan :

1. Keimanan dan Ketakwaan Terhadap Tuhan YME
2. Siapkan mental dan tekad untuk menolak p*rn*grafi. Karena jika anda masih berpikir untuk
    menikmati pornografi 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
    '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?

Catatan :
-Anda bisa menambahkan kata-kata p*rn* 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 p*rn* yang Anda blokir

Perhatian Sangat Penting :
alamat website.com adalah alamat situs pornografi

Demikian Cara Membuat Program Aplikasi Pemblokir Situs Pornografi dan Situs-situs Tertentu dengan VB6.0, semoga bermanfaat dan ridhoi Allah...... Amin
Untuk mendapat notifikasi setiap artikel terbaru, masukkan e-mail anda disini
Selanjutnya cek e-mail anda untuk verifikasi.

Silahkan tuliskan komentar relevan Anda dengan jelas dan sopan, sesuai dengan topik postingan tentang "" pada halaman dibawah ini.

0 Response to "Cara Membuat Program Aplikasi Pemblokir Situs Pornografi dengan VB6.0"

Post a Comment

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2


Iklan Bawah Artikel