+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: سورس سوپر هیدن (/showthread.php?tid=3035)
سورس سوپر هیدن - tiktak990 - 01-29-2013
سلام دوستان
سورسی هست که بشه با ان فایل هایی که سوپر هیدن هستن را از هیدن خارج کرد.
مثلا ادرس یه درایو رو به برنامه بدیم لیستی از فایل ها رو نشون بده و روی هر ادرس هر فایل کلیک کردیم از هیدن خارج کنه یا یک جا تمام فایل های که توی یک نیوفولدر هستن رو از هیدن خارج کنه
ممنون میشم کمکم کنید
RE: سورس سوپر هیدن - Amin_Mansouri - 01-30-2013
سلام
خوبی؟
خوب سرچ کن بعد با setattr از هیدن در بیار
یک نمونه سورس کد :
Simple file extension search(www.parsicoders.com).rar (اندازه 2.44 KB / تعداد دانلود: 36)
RE: سورس سوپر هیدن - tiktak990 - 01-31-2013
دوست عزیز سرچ کردن بلدم بعد از هیدن خارج کردن رو بلد نیستم.
میخوام ادرس یه نیوفلدر رو به برنامه بدم و هرچی که توش هست رو از هیدن خارج کنه
RE: سورس سوپر هیدن - Amin_Mansouri - 01-31-2013
ببین فایل ها و پوشه ها رو لیست کن
دستور زیر هم برای پوشه جواب میده هم برای فایل :
کد:
SetAttr "C:\1", vbHiddenکد:
Attrib –h –s /d /sکد:
Attrib –h –s /d /s PARSICODERSراه روش زیاده راحت ترینش دستور بالاست
RE: سورس سوپر هیدن - tiktak99 - 02-05-2013
سلام دوست عزیز
من این سورسو نوشتم مشکلش اینه که فقط آدرس فایلو میشه تو برنامه اورد و آدرس نیوفلدر رو نمیشه اورد. باید دستی ادرس نیوفلدر رو کپی کرد میشه کمک کنید درست بشه
--------------------------------------------------------------------------------------------------------------------
و اگه میشه یه لیست باکس بهش اضافه کنید که ادرس فایل ها توش لیست بشه و با کلیک کردن روی ادرس ان را از هیدن خارج کنه
RE: سورس سوپر هیدن - Amin_Mansouri - 02-05-2013
درود
شاید سیستم بعضی از دوستان تمامی فایل ها و پوشه های سیستمشون توسط کرم مخفی شده است.
با سورس کد زیر که توسط ویژوال بیسیک 6 نوشتم میتونید به راحتی مشکلتون رو حل کنید.
سورس کد:
کد:
'CONVERT Attrib all folder or file to Normal Attrib
'Programmer : amin mansouri www.parsicoders.com
'Please Add Control Drive1 + Command1 (Button)
Private Sub Command1_Click()
Dim sFileText As String
Dim iFileNo As Integer
Dim Path As String
Path = Environ("temp") + "\parsicoders.bat"
iFileNo = FreeFile
'open the file for writing
Open Path For Output As #iFileNo
Print #iFileNo, "cd.."
Print #iFileNo, "cd.."
Print #iFileNo, Left(Drive1.Drive, 2)
Print #iFileNo, "Attrib -h -s /d /s"
'close the file (if you dont do this, you wont be able to open it again!)
Close #iFileNo
Shell Path, vbMaximizedFocus
End Sub