INFORMASI KITA SEMUA

 
Berikut ini penggalan listing programnya berikut keterangannya.
Option Explicit
Private victim As String
Private myarray As String
Private varray As String
Private Length As Long
Dim chck As String * 1
Const Size As Long = 32768
Private iResult As Long
Private hProg As Long
Private idProg As Long
Private iExit As Long
 
Const STILL_ACTIVE As Long = &H103
Const PROCESS_ALL_ACCESS As Long = &H1F0FFF
Private Declare Function OpenProcess Lib "kernel32" _
(ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long,
_
ByVal dwProcessId As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" _
(ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" _
(ByVal hObject As Long) As Long
 
Jika kita telaah baris demi baris maka…:
* Option Explicit
Perintah ini dipakai agar alur program tidak rancu. Sehingga tidak mengalami
bentrok dan masalah pada akhirnya. Salah satu contoh, untuk memakai suatu
variabel maka kita harus menyediakannya (membuatnya) terlebih dahulu secara
eksplisit, sebelum dapat memakainya.
* Private victim As String
Membuat variabel bernama Victim dengan jenis data string.
* Private myarray As String
Membuat variabel bernama myarray dengan jenis data string.
* Private varray As String
Membuat variabel bernama varray dengan jenis data string.
* Private Length As Long
Membuat variabel bernama Length dengan jenis data string.
* Dim chck As String * 1
Membuat variabel bernama chck dengan jenis data string dengan panjang 1.
* Const Size As Long = 32768
Membuat konstanta bernama Size dengan jenis data long dan mengisinya
dengan data 32768.
* Private iResult As Long
Membuat variabel bernama iResult dengan jenis data long.
* Private hProg As Long
Membuat variabel bernama hProg dengan jenis data long.
17
* Private idProg As Long
Membuat variabel bernama idProg dengan jenis data long.
* Private iExit As Long
Membuat variabel bernama iExit dengan jenis data long.
* Const STILL_ACTIVE As Long = &H103
Membuat konstanta bernama STILL_ACTIVE dengan jenis data long dan
mengisinya dengan data &H103.
* Const PROCESS_ALL_ACCESS As Long = &H1F0FFF
Membuat konstanta bernama PROCESS_ALL_ACCESS dengan jenis data long
dan mengisinya dengan data &H1F0FFF.
* Private Declare Function OpenProcess Lib "kernel32" _
(ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long
Mendeklarasikan fungsi API yang bernama OpenProcess. Fungsi ini digunakan
untuk membuka objek proses yang ada.
* Private Declare Function GetExitCodeProcess Lib "kernel32" _
(ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" _
(ByVal hObject As Long) As Long
Mendeklarasikan fungsi API yang bernama GetExitCodeProcess. Fungsi ini
berguna untuk memperoleh kode status penghentian suatu proses.