[hassan]

(25-05-14, 08:32 PM)alktab كتب :

إقتباس :مرحبتين تلاته
إلى : alktab
السلام عليكم
اخى الكريم
كيف تقوم باادراج هذه المكتبه بالظبط لانى مبتدأ
http://vb4arb.com/vb/thread-2997.html

تفضل

اخوي للاسف ما يضبط الكود

كود :

Dim regKey As String

        regKey = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\MyAppvBsQ", "TRI", Nothing)
        If (regKey Is Nothing) Then
            Dim MpTryApi As String = Now.AddSeconds(30S)
            My.Computer.Registry.SetValue("HKEY_CURRENT_USER\MyAppvBsQ", "TRI", MpTryApi)
        ElseIf regKey = Date.Now Then
            MsgBox("انتهت الفترة التجريبية للبرنامج")
            Me.Close()
        End If

لو تلاحض اني غيرات AddDays الى AddSeconds وحطيت بدال m حطيت s والكود طلع بدون اخطاء لاكن مافي مفعول وتاكدت من المكتبه ولا فاد وش الحل ضروري