form1.frm

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

VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "葡萄守护者"
   ClientHeight    =   6075
   ClientLeft      =   45
   ClientTop       =   540
   ClientWidth     =   9105
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   9
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   405
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   607
   StartUpPosition =   3  'Windows Default
   Begin VB.HScrollBar hs1 
      Height          =   255
      Left            =   960
      Max             =   0
      TabIndex        =   11
      Top             =   4680
      Width           =   7815
   End
   Begin VB.VScrollBar VScroll1 
      Height          =   2535
      Left            =   8520
      TabIndex        =   9
      Top             =   2040
      Width           =   255
   End
   Begin VB.TextBox Text1 
      BorderStyle     =   0  'None
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   5400
      Locked          =   -1  'True
      MultiLine       =   -1  'True
      TabIndex        =   5
      Top             =   -5400
      Visible         =   0   'False
      Width           =   3855
   End
   Begin VB.Timer Timer1 
      Interval        =   5000
      Left            =   15600
      Top             =   1680
   End
   Begin VB.CommandButton Command3 
      Caption         =   "设置"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   12420
      TabIndex        =   2
      Top             =   3120
      Width           =   975
   End
   Begin VB.ListBox List2 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1620
      Left            =   480
      TabIndex        =   0
      Top             =   -15000
      Width           =   3495
   End
   Begin VB.ListBox List5 
      Appearance      =   0  'Flat
      BackColor       =   &H00FFC0C0&
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   1005
      Left            =   1560
      TabIndex        =   8
      Top             =   5040
      Visible         =   0   'False
      Width           =   8775
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "处理"
      ForeColor       =   &H8000000E&
      Height          =   975
      Left            =   3600
      TabIndex        =   10
      Top             =   0
      Width           =   4695
   End
   Begin VB.Label buttonc2 
      BackStyle       =   0  'Transparent
      Caption         =   "功能"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   570
      TabIndex        =   7
      Top             =   5535
      Width           =   375
   End
   Begin VB.Image button2 
      Height          =   495
      Left            =   150
      Picture         =   "Form1.frx":08CA
      Stretch         =   -1  'True
      Top             =   5400
      Width           =   1215
   End
   Begin VB.Line Line5 
      X1              =   1072
      X2              =   1240
      Y1              =   320
      Y2              =   320
   End
   Begin VB.Label Label6 
      BackStyle       =   0  'Transparent
      Caption         =   "文件监视 -关闭"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   17160
      TabIndex        =   6
      Top             =   4560
      Width           =   1335
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "进程监视 -失败"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   17160
      TabIndex        =   4
      Top             =   4320
      Width           =   1335
   End
   Begin VB.Label x1 
      BackStyle       =   0  'Transparent
      Caption         =   "动盘监视 -开启"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   17160
      TabIndex        =   3
      Top             =   4080
      Width           =   1335
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "葡萄软件By2007"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   255
      Left            =   16920
      TabIndex        =   1
      Top             =   3720
      Width           =   1335
   End
   Begin VB.Image Image4 
      Height          =   735
      Left            =   0
      Top             =   5280
      Width           =   1455
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function SHChangeNotifyRegister Lib "shell32" Alias "#2" (ByVal hwnd As Long, ByVal uFlags As SHCN_ItemFlags, ByVal dwEventID As SHCN_EventIDs, ByVal uMsg As Long, ByVal cItems As Long, lpps As PIDLSTRUCT) As Long
Private Declare Function SHChangeNotifyDeregister Lib "shell32" Alias "#4" (ByVal hNotify As Long) As Boolean
Private Declare Function RegisterWindowMessage Lib "user32" Alias "RegisterWindowMessageA" (ByVal lpString As String) As Long
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Sub InitCommonControls Lib "comctl32.dll" ()
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Type POINTAPI
        X As Long
        Y As Long
End Type
Dim isintable As Boolean
Dim isUD As Boolean
Dim sI As Integer
Dim tmps() As String
Dim ph As Long
Dim tmp1 As Long
Dim chooseTable(0 To 10) As String
Dim htmp As Integer
Dim isShowTable As Boolean
Dim isindata As Boolean
Dim isShowData As Boolean
Dim htmp2 As Integer


Private Sub button_Click()

End Sub

Private Sub button2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'---------
If LCase(Command) = LCase("-speed") Then
SetClose.sp 0, 0
Me.Hide
Exit Sub
End If
'---------
hs1.Visible = False
button2.Picture = LoadPicture(App.path & "\button2.bmp")
isShowTable = Not isShowTable
isShowData = False
If isShowTable = True Then
For isa = 0 To 6
    tps = 220 + 20 * isa
    btm = tps + 20
    pListE Me.hwnd, 10, tps - 1, btm, 220, RGB(255, 255, 255), RGB(48, 127, 201)
Next isa
For i = 0 To 6
    tps = 220 + 20 * i
    Call pDrawString(Me.hwnd, 13, tps + 3, chooseTable(i), RGB(48, 127, 201))
Next i
Exit Sub
Else
nml
End If

End Sub

Private Sub button1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
button1.Picture = LoadPicture(App.path & "\button2.bmp")
End Sub

Private Sub button1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button <> 1 Then
button1.Picture = LoadPicture(App.path & "\button1.bmp")
End If
End Sub

Private Sub button1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
button1.Picture = LoadPicture(App.path & "\button.bmp")
SetClose.sp 0, 0
Me.Hide
End Sub

Private Sub button2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button <> 1 And isShowTable = False Then
button2.Picture = LoadPicture(App.path & "\button1.bmp")
End If
End Sub

Private Sub button2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If isShowTable = False Then
button2.Picture = LoadPicture(App.path & "\button.bmp")
End If
End Sub

Private Sub buttonc_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call button1_MouseDown(Button, Shift, X, Y)
End Sub

Private Sub buttonc_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call button1_MouseMove(Button, Shift, X, Y)
End Sub

Private Sub buttonc_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call button1_MouseUp(Button, Shift, X, Y)
End Sub
Private Sub buttonc2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call button2_MouseDown(Button, Shift, X, Y)
End Sub

Private Sub buttonc2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call button2_MouseMove(Button, Shift, X, Y)
End Sub

Private Sub buttonc2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call button2_MouseUp(Button, Shift, X, Y)
End Sub
Private Sub Command1_Click()
pn = InStrRev(List1.List(List1.ListIndex), ":")
If pn = 0 Then Exit Sub
mypid = right(List1.List(List1.ListIndex), Len(List1.List(List1.ListIndex)) - pn)
scanpro.GetPmod mypid
End Sub

Private Sub Command2_Click()
SetClose.sp 0, 0
Me.Hide
End Sub

Private Sub Command3_Click()
Form2.Show
End Sub

Private Sub Command4_Click()
SaveLog
List1.Clear
Text1 = ""
End Sub


Private Sub Command6_Click()
Dim tmp As gpFrame
tmp.FrCaption = "信息查看"
tmp.FrPic = App.path & "\ico1.ico"
rectframe Me.hwnd, 10, 10, 200, 500, RGB(48, 127, 201), tmp

End Sub

Private Sub Command7_Click()
bar.top = 61
End Sub

Private Sub Command8_Click()
bar.top = 81
End Sub


Private Sub Form_Initialize()
InitCommonControls
End Sub

Private Sub Form_Load()
'''''''''''''''''''''''''''''''''''''
'强烈建议你们去我的小BBS
'putao520.5d6d.com去看嘛
'说不定人多了我就公布了TD2和PTTD，还有TD3这3个文件的代码哦~
'---------------------葡萄2007年X月X日
'VBGOODVBGOODVBGOODVBGOODVBGOODVBGOODVBGOOD
'''''''''''''''''''''''''''''''''''''

'-------
If Command = "-Option" Then
Form2.Show
Form1.Enabled = False
Form1.Hide
Exit Sub
End If
'-------
GetSystemDirectory tmp1asdq, 256
GSystemPath = StrConv(tmp1asdq, Unicode)
'--------------缺省文件检测
qsfn = GSystemPath & "MSVCRTD.DLL"
If Scanfile(GSystemPath & "\MSVCRTD.DLL") = False Then
   FileCopy App.path & "\MSVCRTD.DLL", GSystemPath & "\MSVCRTD.DLL"
End If

'--------------
topshowS = topshowS
Me.BackColor = RGB(232, 247, 255)
List5.BackColor = RGB(232, 247, 255)
isintable = False
isShowTable = False
isindata = False
isShowData = False

pTDI = 0
ptip = "执行: "
'---------------
uptoken.EnableDebugPrivilege
'---------------
'Me.Caption = Me.hWnd
'---------------
If App.PrevInstance Then MsgBox "请不要多次运行程序", 16: End
'---------------
isUD = True
lpPrevWndProc = SetWindowLong(Me.hwnd, -4, AddressOf WindowProc)


App.TaskVisible = False
meSafe
meSafeA

Me.LoadSetting
If Command = "-Start" Then
   Me.Hide
End If
If Command = "-Speed" Then
GoTo sp:
End If

sp:
'---------
If Command = "-Speed" Then
buttonc2.Caption = "后台"
scanpro.scanpw App.path & "\t2.dll", 0
scanpro.scanpw App.path & "\t2.dll", 1
End If
'---------
sdrv.FirstRun
jkoo = AddSer(0)
If jkoo <> 9 Then
'Sleep 1000
tyu = DelDDvr(0)
'Sleep 1000
jkoo2 = AddSer(0)
If jkoo2 <> 9 Then MsgBox "驱动加载失败" & jkoo, 16
End If
'------加载数据
chooseTable(0) = "查看端口"
chooseTable(1) = "查看进程"
chooseTable(2) = "查看已载入驱动"
chooseTable(3) = "查看自启动程序"
chooseTable(4) = "查看IE辅助对象"
chooseTable(5) = "查看IE插件"
chooseTable(6) = "查看SSDT"
'------------

'SetClose.Sp 0, 0
WM_TASKBARCREATED = RegisterWindowMessage("TaskbarCreated")
'Me.Show
Dim tmp As gpFrame
tmp.FrCaption = "信息查看"
tmp.FrPic = App.path & "\ico1.ico"
rectframe Me.hwnd, 10, 10, 200, 500, RGB(48, 127, 201), tmp
Me.nml
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
Clipboard.SetText Text1.text
Exit Sub
End If