|

窗口程序集名 | 保 留 | 保 留 | 备 注 | 窗口程序集1 | | | | 变量名 | 类 型 | 数组 | 备 注 | b | 文本型 | 0 | a | 整数型 | | d | 文本型 | 0 | 设置窗口透明度 (取窗口句柄 (), 230 )写到文件 (取运行目录 () + “\题库.xls”, #图片1 )a = 打开文件 (“题库.xls”, 1, 4 )编辑框3.内容 = 读入文本 (a, )b = 分割文本 (编辑框3.内容, #换行符, ) 计次循环首 (取数组成员数 (b ), i ) 加入成员 (d, 子程序1 (b [i ])) 计次循环尾 ()图片框1.图片 = HTTP读文件 (“ http://wpa.qq.com/pa?p=1:245577200:41”)变量名 | 类 型 | 静态 | 数组 | 备 注 | 文本位置 | 整数型 | | | 文本长度 | 整数型 | | | i | 整数型 | | | c | 文本型 | | | 序列号 | 整数型 | | |
编辑框2.内容 = “” 如果真 (取文本长度 (编辑框1.内容 ) < 2 ) 信息框 (“骚年,尽情撸吧!!!”, 4096, ) 返回 () 文本长度 = 取文本长度 (编辑框1.内容 ) 计次循环首 (取数组成员数 (b ), i ) 如果 (寻找文本 (b [i ], 编辑框1.内容, , 真) ≠ -1 )  序列号 = 序列号 + 1   编辑框2. 加入文本 (到文本 (序列号 ) + “、” + b [i ] + #换行符 )    如果 (寻找文本 (d [i ], 编辑框1.内容, , 真) ≠ -1 )   序列号 = 序列号 + 1    编辑框2. 加入文本 (到文本 (序列号 ) + “、” + b [i ] + #换行符 )              计次循环尾 ()变量名 | 类 型 | 静态 | 数组 | 备 注 | ia | 整数型 | | | 取出内容 | 文本型 | | | ii | 整数型 | | | i | 整数型 | | | xx | 文本型 | | | 调试输出 (参数一 )ii = 9 判断循环首 (ii ≠ 0 ) ia = ia + 1  ii = 取代码 (参数一, ia ) 如果 (ii < 0 )  xx = 取声母 (取文本中间 (参数一, ia, 2 ), 1 )  取出内容 = 取出内容 + 取文本左边 (xx, 1 )  ia = ia + 1       判断循环尾 ()返回 (取出内容 ) 如果 (取文本长度 (编辑框1.内容 ) > 3 ) _按钮1_被单击 () 编辑框2.内容 = “” |
_编辑框1_鼠标左键被按下 | 逻辑型 | | |
横向位置 | 整数型 | | | | 纵向位置 | 整数型 | | | | 功能键状态 | 整数型 | | | |
编辑框1.内容 = “”|
_图片框1_鼠标左键被按下 | 逻辑型 | | |
横向位置 | 整数型 | | | | 纵向位置 | 整数型 | | | | 功能键状态 | 整数型 | | | |
超文本浏览框1. 跳转 (“tencent://message/?uin=245577200&Site=qq&Menu=yes”, , )
|
|