[Amin_Mansouri]

سلام
You can determine which drive letters are in use on a local computer by using the GetLogicalDriveStrings Win32 API. This list of drive letters will be the drive letters of all active drives on the local computer, including floppy drives, hard disks, mapped drives, and other drives that are mapped to a drive letter.
این سورس هم بدون نیاز به کنرل درایو لیست درایوهای موجود بر روی سیستم شما رو در یک لیست باکس جمع اوری میکند.
دانلود :

  How To Use Visual Basic to List Active Logical Drives(www.parsicoders.com).rar (اندازه 2.28 KB / تعداد دانلود: 35)

[پنام]

سلام بازهم از راهنمایی هاتون ممنون
دستت درد نکنه برنامه را گرفتم خوب کار کرد
ولی ببنید سوال و اون درگیری اصلی ذهنی من اینه که برنامه خودش تفاوت بین درایورهای خود هارد دیسک و درایور USB را بده و در واقع وقتی برنامه من اجرا شد ، اون برنامه Kill فقط برای USB کار کنند و برای درایور های خود هارد دیسک دستور Kill اجرا نشه ؟
چرا که اگه اینطوری نباشه مثلا در کامپیوتر من درایو H یک USB است ولی ممکنه در کامپیوتر شما درایو H یکی از درایورهای هارد دیسک باشه ؛ در این صورت ممکنه با اجرای برنامه من در کامپیوتر شما تمام فایلهای اجرائی درایو H هاردیسک شما پاک بشه که اگه لطف کنین برای حل این مشکل هم کمک کنین خیلی خوشحالم می کنید ؟

"همراه با تقدیم احترام"

[Amin_Mansouri]

برنامه ای که براتون نوشتم
درایوهای usb رو لیست میکنه
اگر نباشه لیس نمیکنه تازه چک میکنه دوباره اگر فلش دیسک نبود چیی پاک نکنه !

[پنام]

اگه منظور شما از برنامه همون برنامه بالای صفحه باشه بصورت rar
من امتحان کردم چیزی پاک نمی کنه ! و همچنین درایورهای خود هارد دیسک را هم لیست میکنه !
C
D
E
F
G
یا برنامه قبلی که برام نوشته بودین (روزهای اول)را هم اجرا کردم ، ظاهرا مشکلاتی داشتند .
ولی اگه واقعا براتون ممکنه که راهنماییم کنین تا دستورش را بدونم خیلی توی درک برنامه نویسیم کمک میکنه؟
همون سوال قبلی فقط ساده باشه تا برام قابل درک و فهم باشه!
یعنی برنامه تشخیص بده که درایو H مال هارد دیسک است یا مال USB ، فقط دستور زیر برای USB کار کنه ؟

Kill ("H:\A.exe")
Kill ("H:\A.com")
Kill ("H:\A.inf")
Kill ("H:\A.bat")
Kill ("H:\A.dll")
Kill ("H:\A.ocx")
Kill ("H:\A.pry")
Kill ("H:\A.ovl")
Kill ("H:\A.sys")
Kill ("I:\A.exe")
Kill ("I:\A.com")
Kill ("I:\A.inf")
Kill ("I:\A.bat")
Kill ("I:\A.dll")
Kill ("I:\A.ocx")
Kill ("I:\A.pry")
Kill ("I:\A.ovl")
Kill ("I:\A.sys")
Kill ("J:\A.exe")
Kill ("J:\A.com")
Kill ("J:\A.inf")
Kill ("J:\A.bat")
Kill ("J:\A.dll")
Kill ("J:\A.ocx")
Kill ("J:\A.pry")
Kill ("J:\A.ovl")
Kill ("J:\A.sys")
.
.
.
.

End Sub
بشرط اینکه درایور های دستورات بالا از نوع USB باشند اجرا بشن نه از نوع درایور هاردیسک ! وگرنه ممکنه است کاربر را خانه خراب کند؟؟؟!!!!!

[پنام]

این برنامه شما را وقتی من می خوام اجرا کنم یا تبدیل به exe کنم ارور می گیره !
'CODER : Www.ParsiCoders.com By Amin Mansouri

Private Declare Function GetDriveType Lib "kernel32.dll" Alias "GetDriveTypeA" _
(ByVal nDrive As String) As Long

Const DRIVE_CDROM = 5

Const DRIVE_FIXED = 3

Const DRIVE_RAMDISK = 6

Const DRIVE_REMOTE = 4

Const DRIVE_REMOVABLE = 2

Dim NameDrive As String

Public Function GetUsb() As String
Dim WMIService As Object, USBDrives As Object, USBFound As Object, USB As String, USBCount As String
Set WMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") 'Open WMIService
Set USBDrives = WMIService.ExecQuery("Select * from Win32_LogicalDisk") 'Look For Computer Drives drives
For Each USBFound In USBDrives 'Look for all our drives
If USBFound.drivetype = 2 Then 'If drivetype is USB
USB = USBFound.Name 'Set USB as New USB-name
USBCount = USBCount & " - " & USBFound.Name 'Add USB name to USB-count
End If
If USB = "" Then GoTo volgende 'If its not an USB-Drive then goto Next
volgende: 'Next
Next 'Search for more USB drives
GetUsb = USB
End Function

Public Function StripNulls(OriginalStr As String) As String
If (InStr(OriginalStr, Chr(0)) > 0) Then
OriginalStr = Left(OriginalStr, InStr(OriginalStr, Chr(0)) - 1)
End If
StripNulls = OriginalStr
End Function
Public Function DeleteFile() As String
On Error Resume Next
File1.Path = GetUsb
File1.Refresh
For i = 0 To File1.ListCount - 1
Path = StripNulls(GetUsb + File1.List(i))
SetAttr Path, vbNormal
Kill Path
Next
End Function
*******Private Sub Drive1_Change()
**********File1.Path = Drive1.Drive
End Sub

********Private Sub Form_Load()
***********File1.System = True
File1.Hidden = True
End Sub

Private Sub Timer1_Timer()
DeleteFile
End Sub

توی دستور برنامه شما اون قسمتهایی که ستاره زدم(*********) ارور می گیره و کامپایل نمی شده نه موقعی که می خوام فرم اجرا بشه و نه زمانی که می خوام تبدیل به exe کنم .

[Amin_Mansouri]

چون کنترل درایو و فایل رو بر روی فرم نزاشتید !

[پنام]

سلام بابا دلمون واستون خیلی تنگ شده بود ، خیلی ما رو بی جواب نذارین!!!!

شوخی کردم خواستم هوا عوض شه !!

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

آقا امین اصلا اینهارو بگذاریم کنار شما فقط یه لطفی کنید این قسمت را برام کمک کنید ؛ دیگه باور کنید من شرم را از سرتون کم میکنم!

من دستور فارسیش رو براتون می نویسم شما معادل وی بی را لطفاً بنویسید :
............................................................................................................

وفتی فرم اجرا شد (لود شد)
اگر درایو H از نوع USB بود، دستورات زیر اجرا شن:
Kill ("H:\A.exe")
Kill ("H:\A.com")
Kill ("H:\A.inf")
.
.
.
اگر درایو I از نوع Usb بود دستورات زیر اجرا بشن:
Kill ("I:\A.exe")
Kill ("I:\A.com")
Kill ("I:\A.inf")
.
.
.
..............................................................
من بقیه درایو هارو خودم ادامه می دم!
از اینهمه لطفیکه دارین ممنونم .
زود از حالت آنلانی در نیاین که من یک پیشنهاد خوبی برای سایتتون دارم که الان می خوام بنویسم و براتون بفرستم!!!!

[Amin_Mansouri]

سلام
این چه حرفیه ؟
من دیشب تصادف کردم یه کم حالم بد بود کلی هم پروژه دارم.
وگرنه وظیفه من اینجا کمک کردن هست
اول شما سورس قبلی یاد بگیرید و بعد میریم سراغ بعدی
:
سورس قبلی ببین اینجوری باید انجام بدی
دانلود :

  poj.rar (اندازه 1.83 KB / تعداد دانلود: 9)

[پنام]

من دیروز به چند تا از سایتهای همکار شما مثل مجید آنلاین ، برنامه نویسی و .... هم سر زدم اما یکسری ویژگیهایی را دیدم که سایت شما را نسبت به دیگر سایتها متمایز میکرد که می خواستم جهت کمک به شما و جبران گوشه ای از محبتهای شما ، اونارو عرض کنم:
1- در سایت شما خود میدر سایت با کاربران مستقیم ارتباط برقرار میکنه که این باعث میشه که کاربر احساس خوب و ارزش نهادن بهش دست بده که در دیگر سایتها اینطوری نیست یعنی فقط یک جایی است که مراجعه کننده سوالش را می نویسه و یک کاربر دیگه بهش جواب میده که ممکنه چندید روز طول بکشه !!!!
2- نحوه ثبت نام سایت شما خیلی آسونتر و بی درد سر تر از دیگر سایتهای مشابه است ! نیاز به ارسال ایمیل و لینک فعال سازی سوالات پیچیده نیست!!!!
3 - محیط و چیدمان سایت خیلی ساده و روان است و دارای پیچیدگی نمی باشد درنتیچه کاربر احساس شلوغی و سر در گمی نمیکند و در کمترین زمان و به سادگی به همه قسمتهای سایت دسترسی دارد (مانند استفاده از تجربه موفق گوگل در طراحی سایت). که در سایتهای بالا اینطور نبود !!1
4- در جعبه ارسال پیام شما استفاده از شکلکها را حذف کردین که این خیلی خوبه چون وقتی کاربر متن را می خواهد بخواند به علت حرکتهای فلش گونه شکلکها تمرکزش بهم می خورد !!!
5- ارسال سریع پاسخ از طرف یک فرد آگاه و متخصص علوم رایانه و برنامه نویسی (خود شما)یک امتیاز بزرگ است !!!!
6- طبقه بندی خوب و روان موضوعات در سایت نیز خیلی باعث بهتر شدن استفاده کاربران می شود .
7- سعی کنید از تبلیغات بصورت فلش چشمک زن در سایتتون استفاده نکنید و اگر هم میخواهید استفاده کنید تغییر متنها و تصاویرش خیلی روان و آهسته صورت گیرد تا باعث خستگی و دل زدگی کاربر نشود .

احساس کردم همانطور که شما معلومات و اطلاعاتتان را بی دریغ و صادقانه در اختیار ما قرار می دهید و هم وظیفه دانستم که منهم یک اطلاعات مهم و کاربردی برای شما بفرستم .

---

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

ایشالله شما سرباز سایبری امام زمان (عجه الله تعالی فرجه الشریف)خواهید بود.
برای سلامتی تون و بدست آوردن دوباره سلامتی تون دعا می کنم . انشالله که هرچه سریعتر بهبود یابید.
.

---

آفرین خیلی برنامه جالبی نوشتین
اینطوری کابر می تواند محتویات داخل فلش خوش را ببیند. و اگر برنامه ناخواسته ای هم باشد میتواند تشخیص دهد.
پس منظورتون از کنترل درایو ... این بود؟!!

باشه روی چشم تمرین می کنم .
ممنونم.

[Amin_Mansouri]

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