22-03-19, 12:33 PM
25-03-19, 12:26 PM
أعمل البرنامج كالبرامج التجريبية ليدخل سيريال نمبر معين عبر الانترنيت اذا وجد الرقم خاطئ يقفل البرنامج .
و هذا يتم إما عن طريق قاعدة بيانات في الانترنت أو عن طريق ملف تكست في الدروب بوكس .
اذا لم يدفع غير له الرقم الموجود في قاعدة البيانات أو في ملف التكست بالدروب بوكس يغلق البرنامج .
و هذا يتم إما عن طريق قاعدة بيانات في الانترنت أو عن طريق ملف تكست في الدروب بوكس .
اذا لم يدفع غير له الرقم الموجود في قاعدة البيانات أو في ملف التكست بالدروب بوكس يغلق البرنامج .
25-03-19, 12:51 PM
بعد إذنك أخي الكريم .. ممكن أخي الغالي " [b]asemshahen5 " توضيح أكثر لفكرة الدروب بوكس .. حتى أتمكن من استعمالها بالشكل الصحيح[/b]
25-03-19, 01:28 PM
نفس فكرة عمل التحديث للبرنامج و لكن ضع سيريل نمبر به عمل تحديث لمستخدمين البرنامج الخاص بك اونلاين عن طريق ال DropBox .
ضع ليبل على فورم و ضع بوتون ضع الكود التالي في البوتون :
وجربه و الباقي أكواد المقارنة .
ضع ليبل على فورم و ضع بوتون ضع الكود التالي في البوتون :
كود :
Dim web As New WebClient
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Label1.Text = web.DownloadString("https://dl.dropbox.com/s/ghkh79c8g3ql6b0/SerialNum.txt?dl=0")
End Subوجربه و الباقي أكواد المقارنة .
27-07-19, 03:05 AM
(25-03-19, 01:28 PM)asemshahen5 كتب : [ -> ]نفس فكرة عمل التحديث للبرنامج و لكن ضع سيريل نمبر به عمل تحديث لمستخدمين البرنامج الخاص بك اونلاين عن طريق ال DropBox .يمكن ان توضح الفكره اكثر من خلال عمل لها فيديو توضيحي
ضع ليبل على فورم و ضع بوتون ضع الكود التالي في البوتون :
كود :
Dim web As New WebClient
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Label1.Text = web.DownloadString("https://dl.dropbox.com/s/ghkh79c8g3ql6b0/SerialNum.txt?dl=0")
End Sub
وجربه و الباقي أكواد المقارنة .
27-07-19, 03:08 AM