转一个,桌面图标下文字去底色的方法

本文介绍了一种使用VBScript移除Windows桌面图标背景的方法。通过调用API函数,找到指定窗口并发送消息改变其背景颜色为透明,从而实现图标下文字无底的效果。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

直接保存为 透明.BAS 即可,按F5运行桌面图标下的文字就没有底了

 

Option Explicit
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, ByVal lpRect As Long, ByVal bErase As Long) As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const LVM_SETTEXTBKCOLOR = &H1000 + 38
Sub Main()
Dim Parent&, Child&, CChild&
Parent = FindWindow(vbNullString, "Program Manager")
If Parent = 0 Then ShowError
Child = FindWindowEx(Parent, 0, "SHELLDLL_DefView", vbNullString)
If Child = 0 Then ShowError
CChild = FindWindowEx(Child, 0, "SysListView32", vbNullString)
If CChild = 0 Then ShowError
SendMessage CChild, LVM_SETTEXTBKCOLOR, 0, ByVal &HFFFFFFFF
InvalidateRect CChild, 0, True
End Sub
Private Sub ShowError()
    MsgBox "不好意思,未知的错误", vbOKOnly + vbInformation
    End
End Sub 

使用电脑Windows10系统 开发一个手机软件,面板显示的功能如下: 等待时间:一轮运行完毕后,等待多长时间继续运行下一轮 循环次数:当循环到指定次数后,停止运行。也可以设定无限循环。 自动点击:自定义 点击次数/时间 显示点击标,用户可以将点击标移动到指定位置,点击启动,会按自定义设置的参数 实现自动点击点击标位置 记录点击:点击记录,开始记录用户在手机上点击的各个操作包括时间间隔,位置等等操作,点击完成,点击启动,会按照用户记录好的,自动进行操作 设置区域图片标本:点击增加按钮(如果已经有设定的标本,显示删除按钮,点击删除按钮可以删除该截图标本选项,截图标本可增加多个), 弹出引导框,引导用户做出选择区域动作整屏透明灰底: 点击屏幕(起始点)拖动松开(结束点)形成一个矩形截图区域,去掉该区域的底,就显示了该用户截取的标本,并提示用户是否确定该区域为截图标本,确定则保存该截图标本用户可以修改该截图标本的名字。也可删除该截图标本。 设置识字标本:点击增加按钮(如果已经有设定的文字,点击该文字,可以修改文字内容,显示删除按钮,点击删除按钮可以删除该文字选项,识字标本可增加多个)设定好文字,确认 弹出引导框,引导用户做出选择区域的动作,整屏透明灰底: 点击屏幕(起始点)拖动松开(结束点)形成一个矩形区域,去掉该区域的底,并提示用户是否确定该区域为识字区域,确定则保存该区域。 自动识别按钮:点击增加按钮(如果已经有设定的标本,显示删除按钮,点击删除按钮可以删除该截图标本选项,截图标本可增加多个), 弹出引导框,引导用户做出选择区域动作整屏透明灰底: 点击屏幕(起始点)拖动松开(结束点)形成一个矩形截图区域,自动识别该区域的按钮形状,将区域自动缩为识别的按钮区域 去掉该区域的底,并提示用户是否确定在该区域识别该按钮,确定则保存该区域按钮形状,并可以命名 红点识别:设定区域与上面一样,同样可以设定多个区域,作用就是判断该区域是否存在红点 启动:点击启动,按照设定好的自动运行; 停止:点击停止,停止运行 大致的需求如以上, 我需要实现以上需求功能,打包成品后,在手机上运行,可以实现免ROOT运行以上功能,最好是可以支持js或者TS语言开发,到后期可以发布成多端软件(电脑,安卓,苹果)。 确保开发出来的成品可商用,要避免开发期间产生额外的费用,若需用插件,则要避免收费插件 使用什么来开发最佳?请给出最佳方案
05-12
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值