用vbs编写脚本作为secureCRT的宏调用，语法用sub main。当屏幕输出信息出现“℃”时，用电脑自带截图工具截图，并保存到D盘文件夹“666”中

在VBS中编写SecureCRT宏调用的脚本，你可以使用以下结构，特别是当检测到屏幕输出信息包含 "℃" 时触发截图功能。这里假设你使用的VBScript函数库支持屏幕截取操作，如Microsoft Scripting Runtime Library。请确保在你的代码中包含了适当的引用。

Option Explicit

' 引入所需模块，如Windows API库用于屏幕截取
' Windows API 示例:
Dim oShell, sFilePath, sImageName

Set oShell = CreateObject("WScript.Shell")

' 设置截图保存目录
sFilePath = "D:\666\"

' 当屏幕上显示 "℃" 时调用截图函数
Sub CaptureScreenIfCentigradeDetected()
    On Error Resume Next ' 处理可能出现的错误
    If InStr(Replace(Environ("CMD"), vbCrLf, "", vbTextCompare), "℃") > 0 Then ' 检查是否包含 "℃"
        ' 创建当前时间戳作为图片名称
        sImageName = FormatDateTime("yyyy-mm-dd_hh-mm-ss", Date) & ".png"
        ' 截图并保存到指定路径
        sFilePath = sFilePath & sImageName
        oShell.Run "screenclip.exe /file:" & sFilePath, 0, False ' 使用screenclip命令截取屏幕并保存
    End If
End Sub

' 主函数调用捕获事件
Sub Main()
    Set objTimer = CreateObject("WScript.Shell").CreateEventObject("Timer")
    objTimer.Interval = 1000 ' 每秒检查一次屏幕内容
    objTimer.OnTime = "CaptureScreenIfCentigradeDetected"
    WScript.Sleep(Wscript.Arguments.Item(0)) ' 等待用户提供的延迟时间（如果有的话）
End Sub

在SecureCRT宏中调用此脚本时，你需要提供一个参数来表示等待的时间（单位为毫秒），例如 `Main 1000` 表示立即开始执行并每秒检查一次。