易语言起始页广告屏蔽及源码

天蝎浪花

怎么打开这个贴了,现在助手有这功能了吧..虽然我其实支持国产软件正版化,不过我又希望这类语言工具还是不收费的好,否则得不偿失不是

sds6703

在哪里签名？提示签名错误啊。

zhichengishero

谢谢。收藏了。

ljm6634

谢谢分享。

34205

好神奇，这个值得学习

kgttf

66666666666666666666

Trany

不错啊！继续加油！

xb8210

好极了！！！！！！！！！

l0447195

以支持~继续加油~

jr21066

终于恢复易最初时的功能了。可以打开程序时自动新建一个空白程序。

在楼主的基础上这样修改就行了

  

子程序名	返回值类型	公开	备 注
index_ProcessNotifyLib	整数型		！！！库信息通知函数
参数名	类 型	参考	可空	数组	备 注
消息类型	整数型
消息值1	整数型
消息值2	整数型

变量名	类 型	静态	数组	备 注
ret	整数型
已调用过	逻辑型

ret ＝ 默认处理_库信息通知函数 (消息类型, 消息值1, 消息值2, 库)  ' ！！！最好放在这句代码放在最前，因为需要做一些初始工作(比如保存易功能函数地址)
如果真 (取反 (已调用过))
. ' 如果真 (取反 (库.易功能 ().是否为调试版 ()))
' 库.易功能 ().调试信息 (#换行符 ＋ “★☆ Rabbit - SalHe ☆★ 本人菜鸟一枚，大鸟勿喷。伤不起。”, )  ' 防止前面的调试信息没换行
已调用过 ＝ 真
' 这里我就偷个懒了，因为支持库是被易语言加载的，所以取运行目录取得的是易语言的目录
gMajorVersion ＝ 位与 (库.易功能 ().取易版本 (), 65535)
gMinorVersion ＝ 右移 (库.易功能 ().取易版本 (), 2 × 8)
如果真 (gMajorVersion ＝ 5 且 gMinorVersion ≥ 3 或 gMajorVersion ＞ 5)  ' 易语言5.3或更高的版本才有起始页，开个线程等待起始页出现
启动线程 (&WaitIndex, , )
启动线程 (&新建消息发送, , )

返回 (ret)

子程序名	返回值类型	公开	备 注
WaitIndex

变量名	类 型	静态	数组	备 注
hWndE	整数型

hWndE ＝ 库.易功能 ().取易句柄 ()
延时 (1000)
如果真 (取窗口标题 (hWndE) ≈ “易语言 - Windows窗口程序 - [起始页]”)
SendMessageA (hWndE, #WM_COMMAND, 57600, 1444528)

子程序名	返回值类型	公开	备 注
新建消息发送

变量名	类 型	静态	数组	备 注
窗口句柄	整数型
控件句柄	整数型

延时 (1500)
窗口句柄 ＝ FindWindowA (“#32770”, “新建：”)
控件句柄 ＝ GetDlgItem (窗口句柄, 1)
SendMessageA (控件句柄, 513, 0, 0)
SendMessageA (控件句柄, 514, 0, 0)

i支持库列表	支持库注释
EThread	多线程支持库
eAPI	应用接口支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 eAPI<br /> <br /> .子程序 index_ProcessNotifyLib, 整数型, , ！！！库信息通知函数<br /> .参数 消息类型, 整数型<br /> .参数 消息值1, 整数型<br /> .参数 消息值2, 整数型<br /> .局部变量 ret, 整数型<br /> .局部变量 已调用过, 逻辑型, 静态<br /> <br /> ret ＝ 默认处理_库信息通知函数 (消息类型, 消息值1, 消息值2, 库)  ' ！！！最好放在这句代码放在最前，因为需要做一些初始工作(比如保存易功能函数地址)<br /> .如果真 (取反 (已调用过))<br />     .' 如果真 (取反 (库.易功能 ().是否为调试版 ()))<br />         ' 库.易功能 ().调试信息 (#换行符 ＋ “★☆ Rabbit - SalHe ☆★ 本人菜鸟一枚，大鸟勿喷。伤不起。”, )  ' 防止前面的调试信息没换行<br />     .如果真结束<br />     已调用过 ＝ 真<br /> <br />     ' 这里我就偷个懒了，因为支持库是被易语言加载的，所以取运行目录取得的是易语言的目录<br />     gMajorVersion ＝ 位与 (库.易功能 ().取易版本 (), 65535)<br />     gMinorVersion ＝ 右移 (库.易功能 ().取易版本 (), 2 × 8)<br />     .如果真 (gMajorVersion ＝ 5 且 gMinorVersion ≥ 3 或 gMajorVersion ＞ 5)  ' 易语言5.3或更高的版本才有起始页，开个线程等待起始页出现<br />         启动线程 (&WaitIndex, , )<br />         启动线程 (&新建消息发送, , )<br />     .如果真结束<br /> <br /> .如果真结束<br /> 返回 (ret)<br /> <br /> .子程序 WaitIndex<br /> .局部变量 hWndE, 整数型<br /> <br /> hWndE ＝ 库.易功能 ().取易句柄 ()<br /> 延时 (1000)<br /> .如果真 (取窗口标题 (hWndE) ≈ “易语言 - Windows窗口程序 - [起始页]”)<br />     SendMessageA (hWndE, #WM_COMMAND, 57600, 1444528)<br /> .如果真结束<br /> <br /> <br /> .子程序 新建消息发送<br /> .局部变量 窗口句柄, 整数型<br /> .局部变量 控件句柄, 整数型<br /> <br /> 延时 (1500)<br /> <br /> 窗口句柄 ＝ FindWindowA (“#32770”, “新建：”)<br /> 控件句柄 ＝ GetDlgItem (窗口句柄, 1)<br /> <br /> SendMessageA (控件句柄, 513, 0, 0)<br /> SendMessageA (控件句柄, 514, 0, 0)