欧美国产另类久热|951超碰伊人久久|伊人影视久久久久|色婷婷亚洲小电影|色东京热69XX|婷婷玖玖深爱网|加勒比东京热网站|无码A级毛片在线观看|一级a毛一级a看|中文字幕人妻欧美

hta實現(xiàn)的定時關機小程序
來源：易賢網(wǎng) 閱讀：1272 次 日期：2014-08-12 16:58:56
溫馨提示：易賢網(wǎng)小編為您整理了“hta實現(xiàn)的定時關機小程序”,方便廣大網(wǎng)友查閱！

定時關機小程序

界面：

名單

代碼如下:

<head>

<title>定時關機小程序</title>

<HTA:APPLICATION

     APPLICATIONNAME="HTA Test"

  Borde="thin"

  BorderStyle="raised"

  ICON="C:\WINDOWS\SYSTEM32\control.exe"

     SCROLL="no"

     SINGLEINSTANCE="yes"

  MaximizeButton="no"

  MinimizeButton="no"

     WINDOWSTATE="normal"

>

</head>

<script language="VBScript">

 Sub Window_onLoad

  strComputer = "."

  Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

  Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor")

  For Each objItem in colItems

   intHorizontal = objItem.ScreenWidth

   intVertical = objItem.ScreenHeight

  Next

  intLeft = (intHorizontal - 240) / 2

  intTop = (intVertical - 500) / 2

  window.resizeTo 240,500

  window.moveTo intLeft, intTop

 End Sub

    Sub OneSub

  set objectShell=CreateObject("wscript.shell")

  iReturn = objectShell.Run("shutdown -s -f -t 1800", 0, TRUE)

    End Sub

    Sub TwoSub

  set objectShell=CreateObject("wscript.shell")

  iReturn = objectShell.Run("shutdown -s -f -t 2700", 0, TRUE)

    End Sub

    Sub ThrSub

  set objectShell=CreateObject("wscript.shell")

  iReturn = objectShell.Run("shutdown -s -f -t 3600", 0, TRUE)

    End Sub

 Sub OK

  If IsNumeric(Text.Value) Then

   OverTime = Text.Value * 60

   set objectShell=CreateObject("wscript.shell")

   iReturn = objectShell.Run("shutdown -s -f -t " & OverTime, 0, TRUE)

  Else

   MsgBox "請輸入一個有效的數(shù)字。"

  End If

    End Sub

    Sub ShutDown

  set objectShell=CreateObject("wscript.shell")

  iReturn = objectShell.Run("shutdown -s -t 0", 0, TRUE)

    End Sub

    Sub EShutDown

  set objectShell=CreateObject("wscript.shell")

  iReturn = objectShell.Run("shutdown -a", 0, TRUE)

    End Sub

</script>

<body>

<br>

<center><div><input type="button" style="height:30px;line-height:20px;border:1px solid #aaa;" value="30 分鐘后關閉計算機" name="run_button" onClick="OneSub"><p> </div></center>

<center><div><input type="button" style="height:30px;line-height:20px;border:1px solid #aaa;" value="45 分鐘后關閉計算機" name="run_button" onClick="TwoSub"><p> </div></center>

<center><div><input type="button" style="height:30px;line-height:20px;border:1px solid #aaa;" value="60 分鐘后關閉計算機" name="run_button" onClick="ThrSub"><p> </div></center>

<br>

 自定義時間（分鐘）：<p>

 <input type="text" name="text" id="text" style="height:23px;width:120px;line-height:20px;border:1px solid #aaa;"/> 

<input name="Submit" TYPE="Submit" style="width:50px;height:23px;line-height:20px;border:1px solid #aaa;" value="確定" onClick="OK"><p>

<br>

<center><div><input type="button" style="height:30px;line-height:20px;border:1px solid #aaa;" value="取消計劃中的注銷" name="run_button"  onClick="EShutDown"><p> </div></center>

<center><div><input type="button" style="height:30px;line-height:20px;border:1px solid #aaa;" value=" 關閉計算機 " name="run_button"  onClick="ShutDown"><p> </div></center>

<br>

<center><div><a >http://www.enun.net/</a></div></center>

</body>

更多信息請查看IT技術專欄

更多信息請查看腳本欄目
易賢網(wǎng)手機網(wǎng)站地址：hta實現(xiàn)的定時關機小程序
關于我們 | 聯(lián)系我們 | 人才招聘 | 網(wǎng)站聲明 | 網(wǎng)站幫助 | 非正式的簡要咨詢 | 簡要咨詢須知 | 新媒體/短視頻平臺 | 手機站點

版權所有:易賢網(wǎng)