[@@أبورائد@@]

(26-10-13, 02:55 AM)abusohayb كتب : إخوتي أنا اتفهم تخوفكم من الرد على سؤالي وأن تكونوا بذلك تعينوني على شيء غير شرعي ...
ولكن صدقا لم يعد الأمر كما تظنون ...
بل أنا أريد منكم أكثر من ذلك ...
أريد أن أتعلم كيف أجعل البرنامج لا يعمل إلا طبقا للسريال الخاص بالهارد أو الماذربورد إضافة إلى سؤالي عن كيفة إجبار أي جهاز على قراءة سريال محدد سواء للهارد أو الماذربورد على حسب تصميم البرنامج ...
مرة أخرى لم يعد الأمر يتعلق بسبب سؤالي (برنامج الكنترول الخاص بمدرستي) ...
وأنا أقسم بالله مرة أخرى أنني لن أستخدم هذه المعلومة في انتهاك حقوق المبرمج ولكني حقا شغوف بتعلم مثل هذه الفنيات البرمجية لاستخدمها في برامجي أنا ...
لكم جزيل الشكر على الحرص على عدم المخالفة والنصح في الله ...
وجزاكم الله خيرا ...

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

تفضل هذا مثال

كود :

Public Class Form1

    Dim mVolumeSerial As String = "123456789"

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If GetVolumeSerial(Application.StartupPath.Substring(0, 3)) <> mVolumeSerial Then
            MsgBox("لا يمكن تشغيل البرنامج")
        End If
    End Sub

    ' معرفة رقم القرص الصلب
#Region " GetVolumeSerial "
    ' معرفة الرقم التسلسي للهارديسك
    <Runtime.InteropServices.DllImport("kernel32.dll")> _
    Private Shared Function GetVolumeInformation(ByVal PathName As String, ByVal VolumeNameBuffer As System.Text.StringBuilder, ByVal VolumeNameSize As Int32, ByRef VolumeSerialNumber As Int32, ByRef MaximumComponentLength As Int32, ByRef FileSystemFlags As Int32, ByVal FileSystemNameBuffer As System.Text.StringBuilder, ByVal FileSystemNameSize As Int32) As Long
    End Function
    Friend Function GetVolumeSerial(ByVal Drive As String) As String
        Drive = Drive.Chars(0) & ":\"

        Dim serNum As System.Int32 = 0
        Dim maxCompLen As System.Int32 = 0
        Dim VolLabel As System.Text.StringBuilder = New System.Text.StringBuilder(256)
        Dim VolFlags As Int32 = New Int32
        Dim FSName As System.Text.StringBuilder = New System.Text.StringBuilder(256)

        GetVolumeInformation(Drive, VolLabel, CType(VolLabel.Capacity, Int32), serNum, maxCompLen, VolFlags, FSName, CType(FSName.Capacity, Int32))
        Return serNum.ToString
    End Function
#End Region

End Class

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