Detected Flash disk whit Visual Basic 6.0

hai... my friend. ..!! untuk permulaan kita akan buat sebuah program sederhanna. pernahkah teman-teman semua menemukan program atau software yang teregistri dengan menggunakan dongel yang berupa chip kecil mirif flash disk. di sini kita akan belajar proses kerja dari sistem dongel tersebut. mau...kan..!!...makanya pasang telinga, pasang mata....he...dan klo ada tangan yang masih kemana-mana buruan di pasang juga yach....!!. tapi sebelum ke sistem dongel kita pelajari dulu sistem kerjanya. sistem kerjanya sama dengan program yang mendeteksi sistem drive yang berupa flash disk. nah sekarang kita pelajari dulu cara mendeteksi flash disk dulu oce....h. kita mulai aja yach..

Aplikasi yang kita gunakan untuk pembuatan ini adalah Visual Basic 6.0. Kita akan melakukan pengecekan terhadap flashdisk atau removable drive ini dengan menggunakan fungsi API ?GetDriveTypeA? dari library kernel32.dll.

- Buka lah VB 6.0 dan masukkan sebuah kontrol DriveListBox dan sebuah kontrol Command Button pada form dengan properties sebagai berikut:

Buka jendela code dengan cara klik kanan pada form -> klik View Code dan ketikkan kode berikut:
'-------------------------------------------------------------------------------------------

Private Declare Function GetDriveType& Lib "Kernel32″ Alias "GetDriveTypeA" (ByVal nDrive As String)

Private Sub Command1_Click()
Dim i As Integer
For i = 0 To Drive1.ListCount - 1
If GetDriveType(Drive1.List(i)) = 2 And Left(Drive1.List(i), 1) <> "a" Then
MsgBox "Ada Flashdisk, yaitu ?" & Drive1.List(i)
Exit For
End If
Next
End Sub

'---------------------------------------------------------------------------

Pelajaran kali ini sampai di sini dulu yach...!! nanti kita lanjutkan coz ada kelas dulu. banyak mahasiswa yang nanya nih