vb.net WinXP/2000操作系統(tǒng)自動(dòng)關(guān)機(jī)的實(shí)現(xiàn)

Windows

創(chuàng)新互聯(lián)從2013年開始，先為如皋等服務(wù)建站，如皋等地企業(yè)，進(jìn)行企業(yè)商務(wù)咨詢服務(wù)。為如皋企業(yè)網(wǎng)站制作PC+手機(jī)+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問題。

XP的關(guān)機(jī)是由Shutdown.exe程序來控制的，位于Windows\System32文件夾中。如果想讓W(xué)indows

2000也實(shí)現(xiàn)同樣的效果，可以把Shutdown.exe復(fù)制到系統(tǒng)目錄下。

比如你的電腦要在22:00關(guān)機(jī)，可以選擇“開始→運(yùn)行”，輸入“at

22:00

Shutdown

-s”，這樣，到了22點(diǎn)電腦就會(huì)出現(xiàn)“系統(tǒng)關(guān)機(jī)”對(duì)話框，默認(rèn)有30秒鐘的倒計(jì)時(shí)并提示你保存工作。如果你想以倒計(jì)時(shí)的方式關(guān)機(jī)，可以輸入“Shutdown.exe

-s

-t

3600”，這里表示60分鐘后自動(dòng)關(guān)機(jī)，“3600”代表60分鐘。

設(shè)置好自動(dòng)關(guān)機(jī)后，如果想取消的話，可以在運(yùn)行中輸入“shutdown

-a”。另外輸入“shutdown

-i”，則可以打開設(shè)置自動(dòng)關(guān)機(jī)對(duì)話框，對(duì)自動(dòng)關(guān)機(jī)進(jìn)行設(shè)置。

Shutdown.exe的參數(shù)，每個(gè)都具有特定的用途，執(zhí)行每一個(gè)都會(huì)產(chǎn)生不同的效果，比如“-s”就表示關(guān)閉本地計(jì)算機(jī)，“-a”表示取消關(guān)

機(jī)操作，下面列出了更多參數(shù)，大家可以在Shutdown.exe中按需使用。

其他的我也不多說了，這樣說已經(jīng)很詳細(xì)了，你應(yīng)該能看懂。

vb.net實(shí)現(xiàn)關(guān)機(jī)

這是點(diǎn)擊Option 你可以

用個(gè)msgbox函數(shù) 點(diǎn)擊YES時(shí)候運(yùn)行關(guān)機(jī)代碼即可

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Integer, ByVal dwReserved As Integer) As Integer　

Const EWX_FORCE As Short = 4

Const EWX_LOGOFF As Short = 0

Const EWX_REBOOT As Short = 2

Const EWX_SHUTDOWN As Short = 1

Dim retval As Integer

' 定義Esc按鍵

Const VK_ESCAPE As Short = H1Bs

Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click

If Option1.Checked Then

' 注銷當(dāng)前用戶

retval = ExitWindowsEx(EWX_FORCE, 0) bitsCN.Com

ElseIf Option2.Checked Then

' 關(guān)閉計(jì)算機(jī)

retval = ExitWindowsEx(EWX_SHUTDOWN, 0)

ElseIf Option3.Checked Then

' 重新啟動(dòng)

retval = ExitWindowsEx(EWX_REBOOT, 0)

End If

End Sub

Private Sub Command2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command2.Click

Me.Close()

End Sub

' 按Esc鍵時(shí)，結(jié)束應(yīng)用程序

Private Sub Form1_KeyPress(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress

Dim KeyAscii As Short = Asc(eventArgs.KeyChar)

If KeyAscii = VK_ESCAPE Then BBS.bitsCN.com網(wǎng)管論壇

Me.Close()

End If

If KeyAscii = 0 Then

eventArgs.Handled = True

End If

End Sub

怎樣用vbs命令禁止關(guān)機(jī)

代碼如下，復(fù)制到記事本保存，然后修改文件名后綴為.reg，然后雙擊運(yùn)行

（或者復(fù)制到記事本另存為文件類型選“所有文件”，文件名填“xx.reg”）

Windows?Registry?Editor?Version?5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]

"noclose"=dword:01

[HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\System]

"DisableCMD"=dword:02

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System]

"DisableTaskMgr"=dword:01

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]??

"NoViewContextMenu"=dword:01

"NoTrayContextMenu"=dword:01

"NoChangeStartMenu"=dword:01

代碼解釋：

第一段是固定聲明，下面空一行

第二段是禁關(guān)機(jī)重啟

第三段是禁cmd

第四段是禁任務(wù)管理器

第五段是禁右鍵

如果要徹底封殺的話，還應(yīng)該禁止注冊(cè)表和組策略以及vbs等，附禁止代碼列表：

vb.net2008攔截關(guān)機(jī)或注銷消息

在SystemEvents類中 可以 用戶試圖注銷或關(guān)閉系統(tǒng)時(shí)發(fā)生。 (當(dāng)用戶試圖注銷或關(guān)閉系統(tǒng)時(shí)發(fā)生。當(dāng)用戶試圖注銷或關(guān)閉系統(tǒng)時(shí)發(fā)生。) 這個(gè) 事件處理函數(shù)中 可以找到如下方法

Private Shared WM_QUERYENDSESSION As Integer = H11

Private Shared systemShutdown As Boolean = False

Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)

If m.Msg = WM_QUERYENDSESSION Then

'MessageBox.Show("queryendsession: this is a logoff, shutdown, or reboot")

systemShutdown = True

End If

' If this is WM_QUERYENDSESSION, the closing event should be raised in the base WndProc.

MyBase.WndProc(m)

End Sub 'WndProc

Private Sub Form1_Closing(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing

If (systemShutdown) Then

' Reset the variable because the user might cancel the shutdown.

systemShutdown = False

If (System.Windows.Forms.DialogResult.Yes = _

MessageBox.Show("My application", "Do you want to save your work before logging off?", MessageBoxButtons.YesNo)) Then

e.Cancel = True

Else

e.Cancel = False

End If

End If

End Sub

如何在編的VB.NET程序使用時(shí)關(guān)閉電腦

有兩種方法，第一種是調(diào)用shutdown.exe

shell("shutdown.exe路徑

-s

-t

0")

'-t是延遲時(shí)間，0表示立刻關(guān)機(jī)

另一種就是使用API了，好像是ExitWindow，你可以去搜索一下其用法。

網(wǎng)站欄目：vb.net防止關(guān)機(jī)的簡單介紹
網(wǎng)站地址：http://m.newbst.com/article34/hsegse.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供移動(dòng)網(wǎng)站建設(shè)、品牌網(wǎng)站建設(shè)、全網(wǎng)營銷推廣、搜索引擎優(yōu)化、網(wǎng)頁設(shè)計(jì)公司、Google

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)