just.coder كتب :عندى حل قد ينفعك اذا كان البرنامج يعمل على جهاز فيه انترنت

الاول يكون عندك صفحة على الانترنت وتكتب فيها رقم 1 فقط

وتعمل استيراد لدول

كود :

Imports System.Net
Imports System.io

هتحط فورم هتخليه الاساسى قبل فورم البرنامج وتحط فالفورم لود الكود دا

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        On Error Resume Next
        Dim request As WebRequest = WebRequest.Create("اسم صفحتك")
        Dim dataStream As Stream()
        Dim response As WebResponse = request.GetResponse()
        dataStream = response.GetResponseStream()
        Dim reader As New StreamReader(dataStream)

        Dim responseFromServer As String = reader.ReadToEnd()
        If responseFromServer = (1) Then
            form2.show()
        Else
            MsgBox("تم الغاء تشغيل البرنامج بواسطة المبرمج", MsgBoxStyle.Critical)
            End
        End If
    End Sub

هذا حل بسيط وفعال اذا كان البرنامج يعتمد على الانترنت وتم سرقته

وبكدا حتى لو الجهاز مفهوش انترنت او المستخدم منع اتصال البرنامج ب الموقع دا الى هيفضل فاتح form 1 بس

إقتباس : dataStream = response.GetResponseStream()
Dim reader As New StreamReader(dataStream)

aftfm كتب :اخي العزيز mansourim
بالنسبة للمشاركة رقم 29 بخصوص التشفير

كنت واضع Textbox3 و Textbxo4 و TextBox1
في الاكواد
ممكن توضح بمثال
او توضح الكود

(25-10-12, 03:48 AM)aiman كتب : عذار على التأخير اخي الكريم
هذا مثال بسيط لاستخراج رقم الفلاش ميموري الاصلي ( هذا الرقم لا يتغير عند اجراء فورمات للفلاشة )

شغل المثال ثم اضغط ( استخراج رقم الفلاش ميموري ) عندها سيظهر لك الرقم الاصلي ضمن مربع نص
و الباقي عليك

ملاحظة : هذا المثال منقول

(22-10-12, 07:08 PM)shado1796 كتب :

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

اخواني انا عندي برنامج اعمل عليه 6 اشهور واحدثه ... والان اريد بيعه لكن اخاف ان ينسرق بنقله من بين المحلات  
مع اني قد وضعت رقم سري ويوزر لكن يمكن نقله واعطاء الرقم واليوزر للشخص الاخر ..
فهل من طريقه لعمله في جهاز واحد فقط ...

وشكرا ..