1、易语言清理IE记录

删除临时文件 (#接口常量.存根文件)
删除临时文件 (#接口常量.IE临时文件)
清除历史记录 (#接口常量.浏览器历史地址记录)
清除历史记录 (#接口常量.浏览网址历史记录)

2、易语言防止多个窗口启动

.版本 2
.支持库 eAPI

.子程序 防止多个启动
.局部变量 进程列表, 进程信息, , "0"
.局部变量 临时名称, 文本型
.局部变量 第一位置, 整数型
.局部变量 第二位置, 整数型
.局部变量 临时文本, 文本型
.局部变量 成员, 整数型

进程列表 ＝ 取系统进程列表 ()
临时名称 ＝ 取执行文件名 ()
.计次循环首 (取数组成员数 (进程列表), 成员)
    临时文本 ＝ 临时文本 ＋ 进程列表 [成员].进程名称
.计次循环尾 ()
第一位置 ＝ 寻找文本 (临时文本, 临时名称, , 真)
第二位置 ＝ 寻找文本 (临时文本, 临时名称, 第一位置 ＋ 2, 真)
.如果真 (第二位置 ＞ 第一位置)
    信息框 (“该程序正在运行中...” ＋ #换行符 ＋ “请不要重复运行...”, #警告图标, “提示信息”, )
    结束 ()
.如果真结束

3、易语言弹出ie选项

运行 (“control.exe inetcpl.cpl”, 假, )

4、易语言MYsql乱码解决

执行SQL语句（句柄，“set names GBK”）

5、易语言 更改IE版本

写注册项 (#现行用户, “Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION\” ＋ 取执行文件名 (), 11000)

7000=IE7，8888=IE8，9999=IE9，10000=IE10，11000=IE11

6、编码转换 UTF8转GB2312

到文本 (编码转换 (到字节集 (被转换的文本), #编码_UTF_8, #编码_GB2312, ))

7、取中间文本

.版本 2

.子程序 取中间文本, 文本型, 公开
.参数 寻找文本, 文本型
.参数 左标识, 文本型
.参数 右标识, 文本型
.局部变量 临时文本, 文本型

.如果真 (寻找文本 (寻找文本, 左标识, , 假) ≠ -1)
    临时文本 ＝ 取文本右边 (寻找文本, 取文本长度 (寻找文本) － 寻找文本 (寻找文本, 左标识, , 假) － 取文本长度 (左标识) ＋ 1)
    返回 (取文本左边 (临时文本, 寻找文本 (临时文本, 右标识, , 假) － 1))
.如果真结束
返回 (“”)

8、窗口超出屏幕

.如果真 (_启动窗口.左边 ＞ 取屏幕宽度 () － _启动窗口.宽度 或 _启动窗口.顶边 ＞ 取屏幕高度 () － _启动窗口.高度 或 _启动窗口.左边 ＜ 0 或 _启动窗口.顶边 ＜ 0)
    _启动窗口.左边 ＝ 50
    _启动窗口.顶边 ＝ 200
.如果真结束

9、精易模块，找颜色

.版本 2

.局部变量 坐标, 精易_坐标
.局部变量 找图, 类_识图
.局部变量 a, 精易_矩形

a.底边 ＝ 400
坐标 ＝ 找图.找色 (, 4576510, a, , )
鼠标_移动 (, 坐标.横, 坐标.纵)

10、取北京时间

先建立个PHP界面放在服务器上

<?php
date_default_timezone_set("Asia/Shanghai");
echo date("Y-m-d h:i:sa");  //24小时制的换成("Y-m-d H:i:s")
?>

易语言上使用下面代码

到文本 (HTTP读文件 (“PHP网站链接”))  ' am上午 pm下午

11、点击外部窗口按钮

.版本 2

.子程序 _按钮1_被单击
.局部变量 窗口句柄, 整数型
.局部变量 按钮句柄, 整数型

窗口句柄 ＝ 窗口_取句柄 (, , “zdyleiming”, “测试程序”)  ' 取出要控制的按钮的所在程序窗口句柄，后面两个参数【类名】和【窗口标题】用精易编程助手获取
按钮句柄 ＝ 窗口_取句柄 (窗口句柄, , , “按钮”)  ' 取出要控制的按钮的句柄，后面的【窗口标题】参数就是按钮的标题，同样用编程助手获取
窗口_激活 (窗口句柄)  ' 激活目标窗口以相应点击按钮事件
鼠标_消息 (按钮句柄, , , 1, 1)  ' 点击目标窗口按钮

12、QQ联系链接

打开指定网址 (“tencent://Message/?uin=” ＋ QQ号 ＋ “&websiteName=q-zone.qq.com&Menu=yes”)

13、获取机器码

.版本 2
.支持库 eAPI

.子程序 获取机器码, 文本型, 公开
.局部变量 大写字母, 文本型, , "26"
.局部变量 小写字母, 文本型, , "26"
.局部变量 数字, 文本型, , "26"
.局部变量 CPU信息, CPU信息
.局部变量 CPU, 文本型
.局部变量 网卡地址, 网卡信息, , "0"
.局部变量 网卡mac, 文本型
.局部变量 文本长度, 整数型
.局部变量 i, 整数型
.局部变量 转换后文本, 文本型
.局部变量 输入内容, 文本型
.局部变量 输出内容, 文本型
.局部变量 临时变量I, 整数型
.局部变量 临时变量J, 整数型

数字 ＝ { “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “10”, “11”, “12”, “13”, “14”, “15”, “16”, “17”, “18”, “19”, “20”, “21”, “22”, “23”, “24”, “25”, “26” }
大写字母 ＝ { “A”, “B”, “C”, “D”, “E”, “F”, “G”, “H”, “I”, “J”, “K”, “L”, “M”, “N”, “O”, “P”, “Q”, “R”, “S”, “T”, “U”, “V”, “W”, “X”, “Y”, “Z” }
小写字母 ＝ { “a”, “b”, “c”, “d”, “e”, “f”, “g”, “h”, “i”, “j”, “k”, “l”, “m”, “n”, “o”, “p”, “q”, “r”, “s”, “t”, “u”, “v”, “w”, “x”, “y”, “z” }
取CPU信息 (CPU信息)
CPU ＝ 取文本左边 (CPU信息.序列号, 18)

网卡地址 ＝ 取网卡信息列表 ()

.判断开始 (取数组成员数 (网卡地址) ≥ 1)
    网卡mac ＝ 网卡地址 [1].物理地址 ＋ 到文本 (取硬盘特征字 ())
.默认
    网卡mac ＝ “E4-F8-9C-B4-B1-20” ＋ 到文本 (取硬盘特征字 ())
.判断结束


' 返回 (子文本替换 (网卡mac, “-”, “”, , , 真) ＋ 子文本替换 (CPU, “-”, “”, , , 真))

输入内容 ＝ 子文本替换 (网卡mac, “-”, “”, , , 真) ＋ 子文本替换 (CPU, “-”, “”, , , 真)  ' ＋ 到文本 (取硬盘特征字 ())
文本长度 ＝ 取文本长度 (输入内容)
.计次循环首 (文本长度, i)
    转换后文本 ＝ 取文本中间 (输入内容, i, 1)

    .如果真 (转换后文本 ≥ “A” 且 转换后文本 ≤ “Z” 或 转换后文本 ≥ “a” 且 转换后文本 ≤ “z”)
        转换后文本 ＝ “”
    .如果真结束
    输出内容 ＝ 输出内容 ＋ 转换后文本
.计次循环尾 ()

.计次循环首 (取文本长度 (输入内容), 临时变量I)' 窗口移动到屏幕左边时

    .计次循环首 (取数组成员数 (大写字母), 临时变量J)

        .如果真 (取文本中间 (输入内容, 临时变量I, 1) ＝ 大写字母 [临时变量J] 或 取文本中间 (输入内容, 临时变量I, 1) ＝ 小写字母 [临时变量J])
            输出内容 ＝ 输出内容 ＋ 数字 [临时变量J]
        .如果真结束


    .计次循环尾 ()
.计次循环尾 ()
返回 (输出内容)

14、易语言停靠伸缩

.版本 2

.子程序 _时钟1_周期事件, , , 时钟周期建议为100

.如果 (取鼠标水平位置 () ＜ _启动窗口.左边 或 取鼠标水平位置 () ＞ _启动窗口.左边 ＋ _启动窗口.宽度 或 取鼠标垂直位置 () ＜ _启动窗口.顶边 或 取鼠标垂直位置 () ＞ _启动窗口.顶边 ＋ _启动窗口.高度)
    .判断开始 (_启动窗口.左边 ≤ 0)  ' 窗口移动到屏幕左边时
        _启动窗口.移动 (2 － _启动窗口.宽度, , , )  ' 隐藏窗口，留出2像素出发窗口
    .判断 (_启动窗口.左边 ＋ _启动窗口.宽度 ≥ 取屏幕宽度 ())  ' 窗口移动到靠近屏幕右边时
        _启动窗口.移动 (取屏幕宽度 () － 2, , , )
    .判断 (_启动窗口.顶边 ≤ 1)  ' 窗口移动到靠近屏幕顶边时
        _启动窗口.移动 (, 2 － _启动窗口.高度, , )
    .默认

    .判断结束

.否则
    .判断开始 (_启动窗口.左边 ≤ 0)  ' 鼠标移动到屏幕左边 且 窗口处于隐藏状态
        _启动窗口.移动 (0, , , )
    .判断 (_启动窗口.左边 ＝ 取屏幕宽度 () － 2)  ' 鼠标移动到屏幕右边 且 窗口处于隐藏状态
        _启动窗口.移动 (取屏幕宽度 () － _启动窗口.宽度, , , )
    .判断 (_启动窗口.顶边 ≤ 1)  ' 鼠标移动到屏幕顶边 且 窗口处于隐藏状态
        _启动窗口.移动 (, 0, , )
    .默认

    .判断结束

.如果结束

15、清除html代码

.
版本 2
.支持库 RegEx

.子程序 清除html代码, 文本型, 公开
.参数 局部源码, 文本型
.局部变量 qq, 文本型

qq ＝ 去html代码子程序 (局部源码, “<!DOCTYPE.*?>”)
qq ＝ 去html代码子程序 (qq, “<!--.*?-->”) 
qq ＝ 去html代码子程序 (qq, “<script.*?>.*?<\/script>”)
qq ＝ 去html代码子程序 (qq, “<style.*?>.*?<\/style>”)
qq ＝ 去html代码子程序 (qq, “<.*?>”)
qq ＝ 去html代码子程序 (qq, “&.{1,5};|&#.{1,5};”)
返回 (qq)

.子程序 去html代码子程序, 文本型
.参数 html文本, 文本型
.参数 正则文本, 文本型
.局部变量 表达式, 正则表达式

表达式.创建 (正则文本, )  
返回 (表达式.替换 (html文本, “”, 1, , 真, 真))