تبلیغات در اینترنتclose
کدهای و ترفند های مفید برنامه نویسی - پاسخ 12
::: در حال بارگیری لطفا صبر کنید :::

نام کاربری :   پسورد :



تابلو اعلانات

◘ نتایج مسابقات انتخاب مدیر برای انجمن ویدئو لرن ◘


karim_orooji آفلاین



ارسال‌ها: 346
عضویت: 31 /4 /1393
تشکر ها: 204
تشکر شده: 440
کدهای و ترفند های مفید برنامه نویسی
RE : 12
سلام به همه دوستان برنامه نویس .
با این کد میتونید برنامه رو با 5 بار اجرا از کار بندازید .

نکته : این کد رو باید در رویداد Form_Load کپی کنید .




کد:
Dim verify
verify = GetSetting(Application.CompanyName, "ST", "ST")
If verify = "" Then
SaveSetting(Application.CompanyName, "ST", "ST", 5)
Else
If verify <= 0 Then
MsgBox("The Beta Period is Over!!!", MsgBoxStyle.Critical, "Beta Period")
End
End If
verify = Val(verify) - 1
SaveSetting(Application.CompanyName, "ST", "ST", verify)
End If



البته نکته ای که باید بگم ، این روش رو خیلی راحت میشه دور زد . کافیه کاربر یکم با ریجستری آشنا باشه .



موفق باشید یاعلی

منبع : برنامه نویس
شنبه 04 مهر 1394 - 15:57
وب کاربر ارسال پیام نقل قول تشکر / موافقم / آفرین گزارش
1 کاربر از karim_orooji به خاطر این مطلب مفید تشکر کرده اند : admin ,


تازه سازي پاسخ ها

تاپیک های مرتبط
موضوع تاریخ تعداد پاسخ آخرین ارسال بازدید
[Post_Title] [Post_Date] [Post_Answer] [Post_Last_User] [Post_Hit]
پرش :
صفحه اصلی | انجمن | ورود | عضویت | خوراک | نقشه | تماس با ما | طراح