آپارات

Option Explicit

' The exe file must exist for this to work properly.
' The exe file must exist for this to work properly.
' The exe file must exist for this to work properly.
' The exe file must exist for this to work properly.

Private Declare Function RegCreateKeyEx Lib 
"advapi32.dll" Alias "RegCreateKeyExA"
 (ByVal hKey As Long, ByVal lpSubKey As 
String, ByVal Reserved As Long, ByVal lpClass 
As String, ByVal dwOptions As Long, ByVal samDesired As 
Long, ByVal lpSecurityAttributes As Long, phkResult As Long
, lpdwDisposition As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias
 "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName
 As String, ByVal Reserved As Long, ByVal dwType As Long, lp
Data As Any, ByVal cbData As Long) 
As Long         ' Note that if you declare the lpData parameter as S
tring, you must pass it By Value.
Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias 
"RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) 
As Long
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias
 "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As 
String, ByVal ulOptions As Long, ByVal samDesired As L
ong, phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Ali
as "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValue
Name As String, ByVal lpReserved As Long, lpType As Long, l
pData As Any, lpcbData As Long) As Long         ' Note that if y
ou declare the lpData parameter as String, you must pass it By Value.

Private Const READ_CONTROL = &H20000
Private Const KEY_SET_VALUE = &H2
Private Const KEY_CREATE_SUB_KEY = &H4
Private Const STANDARD_RIGHTS_WRITE = (READ_CONTROL)
Private Const SYNCHRONIZE = &H100000
Private Const KEY_WRITE = ((STANDARD_RIGHTS_WRITE Or 
KEY_SET_VALUE Or KEY_CREATE_SUB_KEY) And (Not SYNCHRONIZE))


Private Const STANDARD_RIGHTS_READ = (READ_CONTROL)
Private Const KEY_ENUMERATE_SUB_KEYS = &H8
Private Const KEY_NOTIFY = &H10
Private Const KEY_QUERY_VALUE = &H1
Private Const KEY_READ = ((STANDARD_RIGHTS_READ Or K
EY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_
NOTIFY) And (Not SYNCHRONIZE))

Private Const ERROR_SUCCESS = 0&
Private Const HKEY_CURRENT_USER = &H80000001
Private Const REG_SZ = 1

Private m_IgnoreEvents As Boolean