我们在电脑上安装软件的时候经常会遇到一个选项就是安装完成后重启电脑。
只要我们勾选了这个选项,等到软件安装完成后电脑就会关闭然后重新启动。
这里面实际上是调用了API函数来实现电脑的关机和重启。
一般我们写vba代码都是用来解决日常工作上的繁琐的数据处理问题,很少有需要系统操作的。
但是当vba代码需要长时间运行时,比如需要长时间爬取网上的数据,我们一般会选择在深夜运行代码。这时候就会遇到运行代码完成以后,希望自动关闭电脑。
这里介绍一种比较简单的实现方法,直接调用dos的关机命令来实现关闭电脑。
代码如下:
Sub 强制关闭计算机()
Dim sCmd As String
sCmd = "cmd /c shutdown -s"
Shell sCmd
End Sub
其中shutdown是dos命令,shutdown -s 表示关闭计算机。
如果要关闭后重启电脑电脑关机命令shutdown,则命令改成shutdown -r。
-s,-r都是shutdown的参数,实际上这个命令还有很多其他参数,如果想要获取到这些命令的所有参数解释电脑关机命令shutdown,可以直接打开运行对话框,输入cmd,然后在dos命令提示符中输入shutdown /? 即可获取对应的dos命令说明,如下图所示:
———END———
限 时 特 惠:本站每日持续更新海量各大内部创业教程,一年会员只需128元,全站资源免费下载点击查看详情
站 长 微 信:jiumai99