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

在SecureCRT中编写VBS脚本来实现当屏幕上出现特定关键词"6"时自动截图并保存到指定文件夹的功能，可以按照以下步骤操作：

Option Explicit

Dim wshShell, oDesktop, oSession, oWindow, oBitmap, sFilePath
Set wshShell = CreateObject("WScript.Shell")
Set oDesktop = wshShell.AppActivate("SecureCRT") '假设SecureCRT是当前活动窗口
Set oSession = oDesktop.GetConsole()
Set oWindow = oSession.GetActiveWindow()

'oWindow.SendKeys "%P" ' 如果需要先按下组合键截屏 (通常快捷键是Ctrl+PrintScreen)

sFilePath = "C:\YourSaveFolder\screen_shot_" & Format(Date,"yyyyMMdd_HHmmss") & ".png" '替换为你的保存路径和文件名格式

oBitmap = oWindow.CreateCapture()
wshShell.CurrentDirectory = sFilePath '设置保存目录
oBitmap.SavePicture sFilePath, 4 '4表示PNG格式，其他如1、2、3分别代表BMP、GIF、JPEG

Set oBitmap = Nothing
Set oWindow = Nothing
Set oSession = Nothing
Set oDesktop = Nothing

--宏调用部分
'你可以将上述代码放在SecureCRT的自定义宏中，比如命名为 "SnapOnSix"
'SetMacroText "SnapOnSix", "RunScript(""cscript //nologo script.vbs"";)"
'然后通过快捷键或者其他方式触发这个宏