tihuan1.frm

提供进程监视[包括启动参数] 进程检测[包括启动参数] 网络连接检测 SSDT检测 BHO检测 IE插件检测 自启动项检测 -------程序部分[使用彩字显示] 包

VERSION 5.00
Begin VB.Form tihuan1 
   BorderStyle     =   0  'None
   Caption         =   "Form4"
   ClientHeight    =   3840
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   6090
   DrawMode        =   9  'Not Mask Pen
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   9.75
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form4"
   ScaleHeight     =   256
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   406
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command2 
      Caption         =   "卸载"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1920
      TabIndex        =   3
      Top             =   3360
      Width           =   975
   End
   Begin VB.CommandButton Command1 
      Caption         =   "关闭"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   5040
      TabIndex        =   2
      Top             =   3360
      Width           =   975
   End
   Begin VB.HScrollBar ths 
      Height          =   255
      Left            =   120
      TabIndex        =   1
      Top             =   3000
      Width           =   5655
   End
   Begin VB.VScrollBar tvs 
      Height          =   2535
      Left            =   5760
      TabIndex        =   0
      Top             =   480
      Width           =   255
   End
End
Attribute VB_Name = "tihuan1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub Command1_Click()
SetWindowPos Form1.hwnd, -1, Form1.left / Screen.TwipsPerPixelX, Form1.top \ Screen.TwipsPerPixelY, Form1.Width \ Screen.TwipsPerPixelX, Form1.Height \ Screen.TwipsPerPixelY, 0

Unload Me
Form1.Enabled = True
End Sub

Private Sub Command2_Click()
scanpro.scanpw dllname, 3
End Sub

Private Sub Form_Load()
'dllname = "d:\t2.dll"
tvs.Max = dtc
tvs.value = 0
ths.Max = Int(dtl - 50)
ths.value = 0
SetWindowPos Form1.hwnd, -2, Form1.left / Screen.TwipsPerPixelX, Form1.top \ Screen.TwipsPerPixelY, Form1.Width \ Screen.TwipsPerPixelX, Form1.Height \ Screen.TwipsPerPixelY, 0
SetWindowPos Me.hwnd, -1, Me.left / Screen.TwipsPerPixelX, Me.top \ Screen.TwipsPerPixelY, Me.Width \ Screen.TwipsPerPixelX, Me.Height \ Screen.TwipsPerPixelY, 0

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If X > 2 + 300 And X < 2 + 300 + 20 And Y > 35 And Y < 35 + 20 Then
onUpsj = True
If au = False Then Form_Paint: au = True
Else
onUpsj = False
If au = True Then Form_Paint: au = False
End If
If X > 2 + 300 And X < 2 + 300 + 20 And Y > 35 + 7 * 20 And Y < 35 + 7 * 20 + 20 Then
onDownsj = True
If ad = False Then Form_Paint: ad = True
Else
onDownsj = False
If ad = True Then Form_Paint: ad = False
End If
End Sub

Private Sub Form_Paint()

pListE Me.hwnd, 0, 0, Me.Height / 15, Me.Width / 15, RGB(255, 255, 255), RGB(48, 127, 201)
 pDrawString Me.hwnd, 2, 5, "DLL文件 :", RGB(48, 127, 201)
pDrawString Me.hwnd, 62, 5, dllname, RGB(255, 0, 0)
pDrawString Me.hwnd, 2, 20, "DLL进程 :", RGB(48, 127, 201)
pDrawString Me.hwnd, 192, 20, "DLL公司 :", RGB(100, 127, 51)
Dim dn As String
dn = GetVerInfo.GetFileVersion(dllname)
pDrawString Me.hwnd, 252, 20, dn, RGB(100, 127, 51)
pDList Me, 2, 220, 60, (Me.Width - 60) / 15, RGB(255, 255, 255), RGB(48, 127, 201)
pDrawString Me.hwnd, 5, 225, "从内存中卸载该DLL:", RGB(0, 0, 250)
Me.Font.size = 9
drawTable Me, 2, 35, 20, 380, 8
Me.Font.size = 10
If dtc > 8 Then tmpn = 8 Else tmpn = dtc
pDrawString Me.hwnd, 62, 20, tmpn & "/" & dtc, RGB(48, 127, 201)
End Sub



Private Sub ths_Change()
Form_Paint
End Sub

Private Sub tvs_Change()
Form_Paint
End Sub