国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

如何在VB中終止Windows系統

2019-11-18 17:53:29
字體:
來源:轉載
供稿:網友
在VisualBasic程序中,可以使用WindowsAPI函數來重新啟動計算機系統,文本介紹如何退出Windows并關閉計算機系統。

關閉計算機系統

  可以使用WindowsAPI的ExitWindowsEx函數來從VisualBasic程序中重新啟動計算機系統。要使用該函數,需要將如下聲明語句包含在窗體的通常聲明部分中:

  PRivateDeclareFunctionExitWindowsExLib"user32"(ByValuFlagsAsLong,ByValdwReservedAsLong)AsLong

  ExitWindowsEx函數需要2個參數,可以使用一個或多個下面的標識的組合來告訴ExitWindowsEx函數希望進行關機過程。

  EWX_FORCE所有的進程都被強制終止。

  EWX_LOGOFF所有的進程被強制終止,并且用戶退出登錄(loggedoff)。

  EWX_POWEROFF計算機系統被關機,并且如果支持節電特性,則計算機被物理關機。

  EWX_REBOOT計算機系統被關機并重新啟動。

  EWX_SHUTDOWN計算機被物理地安全地關機。

  下面的樣例程序中使用了上面的三個標識的組合。該標識組合(EWX_LOGOFF,EWX_FORCE,以及EWX_REBOOT)告訴Windows退出所有正在執行的進程,使用戶退出網絡登錄,使計算機系統處于準備狀態以供用戶關機。

樣例程序

  該樣例程序顯示了如何關閉計算機系統。

  1.在VisualBasic中開始一個新的項目,采用缺省的方法建立Form1。

  2.將如下常量和聲明語句添加到Form1的通常聲明部分中(注意該聲明語句需要書寫在一行內):

PrivateDeclareFunctionExitWindowsExLib"user32"
(ByValuFlagsAsLong,ByValdwReservedAsLong)AsLong
ConstEWX_LOGOFF=0
ConstEWX_SHUTDOWN=1
ConstEWX_REBOOT=2
ConstEWX_FORCE=4
ConstEWX_POWEROFF=8
ConstEWX_RESET=EWX_LOGOFF EWX_FORCE EWX_REBOOT

  3.在Form1上添加一個命令按鈕控件,采用缺省的方法建立Comand1。將它的Caption屬性設置為“重新啟動計算機”。

  4.將如下代碼添加到Command1的單擊事件中:

PrivateSubCommand1_Click()
DimXAsLong
X=ExitWindowsEx(EWX_RESET,dwReserved)
EndSub

  按下F5來運行上述樣例程序,單擊命令按鈕,即可重新啟動計算機系統。

->


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 平远县| 黄石市| 镇远县| 革吉县| 北海市| 嘉兴市| 大英县| 华阴市| 乳源| 宝清县| 改则县| 乌拉特后旗| 安阳县| 广汉市| 彩票| 平阳县| 扶沟县| 岳池县| 蓬安县| 瓮安县| 石棉县| 囊谦县| 正宁县| 晋中市| 沙湾县| 叙永县| 平舆县| 武威市| 阿瓦提县| 通海县| 阿拉善右旗| 武邑县| 成武县| 保山市| 上犹县| 盐边县| 福鼎市| 宁远县| 宁城县| 荆门市| 石门县|