易语言IE网络拦截源码

系统结构:instmain,CoInitialize,CoUninitialize,RegisterWindowMessageA,SendMessageTimeoutA,ObjectFromLresult,PathMatchSpec,FindWindowExA,GetClassName,CreateWaitableTimerA,SetWaitableTimer,MsgWaitForMultipleObjects,CancelWaitableTimer,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ instmain
           |  |
           |  |------ _判断工作中
           |  |
           |  |------ _取窗口句柄
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CoInitialize
           |  |
           |  |---[dll]------   CoUninitialize
           |  |
           |  |---[dll]------   RegisterWindowMessageA
           |  |
           |  |---[dll]------   SendMessageTimeoutA
           |  |
           |  |---[dll]------   ObjectFromLresult
           |  |
           |  |---[dll]------   PathMatchSpec
           |  |
           |  |---[dll]------   FindWindowExA
           |  |
           |  |---[dll]------   GetClassName
           |  |
           |  |---[dll]------   CreateWaitableTimerA
           |  |
           |  |---[dll]------   SetWaitableTimer
           |  |
           |  |---[dll]------   MsgWaitForMultipleObjects
           |  |
           |  |---[dll]------   CancelWaitableTimer

调用的DLL命令:

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

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

.DLL命令 RegisterWindowMessageA, 整数型, , "RegisterWindowMessageA"
    .参数 lpString, 文本型

.DLL命令 SendMessageTimeoutA, 整数型, , "SendMessageTimeoutA"
    .参数 MSG, 整数型
    .参数 hwnd, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型
    .参数 fuFlags, 整数型
    .参数 uTimeout, 整数型
    .参数 lpdwResult, 整数型, 传址

.DLL命令 ObjectFromLresult, 整数型, "OLEACC.DLL", "ObjectFromLresult", , 　
    .参数 lResult, 整数型
    .参数 riid, 字节集
    .参数 wParam, 整数型
    .参数 ppvObject, 对象

.DLL命令 PathMatchSpec, 逻辑型, "shlwapi.dll", "PathMatchSpecA"
    .参数 pszFile, 文本型
    .参数 pszSpec, 文本型

.DLL命令 FindWindowExA, 整数型, , "FindWindowExA"
    .参数 hWnd1, 整数型
    .参数 hWnd2, 整数型
    .参数 lpsz1, 整数型
    .参数 lpsz2, 整数型

.DLL命令 GetClassName, , , "GetClassNameA"
    .参数 hwndParent, 整数型
    .参数 hwndChildAfter, 文本型
    .参数 lpszClass, 整数型

.DLL命令 CreateWaitableTimerA, 整数型, , "CreateWaitableTimerA"
    .参数 lpTimerAttributes, 整数型
    .参数 bManualReset, 逻辑型
    .参数 lpTimerName, 整数型

.DLL命令 SetWaitableTimer, 整数型, , "SetWaitableTimer"
    .参数 hTimer, 整数型
    .参数 pDueTime, LARGE_INTEGER
    .参数 lPeriod, 整数型
    .参数 pfnCompletionRoutine, 整数型
    .参数 lpArgToCompletionRoutine, 整数型
    .参数 fResume, 逻辑型

.DLL命令 MsgWaitForMultipleObjects, 整数型, , "MsgWaitForMultipleObjects"
    .参数 nCount, 整数型
    .参数 pHandles, 整数型, 传址
    .参数 fWaitAll, 逻辑型
    .参数 dwMilliseconds, 整数型
    .参数 dwWakeMask, 整数型

.DLL命令 CancelWaitableTimer, 逻辑型, , "CancelWaitableTimer"
    .参数 hTimer, 整数型