تشخيص وجود كليد يا داده هاي رجيستري

[parselearn]

چگونه ميشه فهميد كه كليدي يا داده اي در رجيستري وجود داره

[Pr0grammer]

سلام
امیدوارم این PDF کارتون رو راه بندازه...
موفق باشید

[parselearn]

ممنونم
اينو دارم ولي مشكل من با اين حل نميشه
من مي خوام تشخيص بدم كه يك كليد يا داده در رجيستري وجود دارد يا نه
البته يك الگوريتم براش دارم اما چندان جالب نيست

[tefos666]

سلام دوست عزیز این 100% جواب میده جای دیگه رو هم الکی نگرد من خودم 2 ماه تمام دنبلش بودم و آخر سر به این نتیجه رسیدم که این بهترین روش هستش - اگر از این روش روشی بهتر باشه من بی خبرم :لبخند:

شما فقط احتیاج به فایل main دارید کد داخل اونو تو فرم اصلی کپی کن اگه احیانا جواب نداد ماژول registry رو هم به پروژت add کن ولی بعید میدونم نیاز به اون داشته باشی

CreateNewKey برای ساخت یه فولدر در رجیستری

CreateNewKey "tefos666\barnameh registry ", HKEY_CURRENT_USER

SetKeyValue برای ایجاد متغیر و مقدار دادن آن به همان آدرس که در بالا ایجاد کردید

SetKeyValue "tefos666\barnameh registry ", "test", "1", REG_SZ

در اینجا من یک متغیر با نام test و با مقدار 1 ایجاد کردم

QueryValue برای اینکه متوجه بشی چنین متغیری با مقدارش هست یا ایجاد شده


Dim saveproc As Integerh
saveproc = QueryValue("tefos666\barnameh registry ", "test")l
If saveproc = 1 Then
msgbox "the Key is available"l
یه جاهاییش رو به سلیقه خودت میتونی با دستکاری تو function ها عوض کنی مثلا من خودم این آخری رو عوض کردم که result خروجی مقدار داخلش رو هم چک کنه :اشتباه:


امیدوارم مشکلت برطرف شده باشه
سوالی بود در خدمتم - یا علی مدد
success is doing , not wishing :تشویق:

[parselearn]

سلامي مجدد
كدي كه قرار دادين رو چك كردم ولي خطا ميده ميشه پروژه اي قرار بديد



Dim saveproc As Integerh
saveproc = QueryValue("tefos666\barnameh registry ", "test")l
If saveproc = 1 Then
msgbox "the Key is available

[tefos666]

سلام - چرا که نه - اینم سورس یه پروژه :قلب:
من یه کلید به اسم test با مقدار 1 در آدرس زیر ایجاد میکنم برای امتحان سورس ابتدا دکمه query را بزن سپس دکمه add و مجددا دکمه query خودت نتیجه رو متوجه میشی میتونی اونو تو رجیستری هم قبل از اجرای برنامه و بعد از اجرا تست کنی HKEY_CURRENT_USER\test_reg\settings\validation

راستی سایت جالبی داری - موفق باشی

اگر بازم سوالی بود در خدمتم - یا علی مدد
success is doing , not wishing :متعجب:

[.:KeihanCPU:.]

این کارتو راه میندازه
20890