使用【vbs】写secure【屏幕出现关键字“6”截图保存文件夹】的宏代码

VBS（Visual Basic for Applications）是一种脚本语言，用于Microsoft Office应用程序中的宏操作。要在Excel中编写一个简单的VBS宏，用于当屏幕上出现关键词"6"时截图并保存到指定文件夹，你可以参考以下代码：

Sub Capture_Screen_If_Keyword()
    ' 导入所需的模块
    Dim oShell, oWd, oDesktop, sFilePath
    
    ' 创建shell对象
    Set oShell = CreateObject("WScript.Shell")
    
    ' 获取当前工作簿和窗口对象
    Set oWd = ActiveDocument
    Set oDesktop = GetObject("winmgmts:\\.\root\CIMV2\DesktopSystem")
    
    ' 设置关键字搜索
    If InStr(1, oDesktop.Caption, "6", vbTextCompare) > 0 Then
        ' 创建图片路径，假设保存在用户桌面的"Pictures"文件夹
        sFilePath = Environ$("USERPROFILE") & "\Pictures\"
        
        ' 如果目录不存在，先创建它
        If Not Dir(sFilePath) <> "" Then
            MkDir sFilePath
        End If
        
        ' 截图并保存到文件夹
        sFilePath &= "Screenshot_" & Format(Date, "yyyy-mm-dd_hh-mm-ss") & ".png"
        oShell.SendKeys "{PrtSc}" ' 打印屏幕键
        oShell.SendKeys "{" & Chr(96) & "]" ' 将图像粘贴到剪贴板
        Shell "mspaint.exe /in /p """"" & sFilePath & """""" ' 使用画图软件保存图片
    End If
    
    ' 清理对象
    Set oShell = Nothing
    Set oWd = Nothing
    Set oDesktop = Nothing
End Sub

这个宏会在Excel运行时监控屏幕标题，一旦找到包含关键词"6"，就会截图并将其保存到用户桌面的"Pictures"文件夹。请注意，此代码仅适用于Windows环境，并依赖于系统内置的应用程序（如Paint）。

如果你想直接保存图片到其他地方，只需更改`sFilePath`变量中的路径即可。另外，由于安全限制，VBA宏可能无法直接捕获屏幕上所有的活动窗口，所以这个例子仅适用于全局搜索文本。