MEMBUAT PROGRAM SEDERHANA PEMBLOKIR WEB

Dasar newbie yang gak pernah kuliah apalagi belajar pemogramanbikin program kayak begini saja saya butuh waktu +/- 2 jam.Padahal kalau sobat blogger mungkin setengah jampun sudah selesai.Gak apa-apa ah namanya juga belajar.Asalnya sih saya iseng jalan-jalan didunia maya, ke web-web penyedia crack-crack-kan, habis saya tidak mampu buat beli, jadi cari crackkannya saja deh.Nah dalam ngecrack atau nge-patch selalu dicantumkan peringatan jangan update sebab kalau update softwarenya jadi gak berfungsi.Nah yang namanya software itu hamper selalu ada fasilitas updatenya yang kadangkala diam-diam otomatis update sendiri, contohnya idman.Hayo siapa yang gak kenal idman software jempolan buat download manager ini pasti banyak dicari crackkanya.Dan kalau sobat blogger telat sedikit saja update, itu idman langsung menghubungi servernya dan hanya beberapa detik idman crackkan pun jdi ada tampilan fake serial numbernya, sekarat tuh idman.

Terinspirasi dari itu akhirnya di otak saya muncul lampu bohlam bagaimana kalau saya buat program untuk memblok alamat web atau url update-an software.Oke dah kalau begitu saya cari virus dulu…!

Lho kok cari virus apa hubungannya?Ya adalah kalau tidak ada buat apa saya dari.Saya mau lihat codenya dari virus itu…setelah virusnya didapat saya mulai coding kotrak-kotrek,kotrak-kotrek, gagal lagi-gagal lagi.Saya sampai kesal, garuk-garuk kepala yang gak gatal, untung ditemani music jadi saya gak stress.Hampir saja saya putus asa dan gak mau meneruskannya.”Proyek Gagal”

Masih untung saya ingat satu pepatah jangan cepat putus asa jikala menemui kebuntuan istirahat dulu, simpan projectnya kapan-kapan lanjutkan kembali.Ya sudah saya mandi dulu biar segar.Mandi selesai saya kembali coding, untung nih PC habis di tune-up jadi lebih gesit dari kemarin-kemarin, walaupun Cuma Pentium 4 dan ram 1 GB tapi masih gesit buat buka visual basic 6 dan windows media player serta firefox di windows 7 sp1 ultimate ini.

Intinya sih ini program bikin file bat buat akses file hosts yang ada di folder system32.Tadinya saya nggak mau melibatkan file bat, tapi kok di VB6 susahnya akses file yang tidak berektension.File hosts kan tidak ada ektensionnya.Apa memang sayanya saja yang bloon(yang ini memang benar adanya bloon).

Kotrak-kotrek, kotrak-kotrek -àstart with full compile -à gagal…….

Hadoooh susah amat sih… gagal melulu…………………..!

Saya coding lagi, buka buku-buku yang ada tidak membuahkan hasil.Ternyata saya salah dalam perintah eksekusi shell cmd.Saya telusuri codenya terus saya edit dan saya pencet CTRL+F5……..

Yes –yes berhasil, oh senangnya…penulisan ke file hosts berhasil.Disaat senang itu muncul pertanyaan lah nanti kalau punya duit dan sudah membeli software asli terus mau update , tapi sudah kena blok bagaimana? Iya yah harus di normalkan nih….!

Saya mikir lagi ternyata merusak itu lebih gampang daripada membenarkan yah .Saya buka file hosts yang masih asli terus saya masukan saja ke code program.

Alhamdulillah beres.Jadilah program kecil ini, maaf kalau banyaaaak BUG-nya.

Inilah produk   si Newbie

program pemblokir web

NB:Mungkin beberapa AV akan mendeteksi program ini sebagai virus atau Trojan karena melakukan penulisan ke file hosts.
Sobat Blogger harus login sebagai administrator bila di windows 7, karena bila login sebagai user biasa akan gagal.

Bila sobat blogger sebelumnya sudah pernah memasukan alamat web ke file hosts sebaiknya dinormalkan dulu baru masukan kembali alamat web yang akan di blokir melalui program ini.

ini contoh sebagian source codenya:

=======================================================================

Private Sub Command2_Click()
If MsgBox("Anda yakin ingin menormalkan file host...!", vbYesNo + vbQuestion, "dendrif deo URL bloker") = vbYes Then
Open "C:\windows\system32\normal.bat" For Output As 2
Print #2, "echo # Copyright (c) 1993-2009 Microsoft Corp.>c:\windows\system32\Drivers\Etc\Hosts"
Print #2, "echo #>>c:\windows\system32\Drivers\Etc\Hosts"
Print #2, "echo # This is a sample HOSTS file used by Microsoft TCP/IP for Windows.>>c:\windows\system32\Drivers\Etc\Hosts"
Print #2, "echo #>>c:\windows\system32\Drivers\Etc\Hosts"
Print #2, "echo # This file contains the mappings of IP addresses to host names. Each>>c:\windows\system32\Drivers\Etc\Hosts"
Print #2, "echo # entry should be kept on an individual line. The IP address should>>c:\windows\system32\Drivers\Etc\Hosts"
Print #2, "echo # be placed in the first column followed by the corresponding host name.>>c:\windows\system32\Drivers\Etc\Hosts"
Print #2, "echo # The IP address and the host name should be separated by at least one>>c:\windows\system32\Drivers\Etc\Hosts"
Print #2, "echo # space.>>c:\windows\system32\Drivers\Etc\Hosts"
Print #2, "echo #>>c:\windows\system32\Drivers\Etc\Hosts"
Print #2, "echo # Additionally, comments (such as these) may be inserted on individual>>c:\windows\system32\Drivers\Etc\Hosts"
Print #2, "echo # lines or following the machine name denoted by a '#' symbol.>>c:\windows\system32\Drivers\Etc\Hosts"
Print #2, "echo #>>c:\windows\system32\Drivers\Etc\Hosts"
Print #2, "echo # For example:"
Print #2, "echo #>>c:\windows\system32\Drivers\Etc\Hosts"
Print #2, "echo #      102.54.94.97     rhino.acme.com          # source server>>c:\windows\system32\Drivers\Etc\Hosts"
Print #2, "echo #       38.25.63.10     x.acme.com              # x client host>>c:\windows\system32\Drivers\Etc\Hosts"
Print #2, "echo #>>c:\windows\system32\Drivers\Etc\Hosts"
Print #2, "echo # localhost name resolution is handled within DNS itself.>>c:\windows\system32\Drivers\Etc\Hosts"
Print #2, "echo #   127.0.0.1       localhost>>c:\windows\system32\Drivers\Etc\Hosts"
Print #2, "echo #   ::1             localhost>>c:\windows\system32\Drivers\Etc\Hosts"
Close #2
Shell ("cmd /c C:\windows\system32\normal.bat")
MsgBox "file HOsts telah di normalkan tidak ada url yang di blokir", vbInformation, "oke...!"
Kill "C:\windows\system32\normal.bat"
Else
Exit Sub
End If
End Sub

Private Sub Form_Load()
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
If App.PrevInstance Then
End
End If
End Sub
======================================================================

bila sobat blogger berminat program dapat didownload disini

password: www.dendrif-deo.co.cc[URLBlock]

semoga bermanfaat....... :D