免费型小精灵去广告自删除所有文件(按键精灵)

本文分享了一段简短的代码,用于屏蔽特定软件中的广告窗口。介绍了如何通过查找并隐藏窗口来实现目标,并讨论了遇到的问题如无法关闭窗口或删除插件生成文件等。

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

其实就十几行代码,没什么技术含量,只是希望能给大家提供一些思路,那个广告太烦了,我想给同学用用我的程序都不敢,所以出此下策~~~~不过要设置小精灵0秒后运行,还有就是空文件夹plugin删不掉,郁闷中,会的话告诉我一声~~~~
以后还会陆续学习共享一些方法,顶我是我前进的动力,如果我的帖子再给埋了,我就真的没动力了。谢谢,O(_)O哈哈~

//小精灵的窗口句柄是#32770,忽略标题

Plugin Hwnd = Window.Find("#32770", 0)

//可恶的广告句柄父句柄居然不是#32770,我搞了好长时间才知道是“ 0”,不加引号的0是忽略也可以

Plugin HwndEx = Window.FindEx("0", 0, "AfxFrameOrView42", 0)

Plugin Window.Hide(HwndEx)

//试了通过句柄关闭窗口及通过强杀进程都会把主程序关掉,看来是同一个进程的,连ALT+F4都不行,郁闷,只能能把窗口最小化

Rem Plugin Window.Top(HwndEx, 0)

Rem KeyDown 18,1

Rem KeyPress 115,1

Rem KeyUp 18,1

Rem Plugin Window.Size(HwndEx, 0, 0)

Rem Plugin Memory.SetProcessLive(Hwnd, 4)

Rem Plugin Memory.SetProcessLive(HwndEx, 1)

Rem Plugin Memory.TerminateProc(HwndEx)

//获取小精灵进程名字(即是窗口名字)

Plugin Text = Window.GetText(Hwnd)

//清除程序插件生成文件

Dim fso

const txt="delete.bat"

set fso=CreateObject("Scripting.FileSystemObject")

file=fso.FileExists(txt)

const forappending=8

//判断是否存在delete.bat

If file=0

//否,第一次使用生成delete.bat文件

set file1=fso.createtextfile(txt,false)

EndIf

//以写方式打开delete.bat,写入bat命令

set file1=fso.opentextfile(txt,ForAppending)

//写入删除小精灵进程的命令

file1.writeline("taskkill /f /IM "&Text& ".exe")

//写入删除小精灵.exe及相关插件生成文件的命令

file1.writeline("del /s *.* /q")

file1.writeline("rd /s /q")

file1.Close

RunApp("delete.bat")

 

评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值