批处理之家 - Powered by Discuz! Board

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 " <center>九洲系统优化系列 </center> "
.write string(6,"　") & "功能建议和信息反馈请点击：<a href=http://bbs.dp168.com/thread-88488-1-1.html target=_blank>东坡论坛"
.write "</a> 　　请输入多久后关机："
.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> <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 "            </body></html>"
.write " "
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= "请输入正确的分钟数！"
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