VB


Visual Basic: Hide Proses di Windows









Visual Basic: Hide Process di
Windows

Oleh: Schizoprenic





Sebelumnya mungkin Anda pernah bahkan sering menjumpai warnet-warnet
yang menjalankan billing online dan mungkin karena Anda penasaran atau
karena merasa terganggu dengan aplikasi billing tersebut kemudian Anda
mencoba mematikan aplikasi client billing tersebut dengan cara menekan
tombol CTRL+ALT+DEL agar dapat mematikan aplikasi billing tersebut secara
paksa, tapi apa yang terjadi ? tombol tersebut tidak berfungsi dan tidak
bereaksi atau mungkin bisa di buka tapi tidak ada satu pun daftar proses
yang berkaitan dengan aplikasi tersebut.



Mini windows yang
berisi daftar aplikasi yang sedang aktif


Anda ingin tahu rahasianya..? tanyakan saja kepada gali..
uppss malah jadi iklan hehehe. Okeh lanjut. Hmm sebelumnya tentu Anda
perlu mengetahui sedikit cara membuat aplikasi di Visual Basic J, kemudian
memiliki aplikasi Visual Basic (gunakan versi 6.0). Langsung saja, saya
akan coba jelaskan sedikit teknik pemrogramannya.


Untuk menghilangkan proses aplikasi dari daftar proses, Anda
perlu melakukan pemanggilan fungsi API (API Calls Declaration) yaitu
dengan melakukan pemanggilan fungsi:


Declare
Function GetCurrentProcessId Lib “kernel32” () As Long

Declare Function
GetCurrentProcess Lib “kernel32” () As Long

Declare Function
RegisterServiceProcess Lib “kernel32” (ByVal dwProcessID As Long, ByVal
dwType As Long) As Long


Tidak sulit kok menggunakan fungsi
di atas, apalagi Visual Basic cukup powerfull bermain dengan API Calls
(heheheh… iya lah wong bikinannya Microsoft :P). Terus bagaimana cara
menggunakan fungsi di atas ? Begini, perlu Anda pahami bahwa di windows,
program-program yang berkaitan dengan system (aplikasi yang di jalankan
dengan ID System) tidak akan di tampilkan dalam daftar proses (run
background). Nah di sinilah fungsi di atas tadi bisa kita manfaatkan yaitu
dengan merubah ID dari aplikasi kita yang ber ID Normal di ganti dengan ID
yang berpangkat System (hehe.he..), jadi masuk akal bukan ?.


Langsung saja ke tingkat praktis, sekarang buka Aplikasi
Visual Basic Anda, kemudian add new module ke dalam aplikasi tersebut,
berilah nama sesuka Anda (misalnya saja: hide.bas). Kemudian isi hide.bas
dengan kode berikut ini:


FILE: HIDE.BAS


‘******** Process ID API Calls


Declare Function GetCurrentProcessId Lib “kernel32” () As
Long
Declare Function GetCurrentProcess Lib “kernel32” () As
Long
Declare Function RegisterServiceProcess Lib “kernel32” (ByVal
dwProcessID As Long, ByVal dwType As Long) As Long
Public Const
Make_System_Process = 1
Public Const Make_Normal_Process =
0


Public
Sub SetService(HideProcess As Boolean)
Dim Process_Code As Long,
Return_Service As Long
    If HideProcess
Then
          Process_Code =
GetCurrentProcessId()
         Return_Service
= RegisterServiceProcess(pid,
Make_System_Process)
    ElseIf Not HideProcess
Then
        Process_Code =
GetCurrentProcessId()
       Return_Service
= RegisterServiceProcess(pid,
Make_Normal_Process)
   End If
End Sub



Optional saja, Anda bisa memanggilnya pada saat form di load

Sub main()
   If App.PrevInstance Then End
‘ Jika aplikasi yang sama aktif, matikan!
   SetService
True ‘ Menyembunyikan dari daftar proses
   Load frmmain
‘ Jalankan form utama !
End Sub


Coba liat ilustrasi gambar berikut ini !




Anda bisa juga memanggil fungsi ‘SetService’ tidak
melalui Sub Main(). Jika Anda menggunakan form sebagai StartUp-nya, Anda
bisa memanggilnya pada saat form di load, lihat contoh berikut:


Private Sub
Form_Load()
    SetService True
End
Sub


Kalau Anda ingin aplikasi Anda tidak terlihat di taskbar dan screen
Anda bisa melakukannya dengan mengatur properties di Form dengan option
berikut:


frmMain.ShowInTaskbar =
false
frmMain.Visible = false


Setelah program yang Anda buat selesai dan tidak ada error, compile
program yang Anda buat ke EXE file. Jalankan program tersebut and look
it’s be stealth hehehe…


Coba lihat beberapa sampel gambar berikut :




Anda bisa melihat nama aplikasi ‘Bot’ terlihat di daftar
proses, oke sekarang kita akan melihat perbedaannya dengan melakukan
pemanggilan fungsi ‘SetService’. Lihat gambar di bawah ini:





Oke selamat mencoba and good luck! You must believe me
that knowledge is power heheh….hehe..




Property Of Xnuxer Research
Copyright ©
2002

Published in: on October 8, 2007 at 8:29 am  Leave a Comment  

The URI to TrackBack this entry is: https://miqrosoft.wordpress.com/2007/10/08/vb/trackback/

RSS feed for comments on this post.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: