谁能帮我做个vbs 定时提醒休息的 小程序 15分钟提醒活动下胫骨 1小时提醒去走一走 一直运行 直到关机

'═════代═══码═══开═══始═════

do

wscriptsleep 15601000

i=i+1

if i=4 then

msgbox "出去走一走吧"

i=0

else

msgbox "活动下胫骨!"

end if

loop

'═════代═══码═══结═══束═════

Dim

RTime,

strTime,

NHour,

NMinute,

WSH,

bl

Set

WSH

=

CreateObject("WScriptShell")

bl

=

MsgBox("要执行关机 *** 作，还是重启 *** 作？",

vbYesNo

+

vbSystemModal,

"关机重启")

If

bl

=

vbYes

Then

RTime

=

InputBox("请输入关机时间(格式

时:分

如22:12)",

"时间",

"23:20")

Else

RTime

=

InputBox("请输入重启时间(格式

时:分

如22:12)",

"时间",

"23:20")

End

If

strTime

=

Split(RTime,

":")

'以冒号（：）分割RTime中的内容，并以数组形式存入变量strTime

NHour

=

CInt(strTime(0))

'获取strTime中的第一位数据并转换为整型数据，本例为23

NMinute

=

CInt(strTime(1))

Do

While

True

If

(Hour(Now)

=

NHour)

And

(Minute(Now)

=

NMinute)

And

bl

=

vbYes

Then

WScriptSleep

2000

'延迟2秒

WSHSendKeys

"(^{esc})"

'模仿按下键盘上的CTRL+Esc键

WScriptSleep

2000

WSHSendKeys

"{RIGHT}"

'模仿按下键盘上的向右移方向键

WScriptSleep

2000

WSHSendKeys

"{ENTER}"

'模仿按下键盘上的Enter键

Set

WSH

=

Nothing

Exit

Do

ElseIf

(Hour(Now)

=

NHour)

And

(Minute(Now)

=

NMinute)

And

bl

=

vbNo

Then

WScriptSleep

2000

'延迟2秒

WSHSendKeys

"(^{esc})"

'模仿按下键盘上的CTRL+Esc键

WScriptSleep

2000

WSHSendKeys

"{RIGHT}"

'模仿按下键盘上的向右移方向键

WScriptSleep

2000

WSHSendKeys

"{RIGHT}"

WScriptSleep

2000

WSHSendKeys

"{UP}"

WScriptSleep

2000

WSHSendKeys

"{ENTER}"

'模仿按下键盘上的Enter键

Set

WSH

=

Nothing

Exit

Do

Else

WScriptSleep

1000

End

If

Loop

说明：1、本程序的关机，重启，是利用模仿按下键盘键执行的，所以时间到时，如果还动鼠标时，有可能会执行不成功

2、如果能想出时间一到马上禁止使用鼠标，就很完美，100%成功

3、因为是模仿按键，不同系统的关机，重启，所在的位置可能不一样，所以有可能要根据自己的系统做相应的修改或添加模仿按键，向下键

{DOWN}

向左键

{LEFT}

向右键

{RIGHT}

向上键

{UP}，即通过方向钱把光标移到关机或重启按钮上，然后确认

4、我的是WIN7系统，以上代码在我这里运行成功

5、dos或批处理应该也能，只是，要到的交互命令，兼容性不好，比如，Choice命令，在WIN

XP里运行很正常，在我的WIN7里运行却不行

6、DOS

下的有Shutdown命令，专门用来关机，重启的，但兼容还是不好，不是每个系统都能用它

将编码选择ANSI，

然后将后缀名更改为vbs，最后双击运行即可

如果要关掉，就按住键盘上的Ctrl+Alt+Delete打开任务管理器（或者右击任务栏，选择任务管理器），将选择程序（如图），结束运行即可。

set AutoClose=createobject("wscriptshell")

if msgbox("您要使用定时关机程序？",vbokcancel,"阿庆提示：")=vbOK then

msgbox"欢迎使用！",64,"欢迎！"

NT=now()

InAuto=inputbox("现在是 " & NT &"," & chr(13)&"您计划在几分钟后关机？请输入：","计划" ,"5")

if InAuto=vbempty then

msgbox"您退出了该程序！",48,"Windows提示"

else

if InAuto="" then

msgbox"您的本次 *** 作有误！"&chr(13)&" 请重新启动程序",48,"Windows错误"

else

Min=dateadd("n",InAuto,time())

if msgbox("计算机将在 " & Min &" 后关机！",vbokcancel,"windows消息")=vbok then

Autosecond=InAuto60

AutoCloserun"cmdexe /c shutdown -s -t " & Autosecond,vbhide ' vbhide有隐藏执行cmd时出现的黑色窗口的作用

else

msgbox"程序终止！",48,"终止"

end if

end if

end if

else

msgbox"您退出了本次 *** 作！",48,"结束"

end if

复制以上代码到记事本 改后缀为 vbe 保存 。这是一个定时关机的vbs小程序。

希望能帮到您！

不用按键精灵也很容易实现的

例如想要在12点的时候关机，只要打开运行窗口可以按ctrl键旁边的Win键+R键打开。然后输入下面的内容就可以了。

at

12：00

Shutdown

－s

如果lz真的想用按键精灵来实现的话，用运行外部程序的方法就可以了。

VBSCall

RunApp("C:/WINDOWS/system32/shutdownexe

-s

-t

0")

下面是定时关机部分的代码：

vbs

NHour=hour(time)

//获取当前时间的小时部分

while(NHour<12)

vbs

NHour=hour(time)

delay

100

endwhile

VBSCall

RunApp("C:/WINDOWS/system32/shutdownexe

-s

-t

0")

过几个小时后关机的代码（以3个小时为例子）：

LTime=3

delay

LTime3600000

VBSCall

RunApp("C:/WINDOWS/system32/shutdownexe

-s

-t

0")

以上就是关于谁能帮我做个vbs 定时提醒休息的 小程序 15分钟提醒活动下胫骨 1小时提醒去走一走 一直运行 直到关机全部的内容，包括:谁能帮我做个vbs 定时提醒休息的 小程序 15分钟提醒活动下胫骨 1小时提醒去走一走 一直运行 直到关机、求定时关机﹑重启的VBS﹑VB代码、vbs无限d窗关机无效代码等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！