[カラーコードを取得する]

赤，緑，青の要素を指定して、色番号を取得します。

【ソースコード】

[tips0060.vbs]
Option Explicit

Dim lngRed      ' 赤の要素
Dim lngGreen    ' 緑の要素
Dim lngBlue     ' 青の要素

lngRed = 128
lngGreen = 0
lngBlue = 128
WScript.Echo "紫の色コードは " & Hex(RGB(lngRed, lngGreen, lngBlue)) & " です。"

【実行結果】

C:\> cscript //NoLogo tips0060.vbs
紫の色コードは 800080 です。