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

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

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

السلام عليكم ورحمة الله وبركاته
من خلال بحثي وجدت طريقة التسجيل عن طريق الهارد وير لاكن من خلال المشروع او الكود يظهر أول نسخة تجربية تشتغل 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

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

[فرح صالحي فرح صالحي]

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

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

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

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

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

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

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


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