Tarafımca verilmişti Burdan! By

The hmm arayıp bulamadıysan tmm

arkdaşım 2,3 kere arattım ama aramada çıkmadı.. olmadığını zannedim ondan koydum.. özür dilerim..

Sürücülerin SeriNo'sunu Bulma 'Projeye 1 modül ekleyin, formunuza 1 adet buton ekleyin 'Aşağıdaki kodları modüle kopyalayın Declare Function GetVolumeInformation Lib "kernel32. dll" Alias "GetVolumeInformationA" As Long 'Aşağıdaki kodları forma kopyalayın Function GetSerialNumber As Long Dim SerialNum As Long Dim res As Long Dim Temp1 As String Dim Temp2 As String Temp1 = String$(255, Chr$(0)) Temp2 = String$(255, Chr$(0)) res = GetVolumeInformation(strDrive, Temp1, _ Len(Temp1), SerialNum, 0, 0, Temp2, Len(Temp2)) GetSerialNumber = SerialNum End Function Private Sub Command1_Click ' Aşağıdaki yolu kendiniz belirleyin Call MsgBox(GetSerialNumber End Sub tamamı alıntıdır...

gerçekten aramıştım aradım ama çıkmadı ondan açtım... zaten ben bir konu açarken en aza 3 dk ararım warmı yokmu

Bu işlem işime çok yarıyor mesela benimde elimde harddisk'in serial numarasını gösteren küçük basit bir program var teknik serviste kasanın içini açıp bakmaktansa diye kullanıyorum belki başkalarınında işine yarar diye ekliyorum http://www.upload.gen.tr/d. php/s1/1zwlgx7e/hdd. rar.html

Güzelmiş iyi paylaşım