مقاله: راهی بسیار ساده برای کار با ریجستری [بایگانی]

r0ot$harp

سه شنبه 21 خرداد 1387, 20:00 عصر

سلام دوستان

این راهی که می خوام معرفی کنم خیلی سادست و هیج احتیاجی به Module و Class هایی که در آن راه های ارتباط با ریجستری هست نیست .

برای کار شما اول یک متغیر به صورت زیر تعریف کنید .

Dim Reg As Object
Set Reg = CreateObject("wscript.shell")

سپس برای نوشتن در ریحستری یا اضافه کردن قسمتی جدید به ریجستری از کد زیر استفاده می کنید :

Reg.RegWrite "HKEY_CLASSES_ROOT\ehsan\", App.Path & "\" & App.EXEName & ".exe %1"

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

Reg.RegRead "HKEY_CLASSES_ROOT\ehsan\"

و برای حذف هم از کد زیر استفاده می کنید :

Reg.RegDelete "HKEY_CLASSES_ROOT\ehsan\"

باتشکر احسان

مهران رسا

سه شنبه 21 خرداد 1387, 22:23 عصر

سلام
با این روش کلید هم میشه ایجاد کرد ؟!!

r0ot$harp

سه شنبه 21 خرداد 1387, 22:51 عصر

سلام
با این روش کلید هم میشه ایجاد کرد ؟!!

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

roomezonline

یک شنبه 20 مرداد 1387, 14:44 عصر

سلام دوستان

این راهی که می خوام معرفی کنم خیلی سادست و هیج احتیاجی به Module و Class هایی که در آن راه های ارتباط با ریجستری هست نیست .

برای کار شما اول یک متغیر به صورت زیر تعریف کنید .

Dim Reg As Object
Set Reg = CreateObject("wscript.shell")

سپس برای نوشتن در ریحستری یا اضافه کردن قسمتی جدید به ریجستری از کد زیر استفاده می کنید :

Reg.RegWrite "HKEY_CLASSES_ROOT\ehsan\", App.Path & "\" & App.EXEName & ".exe %1"

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

Reg.RegRead "HKEY_CLASSES_ROOT\ehsan\"

و برای حذف هم از کد زیر استفاده می کنید :

Reg.RegDelete "HKEY_CLASSES_ROOT\ehsan\"

باتشکر احسان

دوست عزيز ميشه تغيير كليدهاي REG_DWORD رو هم ارزشش رو با اين دستور تغيير داد
لطفا سورس يا توضيح بيشتر
مرسي

roomezonline

یک شنبه 20 مرداد 1387, 15:09 عصر

من كدي SANAZ رو تست كردم اما REG_DWORD نمي سازه تازه اگر اجراش بكني و كليد REG_DWORD هم وجود داشته باشه اونو به استرينگ تغيير ميده
ميشه راهنمايي كنيد؟؟؟؟؟؟؟؟؟؟؟؟

r_oscar2007

یک شنبه 20 مرداد 1387, 15:33 عصر

بهترين راه براي نوشتن در ريجستري توابع Apiاست

roomezonline

یک شنبه 20 مرداد 1387, 22:41 عصر

سلام دوستان

این راهی که می خوام معرفی کنم خیلی سادست و هیج احتیاجی به Module و Class هایی که در آن راه های ارتباط با ریجستری هست نیست .

برای کار شما اول یک متغیر به صورت زیر تعریف کنید .

Dim Reg As Object
Set Reg = CreateObject("wscript.shell")

سپس برای نوشتن در ریحستری یا اضافه کردن قسمتی جدید به ریجستری از کد زیر استفاده می کنید :

Reg.RegWrite "HKEY_CLASSES_ROOT\ehsan\", App.Path & "\" & App.EXEName & ".exe %1"

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

Reg.RegRead "HKEY_CLASSES_ROOT\ehsan\"

و برای حذف هم از کد زیر استفاده می کنید :

Reg.RegDelete "HKEY_CLASSES_ROOT\ehsan\"

باتشکر احسان

دوستان كسي جواب سوال من رو نداد تا خودم به جواب رسيدم با نوشتن REG_TYPE ميشه اين كار رو كرد

r0ot$harp

سه شنبه 26 آذر 1387, 12:44 عصر

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

دستور کلی به صورت زیر می باشد :

نوع,مقدار,آدرس کلید

اختصار : نام کلید اصلی :

HKEY_CURRENT_USER = HKCU
HKEY_LOCAL_MACHINE = HKLM
HKEY_CLASSES_ROOT = HKCR
HKEY_USERS = HKEY_USERS
HKEY_CURRENT_CONFIG = HKEY_CURRENT_CONFIG

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

"REG_SZ" : از نوع رشته ای می باشد .

Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\Explorer\Advanced\Folder\ShowInfoTip\He lpID", "HI", "REG_SZ""REG_BINARY" : از نوع بینری (دو دویی) می باشد .

Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\Explorer\RecentDocs\ViewStream", 12, "REG_BINARY"
"REG_DWORD" : از نوع صحیح می باشد .

Reg.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Exp lorer\Advanced\Folder\Hidden\SHOWALL\CheckedValue", 1, "REG_DWORD"
امید وارم مطالب بالا مورد قبول شما دوستان قرار گرفته باشد .

باتشکر احسان

VB.SOS

سه شنبه 26 آذر 1387, 13:09 عصر

بهترين راه براي نوشتن در ريجستري توابع Apiاست

اگه شما يه Module جامع دارين لطفا اينجا بذارين تا همه استفاده كنن.

نمونه اي كه من دارم كامله ولي چند تا خطا ميده :متفکر:

Dr.Bronx

سه شنبه 26 آذر 1387, 14:24 عصر

خوب آنتی ویروس رو چه کارش کنیم ؟؟؟
این که یکسره گیر می ده به این کد !

r0ot$harp

سه شنبه 26 آذر 1387, 14:28 عصر

اگه شما يه كتابخونه جامع دارين لطفا اينجا بذارين تا همه استفاده كنن.

نمونه اي كه من دارم كامله و چند تا خطا ميده :متفکر:

دوست عزیز من هیچ کتاب یا کتابخونه ای ندارم . اینارو با جستجو و تجربه های خودم نوشتم .

خوب آنتی ویروس رو چه کارش کنیم ؟؟؟
این که یکسره گیر می ده به این کد !

دوست عزیز من خیلی از این روش استفاده کردم تاحالا که بهم گیر نداده .

باتشکر احسان

.:KeihanCPU:.

سه شنبه 26 آذر 1387, 23:13 عصر

خوب آنتی ویروس رو چه کارش کنیم ؟؟؟

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

VB.SOS

شنبه 30 آذر 1387, 22:49 عصر

آقا احسان مثل اين كه سو تفاهم شده
منظور من از كتاب خونه يه Module كلي بود براي vb
ببخشيد منظورم رو بد گفتم

مهران رسا

یک شنبه 01 دی 1387, 14:14 عصر

خوب آنتی ویروس رو چه کارش کنیم ؟؟؟

روش های پیشنهادی در مورد دوز زدن آنتی ویروس ها (http://barnamenevis.org/forum/showthread.php?p=496815#post496815)

good_boy

یک شنبه 01 دی 1387, 18:08 عصر

http://barnamenevis.org/forum/showthread.php?t=137556

r0ot$harp

یک شنبه 01 دی 1387, 18:29 عصر

http://barnamenevis.org/forum/showthread.php?t=137556

دوست عزیز لطفا قوانین سایت را رعایت فرمایید .

این کار یعنی چی ؟ :عصبانی::عصبانی::عصبانی::عصب� �نی:

چه ربطی به این تاپیک داره ؟ :عصبانی++::عصبانی++::عصبانی::ع� �بانی::عصبانی++::عصبانی++:

باتشکر احسان