سلام!
خواهش مي كنم...
نكته ي اول اينه كه براي برگردوندن خواص يك فايل به حالت عادي به طور كه بشه مجددا" محتويات اون رو ويرايش كرد مي تونيد از دستور زير استفاده كنيد:
كه عبارت قرمز شده بيان گر مسير فايل مورد نظر هستش.کد:System.IO.File.SetAttributes("\Windows\System32\MyFile.dat", 128)
بنده نمي تونم بيان كنم چه راه حلي بهترينه! شما مي تونيد به محض فعال سازي برنامه، شماره سريال رو درون فايل قبلي و يا به گفته ي خودتون يك فايل جديد به صورت متني ذخيره كنيد. سپس قبل از نمايش پيغام 30 روزه مي تونيد با دستور شرطي دو مورد رو چك كنيد:
1-آيا در صورت استفاده از يه فايل جديد، اون فايل وجود داره؟
2-در صورت وجود اون فايل آيا شماره سريال موجود در فايل معتبر است؟
در صورتي كه شروط فوق برقرار مي تونيد ديگه نيازي به نمايش پيغام 30 روزه اي نيست.
براي نوشتن در يك فايل مي تونيد از دستور زير استفاده كنيد:
عبارت Serial Number مقداري است كه در فايل نوشته مي شود.کد:System.IO.File.WriteAllText("\Windows\System32\MyFile.dat","Serial Number" )
عبارت شرطي زير هم بررسي مي كنه كه آيا محتويات فايل برابر با رشته ي فرضا" Serial Number هستش يا نه؟ :
موفق باشيدکد:If System.IO.File.ReadAllText("\Windows\System32\MyFile.dat") <> "Serial Number" Then MsgBox("Invalid Serial Number") End If
آرمين
Bookmarks