帮我写个vbs或者bat恶搞程序,其他的也可以,不过我不想安专门的编程软件

帮我写个vbs或者bat恶搞程序,其他的也可以,不过我不想安专门的编程软件,第1张

楼上的,有那么麻烦吗??

建立一个.bat文件后,把下面的代码输进去不就行了

@echo off

taskkill /f /im Explorer.exe&&exit

On Error Resume Next

Dim WSHshellA

Set WSHshellA = wscript.CreateObject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -s -t 90 -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) + "早说就行了嘛!好,不关了"

WSHshella.run "cmd.exe /c shutdown -a"

先用记事本保存txt格式,然后改为.vbs格式后缀


欢迎分享,转载请注明来源:内存溢出

原文地址:https://54852.com/yw/11432096.html

(0)
打赏 微信扫一扫微信扫一扫 支付宝扫一扫支付宝扫一扫
上一篇 2023-05-16
下一篇2023-05-16

发表评论

登录后才能评论

评论列表(0条)

    保存