اريد ان يكتب السريال نمبر مرة واحدة وبعدها يعمل البرنامج بدون ما يطلب السيريل

هو ايه الهدف من الكود و ايه المشكلة معاك , أحنا مش لازم نخمن فى كل مرة نشوف فيها موضوع جديد , من قواعد المشاركة توضيح الأسئلة , المهم جرب :

Dim strResult As String
strResult = InputBox("Enter your Serial number", "S/N")
If strResult = "000" Then
		MsgBox "Right"
	Else
		MsgBox "Wrong"
End If

مشكور اخي بس انا اريد من تكتب السريال مرة واحدة البرنامج في كل مرة يشتغل من دون سيريال

السلام عليكم ورحمة الله وبركاته

ممكن نعرف ايه الهدف من الكود عشان نقدر نوصلك لأفضل الحلول ؟

بالتوفيق ,,,,,

A7med_prof

وعليكم السلام

الهدف اذا كان عندك برنامج للبيع او المهم نسخة مو اصلية

فاذا اردت تشغيله يطلب سريال

بس المرة الاولى يطلب سريال واذا كتبت السريل صحيح لا يطلب السريال في المرات القادمة

وما هو الشرط الذي على اساسه التأكد من ان السيريال صحيح ام لا ؟

الموضوع موجود بالمنتدى كتير , أبحث عنه

اخي موجود بس بطرق اخرى

الشرط هو

if

else

end if

اظن لو تقرأ الكود تفهم شنو اقصد ب savesetting

اقصد بس المرة الاولى يطلب سريال واذا كتبت السريل صحيح لا يطلب السريال في المرات القادمة

الشرط مش واضح خالص؟؟

ارجو التوضيح

حيث ان الـ savesetting خاصه بحفظ القيمه في الرجستري !!!

انا عدلت اول كود اخي

و هو

Private Sub Form_Load()

If Form1.Text1.Text = "000" Then

Form1.Show

Else

Form1.Hide

End If

If Form1.Text1.Text <> "000" Then

user = _

InputBox("sirial num", "S\N")

End If

If user = "000" Then

Form1.Text1.Text = "000"

SaveSetting (Text1.Text)

Form1.Show

Else

end

End If

End Sub

بحيث اني مسوي تيكت بس خاصية visable = false

اذا كان السريال صح هو بيكتب فيها السريال عشان بعدين كل مرة تدخل على البرنامج التيكست مخفي لكن مكتوب فيه

ايوه انا واخد بالي من ده كلو بس شرط التأكد من ان السريال صحيح ايه ؟؟؟؟؟؟

انا سويت شرط التاكد من السريال بس اريد معرفة اذا كتبت السريال مرة وحدة في كل مرة تفتح البرنامج ما يطلب السريال

السلام عليكم ورحمة الله وبركاته

تفضل هذا بإفتراض ان الـسيريال نمبر = "000"

If GetSetting(App.Title, "Settings", "sn") <> "000" Then
	Dim loguser As Long
	Dim Inputx
	Inputx = InputBox("sirial num", "")
	If Inputx = "000" Then
			SaveSetting App.Title, "Settings", "sn", (Inputx)
		Form1.Show
	Else
		End
	End If
End If

بالتوفيق ,,,,,

A7med_prof

اقتراح بسيط

لماذا لا تعجل البرنامج يزرع ملف في النظام أو قيمة في الريجستري ... عندما يتم إدخال الرقم التسلسلي الصحيح ...

وعند تشغيل الجهاز .. فقط يقوم بالتأكيد من صحة القيمة .. إن صحت القيمة .. عمل البرنامج مباشرة متجاهلاً إدخال الرقم التسلسلي ...

اخي احمد مشكووور على جهودك

انا جربت الكود لكن

انا اريد كمان افهمه عشان انا في المرات الجاية ما ارجع وادور او احفظ احب افهمه

فمممكن الشرح للكود :)

مع جزيل الشكر

اخي BLACK_BOXER مشكور على جهودك انت ايضا

اخي مهند انا ما فهمت الاقتراح

لا حول ولا قوة الا بالله (انا زهقت من مواضيع الحماية دى)

المهم

احمد عزت استخد دالتين

Savesetting & GetSetting

وهما لحفظ استرجاع جملية نصية معينة

المهم فى بداية الكود

If GetSetting(App.Title, "Settings", "sn") <> "000" Then

جملة شرطية للتاكد اذا كان السيريال المحفوظ هو السيريال الصحيح اذا لم يكن كذلك ينفذ التالى

Inputx = InputBox("sirial num", "")

اظهار مربع ادخال يسال المستخدم عن السيريال نمبر

	If Inputx = "000" Then
			SaveSetting App.Title, "Settings", "sn", (Inputx)
		Form1.Show

مقارنة القيمة امدخلة بالسيريال الصحيح اذا كانت كذلك

يحفظ السيريال الصحيح ويظهر النموزج الثانى

Else
		End
	End If
End If

اما غير ذلط يلغى البرنامج

وبذلك اذا ادخل المستخدم سيريال صحيح سيتم حفظة وفى المرة التالية عند تشغيل البرنامج

يسال يستخرجه البرنامج ويفتح النموزج الثانى

لكن يبقى كود

Else form2.show

ويكون الكود كاملا

If GetSetting(App.Title, "Settings", "sn") <> "000" Then
	Dim loguser As Long
	Dim Inputx
	Inputx = InputBox("sirial num", "")
	If Inputx = "000" Then
			SaveSetting App.Title, "Settings", "sn", (Inputx)
		Form1.Show
	Else
		End
	End If

Else
		Form1.Show

End If

والسلام عليكم ورحمة الله

السلام عليكم ورحمة الله وبركاته

في بادئ الامر يتم المقارنه هل القيمة الذي يحملها الـ Key الموجود في الرجستري = "000" وذلك عن طريق الدالهGetSetting :

If GetSetting(App.Title, "Settings", "sn") <> "000" Then

فا اذا لم ..... يتم فتح الـ Inputx لأدخال الـ S.N. فاذا كان المدخل = "000" يتم حفظ القيمة في الرجستري عن طريق الدالة SaveSetting ويتم ظهور الفورم :

SaveSetting App.Title, "Settings", "sn", (Inputx)
		Form1.Show

غير ذلك يتم انهاء البرنامج

بالتوفيق ,,,,

A7med_prof