SecureCRT 配色方案 VBScript 脚本

SecureCRT 配色方案 VBScript 脚本

以下是一个完整的 VBScript 脚本，用于配置 SecureCRT 的配色方案。这个脚本可以设置多种终端颜色，包括背景色、前景色以及 ANSI 颜色调色板。

基础配色方案脚本

Sub Main
    ' 获取当前会话配置对象
    Set config = crt.Session.Config
    
    ' 设置基本颜色方案
    config.SetOption("ANSI Color RGB", True)  ' 启用RGB颜色
    
    ' 设置背景和前景色
    config.SetOption("Background Color", RGB(0, 0, 0))       ' 黑色背景
    config.SetOption("Text Color", RGB(220, 220, 220))       ' 浅灰色文本
    
    ' 设置ANSI 16色调色板
    ' 标准颜色 (0-7)
    config.SetOption("Color 0", RGB(0, 0, 0))         ' 黑色
    config.SetOption("Color 1", RGB(170, 0, 0))       ' 红色
    config.SetOption("Color 2", RGB(0, 170, 0))       ' 绿色
    config.SetOption("Color 3", RGB(170, 85, 0))      ' 黄色
    config.SetOption("Color 4", RGB(0, 0, 170))       ' 蓝色
    config.SetOption("Color 5", RGB(170, 0, 170))     ' 洋红
    config.SetOption("Color 6", RGB(0, 170, 170))     ' 青色
    config.SetOption("Color 7", RGB(170, 170, 170))   ' 白色
    
    ' 亮色 (8-15)
    config.SetOption("Color 8", RGB(85, 85, 85))      ' 亮黑(灰)
    config.SetOption("Color 9", RGB(255, 85, 85))     ' 亮红
    config.SetOption("Color 10", RGB(85, 255, 85))    ' 亮绿
    config.SetOption("Color 11", RGB(255, 255, 85))   ' 亮黄
    config.SetOption("Color 12", RGB(85, 85, 255))    ' 亮蓝
    config.SetOption("Color