ستفسـار لتعديل كود التسجيل بالهارد وير والربط بالرجيستري

[الولد الذهبي]

استفسـار لتعديل كود التسجيل بالهارد وير ؟

السلام عليكم ورحمة الله وبركاته
من خلال بحثي وجدت طريقة التسجيل عن طريق الهارد وير لاكن من خلال المشروع او الكود يظهر أول نسخة تجربية تشتغل 3 مرات بعدها يتتطلب التسجيل بواسطة كود تفعيل
ما هي الطريقة التي اقدر أن الغي ظهور العبارة تبقى مره واحد او مرتين اريد تخزين كود التفعيل في الرجيستري




alfa1 = Registry.DoesKeyExist(HKEY_LOCAL_MACHINE, "Software\\Microsoft\Windows NT\\CurrentVersion\\kvp1");
if alfa1 == true then
result = Dialog.Message("Notice", "ÈÇÞí ãÑå æÇÍÏå Úáí ÇÓÊÎÏÇã ÇáÈÑäÇãÌ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
Registry.DeleteKey(HKEY_LOCAL_MACHINE, "Software\\Microsoft\Windows NT\\CurrentVersion\\kvp1");
Registry.CreateKey(HKEY_LOCAL_MACHINE, "Software\\Microsoft\Windows NT\\CurrentVersion\\kvp2");
Page.Jump("Page2");
end
storm = Registry.DoesKeyExist(HKEY_LOCAL_MACHINE, "Software\\Microsoft\Windows NT\\CurrentVersion\\kvp2");
if storm == true then
result = Dialog.Message("Notice", "åÐå ÇÎÑ ãÑå áÇÓÊÎÏÇã ÇáÈÑäÇãÌ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
Registry.DeleteKey(HKEY_LOCAL_MACHINE, "Software\\Microsoft\Windows NT\\CurrentVersion\\kvp2");
Registry.CreateKey(HKEY_LOCAL_MACHINE, "Software\\Microsoft\Windows NT\\CurrentVersion\\kvp3");
Page.Jump("Page2");
end

dx = Registry.DoesKeyExist(HKEY_LOCAL_MACHINE, "Software\\Microsoft\Windows NT\\CurrentVersion\\kvp3");
if dx == true then
result = Dialog.Message("Notice", "ÚÝæÇ ÇäÊåÊ ÇáãÏå ÇáÊÌÑíÈíå ááÈÑäÇãÌ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

Page.Jump("Page1");

end


active = Registry.DoesKeyExist(HKEY_LOCAL_MACHINE, "Software\\Microsoft\Windows NT\\CurrentVersion\\kvp5");
if active == true then

Page.Jump("Page2");

end


Registry.CreateKey(HKEY_LOCAL_MACHINE, "Software\\Microsoft\Windows NT\\CurrentVersion\\kvp");


alfa = Registry.DoesKeyExist(HKEY_LOCAL_MACHINE, "Software\\Microsoft\Windows NT\\CurrentVersion\\kvp");

if alfa == true then
result = Dialog.Message("Notice", "ÈÇÞí ãÑÊÇä Úáí ÇÓÊÎÏÇã ÇáÈÑäÇãÌ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
Registry.DeleteKey(HKEY_LOCAL_MACHINE, "Software\\Microsoft\Windows NT\\CurrentVersion\\kvp");
Registry.CreateKey(HKEY_LOCAL_MACHINE, "Software\\Microsoft\Windows NT\\CurrentVersion\\kvp1");
Page.Jump("Page2");

end

[خادم المسلمين]

الاخ ثامر ممكن يفيدك اخى
انتظر حتى يدخل المنتدى ويجيبك

[ثامر أبو بلقيس]

السلام عليكم إخواني
أخي الذهبي لاحظ ان الكود مع احتراماتي لك فيه أخطاء من حيث الكتابة
لو تنسخه للبرنامج سيظهر ذلك .. وحتى فكرة بناء الأكواد ليست واضحة بالنسبة لمفهومي
المتواضع للبرنامج لكن سأرسم لك فكرة بسيطة و أنت بالبحث و التساؤل أكملها

سنعتمد على تشغيل البرنامج بعدد المرات بعيدا عن الايام
افتح مشروعا جديدا ضع في مجلد Docs مستند نصي و اعطيه اسم 1
واكتب بداخله رقم 2
بعدها on startup
result = TextFile.ReadToString("AutoPlay\\Docs\\1.txt");
x= result -1
TextFile.WriteFromString("AutoPlay\\Docs\\1.txt", x, false)
-----------------------
----عملية التسجيل ----
if String.ToNumber(x) < 0 then
result = Registry.DoesKeyExist(HKEY_LOCAL_MACHINE, "Software\\belkiss");
if not result then
Dialog.Message("أخي الكريم", "انتهت الفترة التجريبية");
reg = Dialog.Input("تسجيل البرنامج", "قم بادخال رقم التسجيل", "", MB_ICONQUESTION);
serial = "thameur";
if serial == reg then
Registry.SetValue(HKEY_LOCAL_MACHINE, "Software\\belkiss", "ok", reg, REG_SZ);
Dialog.Message("أخي الكريم", "مبروك عليك البرنامج");
else
Dialog.Message("أخي الكريم", "أرقام التسجيل خطأ اتصل يصاحب البرنامج");
Application.Exit();
end
end
else
Dialog.Message("", ""..x.." عدد الفترات المتبقية");
end

لاحظ سيظهر البرنامج مرتين ثم يطالبك بالتسجيل النهائي للنسخة انتهى
================================================== ==
ماذا تفعل بعدها أي عند شروعك في انجاز مشروعك الأصلي الملف النصي اجعله يقرأ و يعدل من خارج مجلد الاوتوبلاي
في أي مكان في جهاز المستخدم طبعا بعد اجراء انشائه
==================================================
رقم السريال اربطه بانجاز الأستاذ خالد و هذا سيتطلب منك دراسة ما تفضل به
================================================== ==
أخي تلك طاقتي و ارجو ان يفيدك الزملاء أكثر :abc_138:

[فرح صالحي]

السلام عليكم ورحمة الله وبركاته
التجربة كللت بالنجاح التام
بعد محاولتين طلب رقم التسجيل .
جازاك الله خيرا كثيرا
والسلام

[الولد الذهبي]

كُل الشكر من تفاعل في الموضوع
اخي العزيز ثامر يتضح ان الفكرة لم تصل إليك بالشكل الذي اريده
فقط أبحث عن طريقة تسجيل رقم التفعيل في الرجيستري من لحظة إدخال المستخدم الرقم الصحيح وتتجاهل صفحة تسجيل البرنامج والشروع لدخول صفحة البرنامج
الطريقة في موضوع استاذ خالد كُل مره يتتطلب ادخال الكود حتى يتفعل البرنامج
حاولت أستخلاص الكود للتسجيل من الكود بالاعلى لاكن لم انحج لاني في بدايتي لتعلم لغة lua

[خادم المسلمين]

سبق وان واجهتنى هذه المشكلة
وتم حلها الحمد لله

افتح الملف دة وجرب


http://www.gulfup.com/?EBnAXB
ويلزمك مراجعة هذا الموضوع الاخوة قد افاضوا فى الاجابة على استفسارات عديدة هنا
http://www.abc4web.net/vb/showthread.php?t=28537&page=3