易语言简单防火墙源码

系统结构:取状态,列举进程,取模块路径,从文件夹ID取PIDL,从PIDL取显示名称,从PIDL取路径,取缓冲区文字,注册Shell监视,撤消Shell监视,取监视事件文本,移动Shell消息结构内存,移动整数型内存,释放任务内存,取指定文件夹位置,从索引列表获取路径,取文件信息PIDL,取文件信息,Shell更改通知注册,撤消Shell更改通知注册,Shell更改通知,SetWindowLong,GetWindowLong,取TCP列表,创建快照,第一个,下一个,取图标指针,画图标,取设备场景,模块1,OpenProcess,TerminateProcess,CallWindowProc,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |------ _消息代理_收到消息
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |------ 取状态
           |  |
           |  |------ _按钮4_被单击
           |  |
           |  |------ 列举进程
           |  |
           |  |------ 取模块路径
           |  |
           |  |------ _高级选择夹1_子夹被改变
           |  |
           |  |
======ShellDefs程序集
           |  |
           |  |------ 从文件夹ID取PIDL
           |  |
           |  |------ 从PIDL取显示名称
           |  |
           |  |------ 从PIDL取路径
           |  |
           |  |------ 取缓冲区文字
           |  |
           |  |
======ShellNotify程序集
           |  |
           |  |------ 注册Shell监视
           |  |
           |  |------ 撤消Shell监视
           |  |
           |  |------ 取监视事件文本
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   移动Shell消息结构内存
           |  |
           |  |---[dll]------   移动整数型内存
           |  |
           |  |---[dll]------   释放任务内存
           |  |
           |  |---[dll]------   取指定文件夹位置
           |  |
           |  |---[dll]------   从索引列表获取路径
           |  |
           |  |---[dll]------   取文件信息PIDL
           |  |
           |  |---[dll]------   取文件信息
           |  |
           |  |---[dll]------   Shell更改通知注册
           |  |
           |  |---[dll]------   撤消Shell更改通知注册
           |  |
           |  |---[dll]------   Shell更改通知
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   GetWindowLong
           |  |
           |  |---[dll]------   取TCP列表
           |  |
           |  |---[dll]------   创建快照
           |  |
           |  |---[dll]------   第一个
           |  |
           |  |---[dll]------   下一个
           |  |
           |  |---[dll]------   取图标指针
           |  |
           |  |---[dll]------   画图标
           |  |
           |  |---[dll]------   取设备场景
           |  |
           |  |---[dll]------   模块1
           |  |
           |  |---[dll]------   OpenProcess
           |  |
           |  |---[dll]------   TerminateProcess
           |  |
           |  |---[dll]------   CallWindowProc

调用的DLL命令:

.DLL命令 移动Shell消息结构内存, 整数型, "kernel32.dll", "RtlMoveMemory"
    .参数 pDest, SHNOTIFYSTRUCT, , 根据需要可以设置成不同的类型
    .参数 pSource, 整数型, , 根据需要可以设置成不同的类型
    .参数 dwLength, 整数型

.DLL命令 移动整数型内存, 整数型, "kernel32.dll", "RtlMoveMemory"
    .参数 pDest, 整数型, 传址
    .参数 pSource, 整数型
    .参数 dwLength, 整数型

.DLL命令 释放任务内存, 整数型, "ole32.dll", "CoTaskMemFree"
    .参数 pv, 整数型

.DLL命令 取指定文件夹位置, 整数型, "shell32.dll ", "SHGetSpecialFolderLocation"
    .参数 hwndOwner, 整数型
    .参数 nFolder, 整数型
    .参数 pidl, 整数型, 传址

.DLL命令 从索引列表获取路径, 整数型, "shell32.dll", "SHGetPathFromIDListA"
    .参数 pidl, 整数型
    .参数 pszPath, 文本型

.DLL命令 取文件信息PIDL, 整数型, "shell32.dll", "SHGetFileInfoA"
    .参数 pidl, 整数型
    .参数 dwFileAttributes, 整数型
    .参数 psfib, SHFILEINFOBYTE
    .参数 cbFileInfo, 整数型
    .参数 uFlags, 整数型

.DLL命令 取文件信息, 整数型, "shell32.dll", "SHGetFileInfoA"
    .参数 pszPath, 文本型
    .参数 dwFileAttributes, 整数型
    .参数 psfi, SHFILEINFO
    .参数 cbFileInfo, 整数型
    .参数 uFlags, 整数型

.DLL命令 Shell更改通知注册, 整数型, "shell32.dll", "#2"
    .参数 hWnd, 整数型
    .参数 uFlags, 整数型
    .参数 dwEventID, 整数型
    .参数 uMsg, 整数型
    .参数 cItems, 整数型
    .参数 lpps, PIDLSTRUCT

.DLL命令 撤消Shell更改通知注册, 整数型, "shell32.dll", "#4"
    .参数 hNotify, 整数型

.DLL命令 Shell更改通知, 整数型, "shell32.dll", "SHChangeNotify"
    .参数 wEventId, 整数型
    .参数 uFlags, 整数型
    .参数 dwItem1, 整数型
    .参数 dwItem2, 整数型

.DLL命令 SetWindowLong, 整数型, "user32", "SetWindowLongA", 公开, 在窗口结构中为指定的窗口设置信息  指定数据的前一个值
    .参数 窗口句柄, 整数型, , hwnd，欲为其取得信息的窗口的句柄
    .参数 窗口信息值, 整数型, , nIndex，请参考GetWindowLong函数的nIndex参数的说明
    .参数 窗口信息新值, 子程序指针, , dwNewLong，由nIndex指定的窗口信息的新值

.DLL命令 GetWindowLong, 子程序指针, "user32", "GetWindowLongA", 公开, 从指定窗口的结构中取得信息  由nIndex决定。零表示出错。会设置GetLastError
    .参数 窗口句柄, 整数型, , 欲为其获取信息的窗口的句柄
    .参数 属性, 整数型, , 欲取回的信息，可以是下述任何一个常数：;GWL_EXSTYLE：扩展窗口样式;GWL_STYLE：窗口样式;GWL_WNDPROC：该窗口的窗口函数的地址;GWL_HINSTANCE：拥有窗口的实例的句柄;GWL_HWNDPARENT：该窗口之父的句柄。不要用SetWindowWord来改变这个值;GWL_ID：对话框中一个子窗口的标识符;GWL_USERDATA：含义由应用程序规定;DWL_DLGPROC：这个窗口的对话框函数地址;DWL_MSGRESULT：在对话框函数中处理的一条消息返回的值;DWL_USER：含义由应用程序规定;

.DLL命令 取TCP列表, 整数型, "iphlpapi.dll", "GetTcpTable"
    .参数 列表, 字节集, 传址
    .参数 长度, 整数型, 传址
    .参数 命令, 整数型

.DLL命令 创建快照, 整数型, , "CreateToolhelp32Snapshot"
    .参数 falg, 整数型
    .参数 id, 整数型

.DLL命令 第一个, 整数型, , "Process32First"
    .参数 h, 整数型
    .参数 p, 进程信息

.DLL命令 下一个, 整数型, , "Process32Next"
    .参数 h, 整数型
    .参数 p, 进程信息

.DLL命令 取图标指针, 整数型, "shell32.dll", "ExtractIconA"
    .参数 窗口句柄, 整数型
    .参数 文件名称, 文本型
    .参数 图标索引, 整数型

.DLL命令 画图标, 整数型, "user32", "DrawIcon"
    .参数 设备场景, 整数型
    .参数 位置x, 整数型
    .参数 位置y, 整数型
    .参数 图标指针, 整数型

.DLL命令 取设备场景, 整数型, "user32", "GetDC"
    .参数 设备句柄, 整数型

.DLL命令 模块1, 整数型, , "Module32First"
    .参数 hsnap, 整数型
    .参数 mod, 模块信息

.DLL命令 OpenProcess, 整数型, , "OpenProcess"
    .参数 ba
    .参数 b
    .参数 id

.DLL命令 TerminateProcess, 整数型, , "TerminateProcess"
    .参数 id
    .参数 a

.DLL命令 CallWindowProc, 整数型, "user32.dll", "CallWindowProcA", 公开, 执行窗口过程
    .参数 前一窗口函数地址, 子程序指针
    .参数 窗口句柄, 整数型
    .参数 消息值, 整数型
    .参数 附加参数1, 整数型
    .参数 附加参数2, 整数型