⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 module2.bas.html

📁 专业版本的vb防火墙管理程序
💻 HTML
字号:
🔍 
<html>
<head>
<title>Module2.bas</title>
</head>
<link rel="stylesheet" type="text/css" href="general.css">
<body>
<b>工程名称: Firewall</b><br>版本: 1.0.0<br>
日期: 2005-06-17<P>
<b><h2>模块: Module2</h2></b>
<p>
<table class="INTROPAGE">
<tr><td class="INTROHEADER">属性</td><td class="INTROHEADER">子程序</td><td class="INTROHEADER">函数</td></tr>
<tr><td class="INTROCELL">0</td>
<td class="INTROCELL">4</td>
<td class="INTROCELL">2</td></tr></table><p>
代码行数: 98<br>
注释行数: 34<p>
****************************************************************************<br>
人人为我，我为人人<br>
枕善居汉化收藏整理<br>
发布日期：05/06/11<br>
描 述：很专业的个人防火墙<br>
网 站：http://www.mndsoft.com/<br>
e-mail：mnd@mndsoft.com<br>
OICQ : 88382850<br>
****************************************************************************<br>
Tray Module<br>
Simple traymodule for Anim Icons<br>
by Scythe<br>
scythe@cablenet<br>
www.scythe-tools.de<br>
<p>

<table class="LAYOUT"><tr>
<td class="LAYOUTNAV">
<a href='Project1.vbp.html'>主页</a>
<p>
<h3>窗体</h3><a href=''></a><p>
<a href='Form1.frm.html'>Form1</a> <BR> 
<a href='FrmMain.frm.html'>FrmMain</a> <BR> 
<a href='FrmSplash.frm.html'>FrmSplash</a> <BR> 
<a href='frmSystemTray.frm.html'>frmSystemTray</a> <BR> 
<p>
<h3>模块</h3><a href=''></a><p>
<a href='ModGetStack.bas.html'>ModGetStack</a> <BR> 
<a href='ModLoadProcess.bas.html'>ModLoadProcess</a> <BR> 
<a href='ModMisc.bas.html'>ModMisc</a> <BR> 
<a href='Module1.bas.html'>Module1</a> <BR> 
Module2 <BR> 
<a href='ModWsk.bas.html'>ModWsk</a> <BR> 
<a href='SubClass.bas.html'>SubClass</a> <BR> 
<p>
<h3>类模块</h3><a href=''></a><p>
<a href='DictionaryClass.cls.html'>DictionaryClass</a> <BR> 
<a href='CInterface.cls.html'>CInterface</a> <BR> 
<a href='CInterfaces.cls.html'>CInterfaces</a> <BR> 
<a href='CIpHelper.cls.html'>CIpHelper</a> <BR> 
<a href='CTrackMouse.cls.html'>CTrackMouse</a> <BR> 
<p>
<h3>用户控件</h3><a href=''></a><p>
<a href='TrackMouse.ctl.html'>TrackMouse</a> <BR> 
<a href='UserControl1.ctl.html'>UserControl1</a> <BR> 
<a href='UserControl2.ctl.html'>UserControl2</a> <BR> 
<a href='UserControl3.ctl.html'>UserControl3</a> <BR> 
<a href='UserControl4.ctl.html'>UserControl4</a> <BR> 
<a href='UserControl5.ctl.html'>UserControl5</a> <BR> 
<a href='UserControl6.ctl.html'>UserControl6</a> <BR> 
<a href='UserControl7.ctl.html'>UserControl7</a> <BR> 
<a href='UserControl8.ctl.html'>UserControl8</a> <BR> 
<a href='UserControl9.ctl.html'>UserControl9</a> <BR> 
<p>
</td>
<td class="LAYOUTCELL">
<h3>声明</h3><a href=''></a><p>
<ul><table class="GENERAL"><tr><td class="HEADERBAND">名称</td><td class="HEADERBAND">范围</td><td class="HEADERBAND">类型</td><td class="HEADERBAND">描述</td></tr>
<tr><td class="CELL">GWL_WNDPROC  = (-4)</td><td class="CELL">私有</td><td class="CELL">Constant </td><td class="CELL"></td></tr><tr><td class="CELL">HWND_TOPMOST  = -1</td><td class="CELL">全局</td><td class="CELL">Constant </td><td class="CELL"></td></tr><tr><td class="CELL">icoLock  = "11,-1,-1,-1,-1,-1,5479640,5808602,5611737,5611737,5611737,4625365,13488079,-1,-1,11579568,11776173,9149873,4296148,8834804,7455217,6208241,6933748,4300002,13027528,-1,10263708,9474192,9999505,8424859,5085401,10547198,8773630,7196926,8250366,4826858,11185067,11053224,10000536,5855577,5395026,5528159,4561114,9104126,7789054,6670590,7394558,4497642,11185067,10790052,10263708,5723733,8289919,11186615,4561114,8250366,7196926,6078462,6670590,4168938,11185067,11579568,10263708,7171436,10264222,10070713,4101596,7197694,6407166,5683454,6078462,3971306,11185067,-1,9737364,10000536,9999505,8883089,3837911,6342654,5683454,5025790,5420798,3708394,11185067,-1,15264491,7434609,5855577,5134434,2982611,6342654,5683454,5025790,5420798,3246041,11185067,-1,-1,15264491,12698306,11185067,2982611,3708133,3510499,3378915,3379173,3246041,11185067,-1,-1,-1,-1,-1,14869989,12698306,11185067,11185067,11185067,11185067,13356493"</td><td class="CELL">全局</td><td class="CELL">Constant </td><td class="CELL"></td></tr><tr><td class="CELL">ILD_TRANSPARENT  = &H1</td><td class="CELL">私有</td><td class="CELL">Constant </td><td class="CELL">Display transparent</td></tr><tr><td class="CELL">NIF_ICON  = &H2</td><td class="CELL">私有</td><td class="CELL">Constant </td><td class="CELL"></td></tr><tr><td class="CELL">NIF_MESSAGE  = &H1</td><td class="CELL">私有</td><td class="CELL">Constant </td><td class="CELL"></td></tr><tr><td class="CELL">NIF_TIP  = &H4</td><td class="CELL">私有</td><td class="CELL">Constant </td><td class="CELL"></td></tr><tr><td class="CELL">NIM_ADD  = &H0</td><td class="CELL">私有</td><td class="CELL">Constant </td><td class="CELL"></td></tr><tr><td class="CELL">NIM_DELETE  = &H2</td><td class="CELL">私有</td><td class="CELL">Constant </td><td class="CELL"></td></tr><tr><td class="CELL">NIM_MODIFY  = &H1</td><td class="CELL">私有</td><td class="CELL">Constant </td><td class="CELL"></td></tr><tr><td class="CELL">OldWindowProc</td><td class="CELL">(全局)</td><td class="CELL">Long</td><td class="CELL"></td></tr><tr><td class="CELL">SWP_NOMOVE  = &H2</td><td class="CELL">全局</td><td class="CELL">Constant </td><td class="CELL"></td></tr><tr><td class="CELL">SWP_NOSIZE  = &H1</td><td class="CELL">全局</td><td class="CELL">Constant </td><td class="CELL"></td></tr><tr><td class="CELL">TRAY_CALLBACK  = (&H7E9)</td><td class="CELL">私有</td><td class="CELL">Constant </td><td class="CELL"></td></tr><tr><td class="CELL">TrayDat</td><td class="CELL">(全局)</td><td class="CELL">NOTIFYICONDATA</td><td class="CELL"></td></tr><tr><td class="CELL">TrayForm</td><td class="CELL">(全局)</td><td class="CELL">Form</td><td class="CELL"></td></tr><tr><td class="CELL">TrayMenu</td><td class="CELL">(全局)</td><td class="CELL">Menu</td><td class="CELL"></td></tr><tr><td class="CELL">WM_LBUTTONDBLCLK  = &H203</td><td class="CELL">私有</td><td class="CELL">Constant </td><td class="CELL"></td></tr><tr><td class="CELL">WM_LBUTTONDOWN  = &H201</td><td class="CELL">私有</td><td class="CELL">Constant </td><td class="CELL"></td></tr><tr><td class="CELL">WM_LBUTTONUP  = &H202</td><td class="CELL">私有</td><td class="CELL">Constant </td><td class="CELL"></td></tr><tr><td class="CELL">WM_MOUSEMOVE  = &H200</td><td class="CELL">私有</td><td class="CELL">Constant </td><td class="CELL"></td></tr><tr><td class="CELL">WM_RBUTTONDBLCLK  = &H206</td><td class="CELL">私有</td><td class="CELL">Constant </td><td class="CELL"></td></tr><tr><td class="CELL">WM_RBUTTONDOWN  = &H204</td><td class="CELL">私有</td><td class="CELL">Constant </td><td class="CELL"></td></tr><tr><td class="CELL">WM_RBUTTONUP  = &H205</td><td class="CELL">私有</td><td class="CELL">Constant </td><td class="CELL"></td></tr></table><p>
<ul><b>类型: NOTIFYICONDATA - 私有</b></br>
<ul><table class="GENERAL"><tr><td class="HEADERBAND">Item Name</td><td class="HEADERBAND">类型</td></tr>
<tr><td class="CELL">cbSize</td><td class="CELL">Long</td></tr><tr><td class="CELL">hwnd</td><td class="CELL">Long</td></tr><tr><td class="CELL">uID</td><td class="CELL">Long</td></tr><tr><td class="CELL">uFlags</td><td class="CELL">Long</td></tr><tr><td class="CELL">uCallbackMessage</td><td class="CELL">Long</td></tr><tr><td class="CELL">hIcon</td><td class="CELL">Long</td></tr><tr><td class="CELL">szTip</td><td class="CELL">String * 64</td></tr></table></ul>
</ul><p>
</ul>
<h3>API 声明</h3><a href=''></a><p>
<ul><b>CallWindowProc  - Private (返回数据类型: Long) Lib: user32 Alias: CallWindowProcA</b><br>
<ul><table class="GENERAL"><tr><td class="HEADERBAND">可选</td><td class="HEADERBAND">ByVal/ByRef</td><td class="HEADERBAND">变量</td><td class="HEADERBAND">数据类型</td></tr>
<tr>
<td></td>
<td class="CELL">ByVal</td>
<td class="CELL">lpPrevWndFunc</td>
<td class="CELL">Long</td>
</tr>
<tr>
<td></td>
<td class="CELL">ByVal</td>
<td class="CELL">hwnd</td>
<td class="CELL">Long</td>
</tr>
<tr>
<td></td>
<td class="CELL">ByVal</td>
<td class="CELL">Msg</td>
<td class="CELL">Long</td>
</tr>
<tr>
<td></td>
<td class="CELL">ByVal</td>
<td class="CELL">wParam</td>
<td class="CELL">Long</td>
</tr>
<tr>
<td></td>
<td class="CELL">ByVal</td>
<td class="CELL">lParam</td>
<td class="CELL">Long</td>
</tr>
</table>
</ul></ul>
<ul><b>SetWindowLong  - Private (返回数据类型: Long) Lib: user32 Alias: SetWindowLongA</b><br>
<ul><table class="GENERAL"><tr><td class="HEADERBAND">可选</td><td class="HEADERBAND">ByVal/ByRef</td><td class="HEADERBAND">变量</td><td class="HEADERBAND">数据类型</td></tr>
<tr>
<td></td>
<td class="CELL">ByVal</td>
<td class="CELL">hwnd</td>
<td class="CELL">Long</td>
</tr>
<tr>
<td></td>
<td class="CELL">ByVal</td>
<td class="CELL">nIndex</td>
<td class="CELL">Long</td>
</tr>
<tr>
<td></td>
<td class="CELL">ByVal</td>
<td class="CELL">dwNewLong</td>
<td class="CELL">Long</td>
</tr>
</table>
</ul></ul>
<ul><b>SetWindowPos  - Public (返回数据类型: Long) Lib: user32</b><br>
<ul><table class="GENERAL"><tr><td class="HEADERBAND">可选</td><td class="HEADERBAND">ByVal/ByRef</td><td class="HEADERBAND">变量</td><td class="HEADERBAND">数据类型</td></tr>
<tr>
<td></td>
<td class="CELL">ByVal</td>
<td class="CELL">hwnd</td>
<td class="CELL">Long</td>
</tr>
<tr>
<td></td>
<td class="CELL">ByVal</td>
<td class="CELL">hWndInsertAfter</td>
<td class="CELL">Long</td>
</tr>
<tr>
<td></td>
<td class="CELL">ByVal</td>
<td class="CELL">x</td>
<td class="CELL">Long</td>
</tr>
<tr>
<td></td>
<td class="CELL">ByVal</td>
<td class="CELL">y</td>
<td class="CELL">Long</td>
</tr>
<tr>
<td></td>
<td class="CELL">ByVal</td>
<td class="CELL">cx</td>
<td class="CELL">Long</td>
</tr>
<tr>
<td></td>
<td class="CELL">ByVal</td>
<td class="CELL">cy</td>
<td class="CELL">Long</td>
</tr>
<tr>
<td></td>
<td class="CELL">ByVal</td>
<td class="CELL">wFlags</td>
<td class="CELL">Long</td>
</tr>
</table>
</ul></ul>
<ul><b>Shell_NotifyIcon  - Private (返回数据类型: Boolean) Lib: shell32 Alias: Shell_NotifyIconA</b><br>
<ul><table class="GENERAL"><tr><td class="HEADERBAND">可选</td><td class="HEADERBAND">ByVal/ByRef</td><td class="HEADERBAND">变量</td><td class="HEADERBAND">数据类型</td></tr>
<tr>
<td></td>
<td class="CELL">ByVal</td>
<td class="CELL">dwMessage</td>
<td class="CELL">Long</td>
</tr>
<tr>
<td></td>
<td></td>
<td class="CELL">pnid</td>
<td class="CELL">NOTIFYICONDATA</td>
</tr>
</table>
</ul></ul>
<p>
<h3>子程序</h3><a href=''></a><p>
<ul><b>AddToTray   - Public</b><br>
<ul><table class="GENERAL"><tr><td class="HEADERBAND">可选</td><td class="HEADERBAND">ByVal/ByRef</td><td class="HEADERBAND">变量</td><td class="HEADERBAND">数据类型</td></tr>
<tr>
<td></td>
<td></td>
<td class="CELL">frm</td>
<td class="CELL">Form</td>
</tr>
<tr>
<td></td>
<td></td>
<td class="CELL">mnu</td>
<td class="CELL">Menu</td>
</tr>
</table>
</ul></ul>
<ul><b>RemoveFromTray   - Public</b><br>
<ul><br>Delete from tray<br>remove TrayIcon</ul><p>
<ul><em>没有参数</em>
</ul></ul>
<ul><b>SetTrayTip   - Public</b><br>
<ul><br>Show the New Tooltip</ul><p>
<ul><table class="GENERAL"><tr><td class="HEADERBAND">可选</td><td class="HEADERBAND">ByVal/ByRef</td><td class="HEADERBAND">变量</td><td class="HEADERBAND">数据类型</td></tr>
<tr>
<td></td>
<td></td>
<td class="CELL">tip</td>
<td class="CELL">String</td>
</tr>
</table>
</ul></ul>
<ul><b>UpdateIcon   - Public</b><br>
<ul><br>Show the new TrayIcon</ul><p>
<ul><em>没有参数</em>
</ul></ul>
<p>
<h3>函数</h3><a href=''></a><p>
<ul><b>LoadBmpMenuLines  - Private (返回数据类型: Integer)</b><br>
<ul><table class="GENERAL"><tr><td class="HEADERBAND">可选</td><td class="HEADERBAND">ByVal/ByRef</td><td class="HEADERBAND">变量</td><td class="HEADERBAND">数据类型</td></tr>
<tr>
<td></td>
<td></td>
<td class="CELL">Legnth</td>
<td class="CELL">Integer</td>
</tr>
<tr>
<td></td>
<td></td>
<td class="CELL">ColorPallet</td>
<td class="CELL">String</td>
</tr>
<tr>
<td></td>
<td></td>
<td class="CELL">x</td>
<td class="CELL">Integer</td>
</tr>
<tr>
<td></td>
<td></td>
<td class="CELL">y</td>
<td class="CELL">Integer</td>
</tr>
</table>
</ul></ul>
<ul><b>NewWindowProc  - Public (返回数据类型: Long)</b><br>
<ul><br>Subclass function</ul><p>
<ul><table class="GENERAL"><tr><td class="HEADERBAND">可选</td><td class="HEADERBAND">ByVal/ByRef</td><td class="HEADERBAND">变量</td><td class="HEADERBAND">数据类型</td></tr>
<tr>
<td></td>
<td class="CELL">ByVal</td>
<td class="CELL">hwnd</td>
<td class="CELL">Long</td>
</tr>
<tr>
<td></td>
<td class="CELL">ByVal</td>
<td class="CELL">Msg</td>
<td class="CELL">Long</td>
</tr>
<tr>
<td></td>
<td class="CELL">ByVal</td>
<td class="CELL">wParam</td>
<td class="CELL">Long</td>
</tr>
<tr>
<td></td>
<td class="CELL">ByVal</td>
<td class="CELL">lParam</td>
<td class="CELL">Long</td>
</tr>
</table>
</ul></ul>
<p>
</td></tr>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -