{"id":408582,"date":"2022-04-12T15:11:57","date_gmt":"2022-04-12T07:11:57","guid":{"rendered":"https:\/\/www.idc.net\/help\/408582\/"},"modified":"2022-04-12T15:11:57","modified_gmt":"2022-04-12T07:11:57","slug":"vb-net%e8%8e%b7%e5%8f%96%e7%a1%ac%e7%9b%98%e4%bf%a1%e6%81%af%e5%9b%9b%e5%a4%a7%e6%b3%95%e5%ae%9d","status":"publish","type":"post","link":"https:\/\/idc.net\/help\/408582\/","title":{"rendered":"VB.NET\u83b7\u53d6\u786c\u76d8\u4fe1\u606f\u56db\u5927\u6cd5\u5b9d"},"content":{"rendered":"

VB.NET\u8fd8\u662f\u6bd4\u8f83\u5e38\u7528\u7684\uff0c\u4e8e\u662f\u6211\u7814\u7a76\u4e86\u4e00\u4e0bVB.NET\u83b7\u53d6\u786c\u76d8\u4fe1\u606f\uff0c\u770b\u5b8c\u672c\u6587\u4f60\u80af\u5b9a\u6709\u4e0d\u5c11\u6536\u83b7\uff0c\u5e0c\u671b\u672c\u6587\u80fd\u6559\u4f1a\u4f60\u66f4\u591a\u4e1c\u897f\u3002<\/p>\n

1\u3001VB.NET\u83b7\u53d6\u786c\u76d8\u4fe1\u606f\u4e4b\u4e00\uff1a\u7528API\u51fd\u6570GetDiskFreeSpaceEx\u83b7\u53d6\u78c1\u76d8\u7a7a\u95f4<\/p>\n

\n \n \n 
    \n  \n  \n  
  1. Private Declare Function GetDiskFreeSpaceEx Lib \"kernel32\" Alias \"GetDiskFreeSpaceExA\" _  <\/span><\/span><\/li>\n  \n  \n  
  2. (ByVal lpDirectoryName As String, ByRef lpFreeBytesAvailableToCaller As Long, _  <\/span><\/li>\n  \n  \n  
  3. ByRef lpTotalNumberOfBytes As Long, ByRef lpTotalNumberOfFreeBytes As Long) As Long  <\/span><\/li>\n  \n  \n  
  4.  <\/span><\/li>\n  \n  \n  
  5. Private Sub btnDisk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisk.Click  <\/span><\/li>\n  \n  \n  
  6. Dim BytesFreeToCalller As Long, TotalBytes As Long  <\/span><\/li>\n  \n  \n  
  7. Dim TotalFreeBytes As Long, TotalBytesUsed As Long  <\/span><\/li>\n  \n  \n  
  8. Dim strResult As String  <\/span><\/li>\n  \n  \n  
  9. Const RootPathName<\/font> = \"C:\\\"<\/font> <\/span><\/span><\/span><\/span><\/span><\/li>\n  \n  \n  
  10. Call GetDiskFreeSpaceEx(RootPathName, BytesFreeToCalller, TotalBytes, TotalFreeBytes)  <\/span><\/li>\n  \n  \n  
  11. strResult<\/font> = \" Drive \"<\/font> & \"C:\\\" & vbCrLf  <\/span><\/span><\/span><\/span><\/span><\/li>\n  \n  \n  
  12. strResult += \"\u78c1\u76d8\u5bb9\u91cf(MB):\" & Format(CDbl((TotalBytes \/ 1024) \/ 1024), \"###,###,##0.00\") & vbCrLf  <\/span><\/li>\n  \n  \n  
  13. strResult += \"\u53ef\u7528\u7a7a\u95f4(MB):\" & Format(CDbl((TotalFreeBytes \/ 1024) \/ 1024), \"###,###,##0.00\") & vbCrLf  <\/span><\/li>\n  \n  \n  
  14. strResult += \"\u5df2\u7528\u7a7a\u95f4(MB):\" & Format(CDbl(((TotalBytes - TotalFreeBytes) \/ 1024) \/ 1024), \"###,###,##0.00\") & vbCrLf  <\/span><\/li>\n  \n  \n  
  15. MsgBox(strResult)  <\/span><\/li>\n  \n  \n  
  16. End Sub <\/span><\/li>\n \n \n <\/ol><\/pre>\n
    2\u3001VB.NET\u83b7\u53d6\u786c\u76d8\u4fe1\u606f\u4e4b\u4e8c\uff1a\u7528FSO(\u6587\u4ef6\u7cfb\u7edf\u5bf9\u8c61\u6a21\u578b)\u5b9e\u73b0
    FSO\u5bf9\u8c61\u6a21\u578b\u5305\u542b\u5728SCRIPTING\u7c7b\u578b\u5e93(SCRRUN.DLL)\u4e2d\u3002\u5728\u9879\u76ee\u83dc\u5355\u4e2d\u9009\u62e9\u5f15\u7528\uff0c\u5728COM\u4e2d\u9009\u62e9Microsoft Scripting Runtime\u5728\u4ee3\u7801\u6700\u9876\u7aef\u6dfb\u52a0Imports Scripting\uff0c\u5728\u6309\u94ae\u7684\u5355\u51fb\u4e8b\u4ef6\u4e2d\u52a0\u5165\u4ee5\u4e0b\u4ee3\u7801\uff1a<\/p>\n
    \n \n \n 
      \n  \n  \n  
    1. Imports Scripting  <\/span><\/span><\/li>\n  \n  \n  
    2.  <\/span><\/li>\n  \n  \n  
    3. Private Sub btnFso_Click(ByVal sender As System.Object, 
      ByVal e As System.EventArgs) Handles btnFso.Click  <\/span><\/li>\n  \n  \n  
    4. Dim Fso As New FileSystemObject  <\/span><\/li>\n  \n  \n  
    5. Dim drvDisk As Drive, strResult As String  <\/span><\/li>\n  \n  \n  
    6. drvDisk<\/font> = Fso<\/font>.GetDrive(\"C:\\\")  <\/span><\/span><\/span><\/span><\/span><\/li>\n  \n  \n  
    7. strResult<\/font> = \"Drive \"<\/font> & \"C:\\\" & vbCrLf  <\/span><\/span><\/span><\/span><\/span><\/li>\n  \n  \n  
    8. strResult += \"\u78c1\u76d8\u5377\u6807:\" & drvDisk.VolumeName & vbCrLf  <\/span><\/li>\n  \n  \n  
    9. strResult += \"\u78c1\u76d8\u5e8f\u5217\u53f7:\" & drvDisk.SerialNumber & vbCrLf  <\/span><\/li>\n  \n  \n  
    10. strResult += \"\u78c1\u76d8\u7c7b\u578b:\" & drvDisk.DriveType & vbCrLf  <\/span><\/li>\n  \n  \n  
    11. strResult += \"\u6587\u4ef6\u7cfb\u7edf:\" & drvDisk.FileSystem & vbCrLf  <\/span><\/li>\n  \n  \n  
    12. strResult += \"\u78c1\u76d8\u5bb9\u91cf(G): \" & FormatNumber(((drvDisk.TotalSize \/ 1024) \/ 1024) \/ 1024, 2,
      Microsoft.VisualBasic.TriState.True) & vbCrLf  <\/span><\/li>\n  \n  \n  
    13. strResult += \"\u53ef\u7528\u7a7a\u95f4(G): \" & FormatNumber(((drvDisk.FreeSpace \/ 1024) \/ 1024) \/ 1024, 2,
      Microsoft.VisualBasic.TriState.True) & vbCrLf  <\/span><\/li>\n  \n  \n  
    14. strResult += \"\u5df2\u7528\u7a7a\u95f4(G):\" & FormatNumber(((((drvDisk.TotalSize - drvDisk.FreeSpace) \/ 
      1024) \/ 1024) \/ 1024), 2, , , Microsoft.VisualBasic.TriState.True)  <\/span><\/li>\n  \n  \n  
    15. MsgBox(strResult)  <\/span><\/li>\n  \n  \n  
    16. End Sub <\/span><\/li>\n \n \n <\/ol><\/pre>\n
      3\u3001VB.NET\u83b7\u53d6\u786c\u76d8\u4fe1\u606f\u4e4b\u4e09\uff1a\u7528API\u51fd\u6570GetVolumeInformation\u83b7\u53d6\u903b\u8f91\u76d8\u5e8f\u5217\u53f7<\/p>\n
      \n \n \n 
        \n  \n  \n  
      1. Private Declare Function GetVolumeInformation Lib \"kernel32\" Alias \"GetVolumeInformationA\" 
        _(ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal _nVolumeNameSize 
        As Integer, ByRef lpVolumeSerialNumber As Long, _ByVal lpMaximumComponentLength As Integer, 
        ByVal lpFileSystemFlags As Integer, ByVal _lpFileSystemNameBuffer As String, 
        ByVal nFileSystemNameSize As Integer) As Integer  <\/span><\/span><\/li>\n  \n  \n  
      2.  <\/span><\/li>\n  \n  \n  
      3. Private Sub Button2_Click(ByVal sender As System.Object, 
        ByVal e As System.EventArgs) Handles Button2.Click  <\/span><\/li>\n  \n  \n  
      4. Dim SerialNumber As Long  <\/span><\/li>\n  \n  \n  
      5. Dim TempStr1 As New String(Chr(0), 255)  <\/span><\/li>\n  \n  \n  
      6. Dim TempStr2 As New String(Chr(0), 255)  <\/span><\/li>\n  \n  \n  
      7. Dim TempInt1, TempInt2 As Integer  <\/span><\/li>\n  \n  \n  
      8. GetVolumeInformation(\"C:\\\", TempStr1, 256, SerialNumber, TempInt1, TempInt2, TempStr2, 256)  <\/span><\/li>\n  \n  \n  
      9. MsgBox(\"C\u76d8\u5e8f\u5217\u53f7:\" & SerialNumber)  <\/span><\/li>\n  \n  \n  
      10. End Sub <\/span><\/li>\n \n \n <\/ol><\/pre>\n
        4\u3001VB.NET\u83b7\u53d6\u786c\u76d8\u4fe1\u606f\u4e4b\u56db\uff1a\u5229\u7528WMI\u83b7\u53d6\u786c\u76d8\u4fe1\u606f
        Windows Management Instrumentation (WMI) \u662f\u53ef\u4f38\u7f29\u7684\u7cfb\u7edf\u7ba1\u7406\u7ed3\u6784\uff0c\u5b83\u91c7\u7528\u4e00\u4e2a\u7edf\u4e00\u7684\u3001\u57fa\u4e8e\u6807\u51c6\u7684\u3001\u53ef\u6269\u5c55\u7684\u9762\u5411\u5bf9\u8c61\u63a5\u53e3\u3002WMI \u4e3a\u60a8\u63d0\u4f9b\u4e0e\u7cfb\u7edf\u7ba1\u7406\u4fe1\u606f\u548c\u57fa\u7840 WMI API \u4ea4\u4e92\u7684\u6807\u51c6\u65b9\u6cd5\u3002WMI \u4e3b\u8981\u7531\u7cfb\u7edf\u7ba1\u7406\u5e94\u7528\u7a0b\u5e8f\u5f00\u53d1\u4eba\u5458\u548c\u7ba1\u7406\u5458\u7528\u6765\u8bbf\u95ee\u548c\u64cd\u4f5c\u7cfb\u7edf\u7ba1\u7406\u4fe1\u606f\u3002\u6211\u4eec\u9700\u8981\u4f7f\u7528.net Framwork\u91cc\u9762System.Management\u547d\u540d\u7a7a\u95f4\u4e0b\u63d0\u4f9b\u7684\u7c7b\u6765\u5b9e\u73b0\u3002<\/p>\n
        \n \n \n 
          \n  \n  \n  
        1. Private Sub Button3_Click(ByVal sender As System.Object, 
          ByVal e As System.EventArgs) Handles Button3.Click  <\/span><\/span><\/li>\n  \n  \n  
        2. Dim disk As ManagementBaseObject  <\/span><\/li>\n  \n  \n  
        3. Dim strResult As String  <\/span><\/li>\n  \n  \n  
        4. Dim diskClass<\/font> = New<\/font> ManagementClass(\"Win32_LogicalDisk\")  <\/span><\/span><\/span><\/span><\/span><\/li>\n  \n  \n  
        5. Dim disks As ManagementObjectCollection  <\/span><\/li>\n  \n  \n  
        6. disks<\/font> = diskClass<\/font>.GetInstances()  <\/span><\/span><\/span><\/span><\/span><\/li>\n  \n  \n  
        7. For Each disk In disks  <\/span><\/li>\n  \n  \n  
        8. strResult<\/font> = \"\"<\/font> <\/span><\/span><\/span><\/span><\/span><\/li>\n  \n  \n  
        9. strResult += \"\u8bbe\u5907ID:\" & disk(\"DeviceID\") & vbCrLf  <\/span><\/li>\n  \n  \n  
        10. strResult += \"\u78c1\u76d8\u540d\u79f0:\" & disk(\"Name\") & vbCrLf  <\/span><\/li>\n  \n  \n  
        11. strResult += \"\u78c1\u76d8\u5377\u6807:\" & disk(\"VolumeName\") & vbCrLf  <\/span><\/li>\n  \n  \n  
        12. If disk(\"FileSystem\") <><\/span><\/span><\/font><\/strong> \"\" Then strResult += \"\u6587\u4ef6\u7cfb\u7edf:\" & disk(\"FileSystem\") & vbCrLf  <\/span><\/span><\/li>\n  \n  \n  
        13. strResult += \"\u78c1\u76d8\u63cf\u8ff0:\" & disk(\"Description\") & vbCrLf  <\/span><\/li>\n  \n  \n  
        14. If System.Convert.ToInt64(disk(\"Size\")) ><\/font><\/strong> 0 Then  <\/span><\/span><\/span><\/li>\n  \n  \n  
        15. strResult += \"\u78c1\u76d8\u5927\u5c0f:\" & System.Convert.ToInt64(disk(\"Size\").ToString()) & vbCrLf  <\/span><\/li>\n  \n  \n  
        16. strResult += \"\u78c1\u76d8\u7c7b\u578b:\" & System.Convert.ToInt16(disk(\"DriveType\").ToString())  <\/span><\/li>\n  \n  \n  
        17. End If  <\/span><\/li>\n  \n  \n  
        18. MsgBox(strResult)  <\/span><\/li>\n  \n  \n  
        19. Next  <\/span><\/li>\n  \n  \n  
        20. End Sub <\/span><\/li>\n \n \n <\/ol><\/pre>\n
          \u603b\u7ed3\uff1a\u5728VB.NET\u4e2d\uff0c\u7528API\u51fd\u6570\u53ef\u4ee5\u83b7\u53d6\u786c\u76d8\u4fe1\u606f\u3002\u539f\u6765\u719f\u6089API\u51fd\u6570VB6\u7a0b\u5e8f\u5458\uff0c\u53ef\u4ee5\u5bf9API\u51fd\u6570\u58f0\u660e\u8fdb\u884c\u9002\u5f53\u7684\u66f4\u6539\u540e\uff0c\u8fdb\u884c\u8c03\u7528\u3002\u5229\u7528FSO\uff08\u6587\u4ef6\u7cfb\u7edf\u5bf9\u8c61\uff09\u7684Scrrun.DLL\uff0c\u4e5f\u53ef\u4ee5\u83b7\u5f97\u78c1\u76d8\u4fe1\u606f\u3002\u5728.net Framwork\u4e2d\uff0c\u5229\u7528WMI\u53ef\u4ee5\u83b7\u53d6\u66f4\u591a\u7684\u5173\u4e8e\u673a\u5668\u786c\u4ef6\u7684\u8be6\u7ec6\u4fe1\u606f\uff08\u53c2\u8003System.Management\u547d\u540d\u7a7a\u95f4\uff09\u3002<\/p>\n
          \u3010\u7f16\u8f91\u63a8\u8350\u3011<\/p>\n
            \n
          1. \u6982\u62ecVB.NET\u4f7f\u7528OracleTransaction<\/font><\/li>\n
          2. \u4e94\u5206\u949f\u4e86\u89e3VB.NET\u7c7b\u6784\u9020<\/font><\/li>\n
          3. \u8ba8\u8bba\u5947\u5999\u7684VB.NET\u5c5e\u6027<\/font><\/li>\n
          4. \u8be6\u8c08VB.NET\u7f16\u7801\u89c4\u8303\u7ecf\u9a8c<\/font><\/li>\n
          5. \u81ea\u5df1\u52a8\u624b\u5b9e\u73b0VB.NET\u63a7\u4ef6\u6570\u7ec4<\/font><\/li>\n<\/ol>\n","protected":false},"excerpt":{"rendered":"
            VB.NET\u8fd8\u662f\u6bd4\u8f83\u5e38\u7528\u7684\uff0c\u4e8e\u662f\u6211\u7814\u7a76\u4e86\u4e00\u4e0bVB.NET\u83b7\u53d6\u786c\u76d8\u4fe1\u606f\uff0c\u770b\u5b8c\u672c\u6587\u4f60\u80af\u5b9a\u6709\u4e0d\u5c11\u6536\u83b7\uff0c\u5e0c\u671b\u672c\u6587\u80fd\u6559\u4f1a […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[61],"tags":[],"class_list":["post-408582","post","type-post","status-publish","format-standard","hentry","category-website"],"_links":{"self":[{"href":"https:\/\/idc.net\/help\/wp-json\/wp\/v2\/posts\/408582","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/idc.net\/help\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/idc.net\/help\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/idc.net\/help\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/idc.net\/help\/wp-json\/wp\/v2\/comments?post=408582"}],"version-history":[{"count":0,"href":"https:\/\/idc.net\/help\/wp-json\/wp\/v2\/posts\/408582\/revisions"}],"wp:attachment":[{"href":"https:\/\/idc.net\/help\/wp-json\/wp\/v2\/media?parent=408582"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/idc.net\/help\/wp-json\/wp\/v2\/categories?post=408582"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/idc.net\/help\/wp-json\/wp\/v2\/tags?post=408582"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}