vbs写一个循环20s的脚本
时间: 2024-04-12 08:31:28 浏览: 31
您可以使用VBScript编写一个循环20秒的脚本,以下是一个示例:
```vbscript
Option Explicit
Dim startTime, currentTime
' 获取当前时间
startTime = Timer
Do While Timer - startTime < 20
' 在此处编写您想要重复执行的代码
' 例如:MsgBox "Hello, World!"
' 获取当前时间
currentTime = Timer
' 检查是否已经过了1秒,如果是则输出已经过去的秒数
If currentTime - startTime >= 1 Then
WScript.Echo Round(currentTime - startTime) & " seconds have passed."
End If
' 等待一小段时间,以免循环过于频繁占用系统资源
WScript.Sleep 100
Loop
WScript.Echo "Loop finished."
```
以上脚本会在循环内输出已经过去的秒数,并在循环结束后输出"Loop finished."。您可以根据您的需求在循环内编写具体的操作代码。请注意,VBScript脚本需要保存为`.vbs`文件并在Windows系统上运行。
相关问题
用vbs写一个关机脚本
答:可以使用以下代码:Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "shutdown -s -t 0", 0
Set WshShell = Nothing
vbs写一个随机点名的脚本
可以编写以下 VBScript 代码来实现随机点名功能:
```
' 定义学生名单数组
Dim students(4)
students(0) = "张三"
students(1) = "李四"
students(2) = "王五"
students(3) = "赵六"
' 生成随机数
Randomize
index = Int((UBound(students)-LBound(students)+1)*Rnd+LBound(students))
' 输出随机点名结果
MsgBox "本次随机点名结果为:" & students(index)
```
该代码首先定义了一个包含多个学生名字的数组,然后借助 VBScript 中的 Randomize 函数和 Rnd 函数来生成一个随机数,最后根据随机数从数组中取出对应的学生名字并输出结果。
相关推荐
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)