易语言文本长度计算器源码

系统结构:搜索程序,处理网页,显示链接,取链接真实地址,隐藏,显示,AnsiToUnicode,UnicodeToAnsi,Utf8ToUnicode,UnicodeToUtf8,AnsiToUtf8,Utf8ToAnsi,读网页,子程序1,转换编码,下面是HTTP读文件所用DLL,InternetOpenUrlA,InternetOpenA,InternetClosaHandle,InternetReadFile,下面是编码转换的DLL,MultiByteToWideChar,WideCharToMultiByte,下面是多线程创建对象,CoInitialize,CoUninitialize,

======窗口程序集_启动窗口
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ __启动窗口_按下某键
           |  |
           |  |------ _编辑框1_按下某键
           |  |
           |  |------ _编辑框1_滚轮被滚动
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _编辑框1_字符输入
           |  |
           |  |------ _标签2_鼠标左键被按下
           |  |
           |  |------ _图形按钮1_被单击
           |  |
           |  |------ _编辑框1_鼠标右键被按下
           |  |
           |  |------ _图片框1_鼠标位置被移动
           |  |
           |  |------ _图片框2_鼠标位置被移动
           |  |
           |  |------ _图片框1_鼠标左键被按下
           |  |
           |  |------ _图片框6_鼠标左键被按下
           |  |
           |  |------ _编辑框2_失去焦点
           |  |
           |  |------ _选择框1_被单击
           |  |
           |  |------ 搜索程序
           |  |
           |  |------ 处理网页
           |  |
           |  |------ 显示链接
           |  |
           |  |------ 取链接真实地址
           |  |
           |  |------ _选择框2_被单击
           |  |
           |  |------ 隐藏
           |  |
           |  |------ 显示
           |  |
           |  |------ _超级链接框1_鼠标位置被移动
           |  |
           |  |------ _超级链接框2_鼠标位置被移动
           |  |
           |  |------ _超级链接框3_鼠标位置被移动
           |  |
           |  |------ _超级链接框4_鼠标位置被移动
           |  |
           |  |------ _编辑框2_鼠标左键被按下
           |  |
           |  |------ _超级链接框1_鼠标右键被按下
           |  |
           |  |------ _编辑框2_鼠标位置被移动
           |  |
           |  |------ _编辑框2_鼠标右键被按下
           |  |
           |  |
======编码转换程序集
           |  |
           |  |------ AnsiToUnicode
           |  |
           |  |------ UnicodeToAnsi
           |  |
           |  |------ Utf8ToUnicode
           |  |
           |  |------ UnicodeToUtf8
           |  |
           |  |------ AnsiToUtf8
           |  |
           |  |------ Utf8ToAnsi
           |  |
           |  |
======读网页程序集
           |  |
           |  |------ 读网页
           |  |
           |  |------ 子程序1
           |  |
           |  |------ 转换编码
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   下面是HTTP读文件所用DLL
           |  |
           |  |---[dll]------   InternetOpenUrlA
           |  |
           |  |---[dll]------   InternetOpenA
           |  |
           |  |---[dll]------   InternetClosaHandle
           |  |
           |  |---[dll]------   InternetReadFile
           |  |
           |  |---[dll]------   下面是编码转换的DLL
           |  |
           |  |---[dll]------   MultiByteToWideChar
           |  |
           |  |---[dll]------   WideCharToMultiByte
           |  |
           |  |---[dll]------   下面是多线程创建对象
           |  |
           |  |---[dll]------   CoInitialize
           |  |
           |  |---[dll]------   CoUninitialize

调用的DLL命令:

.DLL命令 下面是HTTP读文件所用DLL, , , , ,                                                                         

.DLL命令 InternetOpenUrlA, 整数型, "wininet.dll", "InternetOpenUrlA"
    .参数 hInternet, 整数型
    .参数 lpszUrl, 文本型
    .参数 lpszHeade, 文本型
    .参数 dwHeaders, 整数型
    .参数 dwFlags, Inter
    .参数 dwContext, 整数型

.DLL命令 InternetOpenA, 整数型, "wininet.dll", "InternetOpenA"
    .参数 sAgent, 文本型
    .参数 lAccessTy, 整数型
    .参数 sPname, 文本型
    .参数 sPByp, 文本型
    .参数 lFlags, 整数型

.DLL命令 InternetClosaHandle, 整数型, "wininet.dll", "InternetCloseHandle"
    .参数 hInternet, 整数型

.DLL命令 InternetReadFile, 整数型, "wininet.dll", "InternetReadFile"
    .参数 hConnect, 整数型
    .参数 sBuffer, 文本型
    .参数 lNumBytesToRead, 整数型
    .参数 lNumberOfBytesRead, 整数型, 传址

.DLL命令 下面是编码转换的DLL, , , , ,                                                                         

.DLL命令 MultiByteToWideChar, 整数型, "kernel32.dll"
    .参数 CodePage, 整数型
    .参数 Options, 整数型
    .参数 StringToMap, 整数型
    .参数 StringSize, 整数型
    .参数 WideCharBuf, 整数型
    .参数 WideBufSize, 整数型

.DLL命令 WideCharToMultiByte, 整数型, "kernel32.dll"
    .参数 CodePage, 整数型
    .参数 Options, 整数型
    .参数 WideCharStr, 整数型
    .参数 WideCharCount, 整数型
    .参数 MultiByteStr, 整数型
    .参数 MultiByteCount, 整数型
    .参数 pDefaultChar, 整数型
    .参数 pDefaultCharUsed, 整数型

.DLL命令 下面是多线程创建对象, , , , ,                                                                         

.DLL命令 CoInitialize, , "ole32.dll", "CoInitialize"
    .参数 pvReserved, 整数型, , 0

.DLL命令 CoUninitialize, , "ole32.dll", "CoUninitialize"