[Lathe1]

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

[asemshahen5]

أعمل البرنامج كالبرامج التجريبية ليدخل سيريال نمبر معين عبر الانترنيت اذا وجد الرقم خاطئ يقفل البرنامج .
و هذا يتم إما عن طريق قاعدة بيانات في الانترنت أو عن طريق ملف تكست في الدروب بوكس .
اذا لم يدفع غير له الرقم الموجود في قاعدة البيانات أو في ملف التكست بالدروب بوكس يغلق البرنامج .

[عبد العزيز البسكري]

بعد إذنك أخي الكريم .. ممكن أخي الغالي " [b]asemshahen5 " توضيح أكثر لفكرة الدروب بوكس .. حتى أتمكن من استعمالها بالشكل الصحيح[/b]

[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

وجربه و الباقي أكواد المقارنة .

[XCoder]

(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

وجربه و الباقي أكواد المقارنة .

يمكن ان توضح الفكره اكثر من خلال عمل لها فيديو توضيحي

[asemshahen5]

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