Printable View
به نام خدا
========
دوستان چند تا سوال داشتم در مورد VB
1) می خواستم ببینم سورسی هست که بگوید بر روی کدام درایو از سیستم ویروس Autorun وجود دارد فقط اعلام کند روی کدام درایو وجود دارد ؟؟
2) سورسی می خواستم که یک فایل متنی از ورودی بگیره و بگوید هر حرف چند در صد فایل را تشکیل داده !!!!
ممنون !!!! فوری هم هستم !!!http://ashiyane.org/forums/images/smilies/66.gif
1- تا جایی که من اطلاع دارم ویروس اتوران به درایوهای سیستم نمی افته و فقط به فلش مموری ها می افته و یه نسخه ویروس هم توی system32 یا system ذخیره میشه. ولی با تابع ()Dir می تونید وجود یک فایل رو تشخیص بدید ولی باید نوع Attribute اون فایل رو هم بدونید.
اگه منظورت نوشتن سورس برنامه هاست که اینجا جای آموزش نه پروژه نویسی دوست خوب من شما بنویس هر جا مشکلی داشتین ما هم کمکت می کنیم . نابرده رنج گنج میسر نمی شود .
جواب سوال اولیت دومی رو من زیاد بلد نیستم .
Const MAX_PATH = 260
Const MAXDWORD = &HFFFF
Const INVALID_HANDLE_VALUE = -1
Const FILE_ATTRIBUTE_ARCHIVE = &H20
Const FILE_ATTRIBUTE_DIRECTORY = &H10
Const FILE_ATTRIBUTE_HIDDEN = &H2
Const FILE_ATTRIBUTE_NORMAL = &H80
Const FILE_ATTRIBUTE_READONLY = &H1
Const FILE_ATTRIBUTE_SYSTEM = &H4
Const FILE_ATTRIBUTE_TEMPORARY = &H100
Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Private Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type
Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
Private Sub cmdSearch_Click()
If txtPas.Text <> "" Then
lstResult.Clear
FileSearch txtDrive, txtPas
End If
End Sub
Private Sub FileSearch(PathName As String, FileName As String)
Dim Rec As WIN32_FIND_DATA
Dim Path As String
Dim hResult As Long
Path = PathName
hResult = FindFirstFile(Path + FileName, Rec)
If hResult <> INVALID_HANDLE_VALUE Then
Do
lstResult.AddItem Path + Rec.cFileName
Loop Until FindNextFile(hResult, Rec) = False
FindClose (hResult)
End If
End Sub
سلام
برا اینکه بفهمید یه کاراکتر چند بار تو یه رشته تکرار شده میتونید از کد زیر استفاده کنید:
X= "sadfsffsdfretervgb efuihg ueghfdjkgneruiogef"
Tedad= len(x) - Len(Replace(X,"a",""))
در مورد سوال دومتون
اول از همه شما مشخص کنید منظورتون از هر حرف چیه؟
اگر منظورتون هر کاراکتر باشه که خیلی سادس
اما اگر فقط کاراکترهای مثلا A-Z, 0-9, آ-ی و این جور چیزا باشه باید اول کاراکتر هاتون رو مشخص کنید بعد بازم ساده هست
شما مشخص کن من بهت جوابشو میدم
دوستان توجه کنید به سوالات !!!
1) برنامه ای بنویسید که بگوید بر روی کدام درایو ویروس Autorun وجود دارد.
2)برنامه ای بنویسید که یک فایل متنی از ورودی بگیرد و بگوید هر حرف چند درصد فایل را تشکیل می دهد .
3)برنامه ای بنویسید که بزرگترین فایل روی ریشه درایو ها را پیدا کند.
حاجی این دنبال آموزش نیست شما دنبال رفع پروژه ای هستین که استاد یا معلمتون بهت داده عزیزم سعی کن خودت کار کنی و یاد بگیری
دوست عزیز شما کمک نخواستید بلکه حل تمرینهاتونو درخواست کردیدنقل قول:
نوشته شده توسط VG1234
فکر کنم امروز هم ثبتنام کردید و دلیل ثبت نامتون هم بخاطر این تمرینهایی که بهت دادن بوده
اینجا فکر نکنم کسی سورسهای که خواسید رو کامل براتون بزاره . دوستان به حد کافی کمک کردن . بقیشو خودتون زحمت بکشید انجام بدید هرجا گیر کردید یکی از دوستان کمکتون میکنه
موفق باشی
یا علی (ع)
به نام خدا
===========
دوستان درسته من جواب ها را می خواستم ببخشید
اما الان اومدم راهنمایی بگیرم ببینید توی سوال
3)برنامه ای بنویسید که بزرگترین فایل روی ریشه درایو ها را پیدا کند.
منظور از بزرگترین فایل روی ریشه درایو ها چیست ؟
منظور از ریشه درایو اصلا چیست ؟
احتمالا منظورشون اینه که حجم فایل های داخل یک درایو رو بررسی کنید، هر کدوم رو که بزرگتر بود مشخص کنه.
من فکر میکنم منظور فایلاییه که تو آدرس مثلاC:\ هستن. نه تو زیر پوشه های این درایو
دوستان مردونگی بکنند و جواب این دو سوال منو بگویند ...
1) سورسی که بزرگترین فایل روی ریشه درایو ها را پیدا کند.
2) سورسی که یک فایل متنی را از ورودی بگیرد و بگوید هر حرف چند درصد فایل را تشکیل می دهد.
معلم مون در این باره گفت که باید تعداد را بر تعدا کل تقسیم کنی ضرب در 100 کنی
ی همچین چیزایی من که متوجه نشدم .
ممنون میشم جواب بدید آخه کلا 10 تا سوال بوده همین 2 تاش مونده .
بچه ها به نظر من می تونه تو برنامه تو با Find که هر سری پیدا می کنه یه کلمه رو یه Count بزاره و بشماره بعدش اون کانت رو تقسیم بر کل کاراکتر ها * 100 کنه درسته اینطوری ؟
منظور اگه بزرگترین فایل هست که میتونی با همون سورس
Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
بگیری اندازه را و بزرگترین را بفهمی . اگه میخوای autorun رو بفهمی با check کردن درایوها بوسیله ی dir میشه راحت پاکش کرد و حتی میتونی ویروس کشش رو هم بنویسی به راحتی چون ویروس قویی نیست .
و برای فهمیدن % یک کاراکتر باید شما با len() کل رشته رو بگیری و کاراکتر رو با تقسیم یا ...... به درصد در بیاری و نشون بدی .