用VBS编写代码,并用详细中文注释, 检查自身是否在系统自启动中,如果不是,将自己加入到系统自启动中; 弹出提示框,内容为“检查自启动完成”; 检查系统是否有“c:\atimes”文件夹,如果没有,生成此文件夹; 弹出提示框,内容为“检测文件夹完成”; 检测“c:\atimes”文件夹中是否有“update.vbs”文件,如果有,检测update.vbs文件的更新时间,如果比自己的时间新,则用update.vbs文件的代码替换自己的代码; 弹出提示框,内容为“检测更新文件及更新完成”; 检测“c:\atimes”文件夹中是否有file.txt文件,如果有,则关闭自己; 弹出提示框,内容为“检测关机文件完成"; 检测当前时间是否处于19点30分与21点30之间,如果不是, 弹出提示框,内容为“现时不是电脑时间,电脑即将关机”; 弹出提示框,内容为“晚上时间检测完成”; 五分钟后自动关机; 以上代码,每十分钟执行一次。

时间: 2024-03-24 16:40:46 浏览: 14
以下是你所需要的VBS代码,已经加上详细中文注释,可以按照你的要求进行修改: ``` '检查自身是否在系统自启动中,如果不是,将自己加入到系统自启动中 Set WshShell = CreateObject("WScript.Shell") Set oShellLink = WshShell.CreateShortcut(WshShell.SpecialFolders("Startup") & "\update.lnk") oShellLink.TargetPath = WScript.ScriptFullName oShellLink.WindowStyle = 1 oShellLink.Save '弹出提示框,内容为“检查自启动完成” MsgBox "检查自启动完成" '检查系统是否有“c:\atimes”文件夹,如果没有,生成此文件夹 Set fso = CreateObject("Scripting.FileSystemObject") If Not fso.FolderExists("c:\atimes") Then fso.CreateFolder("c:\atimes") End If '弹出提示框,内容为“检测文件夹完成” MsgBox "检测文件夹完成" '检测“c:\atimes”文件夹中是否有“update.vbs”文件,如果有,检测update.vbs文件的更新时间 If fso.FileExists("c:\atimes\update.vbs") Then Set file = fso.GetFile("c:\atimes\update.vbs") '如果比自己的时间新,则用update.vbs文件的代码替换自己的代码 If file.DateLastModified > fso.GetFile(WScript.ScriptFullName).DateLastModified Then Set stream = file.OpenAsTextStream contents = stream.ReadAll stream.Close Set stream = fso.OpenTextFile(WScript.ScriptFullName, 2, True) stream.Write contents stream.Close End If End If '弹出提示框,内容为“检测更新文件及更新完成” MsgBox "检测更新文件及更新完成" '检测“c:\atimes”文件夹中是否有file.txt文件,如果有,则关闭自己 If fso.FileExists("c:\atimes\file.txt") Then WScript.Quit End If '弹出提示框,内容为“检测关机文件完成" MsgBox "检测关机文件完成" '检测当前时间是否处于19点30分与21点30之间,如果不是,弹出提示框,内容为“现时不是电脑时间,电脑即将关机” Set currentTime = Now If Not (Hour(currentTime) = 19 And Minute(currentTime) >= 30) And Not (Hour(currentTime) = 20) And Not (Hour(currentTime) = 21 And Minute(currentTime) <= 30) Then MsgBox "现时不是电脑时间,电脑即将关机" End If '弹出提示框,内容为“晚上时间检测完成” MsgBox "晚上时间检测完成" '五分钟后自动关机 WScript.Sleep(5 * 60 * 1000) Set oShell = CreateObject("WScript.Shell") oShell.Run "shutdown -s -t 0" ``` 最后,你可以使用Windows的任务计划程序,每10分钟执行一次此脚本。

相关推荐

最新推荐

recommend-type

vbs程序入门级教材(自己动手整理的)

这是我从网上找到各种关于VBS的资料之后动手重新精心整理的,希望对大家有所帮助。 VBS写脚本还是比较便捷的,可以方便的处理windows的一些操作。
recommend-type

自动以管理员身份运行批处理bat文件(vbs与bat两种方法)

在日常运维工作中,为方便对windows用户进行系统安装或配置等,使用Windows自带的批处理(bat文件)是一种最为简单快速的方法
recommend-type

在wincc中通过vbs操作SQL

在项目中需要在一定条件满足时,保存一些数据到数据库中,并可根据条件查询。考虑到WinCC6.2以后采用的就是SQL Server2005数据库,所以直接利用该数据库即可,通过SQL Server Management Studio(SSMS)可以创建自己...
recommend-type

在C#中调用VBScript、javascript等脚本的实现代码

在C#中调用VBScript、javascript等脚本的实现步骤,需要的朋友可以参考下。
recommend-type

wincc用vbs脚本写入sqlserver数据库.docx

wincc用VBS代码向数据库内写入数据图文教程,附带vbs代码样例环境win764+winccv7.2+sqlserver2008
recommend-type

zigbee-cluster-library-specification

最新的zigbee-cluster-library-specification说明文档。
recommend-type

管理建模和仿真的文件

管理Boualem Benatallah引用此版本:布阿利姆·贝纳塔拉。管理建模和仿真。约瑟夫-傅立叶大学-格勒诺布尔第一大学,1996年。法语。NNT:电话:00345357HAL ID:电话:00345357https://theses.hal.science/tel-003453572008年12月9日提交HAL是一个多学科的开放存取档案馆,用于存放和传播科学研究论文,无论它们是否被公开。论文可以来自法国或国外的教学和研究机构,也可以来自公共或私人研究中心。L’archive ouverte pluridisciplinaire
recommend-type

实现实时数据湖架构:Kafka与Hive集成

![实现实时数据湖架构:Kafka与Hive集成](https://img-blog.csdnimg.cn/img_convert/10eb2e6972b3b6086286fc64c0b3ee41.jpeg) # 1. 实时数据湖架构概述** 实时数据湖是一种现代数据管理架构,它允许企业以低延迟的方式收集、存储和处理大量数据。与传统数据仓库不同,实时数据湖不依赖于预先定义的模式,而是采用灵活的架构,可以处理各种数据类型和格式。这种架构为企业提供了以下优势: - **实时洞察:**实时数据湖允许企业访问最新的数据,从而做出更明智的决策。 - **数据民主化:**实时数据湖使各种利益相关者都可
recommend-type

2. 通过python绘制y=e-xsin(2πx)图像

可以使用matplotlib库来绘制这个函数的图像。以下是一段示例代码: ```python import numpy as np import matplotlib.pyplot as plt def func(x): return np.exp(-x) * np.sin(2 * np.pi * x) x = np.linspace(0, 5, 500) y = func(x) plt.plot(x, y) plt.xlabel('x') plt.ylabel('y') plt.title('y = e^{-x} sin(2πx)') plt.show() ``` 运行这段
recommend-type

JSBSim Reference Manual

JSBSim参考手册,其中包含JSBSim简介,JSBSim配置文件xml的编写语法,编程手册以及一些应用实例等。其中有部分内容还没有写完,估计有生之年很难看到完整版了,但是内容还是很有参考价值的。