چه جوری می شه فایل ها رو read only کرد ؟

سلام

باید ببخشید باز مزاحمتون شدم . :لبخند:

این سوالم هم در مورد همون آنتی ویروسی بود که گفتم دارم می نویسمش .

چی جوری می شه فایل ها رو read only کرد و یا بر عکس اون ها رو از حال read only در آورد ؟

همین امشب به این جواب احتیاج دارم (Please)

خیلی ممنون اگه کمک کنید

دوست عزیز شما میتونی از توابع API ویندوز استفاده کنی
در دلفی اینجوریه

Winexec('Attrib +r fileName',sw_hide);

Winexec('Attrib -r fileName',sw_hide);

--------------------------------------------------
خط اول read only می کنه
خط دو readonly رو بر می داره
مثال:

Winexec('Attrib +r C:\*.*',sw_hide);

بجای SW_Hide هم می تونی صفر یا یک و فکر کنم -1 می تونی بذاری
این Function از توابع API ویندوز است

که دستورات داس رو می تونی باهاش اجرا کنی
حتما تو VB هم می تونی به همین شکل استفاده کنی چون تابع عمومی ویندوز است
---------------------
خلاصه شرمنده چون من دلفی کارم اطلاعات زیادی در باره VB ندارم
امیدوارم تونسته باشم کمکی کنم
-----------------------------------------------------------------------------------------------
مهدی جعفری:چشمک:

ای ول دمت گرم فهمیدم چی شد

مرسی از لطفتون

فقط فکر کنم اون Sw_hide دستور مخصوص خوده دلفی هست که مشخص می کنه دستوری که توی داس اجرا می شه به صورت مخفی باشه که معادلش توی ویژوال بیسیک اینه
vbhide

و معادل دستور winexec - shell

در کل دستور واقعی همینه : attrib +r

خیلی ممنون

از روشهای زیر هم می تونی استفاده کنی

Private Const FILE_ATTRIBUTE_HIDDEN = &H2

Private Const FILE_ATTRIBUTE_NORMAL = &H80

Private Const FILE_ATTRIBUTE_READONLY = &H1

Private Const FILE_ATTRIBUTE_DIRECTORY = &H10

Private Const FILE_ATTRIBUTE_COMPRESSED = &H800

Private Const FILE_ATTRIBUTE_ARCHIVE = &H20

Private Const FILE_ATTRIBUTE_SYSTEM = &H4

Private Const FILE_ATTRIBUTE_TEMPORARY = &H100

Private Declare Function SetFileAttributes Lib "kernel32.dll" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long

Private Sub Command1_Click()

SetFileAttributes "c:\1.txt", FILE_ATTRIBUTE_READONLY

End Sub

Private Sub Command2_Click()

SetFileAttributes "c:\1.txt", FILE_ATTRIBUTE_NORMAL

End Sub

Private Sub Command1_Click()

SetAttr "c:\1.txt", vbReadOnly

End Sub

Private Sub Command2_Click()

SetAttr "c:\1.txt", vbNormal

End Sub

Private Sub Command1_Click()

Dim str As String

str = ("""""""" & "c:\1.txt" & """""""")

Call Shell("attrib +r " & str, vbHide)

End Sub

Private Sub Command2_Click()

Dim str As String

str = ("""""""" & "c:\1.txt" & """""""")

Call Shell("attrib -r " & str, vbHide)

End Sub

نقل قول:

---

نوشته شده توسط mehran8

ای ول دمت گرم فهمیدم چی شد

مرسی از لطفتون

فقط فکر کنم اون Sw_hide دستور مخصوص خوده دلفی هست که مشخص می کنه دستوری که توی داس اجرا می شه به صورت مخفی باشه که معادلش توی ویژوال بیسیک اینه
vbhide

و معادل دستور winexec - shell

در کل دستور واقعی همینه : attrib +r

خیلی ممنون

---

آقا خوشحال شدم مشکلت حل شد
موفق باشی

مرسی romina2006 جان .

بچه ها من یه فایل روی کامپیوترم اجرا می شه به اسمه winexec.exe
که سیستمی هم هست . به نظر شما این چیه ؟

نقل قول:

---

نوشته شده توسط mehran8

مرسی romina2006 جان .

بچه ها من یه فایل روی کامپیوترم اجرا می شه به اسمه winexec.exe
که سیستمی هم هست . به نظر شما این چیه ؟

---

ویروس.....

:متعجب: :متعجب: شما مطمئن هستید ؟
آخه این طوری که پیداست جلوش نوشته بود سیستمی .
در ضمن فقط بعضی وقت ها اجرا می شد (الآن ویندوز رو عوض کردم) نه همیشه .
؟؟؟
اگه واقعاً ویروس هست تا اسمش رو توی لیست آنتی ویروسی که دارم می نویسم اضافه کنم هان ؟

نقل قول:

---

نوشته شده توسط mehran8

:متعجب: :متعجب:
اگه واقعاً ویروس هست تا اسمش رو توی لیست آنتی ویروسی که دارم می نویسم اضافه کنم هان ؟

---

همین جوری الکی که نیست بر حسب اسم فایل اونو به لیست آنتی ویروس اضافه کنی
راه بهترش اینه که بر حسب signature فایل اون فایلو بررسی کنید که آیا امضاء اون فایل با امضائی که در بانک آنتی ویروس هست برابره یا نه
که اگه بود : اون فایل همون ویروس مورد نظره

خوب وقتی از اجرای ویندوز نباشه ...
اه پاک بشه هیچ صدمه ای به ویندوز وارد نمی کنه که /

تازه آدرس این ویروس هم در شناساییش تاثیر داره

از توابع داخلی ویژوال بیسیک هم میتونی استفاده کنی که کد کمتری احتاج داره

 

GetAttr(pathname)

SetAttr pathname, attributes

ولیو های مورد نیاز هم تو عکس های پایین هست