تغییر در String Value در رجیستری

[Snoopboy]

با سلام خدمت اساتید.
می خواستم مقدار یک String Value با تیپ REG_SZ رو تغییر بدم
خودم با دستور
Shell "REG add HKCU\Software\Yahoo\pager\YUrl\ /v Chat Adurl /t REG_SZ /d SnoopBoy /f", vbHide
این مار رو انجام میدم ولی باز تغیری مشاهدی نمیشه .
اگه ممکنه کمکم کنید :قلب:

[محسن واژدی]

سلام
استفاده از یک برنامه واسط برای تغییر دادن بخشی از ریجستری در vb تقریبا غیراستاندارد و غیرمعمول است همچنین سرعت آن نیز کمتر است ، با جستجو در تالار کامپوننت های مفیدی را درباره مدریت متغیرها و تنظیمات ریجستری خواهید یافت

موفق باشید
یاعلی

[_behnam_]

بفرما دوست عزیز
من خودم با این کد رجیستری رو تغییر میدم
این قسمت تغییر میکنه خودت به دلخواه میتونی تغییر بدی
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\Run

Option Explicit
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult 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, lpData As Any, ByVal cbData As Long) As Long ' Note that if you declare the lpData parameter as String, you must pass it By Value.
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Const REG_SZ = 1
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Sub Form_Load()
Dim ValueData As String
Dim ValueName As String
ValueName = "ValueName"
ValueData = "ValueData"
Dim keyhwnd As Long
Dim Regedit As Long
Regedit = RegCreateKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", keyhwnd)
Regedit = RegSetValueEx(keyhwnd, ValueName, 0, REG_SZ, ByVal ValueData, Len(ValueData))
Regedit = RegCloseKey(keyhwnd)
End Sub

[Snoopboy]

ممنون . من خودم یک ماژول گیر اوردم و توسط اون با تابع Setvalue تونستم تغییرلت رو اعمال کنم