找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 31|回复: 0

[特效代码] 桌面显示文字.纯代码.BAT

[复制链接]
发表于 3 小时前 | 显示全部楼层 |阅读模式
如题:桌面显示文字.纯代码.BAT
----------------------扔代码----------------------
  1. @Echo off
  2. Set t=变量:T是显示的内容,C是字体颜色,D是字体大小,X是宽,Y是高
  3. Set c=red
  4. Set d=36
  5. Set x=50
  6. Set y=50

  7. Powershell -NoProfile -C "Add-Type -AssemblyName System.Windows.Forms;Add-Type -AssemblyName System.Drawing;Add-Type -MemberDefinition '[DllImport(\"user32.dll\")] public static extern IntPtr SendMessage(IntPtr hWnd, int Msg, int wParam, int lParam); [DllImport(\"user32.dll\")] public static extern bool ReleaseCapture();' -Name User32 -Namespace WinAPI -PassThru | Out-Null;$form=New-Object System.Windows.Forms.Form;$form.FormBorderStyle='None';$form.ControlBox=$false;$form.ShowInTaskbar=$false;$form.TopMost=$true;$form.BackColor='White';$form.TransparencyKey='White';$form.StartPosition='Manual';$label=New-Object System.Windows.Forms.Label;$label.Text='%t%';$label.Font=New-Object System.Drawing.Font('SimSun',%d%,[System.Drawing.FontStyle]::Regular);$label.AutoSize=$true;$label.BackColor='White';$label.ForeColor='%c%';$label.Cursor=[System.Windows.Forms.Cursors]::SizeAll;$form.Controls.Add($label);$form.ClientSize=$label.Size;$form.Location=New-Object System.Drawing.Point(%x%,%y%);$label.Add_MouseDown({param($s,$e)if($e.Button -eq 'Left'){[WinAPI.User32]::ReleaseCapture();[WinAPI.User32]::SendMessage($form.Handle,0xA1,2,0);}});$form.Add_Shown({$form.Activate()});$form.Add_FormClosing({$form.Dispose()});[System.Windows.Forms.Application]::Run($form)"
复制代码

---------代码存 ANSI 编码, XXXX.BAT ------------------

桌面显示文字.纯 Powershell 代码,非第三方工具,
配合 VBS 隐藏启动运行脚本,可以实现开机桌面提示.也可以封装成 EXE 进程,
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-7-15 04:11

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表