易语言起始页广告屏蔽及源码 - 精易论坛

子程序名	返回值类型	公开	备注
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)