2019. 8. 20. 22:30

Imports System.Management

 

    Public Function hubeenGet(ByVal driveletter As String) As String
        Dim mobjSearcher As New ManagementObjectSearcher("SELECT VolumeSerialNumber FROM Win32_LogicalDisk WHERE Name = '" & driveletter & ":'")
        For Each obj As ManagementObject In mobjSearcher.Get
            Return obj("VolumeSerialNumber")
        Next
        Return -1
    End Function

 

 

MsgBox(hubeenGet("C"))

'VB.NET' 카테고리의 다른 글

VB.NET 이미지서치 ImageSearchDLL.dll  (1) 2021.03.16
VB.NET FindWindow, FindWindowEX API  (0) 2021.03.15
alert 없애기  (0) 2020.07.11
웹연동 소스  (0) 2020.07.11
유틸리티 Microsoft Spy++ V10.0 다운로드  (0) 2019.11.04
유틸리티 API뷰어(Winapi) 다운로드  (0) 2019.11.03
vb.net SendInput  (0) 2019.08.28
웹연동  (0) 2019.08.26
핸들값  (0) 2019.08.12
좌표를 합친 롱 값을 만든다.  (0) 2019.08.11
Posted by 블로그(8109)