درباره تريال؟

[shamsoft]

چطوری میشه کاری کرد که مثلا یه برنامه بعد از اینکه 3 بار اجرا شد دیگه اجرا نشه.

[Soheilvb]

براي اين كار بايد از رجيستري استفاده كنيد.
به اين مثال توجه كنيد ؟ اين برنامه بعد از سه بار اجرا ديگر اجرا نمي شود.

Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegSetValueExLong Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Long, ByVal cbData As Long) As Long ' Note that if you declare the lpData parameter as String, you must pass it By Value.
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegQueryValue Lib "advapi32.dll" Alias "RegQueryValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal lpValue As String, lpcbValue As Long) As Long
Private Const REG_SZ As Long = 1
Private Const REG_DWORD As Long = 4
Private Const REG_BINARY = 3 ' Free form binary
Private Const REG_EXPAND_SZ = 2 ' Unicode nul terminated string
Private Const HKEY_CLASSES_ROOT = &H80000000
Private Const HKEY_CURRENT_USER = &H80000001
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const HKEY_USERS = &H80000003
Private Const KEY_ALL_ACCESS = &H3F
Private Declare Function RegQueryValueExLong Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Long, lpcbData As Long) As Long ' Note that if you declare the lpData parameter as String, you must pass it By Value.
Private Sub Form_Load()
Dim E As Long
Dim A As Long
Dim c As Long
Dim Ltype As Long
E = RegOpenKeyEx(HKEY_CURRENT_USER, "Software\Microsoft", 0, KEY_ALL_ACCESS, A)
E = RegQueryValueExLong(A, "Soheil", 0&, Ltype, c, 4)
If E = 2 Then
RegSetValueExLong A, "Soheil", 0, REG_DWORD, 1, 4
End If
If E = 0 Then
If c = 2 Then
Unload Me
Else
c = c + 1
RegSetValueExLong A, "Soheil", 0, REG_DWORD, c, 4
End If
End If
End Sub

[mehdvirus]

در انتخاب عنوان دقت كن :x

[shamsoft]

آقا سهیل ازتون متشکرم.جوابم رو گرفتم.
آقا مهدی فکر می کنم عنوان بی ربط نبوده!!ولی بازم بیشتر دقت می کنم.

[mehdvirus]

ببينم تريال جديد يعني چي؟
طوري نوشتي انگار ميخواي يه روش جديد ياد بدي!
وقتي ميخواي يه سوال بپرسي جلوي عنوانت يه علامت سوال بزار :!:

[shamsoft]

مگه علامت سوال رو نمي بيني!! 8O