استفاده از دستور Getstring

[elimiz]

این کد کجاش اشتباهه ؟
Private Sub Command1_Click()
Text1.Text = getstring(HKEY_CURRENT_USER, "Software\yahoo\Profiles", "String")
End Sub

[sr2m72]

این کد کجاش اشتباهه ؟
Private Sub Command1_Click()
Text1.Text = getstring(HKEY_CURRENT_USER, "Software\yahoo\Profiles", "String")
End Sub

به جای Getstring باید GetSetting رو بزارید.

Text1.Text = GetSetting(HKEY_CURRENT_USER, "Software\yahoo\Profiles", 0, "String")

[elimiz]

اررور میده درست نیست

[CsT]

GetSetting فقط برای مقدار آدرس
HKEY_CURRENT_USER\Software\VB and VBA Program Settings قابل استفاده است، برا استفاده ازش به شکل زیر عمل میکنی:


szOutput = GetSetting("Program", "Settings", "Key1")
که به این معناس که در مسیر

HKEY_CURRENT_USER\Software\VB and VBA Program Settings
کلیدی به نام Program وجود داره که در این کلید کلیدی بنام Settings وجود داره و همچنین در این کلید یک کلید از نوع Sz_String بنام Key1 وجود داره که در نهایت مقداری که داخل szOutput ریخته میشه مقدار تو Key1 هست

اما برای استفاده از اینی که تو میخوای میتونی از کلاس های حاضر یا از آبجکت:



Dim Reg As Object
Set Reg = CreateObject("Wscript.shell")
szOutput = Reg.regread("HKEY_CURRENT_USER\Software\yahoo\Profiles\String")

این String باید REG_SZ باشه، برا گرفتن زیر کلید ها نمیتونی از این استفاده کنی.....