老大把那个，输入我是猪，不说就关机那个软件发过来吧，谢谢啦！ 5
展开全部
这个是vb写的脚本
你新建一竖裤个记事本 ,吧下面的的文字复制进去
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 如果改完还是记事本打开的话
你就打开我的电脑左上角有逗兄个
工具->文件夹选项->查看->吧山纤袭 隐藏已知文件的扩展名 这一项前面的钩钩去掉,然后保存,
windows7 系统如果找不到 工具 这个项的话 点组织->布局->菜单栏 勾上就可以看到工具这个项了
然后在找到你的那个文本文档 重命名
你新建一竖裤个记事本 ,吧下面的的文字复制进去
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 如果改完还是记事本打开的话
你就打开我的电脑左上角有逗兄个
工具->文件夹选项->查看->吧山纤袭 隐藏已知文件的扩展名 这一项前面的钩钩去掉,然后保存,
windows7 系统如果找不到 工具 这个项的话 点组织->布局->菜单栏 勾上就可以看到工具这个项了
然后在找到你的那个文本文档 重命名
更多追问追答
追问
老大方法我都试了还是弄不成啊
追答
怎么弄不了啊?打开时甚么样子的?
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
万铭网络推广
2024-11-19 广告
赌狗是指非常靠运气取胜的一种打法。赌狗流也衍生成为了一种玩法，思路就是前期不留钱，正常出阵容，尽快取得巨大优势拿下比赛，精准引流公司万铭千里，为你提供网络网络精准引流服务...
点击进入详情页
本回答由万铭网络推广提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
