windows之家1.VB中实现电脑关机和重启的代码分别是什么
private sub command1_click（) '注销
shell "shutdown -f -l -t 0",vbhide
end sub
private sub command2_click（) '关闭
shell "shutdown -f -s -t 0",vbhide
end sub
private sub command3_click（) '重启
shell "shutdown -f -r -t 0",vbhide
end sub
2.VB 关闭计算机和重启计算机
方法有两个
1API，在VB根目录下有个API浏览器，里面查找RtlAdjustPrivilege& Lib "ntdll" 可以找到相关数据和介绍。
不过这个方法很繁琐。。有一个也很方便的方法.XP以上的操作系统加入了一个叫做SHUTDOWN.EXE的东西。可以用PATH直接引用。然后在VB中输入
SHELL("SHUTDOWN.EXE -F -S -T 0")
这个段命令就是关机的意思，且无视无响应程序。
SHELL("SHUTDOWN.EXE -F -R -T 0")
这个是重启
你可以在CMD的界面下，输入PATH 后，输入SHUTDOWN.EXE /？来查看他的代码书写。很方便也很实用。
-END=
3.怎么用VB6.0程序实现强制计算机关机
te Sub Command1_Click() Shell "shutdown -s -t 30" '30秒后关机End Sub另外一种就是调用API函数，给你一篇文章，或许对你有用：应用程序中实现关机功能（作者：范明之 2000年07月17日 10:52） VB 6.0开发应用程序时，用户要求在程序内部加入直接关机功能， 使操作全部集中于应用程序的内部进行。
为此，笔者编制程序，进行Windows API函数调用，成功地实现了Windows 9x“关闭系统”仿真功能，满足了用户要求，现将设计过程列举如下： 一、设计关机系统界面 新建工程文件及窗体Form1,Form1中加入选项控件Option1、Option2 、Option3，将它们Caption 属性依次设为“关闭计算机（S）”、“重新启动计算机（R）”、“关闭所有程序并以其他用户身份登录”；再加入命令按钮Command1和Command2、Command3且Caption属性分别设为“是”、“否”、“帮助”。即设计一个Windows 98“关闭系统”的仿真界面。
二、通用事件代码中对API 函数ExitWindowsEx（ )进行声明 VB 6.0应用程序设计时，调用丰富Windows API 函数能完成VB本身没有提供或无法实现的功能，这些函数都属于“操作系统”级别，能使应用程序增添不少色彩。其中ExitWindowsEx（ )函数具备关闭Windows系统的功能，调用前必须进行声明： Declare Function ExitWindowsEx Lib 〃user32〃（ ByVal uFlags As Long,ByVal dwReserved As Long） As Long 参数说明：此函数有两个参数vFlags、dwReserved，其中vFlags参数决定用户需要做的关机操作，dwReserved参数是作为保留而没有使用。
vFlags 参数可以取以下几种常量（或相应值）： EWX_ShutDown 1 关闭计算机 EWX_ReBoot 2 重新启动计算机 EWX_LogOff 0 关闭所有程序并以其他用户身份登录 三、关机功能所有程序代码清单如下： ′通用代码中对ExitWinwodsEx（ )函数声明 Private Declare Function ExitWindowsEx Lib 〃user32〃 （ByVal uFlags As Long,ByVal dwReserved As Long） As Long Const ShutDown = 1 Const ReBoot = 2 Const LogOff = 0 Private Sub Command1_Click() Dim Sh As Long If Option1.Value = True Then ′关闭计算机选项 Sh = ExitWindowsEx(ShutDown, dwReserved) End If If Option2.Value = True Then ′重新启动计算机选项 Sh = ExitWindowsEx(ReBoot, dwReserved) End If If Option3.Value = True Then ′关闭所有程序并以其他用户 身份登录选项 Sh = ExitWindowsEx(LogOff, dwReserved) End If End Sub Private Sub Command2_Click() Unload Me End Sub F5运行程序，即进行关机操作！该功能加入用户开发的应用程序，相当实用。
4.win10怎么关机 win10关机快捷键大全
【Win10系统关机方法一：开始菜单的关机选项】
1.其实Win10恢复了开始菜单，在Win10开始菜单的顶部即可看到电源按钮状的“关机选项”图标。如图：
2.点击“关机选项”按钮，在弹出的菜单中选择“关机”即可关闭Win10系统。
【Win10系统关机方法二：Win+X系统快捷菜单中的“关机或注销”选项】
按Win+X组合键，或者右键点击屏幕左下角的开始按钮，在弹出的系统快捷菜单中可以看到“关机或注销”选项，点击即可看到“关机”选项。如图：
【Win10系统关机方法三：酷炫的“滑动关机”】
这个关机方法尤其适合于触屏Win10平板用户。
【Win10系统关机快捷键】
1.在Win10桌面按Alt+F4快捷键打开“关闭Windows”对话框；注：必须要在Win10桌面按Alt+F4快捷键，如果是在打开的窗口按Alt+F4快捷键，则会关闭当前窗口。
2.Win+I快捷键打开设置边栏，再点击“电源”按钮；点击其中的“电源”按钮，选择“关机”即可关闭Win10系统
5.电脑windows10怎么关机
方法一：点击关机按钮关闭Win10
1、点击Win10系统右下角的开始菜单，在展开的菜单里可以看到关机的图标。
2、点击关机图标，出现睡眠，关机或是重启Win10。点击关机后，win10就可以正常关机了。
方法二：快捷键关闭win10
1、使用快捷键来关闭Win10。同时按下“Alt+F4”弹出关闭Windows对话框，点击下拉框进行选择关闭Win10。
2、选择关机后，点击确定，就可以把win正常关机了。
方法三：右键快捷关闭Win10
1、在Win10系统的左下角的开始菜单处点击右键，在弹出列表里可以看到“关机或注销”按钮，通过这种方式也可以关闭Win10系统。
2、将鼠标移动到关机或注销上，再点击出现列表里的关机选择，点击关机后，Win10也可以正常关闭。
6.vb2010关机代码
项目-----添加引用，----.net------System.management
写一个关机重启的过程
Private Sub ShutDown(ByVal ShutdownParams As String())
Dim mc As Management.ManagementClass = New Management.ManagementClass("Win32_OperatingSystem")
mc.Get()
mc.Scope.Options.EnablePrivileges = True
For Each mo As Management.ManagementObject In mc.GetInstances
mo.InvokeMethod("Win32Shutdown", ShutdownParams)
Next
End Sub
要关机，就这样调用这个过程
ShutDown(New String() {"8", "4"})
要得启
ShutDown(New String() {"2", "4"})
我这个不用调用api，要知道微软不提倡在.net中调用api
7.我做VB关机程序,比如是10分钟关机,如何显示关机剩余时间
If mnutimeclose.Caption = "定时关机" Then mnutimeclose.Caption = "取消定时关机" Dim xx As Single xx = InputBox（"请输入时间，1表示一个小时、0.5表示半个小时"， "关机时间/小时"， 1） If xx <= 0 Then xx = InputBox（"请重新输入时间，1表示一个小时、0.5表示半个小时"， "关机时间"， 1） mnutimeclose_Click End If xx = xx * 3600 Shell Sound.GetWinSys() & "\shutdown.exe -s -t " & xx Else Shell Sound.GetWinSys() & "\shutdown.exe -a" mnutimeclose.Caption = "定时关机" End If 看行不？。
转载请注明出处windows之家 » vb使电脑关机win10