HDD Serial öğren

rapcy1 · 1 Mart 2015

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.

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 Class

VİDEO YU İZLEYİN.

https://www.youtube.com/watch?v=ocArUBGilPU

kaynak:visualbasicdersleri.com

HDD Serial öğren

rapcy1

0

Çevrimiçi üyeler

Botlar