如何制作VBScript计时器
我需要有一个计时器出现在一个消息框,在vbs编码。消息框需要位于屏幕的左下角,即“开始”菜单的正上方。它需要不能退出,这意味着它不能在任务栏上列出(希望如此),并且没有最小化/退出按钮。它需要保持在所有其他窗口的顶部。它还需要在20分钟开始,以秒为单位倒计时。我希望有人能帮我,这是一个计算机实验室 谢谢,如何制作VBScript计时器,vbscript,timer,Vbscript,Timer,我需要有一个计时器出现在一个消息框,在vbs编码。消息框需要位于屏幕的左下角,即“开始”菜单的正上方。它需要不能退出,这意味着它不能在任务栏上列出(希望如此),并且没有最小化/退出按钮。它需要保持在所有其他窗口的顶部。它还需要在20分钟开始,以秒为单位倒计时。我希望有人能帮我,这是一个计算机实验室 谢谢, 马修试试这样: Option Explicit Dim Title,ws,nMinutes,nSeconds,sMessage Title = "Counting Down to Shutdo
马修试试这样:
Option Explicit
Dim Title,ws,nMinutes,nSeconds,sMessage
Title = "Counting Down to Shutdown"
Set ws = CreateObject("wscript.Shell")
nMinutes = 20
nSeconds = 0
sMessage = "<font color=Red size=2><b>Counting Down to Shutdown"
'Open a chromeless window with message
with HTABox("lightBlue",100,250,0,630)
.document.title = "Counting Down Notification to Shutdown"
.msg.innerHTML = sMessage
do until .done.value or (nMinutes + nSeconds < 1)
.msg.innerHTML = sMessage & "<br>" & nMinutes & ":" & Right("0"&nSeconds, 2) _
& " remaining</b></font><br>"
wsh.sleep 1000 ' milliseconds
nSeconds = nSeconds - 1
if nSeconds < 0 then
if nMinutes > 0 then
nMinutes = nMinutes - 1
nSeconds = 59
end if
end if
loop
.done.value = true
.close
end with
ws.Popup "TIME IS OVER !","5",Title,0+48 'Afficher un Popup durant 5 secondes puis on quitte le script
'Command="cmd /c Shutdown.exe -s -t 30 -c " & DblQuote("Sauvegarder votre Travail car l'ordinateur va rebooter dans 30 secondes")
'Executer = WS.Run(Command,0,False)
'*****************************************************************
Function HTABox(sBgColor, h, w, l, t)
Dim IE, HTA, sCmd, nRnd
randomize : nRnd = Int(1000000 * rnd)
sCmd = "mshta.exe ""javascript:{new " _
& "ActiveXObject(""InternetExplorer.Application"")" _
& ".PutProperty('" & nRnd & "',window);" _
& "window.resizeTo(" & w & "," & h & ");" _
& "window.moveTo(" & l & "," & t & ")}"""
with CreateObject("WScript.Shell")
.Run sCmd, 1, False
do until .AppActivate("javascript:{new ") : WSH.sleep 10 : loop
end with 'WSHShell
For Each IE In CreateObject("Shell.Application").windows
If IsObject(IE.GetProperty(nRnd)) Then
set HTABox = IE.GetProperty(nRnd)
IE.Quit
HTABox.document.title = "HTABox"
HTABox.document.write _
"<HTA:Application contextMenu=no border=thin " _
& "minimizebutton=no maximizebutton=no sysmenu=no SHOWINTASKBAR=no >" _
& "<body scroll=no style='background-color:" _
& sBgColor & ";font:normal 10pt Arial;" _
& "border-Style:inset;border-Width:3px'" _
& "onbeforeunload='vbscript:if not done.value then " _
& "window.event.cancelBubble=true:" _
& "window.event.returnValue=false:" _
& "done.value=true:end if'>" _
& "<input type=hidden id=done value=false>" _
& "<center><span id=msg> </span><br>" _
& "<input type=button id=btn1 value=' OK ' "_
& "onclick=done.value=true><center></body>"
HTABox.btn1.focus
Exit Function
End If
Next
MsgBox "HTA window not found."
wsh.quit
End Function
'*****************************************************************
选项显式
暗标题、ws、N分钟、N秒、sMessage
Title=“倒计时到关机”
设置ws=CreateObject(“wscript.Shell”)
n分钟=20
N秒=0
sMessage=“倒计时到关机”
'打开带有消息的无铬窗口
带有HTABox(“浅蓝色”,100250,0630)
.document.title=“倒计时关闭通知”
.msg.innerHTML=sMessage
直到.done.value或(n分钟+n秒<1)
.msg.innerHTML=sMessage&“
”&n分钟&“:”&Right(“0”&n秒,2)_
&“剩余的
”
wsh.sleep 1000'毫秒
N秒=N秒-1
如果N秒小于0,则
如果nMinutes>0,则
n分钟=n分钟-1
N秒=59
如果结束
如果结束
环
.done.value=true
关
以
ws.Popup“时间结束了!”,“5”,标题,0+48'附件未弹出杜兰特5秒退出脚本
'Command=“cmd/c Shutdown.exe-s-t 30-c”和DblQuote(“Sauvegarder votre Travail car l'Orderiour va rebooter dans 30秒”)
'Executer=WS.Run(命令,0,False)
'*****************************************************************
函数HTABox(sBgColor,h,w,l,t)
美国国家公路交通管理局、挪威国家公路交通管理局、挪威国家公路交通管理局
随机化:nRnd=Int(1000000*rnd)
sCmd=“mshta.exe”javascript:{new”_
&ActiveXObject(“InternetExplorer.Application”)_
&.PutProperty(“&nRnd&”,窗口)_
&window.resizeTo(&w&“,&h&”)_
&window.moveTo(“&l&”、“&t&”}”
使用CreateObject(“WScript.Shell”)
.运行sCmd,1,错误
dountil.AppActivate(“javascript:{new”):WSH.sleep 10:loop
以“WSHShell”结尾
对于CreateObject(“Shell.Application”).windows中的每个IE
如果是IsObject(即GetProperty(nRnd)),则
设置HTABox=IE.GetProperty(nRnd)
即退出
HTABox.document.title=“HTABox”
HTABox.document.write_
"" _
& "" _
& "" _
&“
”_
& ""
HTABox.btn1.focus
退出功能
如果结束
下一个
MsgBox“未找到HTA窗口。”
退出
端函数
'*****************************************************************
您能展示一下您的代码吗?您尝试了什么?您可以使用“保持领先”来实现这一点,尽管可能不是“保持领先”需求谢谢!这很好用。我的系统管理员很喜欢它。我已经写了一个脚本,这样当时间到了,电脑就会重新启动。我希望在学校实验室的50台电脑上实现它不会花费太长时间!所以,如果你觉得它有用,那么,你应该投票并接受它!等等-可以“注销”吗添加按钮?添加注销按钮的目的是什么?请详细说明您的目的!它是一系列bat文件的一部分,可让我们的学校电脑半自动运行。管理员帐户已隐藏,登录屏幕已编程为“单击用户亭登录”这样可以让学生提前结束课程。