www.pudn.com > IEFilter.rar > Form1.frm

VERSION 5.00 
Object = "{D8A70F4D-98D6-42AF-A29B-6CC4D1749F35}#1.0#0"; "IEFilter.ocx" 
Begin VB.Form Form1  
   Caption         =   "Form1" 
   ClientHeight    =   3195 
   ClientLeft      =   60 
   ClientTop       =   345 
   ClientWidth     =   4680 
   LinkTopic       =   "Form1" 
   ScaleHeight     =   3195 
   ScaleWidth      =   4680 
   StartUpPosition =   3  'Windows Default 
   Begin VB.CommandButton Command1  
      Caption         =   "Command1" 
      Height          =   375 
      Left            =   2280 
      TabIndex        =   1 
      Top             =   600 
      Width           =   735 
   End 
   Begin VB.Timer Timer1  
      Left            =   720 
      Top             =   600 
   End 
   Begin IEFILTERLib.IEFilter IEFilter1  
      Height          =   975 
      Left            =   840 
      TabIndex        =   0 
      Top             =   1320 
      Width           =   2175 
      _Version        =   65536 
      _ExtentX        =   3836 
      _ExtentY        =   1720 
      _StockProps     =   0 
   End 
End 
Attribute VB_Name = "Form1" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Private Sub Command1_Click() 
Dim s As String 
s = IEFilter1.getOthernessUrls 
 
End Sub 
 
Private Sub Form_Load() 
Dim bKill As Boolean 
Dim s As String 
 
IEFilter1.Init 
IEFilter1.Visible = False 
IEFilter1.Enabled = True 
 
IEFilter1.AddKey "sex" 
IEFilter1.AddKey "性高潮" 
IEFilter1.AddKey "阴道" 
 
 
IEFilter1.AddKey "teen" 
 
IEFilter1.AddDenyURL "sina.com" 
 
 
bKill = False 
 
IEFilter1.bKillTIE(bKill) = False 
 
IEFilter1.bCheckBody = True 
IEFilter1.bCheckURL = True 
 
IEFilter1.clnHisUrls 
 
Timer1.Interval = 1000 
Timer1.Enabled = True 
End Sub 
 
 
Private Sub Timer1_Timer() 
On Error GoTo 1 '可能会有com异常 主要是由于，可能的用户操作，导致ie实例已经release 
Timer1.Enabled = False 
IEFilter1.Check 
1: 
    Timer1.Enabled = True 
End Sub