如何在編的VB.NET程序使用時(shí)關(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è)報(bào)價(jià),網(wǎng)絡(luò)營(yíng)銷(xiāo),網(wǎng)絡(luò)優(yōu)化,縉云網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競(jìng)爭(zhēng)力。可充分滿(mǎn)足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時(shí)我們時(shí)刻保持專(zhuān)業(yè)、時(shí)尚、前沿，時(shí)刻以成就客戶(hù)成長(zhǎng)自我，堅(jiān)持不斷學(xué)習(xí)、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實(shí)用型網(wǎng)站。

shell("shutdown.exe路徑

-s

-t

0")

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

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

請(qǐng)問(wèn)VB.NET的關(guān)機(jī)語(yǔ)句是？

這是點(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

' 注銷(xiāo)當(dāng)前用戶(hù)

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

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

Windows

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

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

比如你的電腦要在22:00關(guān)機(jī)，可以選擇“開(kāi)始→運(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”，則可以打開(kā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中按需使用。

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

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

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

Form1程序：（添加了一個(gè)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程序：(添加了一個(gè)Label1顯示信息和一個(gè)Timer1用于計(jì)時(shí)，F(xiàn)orm2可以自定義成你想要的樣式，標(biāo)題，按鈕，窗體樣式等)

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 '定時(shí)3秒關(guān)閉窗口

Timer1.Enabled = True

End Sub

End Class

代碼已在VS2017測(cè)試通過(guò)。

分享標(biāo)題：vb.net去自動(dòng)關(guān)機(jī),如何用vbs關(guān)機(jī)
當(dāng)前路徑：http://sd-ha.com/article24/dsihdce.html

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

廣告

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