日本综合一区二区|亚洲中文天堂综合|日韩欧美自拍一区|男女精品天堂一区|欧美自拍第6页亚洲成人精品一区|亚洲黄色天堂一区二区成人|超碰91偷拍第一页|日韩av夜夜嗨中文字幕|久久蜜综合视频官网|精美人妻一区二区三区

RELATEED CONSULTING
相關(guān)咨詢(xún)
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時(shí)間：8:30-17:00
你可能遇到了下面的問(wèn)題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷(xiāo)解決方案
淺析VB.NET實(shí)現(xiàn)定時(shí)關(guān)機(jī)

在向大家詳細(xì)介紹VB.NET實(shí)現(xiàn)定時(shí)關(guān)機(jī)之前，首先讓大家了解下VB.NET2005，然后全面介紹VB.NET實(shí)現(xiàn)定時(shí)關(guān)機(jī)具體步驟。

筆者最近在網(wǎng)上搜索了一些關(guān)于VB.NET實(shí)現(xiàn)定時(shí)關(guān)機(jī)、重啟、注銷(xiāo)的文章，發(fā)現(xiàn)大多介紹的是VB.NET2003用API實(shí)現(xiàn)這些功能，且在XPsp2環(huán)境下無(wú)法正常的關(guān)機(jī)與注銷(xiāo)。而對(duì)于VB.NET2005的介紹幾乎沒(méi)有。

本篇文章具有一定的基礎(chǔ)性和廣泛的實(shí)用性，相信能夠給VB.NET2005初學(xué)者帶來(lái)一定的幫助。

本文所使用的編程環(huán)境是Microsoft Visual Studio 2005，首先打開(kāi) Visual Studio。在文件 (File) 菜單上，單擊新建項(xiàng)目 (New Project)。 在新建項(xiàng)目 (New Project) 對(duì)話(huà)框的模板 (Templates) 窗格中，單擊 Windows 應(yīng)用程序 (Windows Application)。單擊確定 (OK)。

具體步驟如下：

首先在Form1窗體上添加一個(gè)Label1控件屬性text設(shè)置為:今天:2.然后分別添加3個(gè)button控件name分別為button1、button2、button3它們的text屬性分別為1. 關(guān)閉計(jì)算機(jī)（啟動(dòng)定時(shí)器）2. 注銷(xiāo)3. 重新啟動(dòng)。

現(xiàn)在我們就需要為程序加上一個(gè)定時(shí)器了，這個(gè)定時(shí)器需要與textbox1控件相關(guān)聯(lián)，輸入正確時(shí)間格式后就可以啟動(dòng)定時(shí)功能了。然后我們需要在窗體上添加一個(gè)timer、一個(gè)textbox1控件、和一個(gè)RadioButton1控件。讓它們保留默認(rèn)值不變。其中. TextBox1控件的text屬性設(shè)置為：00:00:00 。RadioButton1控件text設(shè)置為：指定時(shí)間關(guān)機(jī)|時(shí)間格式：00小時(shí):00分鐘:00秒

雙擊窗體進(jìn)入常規(guī)-聲明Public Class Form1 事件中。以上介紹VB.NET實(shí)現(xiàn)定時(shí)關(guān)機(jī)

 
 
 
      
  
  
  1. Imports System.Runtime.InteropServices  
    2.   
  
  
  2. Imports Microsoft.VisualBasic  
    3.   
  
  
  3. Public Class Form1  
    4.   
  
  
  4. '調(diào)用系統(tǒng)參數(shù)  
    5.   
  
  
  5. Friend Shared Function GetCurrentProcess() As IntPtr  
    6.   
  
  
  6. End Function  
    7.   
  
  
  7.  
    8.   
  
  
  8. Friend Shared Function OpenProcessToken(ByVal h As IntPtr,  
    9.   
  
  
  9.  
    10.   
  
  
  10. ByVal acc As Integer, ByRef phtok As IntPtr) As Boolean  
    11.   
  
  
  11. End Function  
    12.   
  
  
  12.  
    13.   
  
  
  13. Friend Shared Function LookupPrivilegeValue(ByVal host As String,  
    14.   
  
  
  14.  
    15.   
  
  
  15. ByVal name As String, ByRef pluid As Long) As Boolean  
    16.   
  
  
  16. End Function  
    17.   
  
  
  17.  
    18.   
  
  
  18. Friend Shared Function AdjustTokenPrivileges(ByVal htok As IntPtr,  
    19.   
  
  
  19.  
    20.   
  
  
  20. ByVal disall As Boolean, ByRef newst As TokPriv1Luid,  
    21.   
  
  
  21.  
    22.   
  
  
  22. ByVal len As Integer, ByVal prev As IntPtr,  
    23.   
  
  
  23.  
    24.   
  
  
  24. ByVal relen As IntPtr) As Boolean  
    25.   
  
  
  25. End Function  
    26.   
  
  
  26.  
    27.   
  
  
  27. Friend Shared Function ExitWindowsEx(ByVal flg As Integer,  
    28.   
  
  
  28.  
    29.   
  
  
  29. ByVal rea As Integer) As Boolean  
    30.   
  
  
  30. End Function  
    31.   
  
  
  31.  
    32.   
  
  
  32. Friend Const SEPRIVILEGEENABLED As Integer = &H2  
    33.   
  
  
  33. Friend Const TOKENQUERY As Integer = &H8  
    34.   
  
  
  34. Friend Const TOKENADJUSTPRIVILEGES As Integer = &H20  
    35.   
  
  
  35. Friend Const SESHUTDOWNNAME As String = "SeShutdownPrivilege" 
    36.   
  
  
  36. Friend Const EWXLOGOFF As Integer = &H0 '注銷(xiāo)計(jì)算機(jī)  
    37.   
  
  
  37. Friend Const EWXSHUTDOWN As Integer = &H1'關(guān)閉計(jì)算機(jī)  
    38.   
  
  
  38. Friend Const EWXREBOOT As Integer = &H2'重新啟動(dòng)計(jì)算機(jī)  
    39.   
  
  
  39. Friend Const EWXFORCE As Integer = &H4'關(guān)閉所有進(jìn)程，注銷(xiāo)計(jì)算機(jī)  
    40.   
  
  
  40. Friend Const EWXPOWEROFF As Integer = &H8  
    41.   
  
  
  41. Friend Const EWXFORCEIFHUNG As Integer = &H10  
    42.   
  
  
  42.  
    43.   
  
  
  43. '引用參數(shù)  
    44.   
  
  
  44. Friend Structure TokPriv1Luid  
    45.   
  
  
  45. Public Count As Integer  
    46.   
  
  
  46. Public Luid As Long  
    47.   
  
  
  47. Public Attr As Integer  
    48.   
  
  
  48. End Structure  
    49.   
  
  
  49.  
    50.   
  
  
  50. Private Shared Sub DoExitWin(ByVal flg As Integer)  
    51.   
  
  
  51. Dim xc As Boolean '判斷語(yǔ)句  
    52.   
  
  
  52. Dim tp As TokPriv1Luid  
    53.   
  
  
  53. Dim hproc As IntPtr = GetCurrentProcess()  
    54.   
  
  
  54. '調(diào)用進(jìn)程值  
    55.   
  
  
  55. Dim htok As IntPtrIntPtr = IntPtr.Zero  
    56.   
  
  
  56. xc = OpenProcessToken(hproc, TOKENADJUSTPRIVILEGES Or TOKENQUERY, htok)  
    57.   
  
  
  57. tp.Count = 1 
    58.   
  
  
  58. tp.Luid = 0 
    59.   
  
  
  59. tp.Attr = SEPRIVILEGEENABLED 
    60.   
  
  
  60. xc = LookupPrivilegeValue(Nothing, SESHUTDOWNNAME, tp.Luid)  
    61.   
  
  
  61. xc = AdjustTokenPrivileges(htok, False, tp, 0, IntPtr.Zero, IntPtr.Zero)  
    62.   
  
  
  62. xc = ExitWindowsEx(flg, 0)  
    63.   
  
  
  63. End Sub  
    64.   
  
  
  64.  
    65.   
  
  
  65. Public Shared Sub Reboot()  
    66.   
  
  
  66. DoExitWin((EWXFORCE Or EWXREBOOT)) '重新啟動(dòng)計(jì)算機(jī)  
    67.   
  
  
  67. End Sub  
    68.   
  
  
  68.  
    69.   
  
  
  69. Public Shared Sub PowerOff()  
    70.   
  
  
  70. DoExitWin((EWXFORCE Or EWXPOWEROFF)) '關(guān)閉計(jì)算機(jī)  
    71.   
  
  
  71. End Sub  
    72.   
  
  
  72.  
    73.   
  
  
  73. Public Shared Sub LogoOff()  
    74.   
  
  
  74. DoExitWin((EWXFORCE Or EWXLOGOFF)) '注銷(xiāo)計(jì)算機(jī)  
    75.   
  
  
  75. End Sub  
    76.   
  
  
  76.  
    77.   
  
  
  77. Dim entTime As Object '保存輸入時(shí)間  
    78.   
  
  
  78. Dim xianzaiTime As Object '保存實(shí)時(shí)時(shí)間  
    79.   
  
  
  79. Dim startTime As Object '保存開(kāi)始定時(shí)時(shí)間 
    80.

【編輯推薦】

  1. 淺談VB.NET線程構(gòu)造器
  2. 簡(jiǎn)單分析VB.NET使用線程
  3. VB.NET List(T)編寫(xiě)框架方法
  4. 簡(jiǎn)單介紹VB.NET線程同步
  5. VB.NET聲明API詳細(xì)描述

當(dāng)前題目：淺析VB.NET實(shí)現(xiàn)定時(shí)關(guān)機(jī)
URL地址：http://www.dlmjj.cn/article/djgscip.html