บทความโดย อ. นัฐพงศ์ ส่งเนียม
http://www.siam2dev.com
โปรแกรม ShutDown , Restart , LogOff Computer ด้วย VB.NET2005 นั้นสามารถทำได้ง่ายมาก โดยให้ออกแบบหน้าจอ ดังนี้
| 1. ออกแบบหน้าจอโปรแกรม ดัง ต.ย. ข้างล่างนี้ |
|
| 2. ออกแบบหน้าจอ ดังรูป พร้อมทั้งกำหนด Property ของ แต่ละ Object ดังนี้ |
Object |
Properties |
Value |
| Form |
Name |
FrmShutDownComputer |
|
|
|
| Label1 |
Name |
LbTitle |
|
Text |
โปรแกรม ShutDown เครื่องคอมพิวเตอร์ |
| Label2 |
Name |
Label2 |
|
Text |
โดย อ. นัฐพงศ์ ส่งเนียม
http://www.siam2dev.com
xnattapong@hotmail.com
Referrence :: http://www.devasp.net/net/articles/display/354.html |
|
|
|
| Button1 |
Name |
BtnLogOff |
|
Text |
LofOff |
|
|
|
| Button2 |
Name |
ฺBtnRestart |
|
Text |
Restart |
| Button3 |
Name |
BtnShutDown |
|
Text |
ShutDown |
|
3. ทำการ ดับเบิ้ลคลิกที่ปุ่ม BtnLogOff แล้วเขียนโค้ด ดังนี้
Private Sub BtnLogOff_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLogOff.Click
Dim t As Single
Dim objWMIService, objComputer As Object
'Now get some privileges
objWMIService = GetObject("Winmgmts:{impersonationLevel=impersonate,(Debug,Shutdown)}")
For Each objComputer In objWMIService.InstancesOf("Win32_OperatingSystem")
t = objComputer.Win32Shutdown(0, 0)
If t <> 0 Then
MsgBox("Error occurred!!!")
Else
'LogOff your system
End If
Next
End Sub |
4. ทำการ ดับเบิ้ลคลิกที่ปุ่ม BtnRestart แล้วเขียนโค้ด ดังนี้
Private Sub BtnRestart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRestart.Click
Dim t As Single
Dim objWMIService, objComputer As Object
'Now get some privileges
objWMIService = GetObject("Winmgmts:{impersonationLevel=impersonate,(Debug,Shutdown)}")
For Each objComputer In objWMIService.InstancesOf("Win32_OperatingSystem")
t = objComputer.Win32Shutdown(2 + 4, 0)
If t <> 0 Then
MsgBox("Error occurred!!!")
Else
'LogOff your system
End If
Next
End Sub |
5. ทำการ ดับเบิ้ลคลิกที่ปุ่ม BtnShutDown แล้วเขียนโค้ด ดังนี้
Private Sub BtnShutDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnShutDown.Click
Dim t As Single
Dim objWMIService, objComputer As Object
'Now get some privileges
objWMIService = GetObject("Winmgmts:{impersonationLevel=impersonate,(Debug,Shutdown)}")
For Each objComputer In objWMIService.InstancesOf("Win32_OperatingSystem")
t = objComputer.Win32Shutdown(8 + 4, 0)
If t <> 0 Then
MsgBox("Error occurred!!!")
Else
'LogOff your system
End If
Next
End Sub |
ผลลัพธ์ Screen Shot หน้าโค้ด
ขอขอบคุณที่มา :: http://www.devasp.net/net/articles/display/354.html |
บทความโดย อ. นัฐพงศ์ ส่งเนียม
http://www.siam2dev.com
|
VB.NET
โปรแกรม ShutDown , Restart , LogOff Computer ด้วย VB.NET2005