易语言一对一代理访问网页源码

系统结构:Private_InternetOpenA,Private_InternetConnectA,InstallAPIHook,BeginHook,StopHook,UninstallAPIHook,GetAPIHookInfo,VirtualProtect,GetProcAddress,GetModuleHandleA,RtlMoveMemory,InternetOpenA,InternetConnectA,InternetCloseHandle,子程序指针到整数,

======窗口程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _Main_创建完毕
           |  |
           |  |------ Private_InternetOpenA
           |  |
           |  |------ Private_InternetConnectA
           |  |
           |  |------ _Main_将被销毁
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _超文本浏览框1_载入进度改变
           |  |
           |  |------ _超文本浏览框2_载入进度改变
           |  |
           |  |------ _超文本浏览框3_载入进度改变
           |  |
           |  |------ _超文本浏览框1_已就绪
           |  |
           |  |------ _超文本浏览框2_已就绪
           |  |
           |  |
======APIHook
           |  |
           |  |------ InstallAPIHook
           |  |
           |  |------ BeginHook
           |  |
           |  |------ StopHook
           |  |
           |  |------ UninstallAPIHook
           |  |
           |  |------ GetAPIHookInfo
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   VirtualProtect
           |  |
           |  |---[dll]------   GetProcAddress
           |  |
           |  |---[dll]------   GetModuleHandleA
           |  |
           |  |---[dll]------   RtlMoveMemory
           |  |
           |  |---[dll]------   InternetOpenA
           |  |
           |  |---[dll]------   InternetConnectA
           |  |
           |  |---[dll]------   InternetCloseHandle
           |  |
           |  |---[dll]------   子程序指针到整数

调用的DLL命令:

.DLL命令 VirtualProtect, 逻辑型
    .参数 lpAddress, 整数型
    .参数 dwSize, 整数型
    .参数 flNewProtect, 整数型
    .参数 lpflOldProtect, 整数型, 传址

.DLL命令 GetProcAddress, 整数型
    .参数 hModule, 整数型
    .参数 lpProcName, 文本型

.DLL命令 GetModuleHandleA, 整数型
    .参数 lpModuleName, 文本型

.DLL命令 RtlMoveMemory, 整数型
    .参数 Destination, 整数型
    .参数 Source, 字节集, 传址
    .参数 Length, 整数型

.DLL命令 InternetOpenA, 整数型, "WinINet.dll"
    .参数 lpszAgent, 文本型
    .参数 dwAccessType, 整数型
    .参数 lpszProxyName, 文本型
    .参数 lpszProxyBypass, 文本型
    .参数 dwFlags, 整数型

.DLL命令 InternetConnectA, 整数型, "WinINet.dll"
    .参数 hInternet, 整数型
    .参数 lpszServerName, 文本型
    .参数 nServerPort, 整数型
    .参数 lpszUsername, 文本型
    .参数 lpszPassword, 文本型
    .参数 dwService, 整数型
    .参数 dwFlags, 整数型
    .参数 dwContext, 整数型

.DLL命令 InternetCloseHandle, 逻辑型, "WinINet.dll"
    .参数 hInternet, 整数型

.DLL命令 子程序指针到整数, 整数型, , "lstrcatA"
    .参数 lpString1, 子程序指针, 传址
    .参数 lpString2, 整数型, 传址