把下面的文件内容复制到rules.ima文件内部，然后放到邮局目录即可实现过滤功能;

B~name=.*\.scr!OR!B~name=.*\.bat!OR!B~name=.*\.com!OR!B~name=.*\.pif!OR!B~name=.*\.vbs!OR!B~name=.*\.shs!OR!B~name=.*\.sys!OR!B~name="doc.zip"!OR!B~name="document.zip"!OR!B~name="test.zip"!OR!B~name="readme.zip"!OR!B~name="your_detailes.zip"!OR!B~name="file.zip"!OR!B~name="data.zip"!OR!B~name=".zip":NUL
...

Imports System.Drawing
Imports System.Drawing.Imaging
Public Class GDIImageChart
    Inherits SchoolJwSoft

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

Public Function DataGridToExcel(ByVal DS As System.Web.UI.WebControls.DataGrid, ByVal Title As String)
        Dim sqlstr, TName, Sql, S, TT As String
        Dim I, J As Integer
...

 Public Function DataRowColorChange(ByRef e As System.Web.UI.WebControls.DataGridItemEventArgs)
        If e.Item.ItemIndex < 0 Then
        Else
            If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem Then
...

#Region "防止SQL漏洞的程序SqlError"
    Public Function SkyReplaceBadRequest(ByVal StrChar As String) As String
        If StrChar = "" Then
            SkyReplaceBadRequest = ""
...

#Region "取得软件版本信息的功能"
    '#################################################################################
    '1 Version:2008.3.1.0
    '2 Title:0451sky 教务管理系统(悠索科技工作室)
...

Namespace D
    Public Class MD5
        Private Const BITS_TO_A_BYTE As Integer = 8
        Private Const BYTES_TO_A_WORD As Integer = 4
        Private Const BITS_TO_A_WORD As Integer = 32
...

Function CareFGetMac() As String
        Try
            Dim Mac As String
            Dim mc As ManagementClass
...

        Dim StrHostName, IP As String
        StrHostName = ""
        ' 首先得到本地机器的主机名称  
        StrHostName = Dns.GetHostName.ToString
...

多线程引用：System.Threading

Dim threadinfo as new Thred(new ThreadStart(Addressof 程序))

threadinfo.start

threadinfo.abort