建站
咨詢(xún)
售后
建站咨詢(xún)
新聞中心
vb 關(guān)機(jī)代碼
'OK添加兩個(gè)按鈕，把下面代碼直接復(fù)制粘貼進(jìn)代碼輸入框把原來(lái)的代碼全部覆蓋，F(xiàn)5就可以了。
10年積累的做網(wǎng)站、成都網(wǎng)站制作經(jīng)驗(yàn)，可以快速應(yīng)對(duì)客戶(hù)對(duì)網(wǎng)站的新想法和需求。提供各種問(wèn)題對(duì)應(yīng)的解決方案。讓選擇我們的客戶(hù)得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認(rèn)識(shí)你，你也不認(rèn)識(shí)我。但先網(wǎng)站設(shè)計(jì)后付款的網(wǎng)站建設(shè)流程，更有都蘭免費(fèi)網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。
Private sub Form_load()
command1.caption="關(guān)機(jī)"
command2.caption="重啟"
Private Sub command1_click()
Shell "cmd /c" "shutdown -s -t 0"
End Sub '關(guān)機(jī)代碼，0代表時(shí)間，就是幾秒后關(guān)機(jī)
Private Sub command2_click()
Shell "cmd /c" "shutdown -r -t 0"
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，你可以去搜索一下其用法。
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
' 注銷(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定時(shí)關(guān)機(jī)設(shè)置
1、首先，桌面空白處，點(diǎn)擊右鍵，在打開(kāi)的菜單項(xiàng)中，選擇新建文本文檔，然后分別命名為定時(shí)10分鐘后關(guān)機(jī)和取消關(guān)機(jī)。
2、其次定時(shí)10分鐘后關(guān)機(jī)，文檔內(nèi)輸入shutdownst600命令，意思是10分鐘后關(guān)機(jī)。
3、最后使用的時(shí)候，只需要雙擊定時(shí)10分鐘后關(guān)機(jī)這個(gè)批處理，就會(huì)彈出即將注銷(xiāo)你的登錄，Windows將在10分鐘后關(guān)閉。
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ì)話(huà)框，默認(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ī)后，如果想取消的話(huà)，可以在運(yùn)行中輸入“shutdown
-a”。另外輸入“shutdown
-i”，則可以打開(kāi)設(shè)置自動(dòng)關(guān)機(jī)對(duì)話(huà)框，對(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è)計(jì)定時(shí)關(guān)機(jī)
1、開(kāi)機(jī)進(jìn)入桌面后，按下“Windows徽標(biāo)鍵+I”鍵，選中并打開(kāi)“控制面板”
2、在“控制面板”中的“系統(tǒng)和安全”里，選中“管理工具”里的“計(jì)劃任務(wù)”，并打開(kāi)“計(jì)劃任務(wù)”
3、在“任務(wù)計(jì)劃程序”里，打開(kāi)“創(chuàng)建任務(wù)”
4、在“創(chuàng)建任務(wù)”的“常規(guī)”中，根據(jù)相應(yīng)需求設(shè)置，比如“名稱(chēng)：定時(shí)關(guān)機(jī)”
5、在“創(chuàng)建任務(wù)”的“觸發(fā)器”中，點(diǎn)“新建”，并在“新建觸發(fā)器”中，根據(jù)相應(yīng)需求設(shè)置后，點(diǎn)“確定”
6、在“創(chuàng)建任務(wù)”的“操作”中，點(diǎn)“新建”，并在“新建操作”中的“程序或腳本”里，根據(jù)下圖依次輸入“shutdown”和“-s”后，“點(diǎn)“確定”
7、在“創(chuàng)建任務(wù)”的“條件”中，根據(jù)相應(yīng)需求設(shè)置
8、在“創(chuàng)建任務(wù)”的“設(shè)置”中，根據(jù)相應(yīng)需求設(shè)置后，點(diǎn)“確定”
9、這時(shí)“定時(shí)關(guān)機(jī)”的任務(wù)已創(chuàng)建完成！
分享名稱(chēng)：關(guān)于VBnet多功能關(guān)機(jī)的信息
文章來(lái)源：http://www.dlmjj.cn/article/hsccse.html
