| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1795 人关注过本帖
标题:[求助]问一下,VB中WINDOWS关机,重启,待机的命令是什么?
只看楼主 加入收藏
tvsct456
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2007-5-30
收藏
 问题点数:0 回复次数:10 
[求助]问一下,VB中WINDOWS关机,重启,待机的命令是什么?
RT谢谢
搜索更多相关主题的帖子: WINDOWS 待机 命令 
2007-06-05 13:37
slore
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1108
专家分:0
注 册:2005-7-1
收藏
得分:0 
#60

快上课了……
2007-06-05 13:41
panjun999
Rank: 1
等 级:新手上路
帖 子:34
专家分:0
注 册:2007-6-15
收藏
得分:0 
我也想知道,帮你上去
2007-06-15 22:34
taihongbo
Rank: 1
来 自:山东临沂
等 级:新手上路
帖 子:127
专家分:0
注 册:2004-11-15
收藏
得分:0 

淘宝 毛绒玩具 熊
jstbobo.taobao. com
久顺通啵啵玩具店
2007-06-15 23:29
c197709333
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2007-6-10
收藏
得分:0 
可以对自动关机进行设置 要求现在倒计时方式关机 输入“Shutdown.exe -s -t 300”,这里表示5分钟后自动关机,“300”代表5分钟。 取消自动关机 设置好自动关机后,如果想取消,则在运行中输入“shutdown -a”

这个是关机其他的我就不晓得了 `~
2007-06-16 02:03
cike_1111
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2007-4-30
收藏
得分:0 
5楼的忘记了一个东西!

那个原来是系统的东西 VB想用它必须 调用!

使用shell

shell "shoudown.exe -s -t 30"
表示30秒后关机

更详细的信息请百度搜索 关于shoudown的参数信息!


4楼的代码好象在XP 2000 下无效 还是98下的代码!

[此贴子已经被作者于2007-6-16 10:51:53编辑过]

2007-06-16 10:48
xiepeng
Rank: 1
等 级:新手上路
帖 子:35
专家分:0
注 册:2007-5-29
收藏
得分:0 
支持6楼

2007-06-16 11:00
snrlgyqve
Rank: 1
等 级:新手上路
帖 子:81
专家分:0
注 册:2007-6-9
收藏
得分:0 
顶,支持7楼~~

2007-06-16 19:39
心中有剑
Rank: 2
等 级:新手上路
威 望:5
帖 子:611
专家分:0
注 册:2007-5-18
收藏
得分:0 

'==============================
' 关机与提高进程权限 声明
'============================
Public Enum HowExitConst
EWX_FORCE = 4 ' 强制关机
EWX_LOGOFF = 0 ' 注销
EWX_REBOOT = 2 ' 重起
EWX_SHUTDOWN = 1 ' 关机
End Enum

Const TOKEN_ADJUST_PRIVILEGES = &H20
Const TOKEN_QUERY = &H8
Const SE_PRIVILEGE_ENABLED = &H2
Const ANYSIZE_ARRAY = 1
Public Type LUID
lowpart As Long
highpart As Long
End Type

Public Type LUID_AND_ATTRIBUTES
pLuid As LUID
Attributes As Long
End Type

Public Type TOKEN_PRIVILEGES
PrivilegeCount As Long
Privileges(ANYSIZE_ARRAY) As LUID_AND_ATTRIBUTES
End Type

Public Declare Function ExitWindowsEx Lib "user32" ( _
ByVal uFlags As Long, _
ByVal dwReserved As Long) As Long '关机声明

Public Declare Function GetCurrentProcess Lib "kernel32" () As Long

Public Declare Function LookupPrivilegeValue Lib "advapi32.dll" Alias "LookupPrivilegeValueA" ( _
ByVal lpSystemName As String, _
ByVal lpName As String, _
lpLuid As LUID) _
As Long

Public Declare Function AdjustTokenPrivileges Lib "advapi32.dll" _
(ByVal TokenHandle As Long, _
ByVal DisableAllPrivileges As Long, _
NewState As TOKEN_PRIVILEGES, _
ByVal BufferLength As Long, _
PreviousState As TOKEN_PRIVILEGES, _
ReturnLength As Long) _
As Long
Public Declare Function OpenProcessToken Lib "advapi32.dll" _
(ByVal ProcessHandle As Long, _
ByVal DesiredAccess As Long, _
TokenHandle As Long) As Long
'==============================
' 当前进程权限的提高
'==============================

Public Sub AdjustToken()

Dim hdlProcessHandle As Long
Dim hdlTokenHandle As Long
Dim tmpLuid As LUID
Dim tkp As TOKEN_PRIVILEGES
Dim tkpNewButIgnored As TOKEN_PRIVILEGES
Dim lBufferNeeded As Long

hdlProcessHandle = GetCurrentProcess() '获取当前进程ID
OpenProcessToken hdlProcessHandle, (TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY), _
hdlTokenHandle


LookupPrivilegeValue "", "SeShutdownPrivilege", tmpLuid
tkp.PrivilegeCount = 1
tkp.Privileges(0).pLuid = tmpLuid
tkp.Privileges(0).Attributes = SE_PRIVILEGE_ENABLED
'权限的提高

AdjustTokenPrivileges hdlTokenHandle, False, tkp, Len(tkpNewButIgnored), _
tkpNewButIgnored, lBufferNeeded
End Sub
'=============================
' 关机操作
'=============================
Public Sub shutWindows()

Call AdjustToken
Call ExitWindowsEx(EWX_SHUTDOWN Or EWX_FORCE, 0)
End Sub

'=============================
' 注销操作
'=============================
Public Sub LogOffWindows()

Call AdjustToken
Call ExitWindowsEx(EWX_LOGOFF, 0)
End Sub
'=============================
' 重起操作
'=============================
Public Sub ReBootWindows()

Call AdjustToken
Call ExitWindowsEx(EWX_REBOOT, 0)
End Sub



2007-06-16 21:31
xiepeng
Rank: 1
等 级:新手上路
帖 子:35
专家分:0
注 册:2007-5-29
收藏
得分:0 

太棒了.顶~~~~~
我要的就是提高权限这一段


2007-06-16 21:44
快速回复:[求助]问一下,VB中WINDOWS关机,重启,待机的命令是什么?
数据加载中...
 
   



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

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