用VBS写secureCRT的宏调用脚本，语法用sub main，screen，当信息出现“℃”时用电脑自带的截图工具截图并保存在文件夹“666”中

在VBS (Visual Basic for Applications) 中编写SecureCRT的宏调用脚本来监视屏幕内容并在特定条件满足时截屏，可以使用`AutoIt`库来实现，因为它支持Windows API操作。首先，确保你已经在SecureCRT中安装了支持宏功能，并且允许外部程序的交互。

下面是一个简单的示例脚本，它假设已经创建了一个名为`AutoIt`的模块（可通过`Tools > Options > Macros > External Programs`添加），并将`autoit3.exe`路径设置在其中：

Sub Main()
    Dim AutoIt As Object
    Set AutoIt = CreateObject("AutoItX3.Control.UIThread")
    
    ' 监听屏幕
    AutoIt.WinWait("SecureCRT", "", 0)
    While True
        Dim Found As Boolean
        Found = InStr(SCREEN, "℃") ' 检查屏幕上是否包含 "℃"
        
        If Found Then
            ' 截图并保存
            Dim screenshotPath As String
            screenshotPath = "C:\path\to\666\screenshot_" & FormatDateTime(Now(), "yyyyMMdd_HHmmss") & ".png" ' 替换为你想要的保存路径
            
            AutoIt.Send "^z" ' 打开截屏快捷键（可能会因系统而异）
            AutoIt.Send "{F9}" ' 或者直接按组合键截屏
            AutoIt.SendFormat("%s", screenshotPath) ' 将图片保存到指定位置
            
            Exit While ' 结束循环，不再继续监听
        End If
        
        WScript.Sleep 1000 ' 每秒检查一次
    Wend
    
    AutoIt.Quit ' 关闭AutoIt实例
End Sub

**注意**：
1. 这段脚本依赖于你的系统环境和AutoIt软件的具体配置，可能需要调整截图快捷键。
2. `InStr()`函数用于查找字符串，确保"℃"字符位于屏幕上显示的内容中。
3. 根据实际需求，可能需要处理更多错误和异常情况，如截图失败、文件无法写入等。