vb.net去自動關(guān)機,如何用vbs關(guān)機

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

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

創(chuàng)新互聯(lián)是一家集網(wǎng)站建設(shè),縉云企業(yè)網(wǎng)站建設(shè),縉云品牌網(wǎng)站建設(shè),網(wǎng)站定制,縉云網(wǎng)站建設(shè)報價,網(wǎng)絡(luò)營銷,網(wǎng)絡(luò)優(yōu)化,縉云網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強企業(yè)競爭力?？沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時我們時刻保持專業(yè)、時尚、前沿，時刻以成就客戶成長自我，堅持不斷學習、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實用型網(wǎng)站。

shell("shutdown.exe路徑

-s

-t

0")

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

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

請問VB.NET的關(guān)機語句是？

這是點擊Option 你可以

用個msgbox函數(shù) 點擊YES時候運行關(guān)機代碼即可

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

' 注銷當前用戶

retval = ExitWindowsEx(EWX_FORCE, 0) bitsCN.Com

ElseIf Option2.Checked Then

' 關(guān)閉計算機

retval = ExitWindowsEx(EWX_SHUTDOWN, 0)

ElseIf Option3.Checked Then

' 重新啟動

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鍵時，結(jié)束應用程序

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

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

Windows

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

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

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

22:00

Shutdown

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

-s

-t

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

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

-a”。另外輸入“shutdown

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

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

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

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

VB.net如何設(shè)置msgbox可以定時自動關(guān)閉？

MessageBox里的Show里沒有自動關(guān)閉的方法，但是你可以自定義一個MessageBox,MessageBox就是一個窗體，你新建一個窗體Form2，添加一個public屬性message和一個定時器timer1,timer1的interval設(shè)置成你想要的時間，在Form2的Load事件啟動timer1，Timer1_Tick事件里關(guān)閉窗口Me.Close(),然后在需要顯示Messagebox的時候，在主窗口Form1里設(shè)置messge屬性，然后用show方法彈出窗口就可以了。

Form1程序：（添加了一個Button1）

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim f2 As Form2 = New Form2

f2.Message = "提示"

f2.ShowDialog()

End Sub

End Class

Form2程序：(添加了一個Label1顯示信息和一個Timer1用于計時，F(xiàn)orm2可以自定義成你想要的樣式，標題，按鈕，窗體樣式等)

Public Class Form2

'自定義屬性 顯示提示信息

Public WriteOnly Property Message As String

Set(value As String)

Label1.Text = value

End Set

End Property

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

Me.Close()

End Sub

Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Timer1.Interval=3000 '定時3秒關(guān)閉窗口

Timer1.Enabled = True

End Sub

End Class

代碼已在VS2017測試通過。

分享標題：vb.net去自動關(guān)機,如何用vbs關(guān)機
當前路徑：http://www.jbt999.com/article24/dsihdce.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供商城網(wǎng)站、Google、軟件開發(fā)、營銷型網(wǎng)站建設(shè)、手機網(wǎng)站建設(shè)、網(wǎng)站內(nèi)鏈

廣告

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