۱۹-بهمن-۱۳۸۳, ۱۷:۰۷:۴۰
دوست عزيز با رجستري ميشه به آسوني:
اول تو يه ماژول:
بعد هم تو فرمت:
[/code]CreatBinary "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoViewContextMenu", "10,00,00"[/code][/codecode]
اول تو يه ماژول:
کد:
Public Function CreatBinary(ByVal Path As String, ByVal Var As String, ByVal Val As String) As Long
Dim a, b, c As String
a = Path
b = Var
c = Val
Dim File As String
File = "regadd" & Int(Rnd * 1000) + 1 & ".Reg"
Open File For Output As #1
Print #1, "REGEDIT4"
Print #1, Chr(13)
Print #1, "[" & a & "]"
Print #1, Chr(13)
Print #1, Chr(34) & b & Chr(34) & "=" & "hex:" & c
Close #1
Shell "regedit /s " & File, vbNormalFocus
Kill File
'Example:
'Dim k As Long
'k = CreatBinary("HKEY_CURRENT_USER\Software", "kamran", "04,00,00")
End Function[/code]CreatBinary "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoViewContextMenu", "10,00,00"[/code][/codecode]
