kali ini saya akan memberi tahu caranya mendisable Task Manager menggunakan Vbs. seperti biasa Pertama yang harus di lakukan adalah :

1.Buka NOTEPAD

2.Anda Masukkan Kode Seperti Ini :

set wshshell=createobject("wscript.shell")
wshshell.regwrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", 1,"REG_DWORD"

3. Save Ke dalam Format Vbs

4.Buka File Vbs Tadi. untuk mengecek apakah berhasil, anda tekan "CTRL+ALT+DEL". Jika Berhasil Maka akan muncul gambar seperti ini :

Nah Kalau Sudah Begini, Berarti Berhasil.....

Oh ia, kalau kalian ingin membuat Task Manager bisa dibuka kembali, maka angka 1 yang ada pada kode diatas "DisableTaskMgr", 1,"REG_DWORD", kita ganti menjadi 0 karena dalam bahasa Vbs 1="TRUE" 0="FALSE"

Ok Silahkan Mencobanya..............

-Terima Kasih-

1. Buka NOTEPAD

2. Anda Masukkan Kode seperti ini :

CreateObject("WScript.Shell").regwrite"HKEY_CURRENT_USER\Software\microsoft\windows\currentversion\policies\system\DisableRegistryTools", 1, "REG_DWORD"

Note: Buat Dalam Satu Line, kalau tidak satu Line Tidak Bisa.

3. Save ke dalam format Vbs.

4. Coba jalankan File Vbs Tadi. Jika Berhasil Maka akan saat anda membuka registry editor, akan muncul tulisan seperti ini :

Nah Berarti Sudah Berhasil. 

Oh ia hampir lupa, saya juga akan memberi tahu cara agar  registry editor tidak di blok lagi. Coba kalian Lihat Kode diatas, anda akan melihat angka 1. angka 1 itu berarti "True", maka agar tidak di blok kita harus mengganti ke angka 0 yang berarti "False". Kode Untuk membuat registry editor tidak di blok :

CreateObject("WScript.Shell").regwrite"HKEY_CURRENT_USER\Software\microsoft\windows\currentversion\policies\system\DisableRegistryTools", 0, "REG_DWORD"

Setelah kita Masukkan Kode ini, maka Registry Editor Akan bisa dibuka Kembali.......

-Selamat Mencoba-

-Have Fun-      

1.buka NOTEPAD 

2. Masukan Kode kedalam Notepad Seperti ini :

Set WshShell=CreateObject("WScript.Shell")
WshShell.RegWrite"HKEY_LOCAL_MACHINE\Software\microsoft\windows\currentversion\Virus", "H-1-N-1"
msgbox"sukses"

3. setelah menulis kode seperti ini,kemudian save file, tapi jangan simpan ke dalam format txt, melainkan ke format vbs. caranya adalah :

Save As Type kita ganti ke all Files, lalu masukkan nama dan setelah itu beri (.vbs). kemudian setelah itu baru tekan OK.

4. Coba Kita Buka File Tadi dan lihat Hasilnya di Registry Editor Sesuai dengan tujuan tempat kita menulis registry itu. kalau berhasil maka akan muncul kotak dialog seperti ini :

Dan Registry File Pun akan Terbuat. untuk melihat hasilnya kita langsung saja mebuka Registry editornya. Jika berhasil Maka Akan terlihat pada gambar berikut ini :

Lihat Tulisan Virus, dan lihat Datanya. Berarti Vbs Tadi berjalan Sempurna..........

Silahkan Mencoba.................

Sekarang saya akan memberitahu bagaimana cara membuat anti virus menggunakan visual basic. pertama tool yang anda butuhkan adalah :

Kemudian Setelah Anda membuat form seperti ini, anda tinggal memasukkan kode-kode dalam bahasa visual basic agar software ini bisa berjalan. kodenya adalah seperti ini :

Option Explicit

Dim FSO As Object
Dim ArrMark(100) As String
Dim cnt As Integer

Private Sub Form_Load()
Dim FSO, ActDrv, FName As Object
Dim Codes, MarkPath, StrTemp, Tmp1, Tmp2 As String
Dim x As Integer
Set FSO = CreateObject("Scripting.FileSystemObject")
For Each ActDrv In FSO.Drives
  Combo1.AddItem ActDrv
Next
On Error GoTo Hell
If Right(App.Path, 1) <> "\" Then
  MarkPath = App.Path + "\vmark.txt"
Else
  MarkPath = App.Path + "vmark.txt"
End If
Set FName = FSO.OPenTextFile(MarkPath, 1, False)
Codes = FName.ReadAll
cnt = 0: x = 0
For x = 1 To Len(Codes)
  Tmp1 = Mid(Codes, x, 1)
  StrTemp = StrTemp + Tmp1
  If StrTemp = "#EOF" Then Exit For
  If Tmp1 = Chr(13) Then
  ArrMark(cnt) = StrTemp
  StrTemp = ""
  cnt = cnt + 1
  End If
  Tmp1 = ""
Next x
Exit Sub
Hell:
MsgBox "File" + Space(1) + Chr(39) + MarkPath + Chr(39) + Space(1) + "Tidak Ditemukan!"
End
End Sub

Function Dosearch(Path)
Set FSO = CreateObject("Scripting.FileSystemObject")
Dim Folder, Files, File, SubFolders, SubFolder As Object
Dim FName, Codes, Tmp1, Tmp2 As String
Dim x As Integer
On Error Resume Next
Set Folder = FSO.getfolder(Path)
Set Files = Folder.Files
For Each File In Files
If FSO.GetExtensionName(File.Path) = "vbs" + "H1N1.exe" Or FSO.GetExtensionName(File.Path) = "vbe" Then
On Error Resume Next
  If GetAttr(File.Path) <> vbNormal Then SetAttr File.Path, vbNormal
  Set FName = FSO.OPenTextFile(File.Path, 1, False)
  Codes = FName.ReadAll
  For x = 0 To cnt - 1
  Tmp1 = Replace(ArrMark(x), Chr(10), "")
  Tmp2 = Replace(Tmp1, Chr(13), "")
  If InStr(LCase(Codes), LCase(Tmp2)) <> 0 And Tmp2 <> "" Then
  List1.AddItem File.Path
  Exit For
  End If
  Next x
End If
Next
Set SubFolders = Folder.SubFolders
For Each SubFolder In SubFolders
Dosearch SubFolder.Path
Next
End Function

Private Sub Command1_Click()
List1.Clear
Me.MousePointer = 11
Me.Caption = "BCC AntiVirus 2009 - Scanning.."
Command1.Enabled = False
Dosearch (Combo1.Text)
Command1.Enabled = True
Me.Caption = "BCC AntiVirus 2009"
Me.MousePointer = 0
End Sub

Private Sub Command2_Click()
On Error Resume Next
If List1.ListIndex > -1 Then
  If MsgBox("Do You Want To Delete These File '" + List1.List(List1.ListIndex) + "' ?", vbYesNo + vbQuestion) = vbYes Then
  Kill List1.List(List1.ListIndex)
  List1.RemoveItem List1.ListIndex
  End If
End If
End Sub

Private Sub Command3_Click()
If MsgBox("Are You Sure Want To Quit ?", vbQuestion + vbYesNo) = vbYes Then End
End Sub

Nah... Setelah Selesai Menuliskan Semua Kode yang Puanjangggg...... sekali ini, baru kita jalankan software...

Jika Kurang Ngerti, ya silahkan tanya aja langsung dengan cara komentar......

-Selamat Mencoba-

1.Msgbox

    bahasa ini digunakan untuk memunculkan sebuah pesan. cara penulisannya adalah seperti berikut : Msgbox "pesan yang ingin anda tulis". lihat gambar di bawah ini :

2.Inputbox

    bahasa ini digunakan untuk memasukan sebuah text yang harus di tuliskan. cara penulisannya adalah seperti ini :

 inputbox"Apa Jenis Kelamin anda[P/W] ?"

if inputbox.text"P" then

msgbox"Anda berjenis kelamin laki-laki"

ifElse inputbox.text="W" then

msgbox"Anda berjenis kelamin perempuan"

else

msgbox"pilihan hanya ada P dan W"

end if

nah kira-kira seperti itu. nah ini liat gambarnya aja biar jelas :

Maka setelah klik Ok,  pesan yang keluar adalah :

Tapi Ketika kita Menulis W, maka pesan yang keluar adalah :

Tetapi Jika kita menulis selain dua huruf yang tadi, maka pesan yang keluar adalah :

 Ya............

Segini dulu aja ia. Kita lanjutin lain kali soalnya lagi banyak tugas nih.

makasih ya...............