سوال در مورد ریجستری

[avanghost]

با سلام خدمت دوستان من برنامه ای مثل برنامه ی پیوست شده باید طراحی کنم.

1. نمی دونم کار با ریجستری در وی بی چگونه هست.

2. این برنامه کار نمی کنه وگرنه از این برنامه کمک می گرفتم

اگه منو راهنمایی کنید ممنون می شم.


لینک دانلود
(http://up.velveleh.ir/uploads/13634175731.zip)

[ho3ein.3ven]

سلام . این برنامه کار با رجیستری :

Dim ObReg As Object
Dim StrKeyAdress As String
Dim StrValueType As String
Dim StrValue As String

Set ObReg = CreateObject("wscript.shell")

StrValue = "00000000"
StrValueType = "REG_DWORD"
StrKeyAdress = "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Policies\explorer\NoFolderOptions"
ObReg.RegWrite StrKeyAdress, StrValue, StrValueType

[avanghost]

ممنون دوست عزیز فقط اگه میشه یکم درباره ی چهار خط آخری توضیح میدید که چیکار می کنن.
و باید چیکار کنم که با تیک زدن چک باکس این کد ها اعمال بشن و با برداشتن تیک چک باکس غیر فعال ممنون میشم در این باره هم کمی توضیح بدید

[ho3ein.3ven]

StrValue = "00000000" مقداری را که می خواهید ذخیره کنید را در اینجا وارد کنید.
StrValueType = "REG_DWORD" نوع مقدار را که می خواهید ذخیره کنید.
StrKeyAdress = "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\explorer\NoFolderOptions" آدرسی که قرار است مقدار در آن ذخیره شود.

[ho3ein.3ven]

اینم یک مثال از چک باکس :

Private Sub Check1_Click()
If Check1.Value = Checked Then
MsgBox "Checked"
Else
MsgBox "Unchecked"
End If
End Sub

[avanghost]

ببخشید این مثال چک باکستون درست هست؟ چون من می خوام با تیک زدن چک باکس این کد ها اعمال بشن
StrValue = "00000000"
StrValueType = "REG_DWORD"
StrKeyAdress = "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\explorer\NoFolderOptions"
ObReg.RegWrite StrKeyAdress, StrValue, StrValueType

و با برداشتن تیک غیر فعال بشن.

[ho3ein.3ven]

بله دیگه :

Private Sub Check1_Click()
If Check1.Value = Checked Then
کد های مربوط به فعال شدن
Else
کد های مربوط به غیر فعال شدن
End If
End Sub

[avanghost]

ببخشید فقط می تونید بگید چطور یک کد ریجستر رو غیر فعال کنم.

[ho3ein.3ven]

خب بیشتر جاها برای غیر فعال کردن کلید value را برابر 0 و فرای فعال کردن برابر 1 قرار می دهند.

[avanghost]

ببخشید به یک مشکل دیگه هم بر خوردم در بعضی از کد های ریجستری باید یک مقدار جدید ساخت و اسمی هم براش انتخاب کرد یا باید در یک جا یک مقدار رو انتخاب کرد بعد مقدار درونش رو تغییر داد ممنون میشم در این باره هم منو راهنمایی کنید.

[ho3ein.3ven]

با همون کد می تونی کلید جدید هم بسازی . کد زیر رو تست کن :

Private Sub Command1_Click()
Dim ObReg As Object
Dim StrKeyAdress As String
Dim StrValueType As String
Dim StrValue As String

Set ObReg = CreateObject("wscript.shell")

StrValue = "00000000"
StrValueType = "REG_DWORD"
StrKeyAdress = "HKEY_CURRENT_USER\Software\Microsoft\Windows\Seven Soft"
ObReg.RegWrite StrKeyAdress, StrValue, StrValueType
End Sub

[avanghost]

ببخشید این رو هم من تو یک برنامه دیدم ولی دقیقا بعضی از کد هاش نمی دوونم چی هست اگه میشه یک توضیح مختصر دربارشون بدید ممنون میشم

If ChkMark.Value = True Then
regkey = "Software\Microsoft\Windows\CurrentVersion\Explorer \Advanced"
'retvalue = RegCreateKey(HKEY_CURRENT_USER, regkey, KeyID)
retvalue = RegCreateKey(HKEY_LOCAL_MACHINE, regkey, KeyID)
subKey = "Live Preview Hover Time"
keyvalue = 1
retvalue = RegSetValueEx(KeyID, subKey, 0&, 4, keyvalue, 4)
End If

If ChkMark.Value = False Then
s = "Software\Microsoft\Windows\CurrentVersion\Explorer \Advanced"
a = "Live Preview Hover Time"
lRegResult = RegOpenKey(HKEY_LOCAL_MACHINE, s, hCurKey)
'lRegResult = RegOpenKey(HKEY_CURRENT_USER, s, hCurKey)
lRegResult = RegDeleteValue(hCurKey, a)
lRegResult = RegCloseKey(hCurKey)
End If