Tutorial vb ini membahas cara kerja sebuah bahasa visual basic untuk disable atau enable task manager dalam windows. Seperti halnya sebuah program virus di dunia computer yang tercipta oleh bahasa pemrograman visual basic. Ini hanya berupa source code-nya saja ^,..,^
Sedikit Intro a.k.a curhat:
Alhamdulilah ya sekarang ini saya sudah bekerja sebagai seorang IT di sebuah perusahaan antah berantah. Di sebut IT juga kayanya berlebihan banget yooo, yah saya hanya mencari side job aja sih sebagai Administrator sebuah warnet. Berawal dari ketidakmampuan anti virus menangani sebuah virus yang sudah terlanjur beranak pinak di PC server, yang sudah berimbas pada disable-nya taskmanager ( windows). Mencari dan terus mencari anti virus yang “BAGUS” hingga akhirnya ini warnet jadi madesu, gara-gara tidak ada koneksi internet yang mana koneksinya diambil semua oleh si virus. Semoga dengan menjadi enablenya taksmanager dapat men KiLL dan End Process tree program tersebut. Dan berhasil ^,..,^
Sudah ah curhatnya, kapan mulai belajarnya…
Ada Refferal yang mungkin bisa kalian pelajari yaitu Membuat Virus Visual Basic
Pengertian Enable dan Disable Taskmanager dengan VB
Seperti pada kalimat pembuka diatas, program ini bisa menjadi sangat berguna dan juga merugikan. Bagaimana tidak?? Ketika sebuah virus beraksi maka yang dia butuhkan adalah proses pengamanan file induk yang sedang aktif agar tidak di KiLL alias End Process Tree pada task manager. Untuk itulah script tersebut dia wajib buat agar terus aktif dan bersemayam pada PC target.
Membuat Enable dan Disable Task Manager Visual Basic
1. Buka bahasa pemrograman Visual Basic 6.0 Enterprise Edition
2. Pilih “Standar Exe”. Open
3. Setelah muncul jendela Form Designer, buatlah 2 buah Command Button dengan ketentuan:
a) Name : “cmddisable” (tanpa tanda kutip)
b) Name : “cmdenable” (tanpa tanda kutip)
4. Klik 2x pada Form Designer, masuk kedalam Code program
5. (1)Copy paste kan code dibawah ini terlebih dahulu pada Code Designer
Private Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" ( _
ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, _
ByVal samDesired As Long, ByRef phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" ( _
ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, _
ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long
Penjelasan : “ Ini Bertujuan untuk pendeklarasian agar program ini dapat berjalan pada windows yang mana nantinya kita akan melakukan pergerakan pada Registry Editor. ”
6. (2)Copy Paste kan code dibawah ini pada Code Designer
Private Sub SetKeyDataValue(KeyValueData As Integer)
Dim OpenKey As Long, SetValue As Long, hKey As Long
OpenKey = RegOpenKeyEx(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System", 0, KEY_ALL_ACCESS, hKey)
SetValue = RegSetValueEx(hKey, "DisableTaskMgr", 0&, 4, CLng(KeyValueData), 4)
SetValue = RegCloseKey(hKey)
End Sub
Penjelasan : “ Ini bertujuan untuk pemanggilan regedit dan melakukan beberapa editing value didalamnya secara paksa. Dibuat sub seperti ini karena untuk mempersingkat beberapa pemanggilan yang nantinya dapat kita kembangkan sendiri. “
7. (3) Copy Paste kan code dibawah ini pada Code Designer untuk Command Button bernama “cmddisable”
Private Sub cmddisable_Click()
Dim retval As Byte
Call SetKeyDataValue(DISABLE_TASKMGR)
retval = MsgBox("Task Manager is now Disabled.", vbInformation, "TASK MANAGER DISABLED !!! www.vb-6.com ")
End Sub
Penjelasan : “ Dapat kita lihat bagaimana program VB ini memaksa membuat string value di Regedit (Registry Editor) , dengan mengetikan perintah “DISABLE_TASKMGR “ yang terlebih dahulu melakukan pemanggilan membuka regedit dengan perintah “Call SetKeyDataValue” pada sub yang tadi kita buat ”
8. (4) Copy Paste kan code dibawah ini pada Code Designer untuk Command Button bernama “cmdenable”
Private Sub cmdenable_Click()
Dim retval As Byte
Call SetKeyDataValue(ENABLE_TASKMGR)
retval = MsgBox("Task Manager is now Enabled.", vbInformation, "TASK MANAGER ENABLED !!! www.vb-6.com ")
End Sub
Penjelasan : “ Ini ditujukan untuk para defender virus yang berusaha untuk membuka task manager dengan standar prosedur. Penjelasannya sama seperti yang “cmddisable”. “
9. Compille atau Running dengan menekan tombol F5
Mohon maaf untuk gambar hasil compilenya tidak bisa tampilkan. Tetapi tidak mengurangi maksud dan penjelasan program ini.
Kali ini saya tidak mensertakan edisi downloadnya.
Jika link Enable dan disable Task Mgr VB berguna untuk kalian atau kalian suka dengan postingan ini, berikan komentar dibawah postingan ini sertakan dengan share di facebook kalian dengan men-like nya yooo. Jangan lupa untuk menshare ilmu kalian ya, karena ilmu yang bermanfaat akan menambah pahala buat kalian sendiri.
Sekian dari saya, terima kasih atas kunjungannya. Semoga bermanfaat ^<_,^
