18-03-13, 02:36 PM
عندى حل قد ينفعك اذا كان البرنامج يعمل على جهاز فيه انترنت
الاول يكون عندك صفحة على الانترنت وتكتب فيها رقم 1 فقط
وتعمل استيراد لدول
هتحط فورم هتخليه الاساسى قبل فورم البرنامج وتحط فالفورم لود الكود دا
هذا حل بسيط وفعال اذا كان البرنامج يعتمد على الانترنت وتم سرقته
وبكدا حتى لو الجهاز مفهوش انترنت او المستخدم منع اتصال البرنامج ب الموقع دا الى هيفضل فاتح form 1 بس
الاول يكون عندك صفحة على الانترنت وتكتب فيها رقم 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 بس