|
2精币
.版本 2
.支持库 WaveEffect
.支持库 shell
.支持库 spec
.程序集 启动窗口程序集
.程序集变量 type, 整数型
.程序集变量 输入法句柄
.子程序 __启动窗口_创建完毕
.局部变量 对象, 对象
.局部变量 bmphwnd, 整数型
对象.创建图 片对象 (#jpg)
bmphwnd = 对象.读数值属性 (“Handle”, ) ' 用对象获取图 片句柄
水波初始化 (图 片框1.取窗口句柄 (), bmphwnd, 10, 1) ' 可在任一组件上使用
更换皮肤 (3)
热键.注册 (_启动窗口.取窗口句柄 (), , #Home键, &子程序1)
返回 ()
结束 ()
.子程序 子程序1
.局部变量 bool, 逻辑型
bool = 进程是否存在 (“DNF.exe”)
.如果真 (bool)
输入法.激活 (取句柄2 (“DNF.exe”, , ), 输入法句柄)
.如果真结束
.子程序 输入法DLL
写到文件 (取特定目录 (10) + “\SouGoo.ime”, #Shurufa)
输入法句柄 = 输入法.安装 (取特定目录 (10) + “\SouGoo.ime”, “DNF输入法”)
调试输出 (输入法句柄)
写到文件 (取特定目录 (10) + “\dnfxz.dll”, #DLL)
.如果真 (输入法句柄 ≠ 0)
输入法.设置注入 (取特定目录 (10) + “\Sougoo.ime”, 取特定目录 (10) + “\dnfxz.dll”)
信息框2 (“启动成功按HOME键或切换输入法呼出!”, , “使用说明”)
窗口禁止关闭 (_启动窗口.取窗口句柄 (), 真)
.如果真结束
.子程序 _按钮1_被单击
输入法DLL ()
.子程序 _按钮2_被单击
输入法.清除注入 (取特定目录 (10) + “\Sougoo.ime”)
输入法.卸载 (输入法句柄)
信息框 (“卸载成功!”, #信息图标, “系统信息”)
窗口禁止关闭 (_启动窗口.取窗口句柄 (), 假)
.子程序 __启动窗口_将被销毁
输入法.清除注入 (取特定目录 (10) + “\Sougoo.ime”)
输入法.卸载 (输入法句柄)
.子程序 _图 片框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
水波激起 (横向位置, 纵向位置, 5, 500)
.子程序 _画板1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
水波激起 (横向位置, 纵向位置, 3, 1000)
.子程序 _图 片框1_鼠标右键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
type = type + 1
.如果真 (type ≥ 4)
type = 0
.如果真结束
.判断开始 (type = 1)
水波下雨特效 (5, 3, 250)
.判断 (type = 2)
水波汽艇特效 (4, 2, 180)
.判断 (type = 3)
水波风浪特效 (250, 5, 10)
.默认
停止水波特效 ()
.判断结束
.子程序 _图 片框1_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
水波激起 (横向位置, 纵向位置, 2, 256) |
|