免费代理采集易语言源码

系统结构:装载目录,取本机代理,载入免费资源,取网页源码,置代理,撤消代理,保存代理ip,载入可用代理,正则搜索,取中间文本,删一段,读一段,UTF8到ANSI_API,替换子文本,顺取中间文本,取中文,MultiByteToWideChar_utf_8,WideCharToMultiByte,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ __启动窗口_首次激活
           |  |
           |  |------ 装载目录
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |------ 取本机代理
           |  |
           |  |------ 载入免费资源
           |  |
           |  |------ _树型框1_双击项目
           |  |
           |  |------ 取网页源码
           |  |
           |  |------ 置代理
           |  |
           |  |------ 撤消代理
           |  |
           |  |------ _撤消代理按钮1_被单击
           |  |
           |  |------ 保存代理ip
           |  |
           |  |------ 载入可用代理
           |  |
           |  |------ _树型框2_双击项目
           |  |
           |  |------ _在线代理按钮1_被单击
           |  |
           |  |------ _树型框2_右键单击项目
           |  |
           |  |------ _树型框2_检查框状态被改变
           |  |
           |  |------ _树型框2_项目被选择
           |  |
           |  |------ __启动窗口_托盘事件
           |  |
           |  |------ _组合框1_列表项被选择
           |  |
           |  |------ _树型框1_右键单击项目
           |  |
           |  |------ __启动窗口_可否被关闭
           |  |
           |  |
======调用程序集1
           |  |
           |  |------ 正则搜索
           |  |
           |  |------ 取中间文本
           |  |
           |  |------ 删一段
           |  |
           |  |------ 读一段
           |  |
           |  |------ UTF8到ANSI_API
           |  |
           |  |------ 替换子文本
           |  |
           |  |------ 顺取中间文本
           |  |
           |  |------ 取中文
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   MultiByteToWideChar_utf_8
           |  |
           |  |---[dll]------   WideCharToMultiByte

调用的DLL命令:

.DLL命令 MultiByteToWideChar_utf_8, 整数型, , "MultiByteToWideChar"
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpMultiByteStr, 字节集
    .参数 cchMultiByte, 整数型
    .参数 lpWideCharStr, 字节集
    .参数 cchWideChar, 整数型

.DLL命令 WideCharToMultiByte, 整数型, "kernel32", "WideCharToMultiByte"
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpWideCharStr, 字节集
    .参数 cchWideChar, 整数型
    .参数 lpMultiByteStr, 文本型
    .参数 cchMultiByte, 整数型
    .参数 lpDefaultChar, 文本型
    .参数 lpUsedDefaultChar, 整数型