vbs写一个循环20s的脚本

您可以使用VBScript编写一个循环20秒的脚本，以下是一个示例：

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 函数来生成一个随机数，最后根据随机数从数组中取出对应的学生名字并输出结果。