[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 بس