| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2047 人关注过本帖
标题:关机程序与大家共享
只看楼主 加入收藏
q1564992
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2006-5-23
收藏
得分:0 
就是吗,我们要的就是源代码吗!
2006-05-23 14:29
boxou
Rank: 1
等 级:新手上路
帖 子:135
专家分:0
注 册:2006-4-28
收藏
得分:0 

老大,我想要源程序哦,我的EMAIL是:regcn168@163.com


孔夫子说:博学、审问、慎思、明辩、力行[欢迎各位加入爱好者群:25620461]
2006-05-31 18:22
但锐
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2006-6-3
收藏
得分:0 
我也想要原代码~~~~~我邮箱dree1984@gmail.com
2006-06-03 23:44
cswmickey
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2006-6-4
收藏
得分:0 
发一分到caishiwei025@163.com。。
大家好好学习
2006-06-08 17:39
xuguoyi
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2006-2-13
收藏
得分:0 
不给源码看个什么?
2006-06-09 18:04
wangfuli
Rank: 4
等 级:贵宾
威 望:12
帖 子:206
专家分:10
注 册:2005-11-11
收藏
得分:0 
应大家的要求,下面的是关机程序的核心代码:
Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Integer, ByVal dwReserved As Integer) As Integer
Public Enum RestartOptions
LogOff = 0
PowerOff = 8
Reboot = 2
ShutDown = 1
Suspend = -1
Hibernate = -2
End Enum
Protected Sub EnableToken(ByVal privilege As String)
If Not CheckEntryPoint("advapi32.dll", "AdjustTokenPrivileges") Then Return
Dim tokenHandle As IntPtr = IntPtr.Zero
Dim privilegeLUID = New LUID
Dim newPrivileges = New TOKEN_PRIVILEGES
Dim tokenPrivileges As TOKEN_PRIVILEGES
If (OpenProcessToken(Process.GetCurrentProcess().Handle, TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY, tokenHandle)) = 0 Then Throw New PrivilegeException(FormatError(Marshal.GetLastWin32Error()))
If (LookupPrivilegeValue("", privilege, privilegeLUID)) = 0 Then Throw New PrivilegeException(FormatError(Marshal.GetLastWin32Error()))
tokenPrivileges.PrivilegeCount = 1
tokenPrivileges.Privileges.Attributes = SE_PRIVILEGE_ENABLED
tokenPrivileges.Privileges.pLuid = privilegeLUID
Dim Size As Integer = 4
If (AdjustTokenPrivileges(tokenHandle, 0, tokenPrivileges, 4 + (12 * tokenPrivileges.PrivilegeCount), newPrivileges, Size)) = 0 Then Throw New PrivilegeException(FormatError(Marshal.GetLastWin32Error()))
End Sub
Private Sub logoff_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
If MessageBox.Show("你确定要注销吗?", "关闭计算机", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = DialogResult.Yes Then
Dim shutdown As New WindowsController
shutdown.ExitWindows(shutdown.RestartOptions.LogOff, 0)
Application.Exit()
End If
End Sub
Private Sub shutdown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If MessageBox.Show("你确定要关机吗?", "关闭计算机", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = DialogResult.Yes Then
shutdown.ExitWindows(shutdown.RestartOptions.PowerOff, True)
Application.Exit()
End If
只有定时只要设置一个timer就可以了
End Sub

2006-06-09 20:49
nnzyjsxy
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2006-6-6
收藏
得分:0 

楼主,给我个源代码,我帮你看.

2006-06-11 12:45
02532DATA
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2006-6-20
收藏
得分:0 
还是想看看源代码!

别说自己做不到!
2006-06-21 12:52
tail
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2006-6-19
收藏
得分:0 

麻烦楼主把源代码贴上来
大家讨论一下

2006-06-21 17:50
Ver
Rank: 1
等 级:新手上路
帖 子:173
专家分:0
注 册:2006-2-8
收藏
得分:0 
界面还可以,要是能使它运行时,让周围变暗,那就更好了,最好还可以按Shift键进行休眠。

我用古老的咒语重温,吟唱灵魂序曲寻根 面对魔界的邪吻,不被污染的转身,维持纯白的象徵然后还原为人
2006-06-22 12:41
快速回复:关机程序与大家共享
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.024034 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved