کلید های Defualt در رجیستری

[daniyal_1363]

سلام

چطوری میشه برای زیر کلید پایین که Defualt هست (یا زیر کلید هایی شبیه به اون) از طریق Vb مقدار تعیین کرد و یا مقدار اون رو بازیابی کرد (یعنی بخونیمش)

HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\Shell\Manage\command

کلید Defualt رو برابر "1" کنم

و بتونم دوباره اون رو بخونم

[Black-Hat]

با این کد میشه:


dim b as object
dim s as string
set b = createobject("wscript.shell") 'registry object
"\s = "HKCR\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\Shell\Manage\command
b.regwrite s , "1", "REG_SZ" 'default value is REG_SZ
end

[Black-Hat]

خوب نگرفت!
نکته اش اینه که برای مقدار default که اسم نداره باید بعد از command یه \ بزنی اینطوری:
HKCR\Software\...\command\" 'Like This"

[daniyal_1363]

ممنون دوست عزیز برای بازیابی اطلاعات هم باید همین کار رو کرد ؟

یعنی به جای Write کافیه Read بنویسم ؟ یا جور دیگه ای ؟

یه سوال دیگه ؟

چطوری میشه یه کلید رو Rename کرد ؟

[daniyal_1363]

یه مشکل

مهندسین کمک فوری لازم دارم لطفاً راهنمایی کنین من کار با رجیستری رو تازه شروع کردم و میترسم خرابکاری کنم :لبخند:

تغییری که در بالا به اون اشاره شد باعث از کار افتادن گزینه Maneg از راست کلیک My Computer میشه
بعد از خالی کردن کلید مورد نظر گزینه Maneg از راست کلیک My Computer از کار میفته ولی چرا بعد از برگردوندن اطلاعات قبلی به همون کلید پیغام "Access is denied" میده ؟:افسرده:

Logoff - Restart همم هیچ تاثیری نداره

[daniyal_1363]

با این کد میشه:


dim b as object
dim s as string
set b = createobject("wscript.shell") 'registry object
"\s = "HKCR\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\Shell\Manage\command
b.regwrite s , "1", "REG_SZ" 'default value is REG_SZ
end


سلام

راهنمای شما واقعا کمک کرد

مطمئناً راهی که دوستمون رفتن به این تکه کد کوچیک ختم نمیشه - خیلی گشتم ولی نتونستم استفاده های دیگیه این راه رو پیدا کنم و ازش استفاده کنم

فکر میکنم این بهترین و کم دردسرترین راه برای کار با رجیستریه - ازتون ممنون میشم اگه کاربردهای این راه رو برای قسمت های دیگه ذکر کنین (مثل Delete کردن یک Key ، ساختن یک Key ، نوشتن در یک کلید به جز Defualt و...)

خیلی ممنون