易语言京东地址连动源码

系统结构:表达式_替换常量,创建,取文本,替换,搜索全部,取匹配数量,取匹配文本,取子匹配文本,取子表达式个数,CoInitialize,MultiByteToWideChar,MultiByteToWideChar1,InternetSetCookie,InternetGetCookie,HttpQueryInfo,HttpAddRequestHeaders,InternetCloseHandle,HttpOpenRequest,InternetReadFile,HttpSendRequest,InternetConnect,InternetOpen,WideCharToMultiByte,CoUninitialize,

======窗口程序集1
           |  |
           |  |------ _组合框1_列表项被选择
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _组合框2_列表项被选择
           |  |
           |  |------ _组合框3_列表项被选择
           |  |
           |  |------ 表达式_替换常量
           |  |
           |  |
======正则类
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 创建
           |  |
           |  |------ 取文本
           |  |
           |  |------ 替换
           |  |
           |  |------ 搜索全部
           |  |
           |  |------ 取匹配数量
           |  |
           |  |------ 取匹配文本
           |  |
           |  |------ 取子匹配文本
           |  |
           |  |------ 取子表达式个数
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CoInitialize
           |  |
           |  |---[dll]------   _宽字符到双字节1
           |  |
           |  |---[dll]------   _宽字符到双字节
           |  |
           |  |---[dll]------   MultiByteToWideChar
           |  |
           |  |---[dll]------   MultiByteToWideChar1
           |  |
           |  |---[dll]------   InternetSetCookie
           |  |
           |  |---[dll]------   InternetGetCookie
           |  |
           |  |---[dll]------   HttpQueryInfo
           |  |
           |  |---[dll]------   HttpAddRequestHeaders
           |  |
           |  |---[dll]------   InternetCloseHandle
           |  |
           |  |---[dll]------   HttpOpenRequest
           |  |
           |  |---[dll]------   InternetReadFile
           |  |
           |  |---[dll]------   HttpSendRequest
           |  |
           |  |---[dll]------   InternetConnect
           |  |
           |  |---[dll]------   InternetOpen
           |  |
           |  |---[dll]------   _执行
           |  |
           |  |---[dll]------   WideCharToMultiByte
           |  |
           |  |---[dll]------   CoUninitialize

调用的DLL命令:

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

.DLL命令 _宽字符到双字节1, 整数型, , "WideCharToMultiByte", , kernel32.dll
    .参数 代码页, 整数型, , CodePage
    .参数 标志, 整数型, , dwFlags
    .参数 宽字符文本, 字节集, , lpWideCharStr
    .参数 宽字符文本长度, 整数型, , cchWideChar
    .参数 双字节文本, 整数型, , lpMultiByteStr
    .参数 双字节文本长度, 整数型, , cchMultiByte
    .参数 默认文本, 整数型, , lpDefaultChar
    .参数 使用默认文本, 逻辑型, , lpUsedDefaultChar

.DLL命令 _宽字符到双字节, , , "WideCharToMultiByte", , kernel32.dll
    .参数 代码页, 整数型, , CodePage
    .参数 标志, 整数型, , dwFlags
    .参数 宽字符文本, 字节集, , lpWideCharStr
    .参数 宽字符文本长度, 整数型, , cchWideChar
    .参数 双字节文本, 字节集, , lpMultiByteStr
    .参数 双字节文本长度, 整数型, , cchMultiByte
    .参数 默认文本, 整数型, , lpDefaultChar
    .参数 使用默认文本, 逻辑型, , lpUsedDefaultChar

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

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

.DLL命令 InternetSetCookie, , "wininet.dll", "InternetSetCookieA"
    .参数 域名, 文本型, 传址
    .参数 名称, 文本型, 传址
    .参数 内容, 文本型, 传址

.DLL命令 InternetGetCookie, , "wininet.dll", "InternetGetCookieA"
    .参数 域名, 文本型, 传址
    .参数 名称, 文本型, 传址
    .参数 内容, 文本型, 传址
    .参数 尺寸, 整数型, 传址

.DLL命令 HttpQueryInfo, , "wininet.dll", "HttpQueryInfoA"
    .参数 Internet请求句柄, 整数型
    .参数 待查信息, 整数型, , 22返回所有信息;43SET_COOKIE;+2147483648返回文本
    .参数 返回容器, 文本型, 传址
    .参数 返回容器长度, 整数型, 传址
    .参数 lpdwIndex, 整数型

.DLL命令 HttpAddRequestHeaders, , "wininet.dll", "HttpAddRequestHeadersA"
    .参数 Internet请求句柄, 整数型
    .参数 lpszHeaders, 文本型, 传址
    .参数 dwHeadersLength, 整数型
    .参数 dwModifiers, 整数型

.DLL命令 InternetCloseHandle, 逻辑型, "wininet.dll", "InternetCloseHandle", , 访问网页
    .参数 hInternet, 整数型

.DLL命令 HttpOpenRequest, 整数型, "WinINet.dll", "HttpOpenRequestA"
    .参数 hConnect, 整数型
    .参数 lpszVerb, 文本型
    .参数 lpszObjectName, 文本型
    .参数 lpszVersion, 文本型
    .参数 lpszReferer, 文本型
    .参数 lplpszAcceptTypes, 文本型
    .参数 dwFlags, 整数型
    .参数 dwContext, 整数型

.DLL命令 InternetReadFile, 逻辑型, "WinINet.dll"
    .参数 hFile, 整数型
    .参数 lpBuffer, 字节集, 传址
    .参数 dwNumberOfBytesToRead, 整数型
    .参数 lpdwNumberOfBytesRead, 整数型, 传址

.DLL命令 HttpSendRequest, 逻辑型, "wininet.dll", "HttpSendRequestA"
    .参数 HTTP请求句柄, 整数型
    .参数 sHeaders, 文本型, 传址
    .参数 lHeadersLength, 整数型
    .参数 sOptional, 文本型, 传址
    .参数 lOptionalLength, 整数型

.DLL命令 InternetConnect, 整数型, "wininet.dll", "InternetConnectA"
    .参数 Internet句柄, 整数型
    .参数 域名, 文本型, 传址
    .参数 服务器端口, 整数型, , 80HTTP;21FTP;
    .参数 用户名, 文本型, 传址, 空
    .参数 用户口令, 文本型, 传址, 空
    .参数 服务类型, 整数型, , 1FTP;3HTTP
    .参数 dwFlags, 整数型, , 0http;134217728被动FTP模式
    .参数 dwContext, 整数型, , 0

.DLL命令 InternetOpen, 整数型, "wininet.dll", "InternetOpenA"
    .参数 句柄名称, 文本型, 传址
    .参数 连接类型, 整数型, , 1直接连接;3代理连接
    .参数 代理, 文本型, 传址
    .参数 代理掩码, 文本型, 传址
    .参数 dwFlags, 整数型, , 0

.DLL命令 _执行, 整数型, , "ShellExecuteA"
    .参数 hwnd, 整数型, , 指定一个窗口的句柄，有些时候，Windows程序有必要在创建自己的主窗口前显示一个消息框。
    .参数 lpOperation, 文本型, , 指定字串“Open”来打开lpFlie文档；或指定“Print”来打印它。也可设为vbNullString，表示默认为“Open”
    .参数 lpFile, 文本型, , 想用关联的程序打印或打开的一个程序名或文件名
    .参数 lpParameters, 文本型, , 如lpFile是一个可执行文件，则这个字串包含了传递给执行程序的参数。如lpFile引用的是一个文档文件，或者不需要使用参数，则设为vbNullString
    .参数 lpDirectory, 文本型, , 想使用的默认路径完整路径
    .参数 nShowCmd, 整数型, , 定义了如何显示启动程序的常数值。参考ShowWindow函数的nCmdShow参数

.DLL命令 WideCharToMultiByte, 整数型, , "WideCharToMultiByte", , kernel32.dll 将通配符映像为多字节
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpWideCharStr, 字节集
    .参数 cchWideChar, 整数型
    .参数 lpMultiByteStr, 字节集
    .参数 cchMultiByte, 整数型
    .参数 lpDefaultChar, 整数型
    .参数 lpUsedDefaultChar, 整数型

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