本帖最后由 9zhmke 于 2013-12-2 16:41 编辑
前几天刚好有空，写了段倒计时关机的vbs，原理是创建html并显示出来，实现每秒倒计时并关机的功能。
但这个脚本现在遇到的问题是：
刚弹出的窗口时怎样才能使这个刚生成的html窗口获得焦点？ 并使焦点自动聚焦在输入框？
附上程序段：- Dim WshShell,ip,Net_test,addr,str,i,count,speed
- Set WshShell=createobject("wscript.shell")
- Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
- set ie=wscript.createobject("internetexplorer.application","event_") '创建ie对象'
- ie.fullscreen=0 '不使用全屏
- ie.menubar=0 '取消菜单栏'
- ie.addressbar=0 '取消地址栏'
- ie.toolbar=0 '取消工具栏'
- ie.statusbar=0 '取消状态栏'
- ie.width=450 '宽'
- ie.height=280 '高'
- ie.resizable=0 '不允许用户改变窗口大小'
- ie.navigate "about:blank" '打开空白页面'
- 'ie.left=fix(ie.document.parentwindow.screen.availwidth-ie.width/2) '水平居中'
- ie.top=10
- ie.visible=0
- ie.visible=1 '窗口可见'
- with ie.document '以下调用document.write方法，'
- .write "<html><head><title>简易自定义关机程序</title></head><body bgcolor=#dddddd scroll=no>"
- .write "<br><font size=5><center><font face=黑体>九洲系统优化系列 </font></center><br></font>"
- .write string(6," ") & "功能建议和信息反馈请点击：<a href=http://bbs.dp168.com/thread-88488-1-1.html target=_blank>东坡论坛"
- .write "</a></font></p><br> 请输入多久后关机："
- .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) & ">"
- .write " 还剩下：<label id=time_echo type=text size=5 name=time_echo>"
- .write "</label><br><br><p align=right><label id=time_demo type=text size=5 name=time_demo> </label>"
- .write "<input id=cancel type=button value=退出> <input id=confirm type=button value=确定 onclick=confirm>"
- .write " <p></font></body></html>"
- .write "<!-- document.all.time_in.focus(); --> "
- end with
- dim wmi '显式定义一个全局变量'
- set wnd=ie.document.parentwindow '设置wnd为窗口对象'
- set id=ie.document.all '设置id为document中全部对象的集合'
- id.confirm.onclick=getref("confirm") '设置点击"确定"按钮时的处理函数'
- id.cancel.onclick=getref("cancel") '设置点击"取消"按钮时的处理函数'
- tmp_mi=0
- tmp=0
- tmp_sec=0
- wscript.sleep 200
- if WshShell.AppActivate("http:/// - 简易自定义关机程序 - Windows Internet Explorer") then WshShell.SendKeys "{ENTER}" '好象是找到了,但无法激活。
-
-
-
- do while true '由于ie对象支持事件，所以相应的，'
- wscript.sleep 1000 '脚本以无限循环来等待各种事件。'
- 'msgbox "H" & IE.document.GetElementById("time_echo").innerHTML & "H"
- if tmp_mi>=0 and tmp_sec>0 then
- tmp_sec=tmp_sec-1
- if tmp_sec<1 then
- tmp_sec=60
- tmp_mi=tmp_mi-1
- end if
- 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
- if tmp_mi>-1 then IE.document.GetElementById("time_echo").innerHTML=tmp_h & ":" & tmp_sec
- end if
- if tmp_mi<0 and tmp_sec=60 then Shutdown()
- loop
- sub event_onquit 'ie退出事件处理过程'
- wscript.quit '当ie退出时，脚本也退出'
- end sub
- sub cancel '"取消"事件处理过程'
- ie.quit '调用ie的quit方法，关闭IE窗口'
- end sub '随后会触发event_onquit，于是脚本也退出了'
- sub confirm '"确定"事件处理过程，这是关键'
- with id
- tmp=.time_in.value
- if tmp>"" then tmp=Num(tmp)
- 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
- if isnumeric(tmp) then if tmp<1 then tmp=""
- if isnumeric(tmp)=false then tmp=""
- if tmp="" then
- IE.document.GetElementById("time_demo").innerHTML= "<font color=red>请输入正确的分钟数！</font>"
- tmp=0
- .time_in.value="" '空值则默认
- else
- tmp_mi=tmp-1:tmp_sec=60
- IE.document.GetElementById("time_demo").innerHTML= ""
- end if
- end with
- end sub
-
- '===========================================================================================
- Function Shutdown() '关机
- Set colOperatingSystems = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")
- For Each objOperatingSystem in colOperatingSystems
- ObjOperatingSystem.Win32Shutdown(8)
- Next
- End Function
-
- Function Num(i) '转换中文
- k=""
- for j=1 to len(i)
- l=mid(i,j,1)
- if l="１" then l="1"
- if l="２" then l="2"
- if l="３" then l="3"
- if l="４" then l="4"
- if l="５" then l="5"
- if l="６" then l="6"
- if l="７" then l="7"
- if l="８" then l="8"
- if l="９" then l="9"
- if l="０" then l="0"
- if l="：" then l=":"
- k=k & l
- next
- Num=k
- End Function
| 
发表于 2013-11-30 13:56
| 
