سوال: چطوری یه برنامه رو غیر فعال کنم بعد از چند بار اجرا [بایگانی]

View Full Version : سوال: چطوری یه برنامه رو غیر فعال کنم بعد از چند بار اجرا

lastmory

شنبه 06 شهریور 1389, 22:31 عصر

سلام به همه.چند وقت پیش توی یکی از همین تاپیکها یه کد پیدا کردم که یه برنامه رو بعد از چند بار اجرا غیر فعال میکرد.الان گمش کردم.لطفا کمکم کنید لطفا کمک........:ناراحت:

MehdiElexal

شنبه 06 شهریور 1389, 22:35 عصر

سلام به همه.چند وقت پیش توی یکی از همین تاپیکها یه کد پیدا کردم که یه برنامه رو بعد از چند بار اجرا غیر فعال میکرد.الان گمش کردم.لطفا کمکم کنید لطفا کمک........:ناراحت:
یه مقدار رو تو رجیستری ذخیره کن
هر بار بخونش و یکی ازش کم کن
موفق باشید

lastmory

شنبه 06 شهریور 1389, 22:47 عصر

یه مقدار رو تو رجیستری ذخیره کن
هر بار بخونش و یکی ازش کم کن
موفق باشید
پیداش کردم ...ممنونم...:بوس:

Sharif Lotfi

جمعه 12 شهریور 1389, 20:32 عصر

ممنون ميشم لينكشو اينجا بذاريد
من هم به اين مطلب نياز دارم

lastmory

جمعه 12 شهریور 1389, 20:46 عصر

ممنون ميشم لينكشو اينجا بذاريد
من هم به اين مطلب نياز دارم
سلام.
بفرما.
خودم پیداش کردم:لبخندساده:
جوینده یابنده ست :لبخند:

nasim bahari

جمعه 12 شهریور 1389, 20:53 عصر

ممنون ميشم لينكشو اينجا بذاريد
من هم به اين مطلب نياز دارم

سلام دوست عزیز در این تایپیک توی پست 222 یه نمونه برنامه واسه محدودیت اجرای برنامه گذاشتم .....می تونی Down کنی

http://www.barnamenevis.org/forum/showthread.php?t=194903&page=23

موفق باشی

Saman_12

جمعه 12 شهریور 1389, 22:14 عصر

سلام.
اینم یک راه مشابه که به جای ریجستری از فایل استفاده می کنه(توی لود) :

Dim Temp As String = FileIO.FileSystem.GetParentPath(FileIO.FileSystem. GetTempFileName)
Dim Run As Integer

If FileIO.FileSystem.FileExists(Temp & "\Tmprun.sys") = True Then
Run = FileIO.FileSystem.ReadAllText(Temp & "\Tmprun.sys")
Else
Run = 0
End If

If Run < 5 Then
FileIO.FileSystem.WriteAllText(Temp & "\Tmprun.sys", Run + 1, False)
Else
MsgBox("Not Runing Because Comlietied PERMIT", MsgBoxStyle.Exclamation) : Me.Close()
End If