淺析VB.NET實(shí)現(xiàn)定時(shí)關(guān)機(jī)
在向大家詳細(xì)介紹VB.NET實(shí)現(xiàn)定時(shí)關(guān)機(jī)之前，首先讓大家了解下VB.NET2005，然后全面介紹VB.NET實(shí)現(xiàn)定時(shí)關(guān)機(jī)具體步驟。
筆者最近在網(wǎng)上搜索了一些關(guān)于VB.NET實(shí)現(xiàn)定時(shí)關(guān)機(jī)、重啟、注銷的文章，發(fā)現(xiàn)大多介紹的是VB.NET2003用API實(shí)現(xiàn)這些功能，且在XPsp2環(huán)境下無法正常的關(guān)機(jī)與注銷。而對于VB.NET2005的介紹幾乎沒有。
本篇文章具有一定的基礎(chǔ)性和廣泛的實(shí)用性，相信能夠給VB.NET2005初學(xué)者帶來一定的幫助。
本文所使用的編程環(huán)境是Microsoft Visual Studio 2005，首先打開 Visual Studio。在文件 (File) 菜單上，單擊新建項(xiàng)目 (New Project)。 在新建項(xiàng)目 (New Project) 對話框的模板 (Templates) 窗格中，單擊 Windows 應(yīng)用程序 (Windows Application)。單擊確定 (OK)。
具體步驟如下：
首先在Form1窗體上添加一個(gè)Label1控件屬性text設(shè)置為:今天:2.然后分別添加3個(gè)button控件name分別為button1、button2、button3它們的text屬性分別為1. 關(guān)閉計(jì)算機(jī)（啟動(dòng)定時(shí)器）2. 注銷3. 重新啟動(dòng)。
現(xiàn)在我們就需要為程序加上一個(gè)定時(shí)器了，這個(gè)定時(shí)器需要與textbox1控件相關(guān)聯(lián)，輸入正確時(shí)間格式后就可以啟動(dòng)定時(shí)功能了。然后我們需要在窗體上添加一個(gè)timer、一個(gè)textbox1控件、和一個(gè)RadioButton1控件。讓它們保留默認(rèn)值不變。其中. TextBox1控件的text屬性設(shè)置為：00:00:00 。RadioButton1控件text設(shè)置為：指定時(shí)間關(guān)機(jī)|時(shí)間格式：00小時(shí):00分鐘:00秒
雙擊窗體進(jìn)入常規(guī)-聲明Public Class Form1 事件中。以上介紹VB.NET實(shí)現(xiàn)定時(shí)關(guān)機(jī)
- Imports System.Runtime.InteropServices
- Imports Microsoft.VisualBasic
- Public Class Form1
- '調(diào)用系統(tǒng)參數(shù)
- Friend Shared Function GetCurrentProcess() As IntPtr
- End Function
- Friend Shared Function OpenProcessToken(ByVal h As IntPtr,
- ByVal acc As Integer, ByRef phtok As IntPtr) As Boolean
- End Function
- Friend Shared Function LookupPrivilegeValue(ByVal host As String,
- ByVal name As String, ByRef pluid As Long) As Boolean
- End Function
- Friend Shared Function AdjustTokenPrivileges(ByVal htok As IntPtr,
- ByVal disall As Boolean, ByRef newst As TokPriv1Luid,
- ByVal len As Integer, ByVal prev As IntPtr,
- ByVal relen As IntPtr) As Boolean
- End Function
- Friend Shared Function ExitWindowsEx(ByVal flg As Integer,
- ByVal rea As Integer) As Boolean
- End Function
- Friend Const SEPRIVILEGEENABLED As Integer = &H2
- Friend Const TOKENQUERY As Integer = &H8
- Friend Const TOKENADJUSTPRIVILEGES As Integer = &H20
- Friend Const SESHUTDOWNNAME As String = "SeShutdownPrivilege"
- Friend Const EWXLOGOFF As Integer = &H0 '注銷計(jì)算機(jī)
- Friend Const EWXSHUTDOWN As Integer = &H1'關(guān)閉計(jì)算機(jī)
- Friend Const EWXREBOOT As Integer = &H2'重新啟動(dòng)計(jì)算機(jī)
- Friend Const EWXFORCE As Integer = &H4'關(guān)閉所有進(jìn)程，注銷計(jì)算機(jī)
- Friend Const EWXPOWEROFF As Integer = &H8
- Friend Const EWXFORCEIFHUNG As Integer = &H10
- '引用參數(shù)
- Friend Structure TokPriv1Luid
- Public Count As Integer
- Public Luid As Long
- Public Attr As Integer
- End Structure
- Private Shared Sub DoExitWin(ByVal flg As Integer)
- Dim xc As Boolean '判斷語句
- Dim tp As TokPriv1Luid
- Dim hproc As IntPtr = GetCurrentProcess()
- '調(diào)用進(jìn)程值
- Dim htok As IntPtrIntPtr = IntPtr.Zero
- xc = OpenProcessToken(hproc, TOKENADJUSTPRIVILEGES Or TOKENQUERY, htok)
- tp.Count = 1
- tp.Luid = 0
- tp.Attr = SEPRIVILEGEENABLED
- xc = LookupPrivilegeValue(Nothing, SESHUTDOWNNAME, tp.Luid)
- xc = AdjustTokenPrivileges(htok, False, tp, 0, IntPtr.Zero, IntPtr.Zero)
- xc = ExitWindowsEx(flg, 0)
- End Sub
- Public Shared Sub Reboot()
- DoExitWin((EWXFORCE Or EWXREBOOT)) '重新啟動(dòng)計(jì)算機(jī)
- End Sub
- Public Shared Sub PowerOff()
- DoExitWin((EWXFORCE Or EWXPOWEROFF)) '關(guān)閉計(jì)算機(jī)
- End Sub
- Public Shared Sub LogoOff()
- DoExitWin((EWXFORCE Or EWXLOGOFF)) '注銷計(jì)算機(jī)
- End Sub
- Dim entTime As Object '保存輸入時(shí)間
- Dim xianzaiTime As Object '保存實(shí)時(shí)時(shí)間
- Dim startTime As Object '保存開始定時(shí)時(shí)間
【編輯推薦】
