回复 3# HOPE2021
源码: | Option Explicit | | Public Declare Function FreeConsole Lib "kernel32" () As Long | | Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long | | Public Declare Function GetStdHandle Lib "kernel32" (ByVal nStdHandle As Long) As Long | | Public Declare Function LstrLen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long | | Private Declare Function SetConsoleTextAttribute Lib "kernel32" (ByVal hConsoleOutput As Long, ByVal wAttributes As Long) As Long | | Public Declare Function WriteConsole Lib "kernel32" Alias "WriteConsoleA" (ByVal hConsoleOutput As Long, ByVal lpBuffer As Any, ByVal nNumberOfCharsToWrite As Long, lpNumberOfCharsWritten As Long, lpReserved As Any) As Long | | Public Const STD_OUTPUT_HANDLE = -11& | | Public hConsoleOut As Long | | Public Sub Initialize() | | hConsoleOut = GetStdHandle(STD_OUTPUT_HANDLE) | | End Sub | | Public Sub Terminate() | | Call FreeConsole | | Call CloseHandle(hConsoleOut) | | End Sub | | Public Sub Echo(ByVal szOut As String) | | WriteConsole hConsoleOut, szOut, LstrLen(szOut), vbNull, vbNull | | End Sub | | | | Sub Main() | | On Error Resume Next | | Dim Cmd | | Dim i | | Dim j | | Call Initialize | | Dim Color___ As Long | | If Command = "" Then | | Call Echo(vbCrLf & "没有命令参数,操作失败" & vbCrLf) | | Call Help_ | | End If | | If Left(UCase(Command), 2) = "/H" Then | | Call Help_ | | Call Terminate | | Exit Sub | | End If | | If Left(UCase(Command), 2) = "/?" Then | | Call Help_ | | Call Terminate | | Exit Sub | | End If | | Color___ = Command | | If Not Left(UCase(Command), 2) = "/H" Then | | Dim Handle | | Handle = GetStdHandle(STD_OUTPUT_HANDLE) | | If IsNumeric(Color___) = True Then | | Call SetConsoleTextAttribute(Handle, Color___) | | Call Terminate | | End | | End If | | Call Echo("命令参数不正确" & vbCrLf) | | Call Terminate | | End If | | End Sub | | | | Function Help_() | | Call Echo(vbCrLf & "Hope Colour [Version 1.0.0000]" & vbCrLf) | | Call Echo("(C) Copyright 2016-2021 Hope Corp." & vbCrLf & vbCrLf) | | Call Echo("本程序用于让命令行实现彩色显示" & vbCrLf & vbCrLf) | | Call Echo("Colour /H - 查询帮助" & vbCrLf & vbCrLf) | | Call Echo("Colour /? - 查询帮助" & vbCrLf & vbCrLf) | | Call Echo("Colour ColourCode - 从下一行命令开始,进行与ColourCode关联的颜色" & vbCrLf) | | Call Echo(" - ColourCode是颜色代码,可以是任意一个0~255的正整数" & vbCrLf) | | Call Echo(" - 下面是ColourCode的色卡" & vbCrLf & vbCrLf) | | Dim i | | For i = 0 To 255 | | Dim Handle | | Handle = GetStdHandle(STD_OUTPUT_HANDLE) | | Call SetConsoleTextAttribute(Handle, i) | | Call Echo(" " & i & " ") | | Call SetConsoleTextAttribute(Handle, 0) | | Call Echo(Chr(9)) | | Next | | Call Echo(vbCrLf) | | Call SetConsoleTextAttribute(Handle, 7) | | Call Terminate | | End | | End FunctionCOPY |
| 
发表于 2021-10-5 12:25
| 
