Registerscanner som ska fungera som en

medialabsMedlem sedan mars 20023 686 inlägg

Frågan1 nov. 2003 21:08#1

Jag sitter och försöker komma på hur jag ska bygga upp ett program i VB som ska skanna av registret i datorn efter vissa (ClassIDs) nyckelkombinationer som TEX. BD11A280-2E73-11CF-B6CF-00AA00A74DAF och om den sedan hittar nån nyckel eller hur man nu ska säga det, så ska den lista upp dessa nycklar och sedan läsa in namnet som här till den aktuella registernyckeln eller registerfilen. Jag hade tänkt ha registernycklarna som jag vill söka efter i en vanlig .txt fil eller .dat fil ungefär så här:

018B7EC3-EECA-11d3-8E71-0000E82C6C0D = Edonkey/xxxtoolbar
018B7EC3-EECA-11d3-8E71-0000GJSD6586 = Dotcom Toolbar
..
OSV..

programmet ska fungera som en enkel spyware scanner som läser in en extern .txt eller .dat fil med dom senaste "definitationerna".

nikoMedlem sedan juni 20022 599 inlägg

2 nov. 2003 21:44#2

Pseudokod:

Public Const ERROR_SUCCESS = 0&
Public Const HKEY_CLASSES_ROOT = &H80000000
dim lkeyhand As Long

Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, _
    ByVal lpSubKey As String, phkResult As Long) As Long

for <alla ClassIDs i din textfil>
	If RegOpenKey(HKEY_CLASSES_ROOT, "\CLSID\{" & <ditt ClassID här> & "}", lkeyhand) = ERROR_SUCCESS Then
		'Detta ClassID fanns.
	else
		'Detta ClassID fanns inte.	
	end if
next <ClassID>