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

在VBS（Visual Basic Scripting Edition）中编写SecureCRT的调用宏，用于监控屏幕内容并在检测到特定字符（例如“℃”）时自动截图，可以采用Windows的内置命令行工具`rasdial`和`Powershell`。首先，你需要设置好截图的保存路径，这里指定为D盘的"666"文件夹。

下面是一个基础的VBS脚本示例，假设你的电脑已经安装了Snipping Tool作为截图工具：

Set objShell = CreateObject("WScript.Shell")
Set objCOM = CreateObject("WScript.Shell")

' 监控屏幕内容
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
Do While True
    If InStr(ObjWScript.StdOut.ReadAll, "℃") Then
        ' 如果发现"℃"，截取屏幕
        Dim screenshotPath
        screenshotPath = "D:\666\screenshot_" & Format(Now(), "yyyy-mm-dd_hh-mm-ss") & ".png"
        objCOM.Exec "rundll32.exe user32.dll,PrintWindow," & ObjWScript.Echo & ", " & screenshotPath
        
        ' 使用powershell压缩图片，减少存储空间（可选）
        'objShell.Run """C:\Windows\System32\Compress-Archive -Force -Path """" & screenshotPath & """ -DestinationPath ""D:\666\compressed_screenshot_""" & Format(Now(), "yyyy-mm-dd_hh-mm-ss") & """.zip"""
        
        Wscript.Sleep 1000 ' 每秒检查一次
    End If
Loop

' 关闭SecureCRT窗口 (如果你希望在完成截图后关闭)
WshShell.SendKeys "{F4}"

Set objShell = Nothing
Set objCOM = Nothing
Set WshShell = Nothing

注意：
1. 这段代码使用`SendKeys`函数发送键盘组合`{F4}`关闭SecureCRT，如果不需要这个功能，只需删除这行即可。
2. 图片压缩部分是可选的，可以根据需求添加或删除。你需要确保PowerShell和Compress-Archive命令在你的系统上可用。
3. 安全性方面，请确保VBS脚本运行时有足够的权限访问目标路径和执行截图操作。