Sabit diskin seri numarasini bulan program Kod: Option Explicit Dim DiskHarfi As String Dim Diskismi As String 11 Dim DiskismiBoyu As Long Dim SeriNo As Long Dim Onemsiz1 As Long Dim Onemsiz2 As Long Dim Onemsiz3 As String Dim Onemsiz4 As Long Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal DiskHarfi As String, ByVal Diskismi As String, ByVal DiskismiBoyu As Long, SeriNo As Long, Onemsiz1 As Long, Onemsiz2 As Long, ByVal Onemsiz3 As String, ByVal Onemsiz4 As Long) As Long Sub Main MsgBox ("Harddisk C'nin" + vbCrLf + "Seri numarasi: " + SeriNumarasiÖgren + vbCrLf + "Etiketi: " + LabelÖgren End End Sub Function SeriNumarasiÖgren As String Dim Bak As Long Dim Seri As String DiskHarfi = Sürücü DiskismiBoyu = Len Bak = GetVolumeInformation(DiskHarfi, Diskismi, DiskismiBoyu, SeriNo, Onemsiz1, Onemsiz2, Onemsiz3, Onemsiz4) If Bak Then Seri = Right(String(8, "0") + Hex , 8) Seri = Left(Seri, 4) + "-" + Mid(Seri, 5) SeriNumarasiÖgren = Seri Else SeriNumarasiÖgren = "Hata" End If End Function Function LabelÖgren As String Dim Bak As Long DiskHarfi = Sürücü DiskismiBoyu = Len Bak = GetVolumeInformation(DiskHarfi, Diskismi, DiskismiBoyu, SeriNo, Onemsiz1, Onemsiz2, Onemsiz3, Onemsiz4) If Bak Then LabelÖgren = Diskismi Else LabelÖgren = "Hata var!!!" End If End Function

vbasic den bişi anlasam bissürü başlık açtın ama bişi yazamıyorum çünkü çakmıyorum

Bence Sende Başla!!