Board logo

标题: [原创] 灵活的VBS倒计时关机程序 [打印本页]
作者: 9zhmke    时间: 2013-12-18 10:37     标题: 灵活的VBS倒计时关机程序

这篇稿子写出来过后自我感觉界面还可以，效果还不错
1、可以在界面中随时更改关机的时间。
2、关掉程序即取消定时关机。
3、默认以分钟数作为关机时间，如果输入冒号，则把冒号前面的作为小时数处理。
4、可以兼容以全角输入的数字和冒号。
但是有个问题没解决是：弹出的提示框未处于被聚焦状态，需要鼠标定位点击后才能输入，请知道的指点一下解决方法。
  1. '直接输入数字就是按所输入数字的分钟数后关机

  2. '如果用冒号隔开则把小时和分钟一起计算

  3. '可以随时更改关机时间

  4. Dim WshShell,ip,Net_test,addr,str,i,count,speed

  5. Set WshShell=CreateObject("shell.application") 

  6. WshShell.MinimizeAll 

  7. Set WshShell=createobject("wscript.shell") 

  8. 

  9. Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

  10. set ie=wscript.createobject("internetexplorer.application","event_") '创建ie对象' 

  11. ie.fullscreen=0 '不使用全屏

  12. ie.menubar=0 '取消菜单栏' 

  13. ie.addressbar=0 '取消地址栏' 

  14. ie.toolbar=0 '取消工具栏' 

  15. ie.statusbar=0 '取消状态栏' 

  16. ie.width=450 '宽' 

  17. ie.height=435 '高' 

  18. ie.resizable=0 '不允许用户改变窗口大小' 

  19. ie.navigate "about:blank" '打开空白页面' 

  20. 'ie.left=fix(ie.document.parentwindow.screen.availwidth-ie.width/2) '水平居中' 

  21. ie.top=10

  22. ie.visible=0

  23. ie.visible=0 '窗口不可见' 

  24. with ie.document '以下调用document.write方法，' 

  25.     .write "<html><head><title>简易自定义关机程序</title></head><body bgcolor=#dddddd scroll=no>"

  26.     .write "<br><font size=5><center><font face=黑体>九洲系统优化系列 </font></center><br></font>" 

  27.     .write string(6,"　") & "功能建议和信息反馈请点击：<a href=http://bbs.dp168.com/thread-88488-1-1.html target=_blank>东坡论坛"

  28.     .write "</a></font></p><br>　　请输入多久后关机："

  29.     .write "<input id=time_in type=text size=5 name=time_in onkeydown="& chr(34) & "if(event.keyCode==13) document.all.confirm.focus();" & chr(34) & ">"

  30.     .write "　还剩下：<label id=time_echo type=text size=5 name=time_echo>" 

  31.     .write "</label><br><br><p align=right><label id=time_demo type=text size=5 name=time_demo> </label>"

  32.     .write "<input id=cancel type=button value=退出>　<input id=confirm type=button value=确定 onclick=confirm>" 

  33.     .write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<p>"

  34.     .write "<object classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 width=417 height=156 "

  35.     .write "codebase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab>"

  36.     .write "<param name=movie value=http://dp168.com/ad/clock.swf>"

  37.     .write "<param name=quality value=high><param name=bgcolor value=#869ca7>"

  38.     .write "<param name=allowScriptAccess value=always><embed src="

  39.     .write "http://dp168.com/ad/clock.swf quality=high "

  40.     .write "name=Timer align=middle  width=417 height=156 play=true loop=false allowScriptAccess=always "

  41.     .write "type=application/x-shockwave-flash pluginspage=http://www.macromedia.com/go/getflashplayer>"

  42.     .write "</embed></object></font></body></html><!-- document.all.time_in.focus(); --> "

  43. end with 

  44. dim wmi '显式定义一个全局变量' 

  45. set wnd=ie.document.parentwindow '设置wnd为窗口对象' 

  46. set id=ie.document.all '设置id为document中全部对象的集合' 

  47. id.confirm.onclick=getref("confirm") '设置点击"确定"按钮时的处理函数' 

  48. id.cancel.onclick=getref("cancel") '设置点击"取消"按钮时的处理函数' 

  49. tmp_mi=0

  50. tmp=0

  51. tmp_sec=0

  52. wscript.sleep 200

  53. ie.visible=1 '窗口可见' 

  54. 'ie.document.username.focus()  

  55. 'ie.document.getElementById("username").focus()  

  56. 

  57. 

  58. 

  59. 

  60. 

  61. 

  62. 

  63. 

  64. do while true '由于ie对象支持事件，所以相应的，' 

  65.   wscript.sleep 1000 '脚本以无限循环来等待各种事件。'

  66.   'msgbox  "H" & IE.document.GetElementById("time_echo").innerHTML & "H"

  67.   if tmp_mi>=0 and tmp_sec>0 then 

  68.       tmp_sec=tmp_sec-1

  69.       if tmp_sec<1 then

  70.           tmp_sec=60

  71.           tmp_mi=tmp_mi-1

  72.       end if

  73.       tmp_h=int(tmp_mi/60):if tmp_h>0 then tmp_h=tmp_h & "小时" & tmp_mi-tmp_h*60 else tmp_h=tmp_mi

  74.       if tmp_mi>-1 then IE.document.GetElementById("time_echo").innerHTML=tmp_h & ":" & tmp_sec

  75.   end if

  76.   if tmp_mi<0 and tmp_sec=60 then Shutdown()

  77. loop 

  78. sub event_onquit 'ie退出事件处理过程' 

  79.   wscript.quit '当ie退出时，脚本也退出' 

  80. end sub 

  81. sub cancel '"取消"事件处理过程' 

  82.   ie.quit '调用ie的quit方法，关闭IE窗口' 

  83. end sub '随后会触发event_onquit，于是脚本也退出了' 

  84. sub confirm '"确定"事件处理过程，这是关键' 

  85.   with id 

  86.       tmp=.time_in.value

  87.       if tmp>"" then tmp=Num(tmp)

  88.       if instr(tmp,":") then tmp_left=left(tmp,instr(tmp,":")-1):tmp_right=right(tmp,len(tmp)-instr(tmp,":")):tmp=tmp_left*60+tmp_right

  89.       if isnumeric(tmp) then if tmp<1 then tmp=""

  90.       if isnumeric(tmp)=false then  tmp=""    

  91.       if tmp="" then

  92.           IE.document.GetElementById("time_demo").innerHTML= "<font color=red>请输入正确的分钟数！</font>"

  93.           tmp=0

  94.           .time_in.value="" '空值则默认 

  95.       else

  96.           tmp_mi=tmp-1:tmp_sec=60

  97.           IE.document.GetElementById("time_demo").innerHTML= ""

  98.       end if

  99.   end with 

  100. end sub 

  101. 

  102. '===========================================================================================

  103. Function Shutdown() '关机

  104.     Set colOperatingSystems = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from Win32_OperatingSystem") 

  105.     For Each objOperatingSystem in colOperatingSystems 

  106.         ObjOperatingSystem.Win32Shutdown(8) 

  107.     Next 

  108. End Function

  109. 

  110. Function Num(i) '转换中文

  111.     k=""

  112.     for j=1 to len(i)

  113.         l=mid(i,j,1)

  114.         if l="１" then l="1"

  115.         if l="２" then l="2"

  116.         if l="３" then l="3"

  117.         if l="４" then l="4"

  118.         if l="５" then l="5"

  119.         if l="６" then l="6"

  120.         if l="７" then l="7"

  121.         if l="８" then l="8"

  122.         if l="９" then l="9"

  123.         if l="０" then l="0"

  124.         if l="：" then l=":"

  125.         k=k & l

  126.     next

  127.     Num=k

  128. End Function
复制代码




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2