Bu yayında HDD serial ögrenmeyi konu yaptık.
Aşagıdaki kodu bütününu kopyalayıp code bölümüne yapıştırıyoruz.
şuan ki kodlarda messagebox da hdd yi vermektedir.
siz isterseniz değiştirip textboxa da yönlendirebilirsiniz.
Videoyu izlemenizi öneririm.
System.Managementi eklemeyi unutmayın.
video da eklemeyi göstermektedir.
eklemez iseniz hata verir.
VİDEO YU İZLEYİN.
https://www.youtube.com/watch?v=ocArUBGilPU
kaynak:visualbasicdersleri.com
Aşagıdaki kodu bütününu kopyalayıp code bölümüne yapıştırıyoruz.
şuan ki kodlarda messagebox da hdd yi vermektedir.
siz isterseniz değiştirip textboxa da yönlendirebilirsiniz.
Videoyu izlemenizi öneririm.
System.Managementi eklemeyi unutmayın.
video da eklemeyi göstermektedir.
eklemez iseniz hata verir.
Kod:
Imports System.Management
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim disk As New ManagementClass("Win32_PhysicalMedia")
For Each Hdisk As ManagementObject In disk.GetInstances()
If Hdisk("SerialNumber") <> Nothing Then
MessageBox.Show("Hdisk serino: " & CStr(Hdisk("SerialNumber")))
End If
Next Hdisk
End Sub
End ClassVİDEO YU İZLEYİN.
https://www.youtube.com/watch?v=ocArUBGilPU
kaynak:visualbasicdersleri.com