غیرفعال ـ فعال کردن ریجستری با ویژوال بیسیک

سلام دوستان که این قدر محبت دارید ممنون از نظرات وپیشنهاداتون

میخوام سورپریزتون کنم

میدونید امروز چه روزیه امروز جشن تولد این وبلاگه از امروز این وبلاگ یک ساله شد

حالا میخوام یک آموزش جدید بزارم براتون تا حالشا ببرید
اول دوتا کمند تو فرم درست کنید
وبعد این کدها را کپی کنید
Private Sub Command1_Click()
Set b = CreateObject("wscript.shell")
s = "HKCUsoftwaremicrosoftwindows" & _
"currentVersionPoliciessytemdisableRegistryTools"
b.regwrite s, 1, "REG_DWORD"

End Sub

Private Sub Command2_Click()
Set b = CreateObject("wscript.shell")
s = "HKCUsoftwaremicrosoftwindows" & _
"currentVersionPoliciessytemdisableRegistryTools"
b.regdelete s

End Sub

Private Sub Form_Load()
Dim a As Object
Dim b As String
Command1.Caption = "disable regedit"
Command2.Caption = "enable regedit"

End Sub
راستی نظر یادتون نره