Search Tools Links Login

Monitor Registry Changes


This program monitors registry changes and changes them back if they're changed. Give me lots of feedback! (Good or Bad) Give specific reasons and how to improve it if it's bad. There is also a better way of monitoring the registry by someone else at http://www.freevbcode.com/ShowCode.asp?ID=2229.

Original Author: VB Beginner

Assumptions

Add 2 timers and 1 label. Change the interval for Timer1 to 30000 and the interval for Timer2 to 1000 and the caption of Label1 to 30000 and "HKEY_LOCAL_MACHINESOFTWAREMicrosoftInternet ExplorerActiveX Compatibility" to the registry key you want to monitor. Make sure the registry key you want to monitor isn't too big or else it'll take a long time to compare.

Code

Option Explicit
Dim Original As String
Dim Compare As String
Private Sub Form_Load()
'Make a backup of any key you want
Shell "C:WindowsRegedit.exe /e ACTIVEX.REG " & """" & "HKEY_LOCAL_MACHINESOFTWAREMicrosoftInternet ExplorerActiveX Compatibility" & """"
'Save of copy of your registry key and s
' tore the data in a variable
Open App.Path & "ACTIVEX.REG" For Binary Access Read As #1
Original = Space$(LOF(1))
Get #1, , Original
Close #1
End Sub

Private Sub Timer1_Timer()
'Save another copy of the registry key t
' o compare to the original
Open App.Path & "ACTIVEX2.REG" For Binary Access Read As #1
Compare = Space$(LOF(1))
Get #1, , Compare
Close #1
If Original <> Compare Then 'Change the registry key back To the original 'The /s command line makes it silent so Regedit doesn't ask if you're sure you want to add the key to the registry
Shell "C:WindowsRegedit.exe /s ACTIVEX.REG"
MsgBox "Your monitored registry key has changed.", vbInformation, ""
End If
Shell "C:WindowsRegedit.exe /e ACTIVEX2.REG " & """" & "HKEY_LOCAL_MACHINESOFTWAREMicrosoftInternet ExplorerActiveX Compatibility" & """"
End Sub

Private Sub Timer2_Timer()
'How much time is left until it checks i
' f your registry key has been changed

If Label1.Caption = 0 Then
Label1.Caption = 30000
Else
Label1.Caption = Label1.Caption - 1000
End If
End Sub

About this post

Posted: 2003-06-01
By: ArchiveBot
Viewed: 218 times

Categories

Visual Basic 6

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.