جواب این دوسوال را بلدید ؟

[VG1234]

به نام خدا
========
دوستان چند تا سوال داشتم در مورد VB


1) می خواستم ببینم سورسی هست که بگوید بر روی کدام درایو از سیستم ویروس Autorun وجود دارد فقط اعلام کند روی کدام درایو وجود دارد ؟؟


2) سورسی می خواستم که یک فایل متنی از ورودی بگیره و بگوید هر حرف چند در صد فایل را تشکیل داده !!!!


ممنون !!!! فوری هم هستم !!!

[SlowCode]

1- تا جایی که من اطلاع دارم ویروس اتوران به درایوهای سیستم نمی افته و فقط به فلش مموری ها می افته و یه نسخه ویروس هم توی system32 یا system ذخیره میشه. ولی با تابع ()Dir می تونید وجود یک فایل رو تشخیص بدید ولی باید نوع Attribute اون فایل رو هم بدونید.

[joker_pok]

اگه منظورت نوشتن سورس برنامه هاست که اینجا جای آموزش نه پروژه نویسی دوست خوب من شما بنویس هر جا مشکلی داشتین ما هم کمکت می کنیم . نابرده رنج گنج میسر نمی شود .

[joker_pok]

جواب سوال اولیت دومی رو من زیاد بلد نیستم .

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

[ASedJavad]

سلام
برا اینکه بفهمید یه کاراکتر چند بار تو یه رشته تکرار شده میتونید از کد زیر استفاده کنید:

X= "sadfsffsdfretervgb efuihg ueghfdjkgneruiogef"

Tedad= len(x) - Len(Replace(X,"a",""))

[Mr'Jamshidy]

در مورد سوال دومتون

اول از همه شما مشخص کنید منظورتون از هر حرف چیه؟
اگر منظورتون هر کاراکتر باشه که خیلی سادس

اما اگر فقط کاراکترهای مثلا A-Z, 0-9, آ-ی و این جور چیزا باشه باید اول کاراکتر هاتون رو مشخص کنید بعد بازم ساده هست

شما مشخص کن من بهت جوابشو میدم

[VG1234]

دوستان توجه کنید به سوالات !!!

1) برنامه ای بنویسید که بگوید بر روی کدام درایو ویروس Autorun وجود دارد.
2)برنامه ای بنویسید که یک فایل متنی از ورودی بگیرد و بگوید هر حرف چند درصد فایل را تشکیل می دهد .
3)برنامه ای بنویسید که بزرگترین فایل روی ریشه درایو ها را پیدا کند.

[joker_pok]

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

[سید حمید حق پرست]

دوستان توجه کنید به سوالات !!!

1) برنامه ای بنویسید که بگوید بر روی کدام درایو ویروس Autorun وجود دارد.
2)برنامه ای بنویسید که یک فایل متنی از ورودی بگیرد و بگوید هر حرف چند درصد فایل را تشکیل می دهد .
3)برنامه ای بنویسید که بزرگترین فایل روی ریشه درایو ها را پیدا کند.

دوست عزیز شما کمک نخواستید بلکه حل تمرینهاتونو درخواست کردید
فکر کنم امروز هم ثبتنام کردید و دلیل ثبت نامتون هم بخاطر این تمرینهایی که بهت دادن بوده
اینجا فکر نکنم کسی سورسهای که خواسید رو کامل براتون بزاره . دوستان به حد کافی کمک کردن . بقیشو خودتون زحمت بکشید انجام بدید هرجا گیر کردید یکی از دوستان کمکتون میکنه

موفق باشی


یا علی (ع)

[VG1234]

به نام خدا
===========


دوستان درسته من جواب ها را می خواستم ببخشید

اما الان اومدم راهنمایی بگیرم ببینید توی سوال

3)برنامه ای بنویسید که بزرگترین فایل روی ریشه درایو ها را پیدا کند.

منظور از بزرگترین فایل روی ریشه درایو ها چیست ؟
منظور از ریشه درایو اصلا چیست ؟

[SlowCode]

احتمالا منظورشون اینه که حجم فایل های داخل یک درایو رو بررسی کنید، هر کدوم رو که بزرگتر بود مشخص کنه.

[ASedJavad]

من فکر میکنم منظور فایلاییه که تو آدرس مثلاC:\ هستن. نه تو زیر پوشه های این درایو

[VG1234]

دوستان مردونگی بکنند و جواب این دو سوال منو بگویند ...

1) سورسی که بزرگترین فایل روی ریشه درایو ها را پیدا کند.

2) سورسی که یک فایل متنی را از ورودی بگیرد و بگوید هر حرف چند درصد فایل را تشکیل می دهد.
معلم مون در این باره گفت که باید تعداد را بر تعدا کل تقسیم کنی ضرب در 100 کنی

ی همچین چیزایی من که متوجه نشدم .

ممنون میشم جواب بدید آخه کلا 10 تا سوال بوده همین 2 تاش مونده .

[joker_pok]

بچه ها به نظر من می تونه تو برنامه تو با Find که هر سری پیدا می کنه یه کلمه رو یه Count بزاره و بشماره بعدش اون کانت رو تقسیم بر کل کاراکتر ها * 100 کنه درسته اینطوری ؟

[setroyd]

منظور اگه بزرگترین فایل هست که میتونی با همون سورس

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() کل رشته رو بگیری و کاراکتر رو با تقسیم یا ...... به درصد در بیاری و نشون بدی .