تابعی برای نوشتن خواندن و یا حذف مقادیر باینری توی رجیستری

[dr_g]

با سلام
از دوستان کسی تابعی برای نوشتن یا خواندن و یا حذف مقادیر باینری توی رجیستری داره؟
خیلی ممنون می شم اونو توی همین تاپیک بزاره

[حامد مصافی]

Public Sub RegWriteA(Key As String, KeyValue, Optional LessValue As String, Optional regType As String)
Dim objShell As Object
Set objShell = CreateObject("Wscript.Shell")

'If (CStr(KeyValue) = vbNullString) Then value = lessValue
If regType = Empty Then
objShell.regwrite Key, KeyValue
Else
objShell.regwrite Key, KeyValue, regType
End If
Set objShell = Nothing
End Sub


سلام
این کد برای نوشتن در رجیستری
برای regType باید مقدار "REG_BINARY" رو ذکر کنید