[问题求助] VBS控制台输出图片

jyswjjgdwtdtj

set o=wscript.stdout
wscript.stdin.readline
set ws=createobject("wscript.shell")
set pcs=ws.exec("cmd /c ""mode con""")
a=split(pcs.stdout.readall(),vbcrlf)
h=replace(replace(a(3),"行:","")," ","")
w=replace(replace(a(4),"列:","")," ","")/2
Set imf = CreateObject("WIA.ImageFile")
Set ip = CreateObject("WIA.ImageProcess")
imf.loadfile("C:\Users\lich\Documents\ClassIn Files\Files\新建文件夹\1.jpg")
IP.Filters.Add IP.FilterInfos("Scale").FilterID
IP.Filters(1).Properties("MaximumWidth") = w
IP.Filters(1).Properties("MaximumHeight") = h
set imf=ip.apply(imf)
set argb=imf.argbdata
o.write(vbtab&string(1000,chr(8)))
for i=0 to imf.height-1
p=""
for j=0 to imf.width-1
krgb=ExtractRGB(argb(i*imf.width+j+1))
p=p&replace("%ESC_CHAR%[7;40;38;2;"&krgb(0)&";"&krgb(1)&";"&krgb(2)&"m  %ESC_CHAR%[m","%ESC_CHAR%",chr(27))
next
o.writeline p
next
wscript.stdin.readline

Function ExtractRGB(argbValue)
    argbValue=argbValue and &hffffff
    red = (argbValue And &HFF0000) \ &H10000
    blue = argbValue And &HFF
    green = (argbValue -red*&h10000-blue) \ &H100

    ExtractRGB = Array(red, green, blue)
End Function
复制代码

全屏且字体最小下一张图片要输出半分钟 耗百来兆内存 活像上世纪的古早电脑