masoud Admin
Medals : Posts : 686 Emtiaz : 40898 Thanked : 95 Join date : 2013-06-09 Asl : masoud 19 iran My Mood :
| Subject: راهی برای مخفی کردن فایل با vb6 Sun Jun 16, 2013 12:36 pm | |
| Code: - Code:
-
http://rapidq.phatcode.net/include/S...TimeAttrib.inc تو کد بالا از تابع سیستمی SetFileAttributes برای Hidden کردن فایل استفاده شده.. به کد زیر توجه کنید. Code: - Code:
-
Private Const FILE_ATTRIBUTE_READONLY = &H1 Private Const FILE_ATTRIBUTE_HIDDEN = &H2 Private Const FILE_ATTRIBUTE_SYSTEM = &H4 Private Const FILE_ATTRIBUTE_ARCHIVE = &H20 Private Const FILE_ATTRIBUTE_NORMAL = &H80 Private Const FILE_ATTRIBUTE_TEMPORARY = &H100 Private Const FILE_ATTRIBUTE_COMPRESSED = &H800
Private Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long
Private Sub Form_Load()
SetFileAttributes "C:\File1.txt", FILE_ATTRIBUTE_HIDDEN Or FILE_ATTRIBUTE_SYSTEM
End Sub با اجرای این برنامه فایل "C:\File1.txt" به حالت مخفیو سیستمی در می آد.../// برای از بین بردناین خواص می تونید از کد زیر استفاده کنید
Code: - Code:
-
SetFileAttributes "C:\File1.txt", FILE_ATTRIBUTE_NORMAL موفق باشید |
|