vbs写一个60s循环，第20s和第40s在窗口1和2分别发送ssm1和ssm3

以下是一个VBScript编写的循环60秒、在第20秒和第40秒分别在窗口1和窗口2发送消息 "ssm1" 和 "ssm3" 的示例脚本：

Option Explicit

Dim startTime, currentTime, elapsedTime

' 获取当前时间
startTime = Timer

Do While elapsedTime < 60
    ' 获取当前时间
    currentTime = Timer

    ' 计算已经过去的时间
    elapsedTime = currentTime - startTime

    ' 判断所属的循环
    If elapsedTime = 20 Then
        ' 在窗口1发送消息 "ssm1"
        Call SendWindowMessage(1, "ssm1")
    ElseIf elapsedTime = 40 Then
        ' 在窗口2发送消息 "ssm3"
        Call SendWindowMessage(2, "ssm3")
    End If

    ' 等待一小段时间，以免循环过于频繁占用系统资源
    WScript.Sleep 100
Loop

WScript.Echo "Loop finished."

Sub SendWindowMessage(windowIndex, message)
    ' 在此处编写发送消息的代码
    ' 例如：使用 WScript.Shell 对象发送消息给窗口

    Dim shell
    Set shell = CreateObject("WScript.Shell")

    ' 根据窗口索引选择发送消息的窗口
    Select Case windowIndex
        Case 1
            ' 发送消息给窗口1
            shell.AppActivate "窗口1的标题"
            shell.SendKeys message
        Case 2
            ' 发送消息给窗口2
            shell.AppActivate "窗口2的标题"
            shell.SendKeys message
        ' 可以根据需要添加更多的窗口索引和发送消息的逻辑
    End Select

    Set shell = Nothing
End Sub

请注意，在 `SendWindowMessage` 子过程中，您需要根据实际的窗口标题或其他标识来选择发送消息的窗口，并使用适当的方法将消息发送给窗口。上述示例中使用了 `WScript.Shell` 对象的 `AppActivate` 和 `SendKeys` 方法来实现发送消息的功能。

请保存以上脚本为 `.vbs` 文件，并根据实际情况修改窗口标题和发送消息的逻辑。希望能对您有所帮助！如果还有其他问题，请随时提问。