用VBS写一个多功能定时关机的脚本,要求有8个选项,要求带有注释

时间: 2023-09-15 13:04:50 浏览: 215
### 回答1: '注释:本脚本用于定时关机Option ExplicitDim strTime, strType, intResult'设置关机时间 strTime = InputBox("请输入关机时间(小时):")'设置关机类型 strType = InputBox("请输入关机类型(1.关机;2.重启;3.注销;4.休眠;5.关闭显示器):")'设置关机命令 intResult = MsgBox("您要在" & strTime &"小时后" & strType & "吗?", vbYesNo + vbQuestion, "定时关机")If intResult = vbYes Then '执行关机命令 Select Case strType Case 1 '关机 Wscript.Quit(2) Case 2 '重启 Wscript.Quit(3) Case 3 '注销 Wscript.Quit(1) Case 4 '休眠 Wscript.Quit(4) Case 5 '关闭显示器 Wscript.Quit(5) End Select End If'设置延时时间 WScript.Sleep 1000 * 60 * 60 * strTime'再次执行关机命令 Select Case strType Case 1 '关机 Wscript.Quit(2) Case 2 '重启 Wscript.Quit(3) Case 3 '注销 Wscript.Quit(1) Case 4 '休眠 Wscript.Quit(4) Case 5 '关闭显示器 Wscript.Quit(5) End Select答:VBS脚本可以用来写一个多功能定时关机的功能,包括设置关机时间、关机类型,以及提供8个关机选项,并且要求带有注释。 ### 回答2: 这是一个用VBS编写的多功能定时关机脚本,包含了8个选项,并且每个选项都有注释说明其功能。 ```vbscript ' VBS多功能定时关机脚本 Option Explicit Dim objShell, intChoice ' 创建WScript Shell对象 Set objShell = CreateObject("WScript.Shell") ' 显示菜单选项 intChoice = MsgBox("请选择以下功能: 1. 定时关机 2. 定时重启 3. 30分钟后关机 4. 1小时后关机 5. 取消定时关机 6. 注销当前用户 7. 锁定计算机 8. 退出脚本", vbInformation + vbYesNo + vbDefaultButton1, "多功能定时关机") ' 根据不同的选择执行对应的功能 Select Case intChoice Case vbYes + 1 ' 执行定时关机功能,输入关机时间 Dim strTime1 strTime1 = InputBox("请输入要定时关机的时间(格式为HH:mm):", "定时关机") If strTime1 <> "" Then objShell.Run "shutdown.exe -s -t 00 -f -t " & strTime1, 0, True End If Case vbYes + 2 ' 执行定时重启功能,输入重启时间 Dim strTime2 strTime2 = InputBox("请输入要定时重启的时间(格式为HH:mm):", "定时重启") If strTime2 <> "" Then objShell.Run "shutdown.exe -r -t 00 -f -t " & strTime2, 0, True End If Case vbYes + 3 ' 执行30分钟后关机功能 objShell.Run "shutdown.exe -s -t 1800 -f", 0, True Case vbYes + 4 ' 执行1小时后关机功能 objShell.Run "shutdown.exe -s -t 3600 -f", 0, True Case vbYes + 5 ' 取消定时关机 objShell.Run "shutdown.exe -a", 0, True Case vbYes + 6 ' 注销当前用户 objShell.Run "shutdown.exe -l", 0, True Case vbYes + 7 ' 锁定计算机 objShell.Run "Rundll32.exe user32.dll,LockWorkStation", 0, True Case Else ' 退出脚本 WScript.Quit End Select ' 释放对象 Set objShell = Nothing ``` 请注意,此脚本仅适用于Windows系统。在使用脚本之前,请确保仔细阅读注释,并根据需要选择相应的功能。 ### 回答3: 以下是一个用VBS写的多功能定时关机脚本,共包含了8个选项,并且每个选项都有相应的注释说明: ```vbscript Option Explicit ' 创建 WScript.Shell 对象 Dim WshShell Set WshShell = CreateObject("WScript.Shell") ' 获取用户输入的选项 Dim choice choice = InputBox("请选择操作:" & vbNewLine & "1. 立即关机" & vbNewLine & "2. 定时关机" & vbNewLine & "3. 定时重启" & vbNewLine & "4. 定时注销" & vbNewLine & "5. 取消定时关机" & vbNewLine & "6. 取消定时重启" & vbNewLine & "7. 取消定时注销" & vbNewLine & "8. 退出", "多功能定时关机脚本") ' 执行相应的选项 Select Case choice Case "1" ' 立即关机 WshShell.Run "shutdown /s /t 0", 0, True MsgBox "计算机将立即关机。" Case "2" ' 定时关机 Dim time time = InputBox("请输入定时关机的时间(单位:分钟):", "定时关机") WshShell.Run "shutdown /s /t " & time * 60, 0, True MsgBox "计算机将在 " & time & " 分钟后关机。" Case "3" ' 定时重启 Dim time time = InputBox("请输入定时重启的时间(单位:分钟):", "定时重启") WshShell.Run "shutdown /r /t " & time * 60, 0, True MsgBox "计算机将在 " & time & " 分钟后重启。" Case "4" ' 定时注销 Dim time time = InputBox("请输入定时注销的时间(单位:分钟):", "定时注销") WshShell.Run "shutdown /l /t " & time * 60, 0, True MsgBox "计算机将在 " & time & " 分钟后注销。" Case "5" ' 取消定时关机 WshShell.Run "shutdown /a", 0, True MsgBox "已取消定时关机。" Case "6" ' 取消定时重启 WshShell.Run "shutdown /a", 0, True MsgBox "已取消定时重启。" Case "7" ' 取消定时注销 WshShell.Run "shutdown /a", 0, True MsgBox "已取消定时注销。" Case "8" ' 退出脚本 MsgBox "脚本已退出。" Case Else MsgBox "无效的选项,请重新运行脚本并选择正确的选项。" End Select ' 释放 WScript.Shell 对象 Set WshShell = Nothing ``` 此脚本使用了Shell对象的Run方法来执行关机、重启和注销的命令,并通过InputBox函数获取用户输入的选项和时间。通过选择不同的选项,用户可以实现立即关机、定时关机、定时重启、定时注销、取消定时关机、取消定时重启、取消定时注销以及退出脚本的功能。
阅读全文

相关推荐

最新推荐

recommend-type

简单用VBS调用企业微信机器人发定时消息的方法

VBS脚本可以创建一个计划任务,在固定时间执行这个脚本,就可以实现一个简单的群里自动提醒功能了。VBS脚本脚本很简单,但足以实现一个定时提醒的企业微信群机器人了。 在编写VBS脚本时需要注意的是,params字符串...
recommend-type

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

在本文中,我们将探讨如何使用Visual Basic Script (VBS) 在西门子WinCC人机界面系统中编写脚本来将数据写入SQL Server数据库。这个过程涉及到几个关键步骤,包括建立数据库连接、编写SQL查询语句以及处理数据写入。...
recommend-type

Vbs脚本经典教材(最全的资料还是MSDN)

一个典型的VBScript程序可以从一个简单的“Hello World!”示例开始。以下是一个例子: ```vbscript MsgBox "Hello World!" ``` 在这个例子中,`MsgBox`是VBScript的内置函数,用于弹出一个对话框显示指定的文本。`...
recommend-type

springboot167基于springboot的医院后台管理系统的设计与实现.zip

springboot167基于springboot的医院后台管理系统的设计与实现,含有完整的源码和报告文档
recommend-type

macOS 10.9至10.13版高通RTL88xx USB驱动下载

资源摘要信息:"USB_RTL88xx_macOS_10.9_10.13_driver.zip是一个为macOS系统版本10.9至10.13提供的高通USB设备驱动压缩包。这个驱动文件是针对特定的高通RTL88xx系列USB无线网卡和相关设备的,使其能够在苹果的macOS操作系统上正常工作。通过这个驱动,用户可以充分利用他们的RTL88xx系列设备,包括但不限于USB无线网卡、USB蓝牙设备等,从而实现在macOS系统上的无线网络连接、数据传输和其他相关功能。 高通RTL88xx系列是广泛应用于个人电脑、笔记本、平板和手机等设备的无线通信组件,支持IEEE 802.11 a/b/g/n/ac等多种无线网络标准,为用户提供了高速稳定的无线网络连接。然而,为了在不同的操作系统上发挥其性能,通常需要安装相应的驱动程序。特别是在macOS系统上,由于操作系统的特殊性,不同版本的系统对硬件的支持和驱动的兼容性都有不同的要求。 这个压缩包中的驱动文件是特别为macOS 10.9至10.13版本设计的。这意味着如果你正在使用的macOS版本在这个范围内,你可以下载并解压这个压缩包,然后按照说明安装驱动程序。安装过程通常涉及运行一个安装脚本或应用程序,或者可能需要手动复制特定文件到系统目录中。 请注意,在安装任何第三方驱动程序之前,应确保从可信赖的来源获取。安装非官方或未经认证的驱动程序可能会导致系统不稳定、安全风险,甚至可能违反操作系统的使用条款。此外,在安装前还应该查看是否有适用于你设备的更新驱动版本,并考虑备份系统或创建恢复点,以防安装过程中出现问题。 在标签"凄 凄 切 切 群"中,由于它们似乎是无意义的汉字组合,并没有提供有关该驱动程序的具体信息。如果这是一组随机的汉字,那可能是压缩包文件名的一部分,或者可能是文件在上传或处理过程中产生的错误。因此,这些标签本身并不提供与驱动程序相关的任何技术性知识点。 总结来说,USB_RTL88xx_macOS_10.9_10.13_driver.zip包含了用于特定高通RTL88xx系列USB设备的驱动,适用于macOS 10.9至10.13版本的操作系统。在安装驱动之前,应确保来源的可靠性,并做好必要的系统备份,以防止潜在的系统问题。"
recommend-type

PyCharm开发者必备:提升效率的Python环境管理秘籍

# 摘要 本文系统地介绍了PyCharm集成开发环境的搭建、配置及高级使用技巧,重点探讨了如何通过PyCharm进行高效的项目管理和团队协作。文章详细阐述了PyCharm项目结构的优化方法,包括虚拟环境的有效利用和项目依赖的管理。同时,本文也深入分析了版本控制的集成流程,如Git和GitHub的集成,分支管理和代码合并策略。为了提高代码质量,本文提供了配置和使用linters以及代码风格和格式化工具的指导。此外,本文还探讨了PyCharm的调试与性能分析工具,插件生态系统,以及定制化开发环境的技巧。在团队协作方面,本文讲述了如何在PyCharm中实现持续集成和部署(CI/CD)、代码审查,以及
recommend-type

matlab中VBA指令集

MATLAB是一种强大的数值计算和图形处理软件,主要用于科学计算、工程分析和技术应用。虽然它本身并不是基于Visual Basic (VB)的,但在MATLAB环境中可以利用一种称为“工具箱”(Toolbox)的功能,其中包括了名为“Visual Basic for Applications”(VBA)的接口,允许用户通过编写VB代码扩展MATLAB的功能。 MATLAB的VBA指令集实际上主要是用于操作MATLAB的工作空间(Workspace)、图形界面(GUIs)以及调用MATLAB函数。VBA代码可以在MATLAB环境下运行,执行的任务可能包括但不限于: 1. 创建和修改变量、矩阵
recommend-type

在Windows Forms和WPF中实现FontAwesome-4.7.0图形

资源摘要信息: "将FontAwesome470应用于Windows Forms和WPF" 知识点: 1. FontAwesome简介: FontAwesome是一个广泛使用的图标字体库,它提供了一套可定制的图标集合,这些图标可以用于Web、桌面和移动应用的界面设计。FontAwesome 4.7.0是该库的一个版本,它包含了大量常用的图标,用户可以通过简单的CSS类名引用这些图标,而无需下载单独的图标文件。 2. .NET开发中的图形处理: 在.NET开发中,图形处理是一个重要的方面,它涉及到创建、修改、显示和保存图像。Windows Forms和WPF(Windows Presentation Foundation)是两种常见的用于构建.NET桌面应用程序的用户界面框架。Windows Forms相对较为传统,而WPF提供了更为现代和丰富的用户界面设计能力。 3. 将FontAwesome集成到Windows Forms中: 要在Windows Forms应用程序中使用FontAwesome图标,首先需要将FontAwesome字体文件(通常是.ttf或.otf格式)添加到项目资源中。然后,可以通过设置控件的字体属性来使用FontAwesome图标,例如,将按钮的字体设置为FontAwesome,并通过设置其Text属性为相应的FontAwesome类名(如"fa fa-home")来显示图标。 4. 将FontAwesome集成到WPF中: 在WPF中集成FontAwesome稍微复杂一些,因为WPF对字体文件的支持有所不同。首先需要在项目中添加FontAwesome字体文件,然后通过XAML中的FontFamily属性引用它。WPF提供了一个名为"DrawingImage"的类,可以将图标转换为WPF可识别的ImageSource对象。具体操作是使用"FontIcon"控件,并将FontAwesome类名作为Text属性值来显示图标。 5. FontAwesome字体文件的安装和引用: 安装FontAwesome字体文件到项目中,通常需要先下载FontAwesome字体包,解压缩后会得到包含字体文件的FontAwesome-master文件夹。将这些字体文件添加到Windows Forms或WPF项目资源中,一般需要将字体文件复制到项目的相应目录,例如,对于Windows Forms,可能需要将字体文件放置在与主执行文件相同的目录下,或者将其添加为项目的嵌入资源。 6. 如何使用FontAwesome图标: 在使用FontAwesome图标时,需要注意图标名称的正确性。FontAwesome提供了一个图标检索工具,帮助开发者查找和确认每个图标的确切名称。每个图标都有一个对应的CSS类名,这个类名就是用来在应用程序中引用图标的。 7. 面向不同平台的应用开发: 由于FontAwesome最初是为Web开发设计的,将它集成到桌面应用中需要做一些额外的工作。在不同平台(如Web、Windows、Mac等)之间保持一致的用户体验,对于开发团队来说是一个重要考虑因素。 8. 版权和使用许可: 在使用FontAwesome字体图标时,需要遵守其提供的许可证协议。FontAwesome有多个许可证版本,包括免费的公共许可证和个人许可证。开发者在将FontAwesome集成到项目中时,应确保符合相关的许可要求。 9. 资源文件管理: 在管理包含FontAwesome字体文件的项目时,应当注意字体文件的维护和更新,确保在未来的项目版本中能够继续使用这些图标资源。 10. 其他图标字体库: FontAwesome并不是唯一一个图标字体库,还有其他类似的选择,例如Material Design Icons、Ionicons等。开发人员可以根据项目需求和偏好选择合适的图标库,并学习如何将它们集成到.NET桌面应用中。 以上知识点总结了如何将FontAwesome 4.7.0这一图标字体库应用于.NET开发中的Windows Forms和WPF应用程序,并涉及了相关的图形处理、资源管理和版权知识。通过这些步骤和细节,开发者可以更有效地增强其应用程序的视觉效果和用户体验。
recommend-type

【Postman进阶秘籍】:解锁高级API测试与管理的10大技巧

# 摘要 本文系统地介绍了Postman工具的基础使用方法和高级功能,旨在提高API测试的效率与质量。第一章概述了Postman的基本操作,为读者打下使用基础。第二章深入探讨了Postman的环境变量设置、集合管理以及自动化测试流程,特别强调了测试脚本的编写和持续集成的重要性。第三章介绍了数据驱动测试、高级断言技巧以及性能测试,这些都是提高测试覆盖率和测试准确性的关键技巧。第四章侧重于API的管理,包括版本控制、文档生成和分享,以及监控和报警系统的设计,这些是维护和监控API的关键实践。最后,第五章讨论了Postman如何与DevOps集成以及插件的使用和开发,展示了Postman在更广阔的应
recommend-type

ubuntu22.04怎么恢复出厂设置

### 如何在Ubuntu 22.04上执行恢复出厂设置 #### 清除个人数据并重置系统配置 要使 Ubuntu 22.04 恢复到初始状态,可以考虑清除用户的个人文件以及应用程序的数据。这可以通过删除 `/home` 目录下的所有用户目录来实现,但需要注意的是此操作不可逆,在实际操作前建议先做好重要资料的备份工作[^1]。 对于全局范围内的软件包管理,如果希望移除非官方源安装的应用程序,则可通过 `apt-get autoremove` 命令卸载不再需要依赖项,并手动记录下自定义安装过的第三方应用列表以便后续重新部署环境时作为参考[^3]。 #### 使用Live CD/USB进行修