易语言制作大话Ⅱ科举助手源码下载

admin

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

提取密码:5ifx88 
下载次数:0  文件大小:0 Bytes  售价:10金币 [记录]
下载权限: 不限 以上或 VIP会员   [加入VIP]   [获取金币]  [免费赚金币]

部分代码如下

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1
变量名	类 型	数组	备 注
查询结果	整数型	3
进程id	整数型
进程1	整数型
进程2	整数型
句柄	整数型
游戏进程	整数型
顶层	逻辑型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
名称	文本型		0
命令行	文本型		1

提升进程权限 ()
XP风格 ( #蓝色风格 )
取命令行 (命令行)
如果 (取数组下标 (命令行, ) ≠ 0)
进程id ＝ 到数值 (命令行 [1])
游戏进程 ＝ 2
标签11.标题 ＝ 到文本 (进程id)
句柄 ＝ 取进程主窗口 (进程id)
检查游戏进程 ()
如果 (游戏进程 ＝ 0)
' 结束 ()  '/// 只使用此条可以在出现信息框后不出现外挂主窗体
信息框 (“没有找到[大话西游Ⅱ]进程!”, 0 ＋ 48, )
进程id ＝ 进程1
进程标签.标题 ＝ 到文本 (进程id)
句柄 ＝ 取进程主窗口 (进程id)


判断 (读配置项 (取运行目录 () ＋ “\config.ini”, “Installed ”, “zhiding”, ) ＝ “1”)  ' 1为真
选择框1.选中 ＝ 真
_启动窗口.总在最前 ＝ 真
判断 (读配置项 (取运行目录 () ＋ “\config.ini”, “Installed ”, “zhiding”, ) ＝ “0”)  ' 0为假
选择框1.选中 ＝ 假
_启动窗口.总在最前 ＝ 假



判断 (读配置项 (取运行目录 () ＋ “\config.ini”, “Installed ”, “Adsorption”, ) ＝ “1”)
选择框2.选中 ＝ 真
窗口侧边跟随 (句柄, _启动窗口, 真, , )
判断 (读配置项 (取运行目录 () ＋ “\config.ini”, “Installed ”, “Adsorption”, ) ＝ “0”)
选择框2.选中 ＝ 假
取消侧边跟随 ()

子程序名	返回值类型	公开	备 注
检查游戏进程

进程1 ＝ 取程序进程ID (, “XY2.EXE”)
如果 (进程1 ＝ 0)
游戏进程 ＝ 0
游戏进程 ＝ 1
进程2 ＝ 取程序进程ID (进程1, “XY2.EXE”)
如果真 (进程2 ≠ 0)
游戏进程 ＝ 2

子程序名	返回值类型	公开	备 注
列表框程序

变量名	类 型	静态	数组	备 注
列表项

列表项 ＝ 列表框.插入表项 (, , , , , )
列表框.置标题 (列表项, 0, 读 (2))
列表框.置标题 (列表项, 1, 读 (3))

子程序名	返回值类型	公开	备 注
_问题搜索框_内容被改变

列表框.文本颜色 ＝ #红褐
打开 (“XY2KJDAT.EDB”, , , , , , )
到首记录 ()
列表框.全部删除 ()
判断 (问题搜索框.内容 ＝ “”)
' 变量循环首 (1, 取记录数 (), 1, )           //如果保留此处 那么会显示所有列表
' 列表框程序 ()     //如果保留此处 那么会显示所有列表
跳到 (取记录号 () ＋ 1)
变量循环首 (1, 取记录数 (), 1, )
如果真 (问题搜索框.内容 ≠ “”)
查询结果 [1] ＝ 寻找文本 (到文本 (读 (2)), 问题搜索框.内容, , 真)
判断 (查询结果 [1] ≠ -1 且 查询结果 [2] ≠ -1)
列表框程序 ()


跳到 (取记录号 () ＋ 1)
变量循环尾 ()

子程序名	返回值类型	公开	备 注
_答案搜索框_内容被改变

列表框.文本颜色 ＝ #墨绿
打开 (“XY2KJDAT.EDB”, , , , , , )
到首记录 ()
列表框.全部删除 ()
判断 (答案搜索框.内容 ＝ “”)
' 变量循环首 (1, 取记录数 (), 1, )      //如果保留此处 那么会显示所有列表
' 列表框程序 ()     //如果保留此处 那么会显示所有列表
跳到 (取记录号 () ＋ 1)
变量循环首 (1, 取记录数 (), 1, )
如果真 (答案搜索框.内容 ≠ “”)
查询结果 [2] ＝ 寻找文本 (到文本 (读 (3)), 答案搜索框.内容, , 真)
判断 (查询结果 [2] ≠ -1 且 查询结果 [3] ≠ -1)
列表框程序 ()


跳到 (取记录号 () ＋ 1)
变量循环尾 ()

子程序名	返回值类型	公开	备 注
_选择框1_被单击

判断 (选择框1.选中 ＝ 真)
写配置项 (取运行目录 () ＋ “\config.ini”, “Installed ”, “zhiding”, “1”)  ' 1为真
_启动窗口.总在最前 ＝ 真
_启动窗口.总在最前 ＝ 假
写配置项 (取运行目录 () ＋ “\config.ini”, “Installed ”, “zhiding”, “0”)  ' 0为假

子程序名	返回值类型	公开	备 注
_选择框2_被单击

判断 (选择框2.选中 ＝ 真)
窗口侧边跟随 (句柄, _启动窗口, 真, , )
写配置项 (取运行目录 () ＋ “\config.ini”, “Installed ”, “Adsorption”, “1”)  ' 1为真
时钟1.时钟周期 ＝ 500
写配置项 (取运行目录 () ＋ “\config.ini”, “Installed ”, “Adsorption”, “0”)  ' 0为假
取消侧边跟随 ()
时钟1.时钟周期 ＝ 0

子程序名	返回值类型	公开	备 注
_超级按钮4_被单击

载入 (关于程序窗口, , 假)

子程序名	返回值类型	公开	备 注
_添加按钮_被单击

运行 (“WYEDB编辑器.exe”, 假, )

i支持库列表	支持库注释
xplib	XP风格界面库
iext	扩展界面支持库一

.版本 2<br /> .支持库 xplib<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集1<br /> .程序集变量 查询结果, 整数型, , "3"<br /> .程序集变量 进程id, 整数型<br /> .程序集变量 进程1, 整数型<br /> .程序集变量 进程2, 整数型<br /> .程序集变量 句柄, 整数型<br /> .程序集变量 游戏进程, 整数型<br /> .程序集变量 顶层, 逻辑型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 名称, 文本型, , "0"<br /> .局部变量 命令行, 文本型, , "1"<br /> <br /> 提升进程权限 ()<br /> XP风格 (#蓝色风格)<br /> 取命令行 (命令行)<br /> .如果 (取数组下标 (命令行, ) ≠ 0)<br />     进程id ＝ 到数值 (命令行 [1])<br />     游戏进程 ＝ 2<br />     标签11.标题 ＝ 到文本 (进程id)<br />     句柄 ＝ 取进程主窗口 (进程id)<br /> .否则<br />     检查游戏进程 ()<br />     .如果 (游戏进程 ＝ 0)<br />         ' 结束 ()  '/// 只使用此条可以在出现信息框后不出现外挂主窗体<br />         信息框 (“没有找到[大话西游Ⅱ]进程!”, 0 ＋ 48, )<br />     .否则<br />         进程id ＝ 进程1<br />         进程标签.标题 ＝ 到文本 (进程id)<br />         句柄 ＝ 取进程主窗口 (进程id)<br />     .如果结束<br /> <br /> .如果结束<br /> <br /> .判断开始 (读配置项 (取运行目录 () ＋ “\config.ini”, “Installed ”, “zhiding”, ) ＝ “1”)  ' 1为真<br />     选择框1.选中 ＝ 真<br />     _启动窗口.总在最前 ＝ 真<br /> .判断 (读配置项 (取运行目录 () ＋ “\config.ini”, “Installed ”, “zhiding”, ) ＝ “0”)  ' 0为假<br />     选择框1.选中 ＝ 假<br />     _启动窗口.总在最前 ＝ 假<br /> .默认<br /> <br /> .判断结束<br /> <br /> .判断开始 (读配置项 (取运行目录 () ＋ “\config.ini”, “Installed ”, “Adsorption”, ) ＝ “1”)<br />     选择框2.选中 ＝ 真<br />     窗口侧边跟随 (句柄, _启动窗口, 真, , )<br /> .判断 (读配置项 (取运行目录 () ＋ “\config.ini”, “Installed ”, “Adsorption”, ) ＝ “0”)<br />     选择框2.选中 ＝ 假<br />     取消侧边跟随 ()<br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 检查游戏进程<br /> <br /> 进程1 ＝ 取程序进程ID (, “XY2.EXE”)<br /> .如果 (进程1 ＝ 0)<br />     游戏进程 ＝ 0<br /> .否则<br />     游戏进程 ＝ 1<br />     进程2 ＝ 取程序进程ID (进程1, “XY2.EXE”)<br />     .如果真 (进程2 ≠ 0)<br />         游戏进程 ＝ 2<br />     .如果真结束<br /> <br /> .如果结束<br /> <br /> <br /> .子程序 列表框程序<br /> .局部变量 列表项<br /> <br /> 列表项 ＝ 列表框.插入表项 (, , , , , )<br /> 列表框.置标题 (列表项, 0, 读 (2))<br /> 列表框.置标题 (列表项, 1, 读 (3))<br /> <br /> .子程序 _问题搜索框_内容被改变<br /> <br /> 列表框.文本颜色 ＝ #红褐<br /> 打开 (“XY2KJDAT.EDB”, , , , , , )<br /> 到首记录 ()<br /> 列表框.全部删除 ()<br /> .判断开始 (问题搜索框.内容 ＝ “”)<br />     ' 变量循环首 (1, 取记录数 (), 1, )           //如果保留此处 那么会显示所有列表<br />     ' 列表框程序 ()     //如果保留此处 那么会显示所有列表<br />     跳到 (取记录号 () ＋ 1)<br /> .默认<br />     .变量循环首 (1, 取记录数 (), 1, )<br />         .如果真 (问题搜索框.内容 ≠ “”)<br />             查询结果 [1] ＝ 寻找文本 (到文本 (读 (2)), 问题搜索框.内容, , 真)<br />         .如果真结束<br />         .判断开始 (查询结果 [1] ≠ -1 且 查询结果 [2] ≠ -1)<br />             列表框程序 ()<br />         .默认<br /> <br />         .判断结束<br />         跳到 (取记录号 () ＋ 1)<br />     .变量循环尾 ()<br /> .判断结束<br /> <br /> <br /> .子程序 _答案搜索框_内容被改变<br /> <br /> 列表框.文本颜色 ＝ #墨绿<br /> 打开 (“XY2KJDAT.EDB”, , , , , , )<br /> 到首记录 ()<br /> 列表框.全部删除 ()<br /> .判断开始 (答案搜索框.内容 ＝ “”)<br />     ' 变量循环首 (1, 取记录数 (), 1, )      //如果保留此处 那么会显示所有列表<br />     ' 列表框程序 ()     //如果保留此处 那么会显示所有列表<br />     跳到 (取记录号 () ＋ 1)<br /> .默认<br />     .变量循环首 (1, 取记录数 (), 1, )<br />         .如果真 (答案搜索框.内容 ≠ “”)<br />             查询结果 [2] ＝ 寻找文本 (到文本 (读 (3)), 答案搜索框.内容, , 真)<br />         .如果真结束<br />         .判断开始 (查询结果 [2] ≠ -1 且 查询结果 [3] ≠ -1)<br />             列表框程序 ()<br />         .默认<br /> <br />         .判断结束<br />         跳到 (取记录号 () ＋ 1)<br />     .变量循环尾 ()<br /> .判断结束<br /> <br /> <br /> .子程序 _选择框1_被单击<br /> <br /> .判断开始 (选择框1.选中 ＝ 真)<br />     写配置项 (取运行目录 () ＋ “\config.ini”, “Installed ”, “zhiding”, “1”)  ' 1为真<br />     _启动窗口.总在最前 ＝ 真<br /> .默认<br />     _启动窗口.总在最前 ＝ 假<br />     写配置项 (取运行目录 () ＋ “\config.ini”, “Installed ”, “zhiding”, “0”)  ' 0为假<br /> .判断结束<br /> <br /> <br /> .子程序 _选择框2_被单击<br /> <br /> .判断开始 (选择框2.选中 ＝ 真)<br />     窗口侧边跟随 (句柄, _启动窗口, 真, , )<br />     写配置项 (取运行目录 () ＋ “\config.ini”, “Installed ”, “Adsorption”, “1”)  ' 1为真<br />     时钟1.时钟周期 ＝ 500<br /> .默认<br />     写配置项 (取运行目录 () ＋ “\config.ini”, “Installed ”, “Adsorption”, “0”)  ' 0为假<br />     取消侧边跟随 ()<br />     时钟1.时钟周期 ＝ 0<br /> .判断结束<br /> <br /> <br /> .子程序 _超级按钮4_被单击<br /> <br /> 载入 (关于程序窗口, , 假)<br /> <br /> .子程序 _添加按钮_被单击<br /> <br /> 运行 (“WYEDB编辑器.exe”, 假, )