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 https://jq.qq.com/?_wv=1027&k=5juEmLP"
msgbox"哎呀累了!数绵羊哄我睡觉",4096+64
for i=1 to 100
MsgBox i&"只绵羊",4096+64
next
msgbox"哎呀我困了,这次就饶过你吧,下次注意哦!",4096+64
msgbox"最后问个问题,我是不是大好人!"
强制打开网页
最新推荐文章于 2024-01-21 21:07:12 发布
这段代码展示了一个VBScript脚本,它创建了一个WScript.Shell对象来执行命令,强制用户在输入框中输入特定文字。如果用户不按要求操作,脚本将重启计算机;反之,它会打开指定的网页链接,并通过一系列对话框进行互动,最后询问用户是否认为作者是大好人。

订阅专栏 解锁全文
2607

被折叠的 条评论
为什么被折叠?



