用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分钟执行一次此脚本。