萬盛學電腦網

浏覽器 windows 10 wps office 殺毒軟件 數據庫 excel教程 文件管理 word教程 網頁制作 裝機必備軟件 linux教程

萬盛學電腦網 >> 網絡編程 >> 編程語言綜合 >> hta實現的定時關機小程序

hta實現的定時關機小程序

這個小程序使用hta寫的，用了vbscript代碼實現，喜歡的朋友可以測試下

定時關機小程序

界面：

實現代碼：

復制代碼代碼如下:
<head>
<title>定時關機小程序</title>
<HTA:APPLICATION
     APPLICATIONNAME="HTA Test"
Borde="thin"
BorderStyle="raised"
ICON="C:WINDOWSSYSTEM32control.exe"
     SCROLL="no"
     SINGLEINSTANCE="yes"
MaximizeButton="no"
MinimizeButton="no"
     WINDOWSTATE="normal"
>
</head>
<script language="VBScript">
Sub Window_onLoad
  strComputer = "."
  Set objWMIService = GetObject("winmgmts:" & strComputer & "rootcimv2")
  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 "請輸入一個有效的數字。"
  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 href="http://www.enun.net/">http://www.enun.net/</a></div></center>
</body>

打包下載：dsgj_jb51.rar

萬盛學電腦網

萬盛學電腦網 >> 網絡編程 >> 編程語言綜合 >> hta實現的定時關機小程序

hta實現的定時關機小程序

編程語言綜合排行

程序編程推薦

熱門文章

相關文章

圖片文章

互聯網產品交互事件分析

橫豎都要給力談移動客戶端橫豎屏切換設計

在Linux系統下使用Github的基本教程

php面向對象public private protected 訪問修飾符

萬盛學電腦網 | 設為首頁 | 加入收藏

萬盛學電腦網

萬盛學電腦網 >> 網絡編程 >> 編程語言綜合 >> hta實現的定時關機小程序

hta實現的定時關機小程序

編程語言綜合排行

程序編程推薦

熱門文章

相關文章

圖片文章

互聯網產品交互事件分析

橫豎都要給力 談移動客戶端橫豎屏切換設計

在Linux系統下使用Github的基本教程

php面向對象public private protected 訪問修飾符

萬盛學電腦網 | 設為首頁 | 加入收藏

橫豎都要給力談移動客戶端橫豎屏切換設計