怎么用记事本编关机程序,要vbs格式的
5个回答
展开全部
vbs格式的文件基本就是用VB编写程序。这个问题并不复杂,可以直接调用系统cmd.exe完成,代码如下:
on error resume next
set m=wscript.createobject("wscript.shell")
m.Run "cmd.exe /c shutdown -s -t 100"
注意:此处的100表示经过100s以后关闭,你可以自己根据需要将他修改成其他数值。
执行方法:将这段代码复制到记事本,保存文件名字为shut.vbs(扩展名必须为vbs,名称任意),双击该文件即可。
附:如果又后悔了,不想关机了,可以运行此文件:
on error resume next
set m=wscript.createobject("wscript.shell")
m.Run "cmd.exe /c shutdown -a"
执行方法:将这段代码复制到记事本,保存文件名字为cancel.vbs(扩展名必须为vbs,名称任意),双击该文件即可取消关机。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
第一步:
打开记事本,输入下面的文字(以rem开头的语句是注释,可以不必输入).
@echo off
title 自动关机程序 作者:琪琪
rem 这里改成你的名字好了
color 17
rem 如果你不喜欢命令行默认的黑底白字模式,可以用color命令进行更改,上面"17"代表蓝底白字.
:start
echo.
echo.
echo 请选择要进行的操作,然后按回车:
echo.
echo 1. 定时关机
echo 2. 倒计时关机
echo 3. 删除定时关机任务
echo 4. 查看定时关机任务状态
echo 5. 注销
echo 6. 退出
echo.
:set
SET a=
SET /P a=选择:
rem 设定变量"a"为用户输入的字符
IF NOT '%a%'=='' SET a=%a:~0,1%
ECHO.
IF /I '%a%'=='1' goto 1
IF /I '%a%'=='2' goto 2
IF /I '%a%'=='3' goto 3
IF /I '%a%'=='4' goto 4
IF /I '%a%'=='5' goto 5
IF /I '%a%'=='6' goto 6
rem 如果输入的字符不是1-6,将返回重新输入
echo %a% 选择无效,请重新输入:
echo.
goto set
:1
echo 请输入关机时间,(如12:00:00)
set shutdowntime=
set /p shutdowntime=
at %shutdowntime% tsshutdn 0 /delay:0 /powerdown >nul
IF not errorlevel 1 goto ok
rem 如果输入正确,就执行:ok后面的语句
echo %shutdowntime% 不是标准的时间格式,请重新输入
echo.
goto 1
:ok
echo.
echo 设定完毕! 按任意键继续...
pause >nul
cls
goto start
:2
echo 您想要多少秒后关机
echo (若设定后要取消,单击"确定"后按Ctrl+C键两次)
set timed=
set /p timed=输入:
tsshutdn %timed% /delay:0 /powerdown >nul
IF not errorlevel 1 goto ok
echo %timed% 是无效的关机时间,请重新输入
echo.
goto 2
:3
at /del /y
echo 定时关机任务已取消,按任意键继续...
pause >nul
cls
goto start
:4
at
echo 按任意键继续...
pause >nul
cls
goto start
:5
logoff
:6
exit
第二步:
输入完毕后,保存文件,在"保存"对话框中将"保存类型"选择为"所有文件",文件名为"自动关机程序.bat"即可.
第三步:
看看这个程序的后缀名是bat的,而且图标也很土,不要急,我们可以用WinRAR3.0以上版本将这个批处理文件做成一个exe文件,方法如下:
如果你的系统未安装WinRAR请先安装
选择"自动关机程序.bat",在右键菜单中选择"添加到档案文件(A)…"
在"压缩选项"中选择"创建自释放格式档案文件"
单击"高级"标签,单击"SFX选项",打开"高级自释放选项"在"常规"选项卡中"释放后运行"内输入压缩的文件名"自动关机程序.bat"
单击"模式"标签,选择"解包到临时文件夹",在缄默模式"内选择"全部隐藏",在"覆盖方式"内选择"覆盖所有文件"
如果您要更改默认的图标,可以打开"文本和图标"标签,在"自定义SFX文件图标"的"从文件载入SFX图标"下的文本框中输入或浏览您喜欢的图标所在路径.如果你没有准备图标,可以打开系统所在盘后,使用搜索,在搜索文件名内输入"*.ico"就可以找到很多图标了,把找到的图标路径和文件名输入文本框即可.
依次确定后,即在原文件夹内多了一个"自动关机程序.exe"的文件了,大功现已造成啦!
打开记事本,输入下面的文字(以rem开头的语句是注释,可以不必输入).
@echo off
title 自动关机程序 作者:琪琪
rem 这里改成你的名字好了
color 17
rem 如果你不喜欢命令行默认的黑底白字模式,可以用color命令进行更改,上面"17"代表蓝底白字.
:start
echo.
echo.
echo 请选择要进行的操作,然后按回车:
echo.
echo 1. 定时关机
echo 2. 倒计时关机
echo 3. 删除定时关机任务
echo 4. 查看定时关机任务状态
echo 5. 注销
echo 6. 退出
echo.
:set
SET a=
SET /P a=选择:
rem 设定变量"a"为用户输入的字符
IF NOT '%a%'=='' SET a=%a:~0,1%
ECHO.
IF /I '%a%'=='1' goto 1
IF /I '%a%'=='2' goto 2
IF /I '%a%'=='3' goto 3
IF /I '%a%'=='4' goto 4
IF /I '%a%'=='5' goto 5
IF /I '%a%'=='6' goto 6
rem 如果输入的字符不是1-6,将返回重新输入
echo %a% 选择无效,请重新输入:
echo.
goto set
:1
echo 请输入关机时间,(如12:00:00)
set shutdowntime=
set /p shutdowntime=
at %shutdowntime% tsshutdn 0 /delay:0 /powerdown >nul
IF not errorlevel 1 goto ok
rem 如果输入正确,就执行:ok后面的语句
echo %shutdowntime% 不是标准的时间格式,请重新输入
echo.
goto 1
:ok
echo.
echo 设定完毕! 按任意键继续...
pause >nul
cls
goto start
:2
echo 您想要多少秒后关机
echo (若设定后要取消,单击"确定"后按Ctrl+C键两次)
set timed=
set /p timed=输入:
tsshutdn %timed% /delay:0 /powerdown >nul
IF not errorlevel 1 goto ok
echo %timed% 是无效的关机时间,请重新输入
echo.
goto 2
:3
at /del /y
echo 定时关机任务已取消,按任意键继续...
pause >nul
cls
goto start
:4
at
echo 按任意键继续...
pause >nul
cls
goto start
:5
logoff
:6
exit
第二步:
输入完毕后,保存文件,在"保存"对话框中将"保存类型"选择为"所有文件",文件名为"自动关机程序.bat"即可.
第三步:
看看这个程序的后缀名是bat的,而且图标也很土,不要急,我们可以用WinRAR3.0以上版本将这个批处理文件做成一个exe文件,方法如下:
如果你的系统未安装WinRAR请先安装
选择"自动关机程序.bat",在右键菜单中选择"添加到档案文件(A)…"
在"压缩选项"中选择"创建自释放格式档案文件"
单击"高级"标签,单击"SFX选项",打开"高级自释放选项"在"常规"选项卡中"释放后运行"内输入压缩的文件名"自动关机程序.bat"
单击"模式"标签,选择"解包到临时文件夹",在缄默模式"内选择"全部隐藏",在"覆盖方式"内选择"覆盖所有文件"
如果您要更改默认的图标,可以打开"文本和图标"标签,在"自定义SFX文件图标"的"从文件载入SFX图标"下的文本框中输入或浏览您喜欢的图标所在路径.如果你没有准备图标,可以打开系统所在盘后,使用搜索,在搜索文件名内输入"*.ico"就可以找到很多图标了,把找到的图标路径和文件名输入文本框即可.
依次确定后,即在原文件夹内多了一个"自动关机程序.exe"的文件了,大功现已造成啦!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
setws=createobject("wscript.shell")ws.run"cmd.exe/cshutdown-s-f-t0
更多追问追答
追问
不要百度复制的
这我试过
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
st
更多追问追答
追问
?
滚
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询