易语言提交验证码源码

系统结构:winhttp,取页面地址,取端口,取域名,取文本中间内容,初始化对象开始,初始化对象结束,InternetSetCookie,InternetGetCookie,HttpQueryInfo,HttpAddRequestHeaders,InternetCloseHandle,HttpOpenRequest,InternetReadFile,HttpSendRequest,InternetConnect,InternetOpen,SendMessageA,

======窗口程序集1
           |  |
           |  |------ winhttp
           |  |
           |  |------ 取页面地址
           |  |
           |  |------ 取端口
           |  |
           |  |------ 取域名
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ 取文本中间内容
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   初始化对象开始
           |  |
           |  |---[dll]------   初始化对象结束
           |  |
           |  |---[dll]------   InternetSetCookie
           |  |
           |  |---[dll]------   InternetGetCookie
           |  |
           |  |---[dll]------   HttpQueryInfo
           |  |
           |  |---[dll]------   HttpAddRequestHeaders
           |  |
           |  |---[dll]------   InternetCloseHandle
           |  |
           |  |---[dll]------   HttpOpenRequest
           |  |
           |  |---[dll]------   InternetReadFile
           |  |
           |  |---[dll]------   HttpSendRequest
           |  |
           |  |---[dll]------   InternetConnect
           |  |
           |  |---[dll]------   InternetOpen
           |  |
           |  |---[dll]------   _执行
           |  |
           |  |---[dll]------   SendMessageA

调用的DLL命令:

.DLL命令 初始化对象开始, , "ole32.dll", "CoInitialize"
    .参数 pvReserved, 整数型

.DLL命令 初始化对象结束, , "ole32.dll", "CoUninitialize"

.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命令 SendMessageA, 整数型, "user32", "SendMessageA"
    .参数 窗口句柄, 整数型, , 要接收消息的那个窗口的句柄
    .参数 信息值, 整数型, , 消息的标识符
    .参数 参数一, 整数型, , 具体取决于消息
    .参数 参数二, 整数型, , 具体取决于消息;