VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 直接呼叫RUNDLL来关机
发表评论(0)作者:, 平台:, 阅读:10555, 日期:2000-03-12
直接呼叫RUNDLL来关机



不需任何API调用,直接一行语句就可关机!


shell "c:\windows\rundll.exe user.exe,exitwindowsexec"


'重新启动计算机


shell "c:\windows\rundll.exe user.exe,exitwindows"


'关闭计算机


对于那些Windows安装目录不是c:\windows计算机来说,调用API很容易找到。下面

给出找Windows目录的例子,变量strWinDir用来存放找到的Windows目录。


Public Const MAX_PATH = 260


Declare Function GetWindowsDirectory Lib "kernel32" Alias "

GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As

Long


Sub GetWinDir()


Dim S As String, Length As Long , strWinDir As String


S = String(MAX_PATH, 0)


Length = GetWindowsDirectory(S, MAX_PATH)


strWinDir = Left(S, InStr(S, Chr(0)) - 1)


End Sub