vb.net硬件型号 vbnet 2020

vb.net 获取局域网计算机的当前用户名和计算机型号等信息

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub GetName()

Dim sJM As String

Dim sMC As String

Dim sIP As String

Dim s As String

s = String(128, Chr(0))

GetComputerName s, Len(s)

s = UCase(Left(s, InStr(1, s, Chr(0)) - 1))

sJM = s'计算机名称

s = String(128, Chr(0))

GetUserName s, Len(s)

s = UCase(Left(s, InStr(1, s, Chr(0)) - 1))

sMC = s‘当前用户名称

End Sub

'用这种方法在远程获得再发回本机就可以吧

'取计算机型号暂时不会

VB，64位

64位Vista中可以运行32位软件。操作系统可以对其进行转换操作。当然一些特殊软件可能遇到一些兼容性问题。

VB.net是基于.net Framework运行的语言，和操作系统以及硬件平台无关，只要你的机器安装有.net Framework，不管是32位XP、32位Vista、64位Vista都可以运行VB.net写的程序。

用VB写的程序太多了，这个根本没办法列举。

VB.Net如何查看计算机硬件的详细属性(如:查看U盘的位置)?

先引用system.io

之后声明类型为 DriveInfo vb.net硬件型号的变量

声明vb.net硬件型号的对象中包含 一些方法

vb获取硬件信息的代码

tmpstr=""

set fso=createObject("scripting.filesystemObject")

Set dc = fso.Drives

for each d in dc

If d.isReady Then

    tmpstr=tmpstr "磁盘" d.DriveLetter ":" vbcrlf _

    "可用空间vb.net硬件型号：" (d.AvailableSpace/1024/1024/1024) " GB" vbcrlf _

    "空余空间vb.net硬件型号：" (d.FreeSpace/1024/1024/1024) " GB"  vbcrlf _

    "总空间大小：" (d.TotalSize/1024/1024/1024) " GB"  vbcrlf _

    "文件系统：" d.FileSystem vbcrlf _

    "驱动器类型：" d.DriveType vbcrlf _

    "是否就绪：" d.IsReady vbcrlf _

    "路径：" d.Path vbcrlf _

    "根目录：" d.RootFolder vbcrlf _

    "序列号：" d.SerialNumber vbcrlf _

    "共享名：" d.ShareName vbcrlf _

    "卷名：" d.VolumeName vbcrlf vbcrlf

 End If

Next

msgbox tmpstr

VB.Net （VB2010）怎么使用WMI来获取CPU型号？

Imports System

Imports System.Management

Module Module1

    Sub Main()

        Dim scope As New ManagementScope("\\.\root\cimv2")

        scope.Connect()

        Dim objectQuery As New ObjectQuery("SELECT * FROM Win32_Processor")

        Dim searcher As New ManagementObjectSearcher(scope, objectQuery)

        Dim cpu As ManagementObject

        For Each cpu In searcher.Get()

            Console.WriteLine("Processor: "  cpu("Name"))

            Console.WriteLine("Manufacturer: "  cpu("Manufacturer"))

            Console.WriteLine("Clock frequency: "  cpu("MaxClockSpeed")  " MHz")

            Console.WriteLine("NumberOfLogicalProcessors: "  cpu("NumberOfLogicalProcessors"))

            Console.WriteLine("NumberOfCores: "  cpu("NumberOfCores"))

            Console.WriteLine()

        Next cpu

        Console.WriteLine()

        Console.WriteLine("Press any key to quit")

        Console.ReadKey()

    End Sub

End Module

vb.net硬件型号的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbnet 2020、vb.net硬件型号的信息别忘了在本站进行查找喔。