comdll.bas

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

Attribute VB_Name = "comdll"
Public dllname As String
Public dlltype(1 To 300) As ShowText
Public onUpsj As Boolean
Public onDownsj As Boolean
Public dtc As Integer
Public dtl As Integer
Public Sub drawTable(pform As Form, X As Integer, Y As Integer, he As Integer, wi As Integer, pconst As Integer)
Dim tmpy As Integer
Dim comy As Integer
For i = 1 To pconst
tmpy = Y + (i - 1) * he
comy = comy + tmpy
pDList pform, X, tmpy, he + 1, wi, RGB(255, 255, 255), RGB(48, 127, 201)
Dim tmp2s As String * 256
tmp2s = dlltype(i + tihuan1.tvs.value).text

If Len(tmp2s) > 50 Then
tihuan1.ths.Max = Len(tmp2s)
tihuan1.ths.Visible = True
'Form1.Caption = Len(tmp2s)
st = Mid(tmp2s, Int(tihuan1.ths.value + 1), 50)
Else
st = Mid(tmp2s, 1, 50)
tihuan1.ths.Visible = False
End If
If i + tihuan1.tvs.value <= dtc Then
   pDrawString pform.hwnd, X + 2, tmpy + 2, st, dlltype(i + tihuan1.tvs.value).color
End If
Next i
 Exit Sub
'--------画进度条
If pconst < 5 Then Exit Sub
pDList pform, wi + X - 1, Y, pconst * 20 + 1, 20, RGB(255, 255, 255), RGB(48, 127, 201)
'------上三角
If onUpsj = True Then
pDList pform, wi + X - 1, Y, 21, 20, RGB(48, 127, 201), RGB(255, 255, 255)
GoTo dsj:
Else
pDList pform, wi + X - 1, Y, 21, 20, RGB(255, 255, 255), RGB(48, 127, 201)
End If
'------下三角
If onDownsj = True Then
pDList pform, wi + X - 1, Y + (pconst - 1) * 20, 21, 20, RGB(48, 127, 201), RGB(255, 255, 255)
GoTo dsj:
Else
pDList pform, wi + X - 1, Y + (pconst - 1) * 20, 21, 20, RGB(255, 255, 255), RGB(48, 127, 201)

End If
'-------------------------------------------
dsj:
drawSJ pform, wi + X - 1 + 2, Y + 5, 16, 16, False
drawSJ pform, wi + X - 1 + 2, Y + (pconst - 1) * 20 + 5, 16, 16, True
End Sub

Public Sub drawSJ(pform As Form, X As Integer, Y As Integer, he As Integer, wi As Integer, isz As Boolean)
If isz = True Then
For i = 1 To he / 2
pDrawLine pform, X + i, Y + i, wi - i * 2, 0
Next i
Else
For i = 1 To he / 2
pDrawLine pform, X + i, Y + he / 2 - i, wi - i * 2, 0
Next i
End If
End Sub