netscan.bas

来自「提供进程监视[包括启动参数] 进程检测[包括启动参数] 网络连接检测 」· BAS 代码 · 共 32 行

Attribute VB_Name = "netscan"
Dim prkeyEumn(0 To 500) As String
Public Function scaniebho()
pRegKeyEumn HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Browser Helper Objects"
For f = 0 To pckeyEumn - 1
    bhoN = ReadValue(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Browser Helper Objects\" & prkeyEumn(f), "")
    bhofn = ReadValue(HKEY_CLASSES_ROOT, "CLSID\" & prkeyEumn(f) & "\InProcServer32", "")
    If Scanfile(bhofn) = False Then bhofn = "[文件丢失]"
    Form1.List1.AddItem prkeyEumn(f) & ": " & bhoN & ": " & bhofn
Next f
End Function

Public Function scaniecj()
Dim name As String * 256
Dim namep As String
RegOpenKey HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Internet Explorer\Extensions", retl
Dim idx As Integer
Do Until ret <> 0
ret = RegEnumKey(retl, idx, name, Len(name))
'MsgBox ret & " | " & idx
If ret <> 0 Then Exit Do:
If ret = 0 Then
namep = StrConv(name, UNICODE)
cjn = ReadValue(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Browser Helper Objects\" & namep, "ButtonText")
Form1.List1.AddItem cjn
End If
idx = idx + 1
Loop
RegCloseKey retl
End Function