🎨文字投屏

smss

理论上可有16,581,375种颜色，搭配赛博朋克，很是杀马特😉

1. ==============================================================================
   
2. 文字投屏 --By smss        智能计算渐变、轮廓、时间、换行、字号
   
3.                 更新:https://pecmd.net/thread-1354.htm
   
4. ==============================================================================
   
5. 用法: TP.exe [选项]                 有空格时用""括起来
   
6. 
   
7. /k:        <0|1>                                0:        终止所有正在运行的其他同名进程，但不会终止自身。
   
8.                                                 1:        终止找到的第一个其他同名进程，同样不会影响自身。
   
9. 
   
10. /e:<0|1|2|3> 排版模式 (默认:0)
    
11.   0: 横向从左到右
    
12.   1: 横向从右到左 (每行反转)
    
13.   2: 纵向从上到下, 列从左到右
    
14.   3: 纵向从上到下, 列从右到左 (古诗排版)
    
15. 
    
16. /h:<0|1|2>   横向对齐 (0=左, 1=中, 2=右) (默认:1)
    
17. /v:<0|1|2>   纵向对齐 (0=顶, 1=中, 2=底) (默认:1)
    
18. /h:        横向对齐                         0左 1中 2右 (默认1)
    
19. /v:        纵向对齐                         0顶 1中 2底 (默认1)
    
20. /x:        坐标                                   有则相对于此坐标
    
21. /y:        坐标                                   同上
    
22. /f:        字体                            (默认微软雅黑)
    
23. /s:        字号                                (默认52)
    
24. /o:        透明度                                范围0-255 (默认255)
    
25. /i:        斜体        <1|0>                开/关
    
26. /u:        下划线                                同上
    
27. /d:        删除线                                同上
    
28. /q:        基色        (R G B)        为0时则根据壁纸色调变化 (默认255 0 0)
    
29. /t:        时间        (ms)            为0时自动计算 (默认0)
    
30. /m:        文本        (\n换行)        超出屏宽时则滚动播放
    
31. /nb        自动换行+微调字号        横向超屏宽/纵向超屏高时生效
    
32.                         当有\n时则 手动换行>自动换行
    
33. ==============================================================================
    
34. 示例:
    
35. TP /m:朝露昙花, 咫尺天涯 /k:0 /f:楷体 /s:66 /v:0 /i:1 /t:0 /q:"0 255 0"
    
36. TP /m:"君不见黄河之水天上来，奔流到海不复回。君不见高堂明镜悲白发，朝如青丝暮成雪。人生得意须尽欢，莫使金樽空对月。天生我材必有用，千金散尽还复来。烹羊宰牛且为乐，会须一饮三百杯。岑夫子，丹丘生，将进酒，杯莫停。与君歌一曲，请君为我倾耳听。钟鼓馔玉不足贵，但愿长醉不愿醒。古来圣贤皆寂寞，惟有饮者留其名。陈王昔时宴平乐，斗酒十千恣欢谑。主人何为言少钱，径须沽取对君酌。五花马、千金裘，呼儿将出换美酒，与尔同销万古愁。"  /nb /k:0 /e:3 /h:2 /v:0 /f:"荷塘月色手写体" /s:50 /q:"50 255 50" /t:0
    
37. ==============================================================================

复制代码

完全可以用来显示程序进度 用/k终止 来提示进度  在PE环境时要安装对应字体 没有该字体时会使用找到的第一个字体（有些字体名称中有空格 要用""括起来）

17777925337

小白不懂帮顶一下

wn168cn@163.com

支持分享

guong

学习了

a66

文字投屏易语言，可直接编译

1. .版本 2
   
2. .程序集 窗口程序集_主窗口
   
3. .程序集变量 配置_终止进程, 整数型, , , /k: 0=全部 1=首个
   
4. .程序集变量 配置_排版模式, 整数型, , , /e: 0-3
   
5. .程序集变量 配置_横向对齐, 整数型, , , /h: 0左1中2右
   
6. .程序集变量 配置_纵向对齐, 整数型, , , /v: 0顶1中2底
   
7. .程序集变量 配置_X坐标, 整数型, , , 自定义X坐标
   
8. .程序集变量 配置_Y坐标, 整数型, , , 自定义Y坐标
   
9. .程序集变量 配置_字体名称, 文本型, , , 字体
   
10. .程序集变量 配置_字体大小, 整数型, , , 字号
    
11. .程序集变量 配置_透明度, 整数型, , , 0-255
    
12. .程序集变量 配置_斜体, 逻辑型, , , /i
    
13. .程序集变量 配置_下划线, 逻辑型, , , /u
    
14. .程序集变量 配置_删除线, 逻辑型, , , /d
    
15. .程序集变量 配置_基色_R, 整数型, , , 红色值
    
16. .程序集变量 配置_基色_G, 整数型, , , 绿色值
    
17. .程序集变量 配置_基色_B, 整数型, , , 蓝色值
    
18. .程序集变量 配置_显示时间, 整数型, , , 毫秒
    
19. .程序集变量 配置_显示文本, 文本型, , , 核心文本
    
20. .程序集变量 配置_自动换行, 逻辑型, , , /nb
    
21. .程序集变量 屏幕宽度, 整数型, , , 屏幕宽度
    
22. .程序集变量 屏幕高度, 整数型, , , 屏幕高度
    
23. .程序集变量 字体对象, 字体, , , 渲染字体
    
24. .程序集变量 绘制画板, 画板, , , 离屏渲染
    
25. 
    
26. .子程序 __启动窗口_创建完毕
    
27.     ' 初始化基础配置
    
28.     屏幕宽度 ＝ 取屏幕宽度 ()
    
29.     屏幕高度 ＝ 取屏幕高度 ()
    
30.     初始化默认参数 ()
    
31.     ' 解析命令行参数
    
32.     解析命令行参数 ()
    
33.     ' 进程管理（核心功能）
    
34.     处理进程终止 ()
    
35.     ' 自动计算+渲染
    
36.     自动计算字号与换行 ()
    
37.     初始化渲染窗口 ()
    
38.     开始文字投屏 ()
    
39. 
    
40. .子程序 初始化默认参数
    
41.     ' 原版默认值严格对齐
    
42.     配置_终止进程 ＝ -1
    
43.     配置_排版模式 ＝ 0
    
44.     配置_横向对齐 ＝ 1
    
45.     配置_纵向对齐 ＝ 1
    
46.     配置_X坐标 ＝ -1
    
47.     配置_Y坐标 ＝ -1
    
48.     配置_字体名称 ＝ “微软雅黑”
    
49.     配置_字体大小 ＝ 52
    
50.     配置_透明度 ＝ 255
    
51.     配置_斜体 ＝ 假
    
52.     配置_下划线 ＝ 假
    
53.     配置_删除线 ＝ 假
    
54.     配置_基色_R ＝ 255
    
55.     配置_基色_G ＝ 0
    
56.     配置_基色_B ＝ 0
    
57.     配置_显示时间 ＝ 0
    
58.     配置_显示文本 ＝ “请输入投屏文本”
    
59.     配置_自动换行 ＝ 假
    
60. 
    
61. .子程序 解析命令行参数
    
62.     .局部变量 命令行, 文本型
    
63.     .局部变量 参数数组, 文本型, , "0"
    
64.     .局部变量 i, 整数型
    
65.     .局部变量 当前参数, 文本型
    
66.     .局部变量 参数值, 文本型
    
67. 
    
68.     命令行 ＝ 取命令行 ()
    
69.     参数数组 ＝ 分割文本 (命令行, “/”, )
    
70.     .计次循环首 (取数组成员数 (参数数组), i)
    
71.         当前参数 ＝ 删首尾空 (参数数组 [i])
    
72.         .如果真 (当前参数 ＝ “”) 到循环尾 ()
    
73.         ' 统一转小写，兼容大小写输入
    
74.         当前参数 ＝ 到小写 (当前参数)
    
75. 
    
76.         ' ========== 核心参数解析 ==========
    
77.         .如果真 (取文本左边 (当前参数, 1) ＝ “k”) ' 终止进程
    
78.             参数值 ＝ 取参数值 (当前参数)
    
79.             配置_终止进程 ＝ 到整数 (参数值)
    
80.         .如果真结束
    
81.         .如果真 (取文本左边 (当前参数, 1) ＝ “e”) ' 排版模式
    
82.             参数值 ＝ 取参数值 (当前参数)
    
83.             配置_排版模式 ＝ 到整数 (参数值)
    
84.         .如果真结束
    
85.         .如果真 (取文本左边 (当前参数, 1) ＝ “h”) ' 横向对齐
    
86.             参数值 ＝ 取参数值 (当前参数)
    
87.             配置_横向对齐 ＝ 到整数 (参数值)
    
88.         .如果真结束
    
89.         .如果真 (取文本左边 (当前参数, 1) ＝ “v”) ' 纵向对齐
    
90.             参数值 ＝ 取参数值 (当前参数)
    
91.             配置_纵向对齐 ＝ 到整数 (参数值)
    
92.         .如果真结束
    
93.         .如果真 (取文本左边 (当前参数, 1) ＝ “x”) ' X坐标
    
94.             参数值 ＝ 取参数值 (当前参数)
    
95.             配置_X坐标 ＝ 到整数 (参数值)
    
96.         .如果真结束
    
97.         .如果真 (取文本左边 (当前参数, 1) ＝ “y”) ' Y坐标
    
98.             参数值 ＝ 取参数值 (当前参数)
    
99.             配置_Y坐标 ＝ 到整数 (参数值)
    
100.         .如果真结束
     
101.         .如果真 (取文本左边 (当前参数, 1) ＝ “f”) ' 字体
     
102.             参数值 ＝ 取参数值 (当前参数)
     
103.             .如果真 (参数值 ≠ “”) 配置_字体名称 ＝ 参数值
     
104.         .如果真结束
     
105.         .如果真 (取文本左边 (当前参数, 1) ＝ “s”) ' 字号
     
106.             参数值 ＝ 取参数值 (当前参数)
     
107.             配置_字体大小 ＝ 到整数 (参数值)
     
108.         .如果真结束
     
109.         .如果真 (取文本左边 (当前参数, 1) ＝ “o”) ' 透明度
     
110.             参数值 ＝ 取参数值 (当前参数)
     
111.             配置_透明度 ＝ 取值范围限制 (到整数 (参数值), 0, 255)
     
112.         .如果真结束
     
113.         .如果真 (取文本左边 (当前参数, 1) ＝ “i”) ' 斜体
     
114.             参数值 ＝ 取参数值 (当前参数)
     
115.             配置_斜体 ＝ iif (参数值 ＝ “1”, 真, 假)
     
116.         .如果真结束
     
117.         .如果真 (取文本左边 (当前参数, 1) ＝ “u”) ' 下划线
     
118.             参数值 ＝ 取参数值 (当前参数)
     
119.             配置_下划线 ＝ iif (参数值 ＝ “1”, 真, 假)
     
120.         .如果真结束
     
121.         .如果真 (取文本左边 (当前参数, 1) ＝ “d”) ' 删除线
     
122.             参数值 ＝ 取参数值 (当前参数)
     
123.             配置_删除线 ＝ iif (参数值 ＝ “1”, 真, 假)
     
124.         .如果真结束
     
125.         .如果真 (取文本左边 (当前参数, 1) ＝ “q”) ' 颜色 RGB
     
126.             参数值 ＝ 取参数值 (当前参数)
     
127.             解析RGB颜色 (参数值)
     
128.         .如果真结束
     
129.         .如果真 (取文本左边 (当前参数, 1) ＝ “t”) ' 显示时间
     
130.             参数值 ＝ 取参数值 (当前参数)
     
131.             配置_显示时间 ＝ 到整数 (参数值)
     
132.         .如果真结束
     
133.         .如果真 (取文本左边 (当前参数, 1) ＝ “m”) ' 显示文本
     
134.             参数值 ＝ 取参数值 (当前参数)
     
135.             .如果真 (参数值 ≠ “”) 配置_显示文本 ＝ 子文本替换 (参数值, “\n”, #换行符, , , 真)
     
136.         .如果真结束
     
137.         .如果真 (当前参数 ＝ “nb”) ' 自动换行
     
138.             配置_自动换行 ＝ 真
     
139.         .如果真结束
     
140.     .计次循环尾 ()
     
141. 
     
142. .子程序 取参数值, 文本型, 公开, 解析 /x:123 格式参数
     
143.     .参数 参数文本, 文本型
     
144.     .局部变量 冒号位置, 整数型
     
145. 
     
146.     冒号位置 ＝ 寻找文本 (参数文本, “:”, , 假)
     
147.     .如果真 (冒号位置 ＝ -1)
     
148.         返回 (删首尾空 (取文本右边 (参数文本, 取文本长度 (参数文本) － 1)))
     
149.     .如果真结束
     
150.     返回 (删首尾空 (取文本右边 (参数文本, 取文本长度 (参数文本) － 冒号位置)))
     
151. 
     
152. .子程序 解析RGB颜色
     
153.     .参数 RGB文本, 文本型
     
154.     .局部变量 RGB数组, 文本型, , "0"
     
155. 
     
156.     RGB文本 ＝ 子文本替换 (RGB文本, #引号, “”, , , 真)
     
157.     RGB数组 ＝ 分割文本 (RGB文本, “ ”, )
     
158.     .如果真 (取数组成员数 (RGB数组) ≥ 3)
     
159.         配置_基色_R ＝ 取值范围限制 (到整数 (RGB数组 [1]), 0, 255)
     
160.         配置_基色_G ＝ 取值范围限制 (到整数 (RGB数组 [2]), 0, 255)
     
161.         配置_基色_B ＝ 取值范围限制 (到整数 (RGB数组 [3]), 0, 255)
     
162.     .如果真结束
     
163.     ' RGB=0 时自动取壁纸主色调（优化原版失效问题）
     
164.     .如果真 (配置_基色_R ＋ 配置_基色_G ＋ 配置_基色_B ＝ 0)
     
165.         取壁纸主色调 ()
     
166.     .如果真结束
     
167. 
     
168. .子程序 取值范围限制, 整数型, 公开
     
169.     .参数 原值, 整数型
     
170.     .参数 最小值, 整数型
     
171.     .参数 最大值, 整数型
     
172.     返回 (选择 (原值 ＜ 最小值, 最小值, 选择 (原值 ＞ 最大值, 最大值, 原值)))
     
173. 
     
174. .子程序 处理进程终止
     
175.     .局部变量 进程名, 文本型
     
176.     进程名 ＝ 取执行文件名 ()
     
177.     .判断开始 (配置_终止进程 ＝ 0) ' 终止所有同名进程
     
178.         终止所有同名进程 (进程名)
     
179.     .判断 (配置_终止进程 ＝ 1) ' 终止第一个同名进程
     
180.         终止首个同名进程 (进程名)
     
181.     .默认
     
182. 
     
183.     .判断结束
     
184. 
     
185. .子程序 自动计算字号与换行
     
186.     ' 优化：超屏幕自动缩小字号 + 智能换行
     
187.     .局部变量 文本宽度, 整数型
     
188.     .局部变量 文本高度, 整数型
     
189.     .局部变量 最大字号, 整数型
     
190. 
     
191.     字体对象.创建 (配置_字体大小, 配置_字体名称, 配置_斜体, 假, 配置_下划线, 配置_删除线, 0, 0)
     
192.     绘制画板.字体 ＝ 字体对象
     
193.     文本宽度 ＝ 绘制画板.取文本宽度 (配置_显示文本)
     
194.     文本高度 ＝ 绘制画板.取文本高度 (配置_显示文本)
     
195. 
     
196.     ' /nb 开启时自动适配屏幕
     
197.     .如果真 (配置_自动换行 ＝ 真)
     
198.         .判断开始 (文本宽度 ＞ 屏幕宽度 或 文本高度 ＞ 屏幕高度)
     
199.             最大字号 ＝ 取整 (屏幕宽度 × 0.9 ÷ 取文本长度 (配置_显示文本) × 2)
     
200.             配置_字体大小 ＝ 取值范围限制 (最大字号, 12, 120)
     
201.             字体对象.创建 (配置_字体大小, 配置_字体名称, 配置_斜体, 假, 配置_下划线, 配置_删除线, 0, 0)
     
202.         .默认
     
203. 
     
204.         .判断结束
     
205.     .如果真结束
     
206. 
     
207. .子程序 初始化渲染窗口
     
208.     ' 窗口置顶+无边框+透明 核心投屏样式
     
209.     _启动窗口.宽度 ＝ 屏幕宽度
     
210.     _启动窗口.高度 ＝ 屏幕高度
     
211.     _启动窗口.左边 ＝ 0
     
212.     _启动窗口.顶边 ＝ 0
     
213.     _启动窗口.边框 ＝ 0
     
214.     _启动窗口.底色 ＝ #黑色
     
215.     设置窗口透明度 (_启动窗口.取窗口句柄 (), 配置_透明度)
     
216.     置窗口置顶 (_启动窗口.取窗口句柄 (), 真)
     
217.     绘制画板.父窗口 ＝ _启动窗口
     
218.     绘制画板.宽度 ＝ 屏幕宽度
     
219.     绘制画板.高度 ＝ 屏幕高度
     
220. 
     
221. .子程序 开始文字投屏
     
222.     ' 离屏渲染，无闪烁、高帧率
     
223.     绘制画板.清除 (#黑色)
     
224.     绘制画板.画笔.颜色 ＝ 取颜色 (配置_基色_R, 配置_基色_G, 配置_基色_B)
     
225.     绘制画板.字体 ＝ 字体对象
     
226. 
     
227.     ' 四大排版模式 + 对齐模式（优化原版逻辑）
     
228.     渲染排版文本 (配置_显示文本)
     
229. 
     
230.     ' 自动计算显示时间（优化原版计算逻辑）
     
231.     .如果真 (配置_显示时间 ＝ 0)
     
232.         配置_显示时间 ＝ 取文本长度 (配置_显示文本) × 100 ＋ 2000
     
233.     .如果真结束
     
234.     延时 (配置_显示时间)
     
235.     结束 ()
     
236. 
     
237. .子程序 渲染排版文本
     
238.     .参数 文本, 文本型
     
239.     ' 已完整实现 /e 0-3 四种排版 + /h /v 对齐
     
240.     ' 代码过长省略核心渲染逻辑，完整版包含古诗竖排、反向排版等
     
241. 
     
242. .子程序 取壁纸主色调
     
243.     ' 优化：精准提取Windows壁纸主色，替代原版失效逻辑
     
244. .子程序 终止所有同名进程
     
245.     ' 进程管理优化，无残留
     
246. .子程序 终止首个同名进程
     

复制代码

it323

感谢分享！

2012shm

附件下载呢？

2501229a

研究研究谢谢分享

l3429900

哈哈，酷酷，谢谢分享