设为首页收藏本站
开启辅助访问

信息发布软件,b2b软件,广告发布软件

 找回密码
 立即注册
搜索
返回列表 发新帖
查看: 112594|回复: 31
打印 上一主题 下一主题

[『VB.NET 图文教程』] VB.NET中如何得到计算机硬件信息和实例教程

[复制链接]
信息发布软件

695

主题

779

帖子

5018

积分

积分
5018
跳转到指定楼层
宣传软件楼主
发表于 2017-2-26 17:21:27 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式

软件教程首图:

软件教程分类：VB.NET 图文教程 

软件图文教程视频教程分类：软件图文教程 

软件教程难易程度：软件初级教程 

软件教程发布日期：2017-02-26

软件教程关键字：

① 本信息收集于网络，如有不对的地方欢迎联系我纠正！
② 本信息免费收录，不存在价格的问题！
③ 如果您的网站也想这样出现在这里，请您加好友情链接，我当天会审核通过！

④友情链接关键字：软件定制网站 网址：http://www.postbbs.com

软件教程详细描述

本文汇集了在.net中得到计算机硬件信息的一些功能。

　　得到显示器分辨率

　　Dim X As Short = System.<a href="http://dev.21tx.com/os/windows/" target="_blank">Windows</a>.Forms.Screen.PrimaryScreen.Bounds.Width

　　Dim Y As Short = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height

　　MsgBox("您的显示器分辨率是：" & X & " X " & Y)

　　得到特殊文件夹的路径

　　'"Desktop"桌面文件夹路径

　　MsgBox(Environment.GetFold<a href="http://dev.21tx.com/corp/solution/erp/" target="_blank">ERP</a>ath(Environment.SpecialFolder.DesktopDirectory))

　　'"Favorites"收藏夹路径

　　MsgBox(Environment.GetFolderPath(Environment.SpecialFolder.Favorites))

　　'"Application Data"路径

　　MsgBox(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData))

　　'通用写法

　　'Dim SPEC As String = Environment.GetFolderPath(Environment.SpecialFolder.XXXXXXX)

　　'XXXXXXX是特殊文件夹的名字

　　得到操作系统版本信息

　　MsgBox(Environment.OSVersion.ToString)

　　得到当前登录的用户名

　　MsgBox(Environment.UserName)

　　得到当前应用程序的路径

　　MsgBox(Environment.CurrentDirectory)

　　打开和关闭CD-ROM

　　'先新建模块

　　Module mciAPIModule

　　Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _

　　(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _

　　ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer

　　End Module

　　'打开CD-ROM

　　Dim lRet As Long

　　lRet = mciSendString("set cdAudio door open", 0&, 0, 0)

　　'关闭CD-ROM

　　Dim lRet As Long

　　lRet = mciSendString("set cdAudio door Closed", 0&, 0, 0)

　　'更多请参见

　　http://msdn.microsoft.com/librar ... d/mmcmdstr_8eyc.asp

　　得到计算机IP和计算机全名

　　Dim MYIP As System.Net.IPHostEntry = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName)

　　MsgBox("您的IP地址：" & (MYIP.AddressList.GetValue(0).ToString))

　　MsgBox("您的计算机全名：" & (MYIP.HostName.ToString))

　　使用win32_operatingSystem (wmi Class)得到计算机信息

　　'添加ListBox在Form1_Load事件里，并引用system.Managment

　　Dim opSearch As New ManagementObjectSearcher("SELECT * FROM Win32_OperatingSystem")

　　Dim opInfo As ManagementObject

　　For Each opInfo In opSearch.Get()

　　ListBox1.Items.Add("Name: " & opInfo("name").ToString())

　　ListBox1.Items.Add("Version: " & opInfo("version").ToString())

　　ListBox1.Items.Add("Manufacturer: " & opInfo("manufacturer").ToString())

　　ListBox1.Items.Add("Computer name: " & opInfo("csname").ToString())

　　ListBox1.Items.Add("Windows Directory: " & opInfo("windowsdirectory").ToString())

　　Next

　　列出计算机安装的全部字体，并添加到ListBox

　　'新建Form并添加ListBox和Button

　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

　　Dim fntCollection As InstalledFontCollection = New InstalledFontCollection()

　　Dim fntFamily() As FontFamily

　　fntFamily = fntCollection.Families

　　ListBox1.Items.Clear()

　　Dim i As Integer = 0

　　For i = 0 To fntFamily.Length - 1

　　ListBox1.Items.Add(fntFamily(i).Name)

　　Next

　　End Sub

　　使用Win32_Processor列出处理器的信息

　　Imports System.Management

　　Public Class Form1

　　Inherits System.Windows.Forms.Form

　　#Region " Windows 窗体设计器生成的代码 "

　　Public Sub New()

　　MyBase.New()

　　'该调用是 Windows 窗体设计器所必需的。

　　InitializeComponent()

　　'在 InitializeComponent() 调用之后添加任何初始化

　　End Sub

　　'窗体重写 dispose 以清理组件列表。

　　Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

　　If disposing Then

　　If Not (components Is Nothing) Then

　　components.Dispose()

　　End If

　　End If

　　MyBase.Dispose(disposing)

　　End Sub

　　'Windows 窗体设计器所必需的

　　Private components As System.ComponentModel.IContainer

　　'注意: 以下过程是 Windows 窗体设计器所必需的

　　'可以使用 Windows 窗体设计器修改此过程。

　　'不要使用代码编辑器修改它。

　　Friend WithEvents ListBox1 As System.Windows.Forms.ListBox

　　Friend WithEvents Button1 As System.Windows.Forms.Button

　　<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

　　Me.ListBox1 = New System.Windows.Forms.ListBox

　　Me.Button1 = New System.Windows.Forms.Button

　　Me.SuspendLayout()

　　'

　　'ListBox1

　　'

　　Me.ListBox1.Location = New System.Drawing.Point(8, 8)

　　Me.ListBox1.Name = "ListBox1"

　　Me.ListBox1.Size = New System.Drawing.Size(280, 186)

　　Me.ListBox1.TabIndex = 0

　　'

　　'Button1

　　'

　　Me.Button1.Location = New System.Drawing.Point(56, 208)

　　Me.Button1.Name = "Button1"

　　Me.Button1.Size = New System.Drawing.Size(168, 32)

　　Me.Button1.TabIndex = 1

　　Me.Button1.Text = "装载计算机处理器信息"

　　'

　　'Form1

　　'

　　Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)

　　Me.ClientSize = New System.Drawing.Size(296, 254)

　　Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button1, Me.ListBox1})

　　Me.Text = "计算机处理器信息"

　　Me.ResumeLayout(False)

　　End Sub

　　#End Region

　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _

　　Handles Button1.Click

　　Dim ProcQuery As New SelectQuery("Win32_Processor")

　　Dim ProcSearch As New ManagementObjectSearcher(ProcQuery)

　　Dim ProcInfo As ManagementObject

　　For Each ProcInfo In ProcSearch.Get()

　　Call processorfamily(ProcInfo("Family").ToString)

　　ListBox1.Items.Add("Description: " & ProcInfo("Description").ToString())

　　ListBox1.Items.Add("caption: " & ProcInfo("caption").ToString())

　　ListBox1.Items.Add("Architecture: " & ProcInfo("Architecture").ToString())

　　Call processortype(ProcInfo("ProcessorType").ToString())

　　Call CpuStat(ProcInfo("CpuStatus").ToString)

　　ListBox1.Items.Add("MaxClockSpeed: " & ProcInfo("MaxClockSpeed").ToString() & "MHZ")

　　ListBox1.Items.Add("L2CacheSpeed: " & ProcInfo("L2CacheSpeed").ToString() & "MHZ")

　　ListBox1.Items.Add("ExtClock: " & ProcInfo("L2CacheSpeed").ToString() & "MHZ")

　　ListBox1.Items.Add("ProcessorId: " & ProcInfo("ProcessorId").ToString())

　　ListBox1.Items.Add("AddressWidth: " & ProcInfo("AddressWidth").ToString() & "Bits")

　　ListBox1.Items.Add("DataWidth: " & ProcInfo("DataWidth").ToString() & "Bits")

　　ListBox1.Items.Add("Version: " & ProcInfo("Version").ToString())

　　ListBox1.Items.Add("ExtClock: " & ProcInfo("ExtClock").ToString() & "MHZ")

　　Next

　　End Sub

　　Function processorfamily(ByVal procssfam)

　　Dim processtype

　　Select Case procssfam

　　Case 1

　　processtype = "Other"

　　Case 2

　　processtype = "Unknown "

　　Case 3

　　processtype = "8086 "

　　Case 4

　　processtype = "80286 "

　　Case 5

　　processtype = "80386 "

　　Case 6

　　processtype = "80486 "

　　Case 7

　　processtype = "8087 "

　　Case 8

　　processtype = "80287 "

　　Case 9

　　processtype = "80387 "

　　Case 10

　　processtype = "80487 "

　　Case 11

　　processtype = "Pentium brand "

　　Case 12

　　processtype = "Pentium Pro "

　　Case 13

　　processtype = "Pentium II "

　　Case 14

　　processtype = "Pentium processor with MMX technology "

　　Case 15

　　processtype = "Celeron "

　　Case 16

　　processtype = "Pentium II Xeon "

　　Case 17

　　processtype = "Pentium III "

　　Case 18

　　processtype = "M1 Family "

　　Case 19

　　processtype = "M2 Family "

　　Case 24

　　processtype = "K5 Family "

　　Case 25

　　processtype = "K6 Family "

　　Case 26

　　processtype = "K6-2 "

　　Case 27

　　processtype = "K6-3 "

　　Case 28

　　processtype = "AMD Athlon Processor Family "

　　Case 29

　　processtype = "AMD Duron Processor "

　　Case 30

　　processtype = "AMD2900 Family "

　　Case 31

　　processtype = "K6-2+ "

　　Case 32

　　processtype = "Power PC Family "

　　Case 33

　　processtype = "Power PC 601 "

　　Case 34

　　processtype = "Power PC 603 "

　　Case 35

　　processtype = "Power PC 603+ "

　　Case 36

　　processtype = "Power PC 604 "

　　Case 37

　　processtype = "Power PC 620 "

　　Case 38

　　processtype = "Power PC X704 "

　　Case 39

　　processtype = "Power PC 750 "

　　Case 48

　　processtype = "Alpha Family "

　　Case 49

　　processtype = "Alpha 21064 "

　　Case 50

　　processtype = "Alpha 21066 "

　　Case 51

　　processtype = "Alpha 21164 "

　　Case 52

　　processtype = "Alpha 21164PC "

　　Case 53

　　processtype = "Alpha 21164a "

　　Case 54

　　processtype = "Alpha 21264 "

　　Case 55

　　processtype = "Alpha 21364 "

　　Case 64

　　processtype = "MIPS Family "

　　Case 65

　　processtype = "MIPS R4000 "

　　Case 66

　　processtype = "MIPS R4200 "

　　Case 67

　　processtype = "MIPS R4400 "

　　Case 68

　　processtype = "MIPS R4600 "

　　Case 69

　　processtype = "MIPS R10000 "

　　Case 80

　　processtype = "SPARC Family "

　　Case 81

　　processtype = "SuperSPARC "

　　Case 82

　　processtype = "microSPARC II "

　　Case 83

　　processtype = "microSPARC IIep "

　　Case 84

　　processtype = "UltraSPARC "

　　Case 85

　　processtype = "UltraSPARC II "

　　Case 86

　　processtype = "UltraSPARC IIi "

　　Case 87

　　processtype = "UltraSPARC III "

　　Case 88

　　processtype = "UltraSPARC IIIi "

　　Case 96

　　processtype = "68040 "

　　Case 97

　　processtype = "68xxx Family "

　　Case 98

　　processtype = "68000 "

　　Case 99

　　processtype = "68010 "

　　Case 100

　　processtype = "68020 "

　　Case 101

　　processtype = "68030 "

　　Case 112

　　processtype = "Hobbit Family "

　　Case 120

　　processtype = "Crusoe TM5000 Family "

　　Case 121

　　processtype = "Crusoe TM3000 Family "

　　Case 128

　　processtype = "Weitek "

　　Case 130

　　processtype = "Itanium Processor "

　　Case 144

　　processtype = "PA-RISC Family "

　　Case 145

　　processtype = "PA-RISC 8500 "

　　Case 146

　　processtype = "PA-RISC 8000 "

　　Case 147

　　processtype = "PA-RISC 7300LC "

　　Case 148

　　processtype = "PA-RISC 7200 "

　　Case 149

　　processtype = "PA-RISC 7100LC "

　　Case 150

　　processtype = "PA-RISC 7100 "

　　Case 160

　　processtype = "V30 Family "

　　Case 176

　　processtype = "Pentium III Xeon "

　　Case 177

　　processtype = "Pentium III Processor with Intel SpeedStep Technology "

　　Case 178

　　processtype = "Pentium 4 "

　　Case 179

　　processtype = "Intel Xeon "

　　Case 180

　　processtype = "AS400 Family "

　　Case 181

　　processtype = "Intel Xeon processor MP "

　　Case 182

　　processtype = "AMD AthlonXP Family "

　　Case 183

　　processtype = "AMD AthlonMP Family "

　　Case 184

　　processtype = "Intel Itanium 2 "

　　Case 185

　　processtype = "AMD Opteron Family "

　　Case 190

　　processtype = "K7 "

　　Case 200

　　processtype = "IBM390 Family "

　　Case 201

　　processtype = "G4 "

　　Case 202

　　processtype = "G5 "

　　Case 250

　　processtype = "i860 "

　　Case 251

　　processtype = "i960 "

　　Case 260

　　processtype = "SH-3 "

　　Case 261

　　processtype = "SH-4 "

　　Case 280

　　processtype = "arm "

　　Case 281

　　processtype = "Strongarm "

　　Case 300

　　processtype = "6x86 "

　　Case 301

　　processtype = "MediaGX "

　　Case 302

　　processtype = "MII "

　　Case 320

　　processtype = "WinChip "

　　Case 350

　　processtype = "DSP "

　　Case 500

　　processtype = "Video Processor "

　　End Select

　　ListBox1.Items.Add("Family: " & processtype)

　　End Function

　　Function CpuStat(ByVal CpuStNUM)

　　Dim stat


　　Select Case CpuStNUM

　　Case 0

　　stat = "Unknown "

　　Case 1

　　stat = "CPU Enabled "

　　Case 2

　　stat = "CPU Disabled by User via BIOS Setup "

　　Case 3

　　stat = "CPU Disabled By BIOS (POST Error) "

　　Case 4

　　stat = "CPU is Idle "

　　Case 5

　　stat = "Reserved "

　　Case 6

　　stat = "Reserved "

　　Case 7

　　stat = "Other "

　　End Select

　　ListBox1.Items.Add("CpuStatus: " & stat)

　　End Function

　　Function processortype(ByVal proctypenum)

　　Dim proctype

　　Select Case proctypenum

　　Case 1

　　proctype = "Other "

　　Case 2

　　proctype = "Unknown "

　　Case 3

　　proctype = "Central Processor "

　　Case 4

　　proctype = "Math Processor "

　　Case 5

　　proctype = "DSP Processor "

　　Case 6

　　proctype = "Video Processor "

　　End Select

　　ListBox1.Items.Add("Processor Type: " & proctype)

　　End Function

　　End Class

　　得到CD-ROM信息

　　Imports System.Management

　　Public Class Form1

　　Inherits System.Windows.Forms.Form

　　#Region " Windows 窗体设计器生成的代码 "

　　Public Sub New()

　　MyBase.New()

　　'该调用是 Windows 窗体设计器所必需的。

　　InitializeComponent()

　　'在 InitializeComponent() 调用之后添加任何初始化

　　End Sub

　　'窗体重写 dispose 以清理组件列表。

　　Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

　　If disposing Then

　　If Not (components Is Nothing) Then

　　components.Dispose()

　　End If

　　End If

　　MyBase.Dispose(disposing)

　　End Sub

　　'Windows 窗体设计器所必需的

　　'注意: 以下过程是 Windows 窗体设计器所必需的

　　'可以使用 Windows 窗体设计器修改此过程。

　　'不要使用代码编辑器修改它。

　　Private components As System.ComponentModel.IContainer

　　Friend WithEvents ListBox1 As System.Windows.Forms.ListBox

　　<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

　　Me.ListBox1 = New System.Windows.Forms.ListBox

　　Me.SuspendLayout()

　　'

　　'ListBox1

　　'

　　Me.ListBox1.Location = New System.Drawing.Point(24, 16)

　　Me.ListBox1.Name = "ListBox1"

　　Me.ListBox1.Size = New System.Drawing.Size(416, 173)

　　Me.ListBox1.TabIndex = 0

　　'

　　'Form1

　　'

　　Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)

　　Me.ClientSize = New System.Drawing.Size(456, 206)

　　Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.ListBox1})

　　Me.Name = "Form1"

　　Me.Text = "Form1"

　　Me.ResumeLayout(False)

　　End Sub

　　#End Region

　　Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _

　　Handles MyBase.Load

　　On Error Resume Next

　　Dim SoundDeviceQuery As New SelectQuery("Win32_CDROMDrive")

　　Dim SoundDeviceSearch As New ManagementObjectSearcher(SoundDeviceQuery)

　　Dim SoundDeviceInfo As ManagementObject

　　For Each SoundDeviceInfo In SoundDeviceSearch.Get()

　　Dim SizeInMBs As Long = (Val(SoundDeviceInfo("Size").ToString()))

　　SizeInMBs = Int((SizeInMBs / (1024 * 1024)))

　　ListBox1.Items.Add("CD-Rom Description: " & SoundDeviceInfo("caption").ToString())

　　ListBox1.Items.Add("CD-Rom Manufacturer: " & SoundDeviceInfo("Manufacturer").ToString())

　　ListBox1.Items.Add("CD-Rom Drive: " & SoundDeviceInfo("drive").ToString())

　　ListBox1.Items.Add("CD-Rom Media Loaded: " & SoundDeviceInfo("MediaLoaded").ToString())

　　ListBox1.Items.Add("CD-Rom Media Type: " & SoundDeviceInfo("MediaType").ToString())

　　ListBox1.Items.Add("CD-Rom Volume Name: " & SoundDeviceInfo("VolumeName").ToString())

　　ListBox1.Items.Add("CD-Rom Size: " & SizeInMBs & " MBytes")

　　ListBox1.Items.Add("CD-Rom Status: " & SoundDeviceInfo("Status").ToString())

　　ListBox1.Items.Add("CD-Rom MaxMediaSize: " & SoundDeviceInfo("MaxMediaSize").ToString())

　　ListBox1.Items.Add("CD-Rom Id: " & SoundDeviceInfo("Id").ToString())

　　ListBox1.Items.Add("CD-Rom TransferRate: "+Int(SoundDeviceInfo("TransferRate").ToString())+" KBs/秒")

　　Next

　　End Sub

　　End Class

　　得到硬盘信息

　　Imports System.Management

　　Public Class Form1

　　Inherits System.Windows.Forms.Form

　　#Region " Windows Form Designer generated code "

　　Public Sub New()

　　MyBase.New()

　　InitializeComponent()

　　End Sub

　　Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

　　If disposing Then

　　If Not (components Is Nothing) Then

　　components.Dispose()

　　End If

　　End If

　　MyBase.Dispose(disposing)

　　End Sub

　　Private components As System.ComponentModel.IContainer

　　Friend WithEvents ListBox1 As System.Windows.Forms.ListBox

　　<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

　　Me.ListBox1 = New System.Windows.Forms.ListBox

　　Me.SuspendLayout()

　　'

　　'ListBox1

　　'

　　Me.ListBox1.Location = New System.Drawing.Point(8, 8)

　　Me.ListBox1.Name = "ListBox1"

　　Me.ListBox1.Size = New System.Drawing.Size(272, 212)

　　Me.ListBox1.TabIndex = 0

　　'

　　'Form1

　　'

　　Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)

　　Me.ClientSize = New System.Drawing.Size(292, 238)

　　Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.ListBox1})

　　Me.Name = "Form1"

　　Me.Text = "Form1"

　　Me.ResumeLayout(False)

　　End Sub

　　#End Region

　　Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

　　On Error Resume Next

　　Dim HDDDeviceQuery As New SelectQuery("Win32_DiskDrive")

　　Dim HDDDeviceSearch As New ManagementObjectSearcher(HDDDeviceQuery)

　　Dim HDDDeviceInfo As ManagementObject

　　For Each HDDDeviceInfo In HDDDeviceSearch.Get()

　　ListBox1.Items.Add("HDD Description: " & HDDDeviceInfo("caption").ToString())

　　ListBox1.Items.Add("HDD BytesPerSector: " & HDDDeviceInfo("BytesPerSector").ToString())

　　ListBox1.Items.Add("HDD CompressionMethod: " & HDDDeviceInfo("CompressionMethod").ToString())

　　ListBox1.Items.Add("HDD Index: " & HDDDeviceInfo("Index").ToString())

　　ListBox1.Items.Add("HDD InstallDate: " & HDDDeviceInfo("InstallDate").ToString())

　　ListBox1.Items.Add("HDD Manufacturer: " & HDDDeviceInfo("Manufacturer").ToString())

　　ListBox1.Items.Add("HDD Partitions: " & HDDDeviceInfo("Partitions").ToString())

　　ListBox1.Items.Add("HDD Size: " & Int(Val(HDDDeviceInfo("Size").ToString()) / 2 ^ 30) & "  GBytes")

　　ListBox1.Items.Add("HDD TotalCylinders: " & HDDDeviceInfo("TotalCylinders").ToString())

　　ListBox1.Items.Add("HDD TotalSectors: " & HDDDeviceInfo("TotalSectors").ToString())

　　ListBox1.Items.Add("HDD TracksPerCylinder: " & HDDDeviceInfo("TracksPerCylinder").ToString())

　　ListBox1.Items.Add("HDD TotalHeads: " & HDDDeviceInfo("TotalHeads").ToString())

　　ListBox1.Items.Add("HDD TotalTracks: " & HDDDeviceInfo("TotalTracks").ToString())

　　ListBox1.Items.Add("HDD SectorsPerTrack: " & HDDDeviceInfo("SectorsPerTrack").ToString())

　　ListBox1.Items.Add("HDD SCSILogicalUnit: " & HDDDeviceInfo("SCSILogicalUnit").ToString())

　　Next

　　End Sub

　　End Class

　　得到声卡信息

　　Imports System.Management

　　Public Class Form1

　　Inherits System.Windows.Forms.Form

　　#Region " Windows Form Designer generated code "

　　Public Sub New()

　　MyBase.New()

　　InitializeComponent()

　　End Sub

　　Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

　　If disposing Then

　　If Not (components Is Nothing) Then

　　components.Dispose()

　　End If

　　End If

　　MyBase.Dispose(disposing)

　　End Sub

　　Private components As System.ComponentModel.IContainer

　　Friend WithEvents ListBox1 As System.Windows.Forms.ListBox

　　<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

　　Me.ListBox1 = New System.Windows.Forms.ListBox

　　Me.SuspendLayout()

　　'

　　'ListBox1

　　'

　　Me.ListBox1.Location = New System.Drawing.Point(8, 8)

　　Me.ListBox1.Name = "ListBox1"

　　Me.ListBox1.Size = New System.Drawing.Size(272, 212)

　　Me.ListBox1.TabIndex = 0

　　'

　　'Form1

　　'

　　Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)

　　Me.ClientSize = New System.Drawing.Size(292, 238)

　　Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.ListBox1})

　　Me.Name = "Form1"

　　Me.Text = "Form1"

　　Me.ResumeLayout(False)

　　End Sub

　　#End Region

　　Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

　　Dim SoundDeviceQuery As New SelectQuery("Win32_SoundDevice")

　　Dim SoundDeviceSearch As New ManagementObjectSearcher(SoundDeviceQuery)

　　Dim SoundDeviceInfo As ManagementObject

　　For Each SoundDeviceInfo In SoundDeviceSearch.Get()

　　ListBox1.Items.Add("Sound Device Description: " & SoundDeviceInfo("Caption").ToString())

　　ListBox1.Items.Add("Sound Device Status: " & SoundDeviceInfo("status").ToString())

　　ListBox1.Items.Add("Sound Device Manufacturer: " & SoundDeviceInfo("Manufacturer").ToString())

　　Next

　　End Sub

　　End Class



楼主新帖
楼主热帖
unto环保114网站软件群发信息发布软件自动挂机发帖脚本nextVB.net中怎么访问存储过程和实例教程
回复

使用道具 举报

信息发布软件

695

主题

779

帖子

5018

积分

积分
5018
信息发布软件沙发
 楼主| 发表于 2017-2-26 17:23:02 | 只看该作者
  1. 在项目开发过程中，经常会需要读取所在计算机的硬件信息，包括CPU的序列号，主板的序列号，硬盘的序列号，MAC地址，IP地址，用户名，系统类型，计算机名称，操作系统类型，物理内存大小，BIOS内容等。
  2. 开发环境：VS2005   .NET2.0
  3. 项目工程文件：Computer.zip  
  4. /*****************************************************************/
  5. /* 作者：虞晓杰
  6. * Emial：fishyxj@sina.com
  7. * 2011.9.26
  8. * 功能：用于获取计算机的各种信息，包括CPU的ID，MAC地址，硬盘ID，
  9. * IP地址登录用户名，计算机名称，系统类型，物理内存，主板的ID，
  10. * BIOS的ID
  11. *
  12. * 缺陷：当计算机存在虚拟网卡时，无法区分虚拟网卡与真实网卡，因此
  13. * 读取MAC地址时，会存在不稳定的情况。需要自行处理虚拟网卡MAC的情
  14. * 况
  15. /*****************************************************************/
  16. using System;
  17. using System.Collections.Generic;
  18. using System.Text;
  19. using System.Management;
  20. using System.Collections;
  21. using System.Net.NetworkInformation;
  22. using Microsoft.Win32;
  23. namespace XFish.Utils
  24. {
  25.     /// <summary>
  26.     /// 计算机信息类
  27.     /// </summary>
  28.     public class Computer
  29.     {
  30.         #region 类内部变量
  31.         private string _CpuID;
  32.         private string _MacAddress;
  33.         private ArrayList _MacAddList;
  34.         private string _DiskID;
  35.         private string _IpAddress;
  36.         private string _LoginUserName;
  37.         private string _ComputerName;
  38.         private string _SystemType;
  39.         private string _TotalPhysicalMemory; //单位：M   
  40.         private string _BaseboardID;
  41.         private string _BiosID;
  42.         private static Computer _instance;
  43.         #endregion
  44.         #region 类属性
  45.         /// <summary>
  46.         /// 获取计算机信息全局实例
  47.         /// </summary>
  48.         /// <returns>Computer实例</returns>
  49.         public static Computer Instance()
  50.         {
  51.             if (_instance == null)
  52.                 _instance = new Computer();
  53.             return _instance;
  54.         }
  55.         /// <summary>
  56.         /// 获取CPU的ID
  57.         /// </summary>
  58.         public string CpuID
  59.         {
  60.             get { return _CpuID; }
  61.         }
  62.         /// <summary>
  63.         /// 获取MAC地址
  64.         /// </summary>
  65.         public string MacAddress
  66.         {
  67.             get { return _MacAddress; }
  68.         }
  69.         /// <summary>
  70.         /// 获取计算机中的MAC地址列表，当存在多个网卡时（包括虚拟网卡）
  71.         /// </summary>
  72.         public ArrayList MacAddList
  73.         {
  74.             get { return _MacAddList; }
  75.         }
  76.         /// <summary>
  77.         /// 获取硬盘ID
  78.         /// </summary>
  79.         public string DiskID
  80.         {
  81.             get { return _DiskID; }
  82.         }
  83.         /// <summary>
  84.         /// 获取IP地址（活跃的网卡）
  85.         /// </summary>
  86.         public string IpAddress
  87.         {
  88.             get { return _IpAddress; }
  89.         }
  90.         /// <summary>
  91.         /// 系统登录用户名
  92.         /// </summary>
  93.         public string LoginUserName
  94.         {
  95.             get { return _LoginUserName; }
  96.         }
  97.         /// <summary>
  98.         /// 计算机名称
  99.         /// </summary>
  100.         public string ComputerName
  101.         {
  102.             get { return _ComputerName; }
  103.         }
  104.         /// <summary>
  105.         /// 操作系统类型
  106.         /// </summary>
  107.         public string SystemType
  108.         {
  109.             get { return _SystemType; }
  110.         }
  111.         /// <summary>
  112.         /// 总的物理内存
  113.         /// </summary>
  114.         public string TotalPhysicalMemory
  115.         {
  116.             get { return _TotalPhysicalMemory; }
  117.         }
  118.         /// <summary>
  119.         /// 主板ID
  120.         /// </summary>
  121.         public string BaseboardID
  122.         {
  123.             get { return _BaseboardID; }
  124.         }
  125.         /// <summary>
  126.         /// BIOS的ID
  127.         /// </summary>
  128.         public string BiosID
  129.         {
  130.             get { return _BiosID; }
  131.         }
  132.         #endregion
  133.         #region 类初始化
  134.         public Computer()
  135.         {
  136.             _CpuID = GetCpuID();
  137.             _MacAddress = GetMacAddress();
  138.             _MacAddList = GetMacAddList();
  139.             _DiskID = GetDiskID();
  140.             _IpAddress = GetIPAddress();
  141.             _LoginUserName = GetUserName();
  142.             _SystemType = GetSystemType();
  143.             _TotalPhysicalMemory = GetTotalPhysicalMemory();
  144.             _ComputerName = GetComputerName();
  145.             _BaseboardID = GetBaseBoardID();
  146.             _BiosID = GetBiosID();
  147.         }
  148.         #endregion
  149.         #region 类方法
  150.         /// <summary>
  151.         /// 获取BIOS序列号
  152.         /// </summary>
  153.         /// <returns></returns>
  154.         private string GetBiosID()
  155.         {
  156.            
  157.             try
  158.             {
  159.                 //方法一
  160.                 //SelectQuery Query = new SelectQuery("SELECT * FROM Win32_BaseBoard");
  161.                 //ManagementObjectSearcher driveID = new ManagementObjectSearcher(Query);
  162.                 //ManagementObjectCollection.ManagementObjectEnumerator data = driveID.Get().GetEnumerator();
  163.                 //data.MoveNext();
  164.                 //ManagementBaseObject board = data.Current;
  165.                 //return board.GetPropertyValue("SerialNumber").ToString();

  167.                 //方法二
  168.                 System.Management.ManagementObjectSearcher cmicWmi = new ManagementObjectSearcher("SELECT   *   FROM   Win32_BIOS");
  169.                 string biosid = string.Empty;
  170.                 ManagementObjectCollection moc = cmicWmi.Get();
  171.                 foreach (ManagementObject cmicWmiObj in moc)
  172.                 {
  173.                     biosid = cmicWmiObj["SerialNumber"].ToString();
  174.                 }
  175.                 return biosid;
  176.                 //System.Management.ManagementObjectSearcher cmicWmi = new ManagementObjectSearcher("SELECT   *   FROM   Win32_BIOS");
  177.                 //string biosid = string.Empty;
  178.                 //ManagementObjectCollection moc = cmicWmi.Get();
  179.                 //foreach (ManagementObject cmicWmiObj in moc)
  180.                 //{
  181.                 //    biosid += GetAllInfo(cmicWmiObj);
  182.                 //}
  183.                 //return biosid;
  184.             }
  185.             catch(Exception ex)
  186.             {
  187.                 //throw new Exception("unknow:"+ex.Message);
  188.                 return "unknow";
  189.             }
  190.             finally
  191.             {
  192.             }
  193.         }
  194.         /// <summary>
  195.         /// 获取CPU序列号
  196.         /// </summary>
  197.         /// <returns></returns>
  198.         private string GetCpuID()
  199.         {
  200.             try
  201.             {
  202.                 //获取CPU序列号代码   
  203.                 string cpuInfo = "";//cpu序列号   
  204.                 ManagementClass mc = new ManagementClass("Win32_Processor");
  205.                 ManagementObjectCollection moc = mc.GetInstances();
  206.                 foreach (ManagementObject mo in moc)
  207.                 {
  208.                     cpuInfo = mo.Properties["ProcessorId"].Value.ToString();
  209.                 }
  210.                 moc = null;
  211.                 mc = null;
  212.                 return cpuInfo;
  213.                 //string cpuInfo = "";//cpu序列号   
  214.                 //ManagementClass mc = new ManagementClass("Win32_Processor");
  215.                 //ManagementObjectCollection moc = mc.GetInstances();
  216.                 //foreach (ManagementObject mo in moc)
  217.                 //{
  218.                 //    cpuInfo += GetAllInfo(mo);
  219.                 //}
  220.                 //moc = null;
  221.                 //mc = null;
  222.                 //return cpuInfo;
  223.             }
  224.             catch (Exception ex)
  225.             {
  226.                 return "unknow";
  227.             }
  228.             finally
  229.             {
  230.             }
  231.         }
  232.         /// <summary>
  233.         /// 获取MAC地址列表
  234.         /// </summary>
  235.         /// <returns></returns>
  236.         private ArrayList GetMacAddList()
  237.         {
  238.             try
  239.             {
  240.                 ArrayList maclist = new ArrayList();
  241.                 ArrayList warelessMacList = new ArrayList();
  242.                 NetworkInterface[] fNetworkInterfaces = NetworkInterface.GetAllNetworkInterfaces();
  243.                 foreach (NetworkInterface adapter in fNetworkInterfaces)
  244.                 {
  245.                     string fRegistryKey = "SYSTEM\\CurrentControlSet\\Control\\Network\\{4D36E972-E325-11CE-BFC1-08002BE10318}\\" + adapter.Id + "\\Connection";
  246.                     RegistryKey rk = Registry.LocalMachine.OpenSubKey(fRegistryKey, false);
  247.                     if (rk != null)
  248.                     {
  249.                         // 区分 PnpInstanceID   
  250.                         // 如果前面有 PCI 就是本机的真实网卡   
  251.                         // MediaSubType 为 01 则是常见网卡，02为无线网卡。   
  252.                         string fPnpInstanceID = rk.GetValue("PnpInstanceID", "").ToString();
  253.                         int fMediaSubType = Convert.ToInt32(rk.GetValue("MediaSubType", 0));
  254.                         if (fPnpInstanceID.Length > 3 &&
  255.                         fPnpInstanceID.Substring(0, 3) == "PCI")
  256.                         {
  257.                             string mac = adapter.GetPhysicalAddress().ToString();
  258.                             mac = GetMacStr(mac);
  259.                             maclist.Add(mac);
  260.                         }
  261.                         else if (fMediaSubType == 1)
  262.                             continue;
  263.                         else if (fMediaSubType == 2)
  264.                         {
  265.                             string mac = adapter.GetPhysicalAddress().ToString();
  266.                             mac = GetMacStr(mac);
  267.                             warelessMacList.Add(mac);
  268.                         }
  269.                     }
  270.                 }
  271.                 maclist.AddRange(warelessMacList);
  272.                 return maclist;
  273.             }
  274.             catch
  275.             {
  276.                 try
  277.                 {
  278.                     ArrayList maclist = new ArrayList();
  279.                     ManagementClass mc = new ManagementClass("Win32_NetworkAdapterConfiguration");
  280.                     ManagementObjectCollection moc = mc.GetInstances();
  281.                     foreach (ManagementObject mo in moc)
  282.                     {
  283.                         if (mo["MacAddress"] != null)
  284.                         {
  285.                             string mac = mo["MacAddress"].ToString();
  286.                             maclist.Add(mac);
  287.                         }
  288.                     }
  289.                     moc = null;
  290.                     mc = null;
  291.                     return maclist;
  292.                 }
  293.                 catch
  294.                 {
  295.                     return null;
  296.                 }
  297.             }
  298.         }
  299.         /// <summary>
  300.         /// 获取MAC地址
  301.         /// </summary>
  302.         /// <returns></returns>
  303.         private string GetMacAddress()
  304.         {
  305.             try
  306.             {
  307.                 string warelessMac = string.Empty;
  308.                 string mac = string.Empty;
  309.                 NetworkInterface[] fNetworkInterfaces = NetworkInterface.GetAllNetworkInterfaces();
  310.                 foreach (NetworkInterface adapter in fNetworkInterfaces)
  311.                 {
  312.                     string fRegistryKey = "SYSTEM\\CurrentControlSet\\Control\\Network\\{4D36E972-E325-11CE-BFC1-08002BE10318}\\" + adapter.Id + "\\Connection";
  313.                     RegistryKey rk = Registry.LocalMachine.OpenSubKey(fRegistryKey, false);
  314.                     if (rk != null)
  315.                     {
  316.                         // 区分 PnpInstanceID   
  317.                         // 如果前面有 PCI 就是本机的真实网卡   
  318.                         // MediaSubType 为 01 则是常见网卡，02为无线网卡。   
  319.                         string fPnpInstanceID = rk.GetValue("PnpInstanceID", "").ToString();
  320.                         int fMediaSubType = Convert.ToInt32(rk.GetValue("MediaSubType", 0));
  321.                         if (fPnpInstanceID.Length > 3 &&
  322.                         fPnpInstanceID.Substring(0, 3) == "PCI")
  323.                         {
  324.                             mac = adapter.GetPhysicalAddress().ToString();
  325.                             break;
  326.                         }
  327.                         else if (fMediaSubType == 1)
  328.                             continue;
  329.                         else if (fMediaSubType == 2)
  330.                             warelessMac = adapter.GetPhysicalAddress().ToString();
  331.                     }
  332.                 }
  333.                 if (!mac.Equals(string.Empty))
  334.                     return GetMacStr(mac);
  335.                 else if (!warelessMac.Equals(string.Empty))
  336.                     return GetMacStr(warelessMac);
  337.                 else
  338.                     return "unknow";
  339.             }
  340.             catch (Exception ex)
  341.             {
  342.                 return "unknow";
  343.             }
  344.             finally
  345.             {
  346.             }
  347.         }
  348.         /// <summary>
  349.         /// 获取MAC地址
  350.         /// </summary>
  351.         /// <param name="mac"></param>
  352.         /// <returns></returns>
  353.         private string GetMacStr(string mac)
  354.         {
  355.             string newmac = string.Empty;
  356.             newmac = mac.Substring(0, 2);
  357.             mac = mac.Substring(2, mac.Length - 2);
  358.             while (!mac.Equals(string.Empty))
  359.             {
  360.                 newmac += ":";
  361.                 newmac += mac.Substring(0, 2);
  362.                 mac = mac.Substring(2, mac.Length - 2);
  363.             }
  364.             return newmac;
  365.         }
  366.         /// <summary>
  367.         /// 获取IP地址
  368.         /// </summary>
  369.         /// <returns></returns>
  370.         private string GetIPAddress()
  371.         {
  372.             try
  373.             {
  374.                 //获取IP地址   
  375.                 string st = "";
  376.                 ManagementClass mc = new ManagementClass("Win32_NetworkAdapterConfiguration");
  377.                 ManagementObjectCollection moc = mc.GetInstances();
  378.                 foreach (ManagementObject mo in moc)
  379.                 {
  380.                     if ((bool)mo["IPEnabled"] == true)
  381.                     {
  382.                         //st=mo["IpAddress"].ToString();   
  383.                         System.Array ar;
  384.                         ar = (System.Array)(mo.Properties["IpAddress"].Value);
  385.                         st = ar.GetValue(0).ToString();
  386.                         break;
  387.                     }
  388.                 }
  389.                 moc = null;
  390.                 mc = null;
  391.                 return st;
  392.             }
  393.             catch (Exception ex)
  394.             {
  395.                 return "unknow";
  396.             }
  397.         }
  398.         /// <summary>
  399.         /// 获取硬盘的序列号
  400.         /// </summary>
  401.         /// <returns></returns>
  402.         private string GetDiskID()
  403.         {
  404.             try
  405.             {
  406.                 //方法一
  407.                 //ManagementObjectSearcher searcher = new ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia");
  408.                 //String strHardDiskID = null;
  409.                 //foreach (ManagementObject mo in searcher.Get())
  410.                 //{
  411.                 //    strHardDiskID = mo["SerialNumber"].ToString().Trim();
  412.                 //    break;
  413.                 //}
  414.                 //return strHardDiskID;
  415.                 //方法二
  416.                 //System.Management.ManagementObjectSearcher cmicWmi = new ManagementObjectSearcher("SELECT   *   FROM   Win32_DiskDrive");
  417.                 //string diskid = string.Empty;
  418.                 //foreach (ManagementObject cmicWmiObj in cmicWmi.Get())
  419.                 //{
  420.                 //    diskid = cmicWmiObj["signature"].ToString();
  421.                 //}
  422.                 //return diskid;
  423.                

  425.                 //方法三   
  426.                 //String HDid = "";
  427.                 //ManagementClass mc = new ManagementClass("Win32_DiskDrive");
  428.                 //ManagementObjectCollection moc = mc.GetInstances();
  429.                 //foreach (ManagementObject mo in moc)
  430.                 //{
  431.                 //    HDid = (string)mo.Properties["model"].Value;
  432.                 //}
  433.                 //moc = null;
  434.                 //mc = null;
  435.                 //return HDid;
  436.                 //方法四
  437.                 System.Management.ManagementObjectSearcher cmicWmi = new ManagementObjectSearcher("SELECT   *   FROM   Win32_DiskDrive");
  438.                 string tmp = string.Empty;
  439.                 foreach (ManagementObject cmicWmiObj in cmicWmi.Get())
  440.                 {
  441.                     bool isSyspan = false;
  442.                     System.Management.PropertyDataCollection pdc = cmicWmiObj.Properties;
  443.                     string info = string.Empty;
  444.                     foreach (PropertyData pd in pdc)
  445.                     {
  446.                         if (pd.Name.Equals("Name"))
  447.                         {
  448.                             if (pd.Value.Equals("\\\\.\\PHYSICALDRIVE0"))
  449.                             {
  450.                                 isSyspan = true;
  451.                             }
  452.                         }
  453.                         if (isSyspan)
  454.                         {
  455.                             if (pd.Name.Equals("PNPDeviceID"))
  456.                             {
  457.                                 tmp += pd.Value;
  458.                             }
  459.                             else if (pd.Name.Equals("Signature"))
  460.                             {
  461.                                 tmp += pd.Value;
  462.                                 break;
  463.                             }
  464.                         }
  465.                     }
  466.                 }
  467.                 return tmp;
  468.                
  469.             }
  470.             catch (Exception ex)
  471.             {
  472.                 return "unknow";
  473.             }
  474.             finally
  475.             {
  476.             }
  477.         }
  478.         /// <summary>   
  479.         /// 操作系统的登录用户名   
  480.         /// </summary>   
  481.         /// <returns></returns>   
  482.         private string GetUserName()
  483.         {
  484.             try
  485.             {
  486.                 string st = "";
  487.                 ManagementClass mc = new ManagementClass("Win32_ComputerSystem");
  488.                 ManagementObjectCollection moc = mc.GetInstances();
  489.                 foreach (ManagementObject mo in moc)
  490.                 {
  491.                     st = mo["UserName"].ToString();
  492.                 }
  493.                 moc = null;
  494.                 mc = null;
  495.                 return st;
  496.             }
  497.             catch (Exception ex)
  498.             {
  499.                 return "unknow";
  500.             }
  501.             finally
  502.             {
  503.             }
  504.         }
  505.         /// <summary>   
  506.         /// 获取计算机操作系统类型  
  507.         /// </summary>   
  508.         /// <returns></returns>   
  509.         private string GetSystemType()
  510.         {
  511.             try
  512.             {
  513.                 string st = "";
  514.                 ManagementClass mc = new ManagementClass("Win32_ComputerSystem");
  515.                 ManagementObjectCollection moc = mc.GetInstances();
  516.                 foreach (ManagementObject mo in moc)
  517.                 {
  518.                     st = mo["SystemType"].ToString();
  519.                 }
  520.                 moc = null;
  521.                 mc = null;
  522.                 return st;
  523.             }
  524.             catch (Exception ex)
  525.             {
  526.                 return "unknow";
  527.             }
  528.             finally
  529.             {
  530.             }
  531.         }
  532.         /// <summary>   
  533.         /// 获取计算机物理内存   
  534.         /// </summary>   
  535.         /// <returns></returns>   
  536.         private string GetTotalPhysicalMemory()
  537.         {
  538.             try
  539.             {
  540.                 string st = "";
  541.                 ManagementClass mc = new ManagementClass("Win32_ComputerSystem");
  542.                 ManagementObjectCollection moc = mc.GetInstances();
  543.                 foreach (ManagementObject mo in moc)
  544.                 {
  545.                     st = mo["TotalPhysicalMemory"].ToString();
  546.                 }
  547.                 moc = null;
  548.                 mc = null;
  549.                 return st;
  550.             }
  551.             catch (Exception ex)
  552.             {
  553.                 return "unknow";
  554.             }
  555.             finally
  556.             {
  557.             }
  558.         }
  559.         /// <summary>
  560.         /// 获取主板的ID
  561.         /// </summary>
  562.         /// <returns></returns>
  563.         private string GetBaseBoardID()
  564.         {
  565.             try
  566.             {
  567.                 //string strbNumber = string.Empty;
  568.                 //ManagementObjectSearcher mos = new ManagementObjectSearcher("select * from Win32_baseboard");
  569.                 //foreach (ManagementObject mo in mos.Get())
  570.                 //{
  571.                 //    strbNumber = mo["SerialNumber"].ToString();
  572.                 //    break;
  573.                 //}
  574.                 //return strbNumber;
  575.                 ManagementClass mc = new ManagementClass("WIN32_BaseBoard");
  576.                 ManagementObjectCollection moc = mc.GetInstances();
  577.                 string SerialNumber = "";
  578.                 foreach (ManagementObject mo in moc)
  579.                 {
  580.                     SerialNumber = mo["SerialNumber"].ToString();
  581.                     break;
  582.                 }
  583.                 return SerialNumber;
  584.                 //ManagementClass mc = new ManagementClass("WIN32_BaseBoard");
  585.                 //ManagementObjectCollection moc = mc.GetInstances();
  586.                 //string SerialNumber = "";
  587.                 //foreach (ManagementObject mo in moc)
  588.                 //{
  589.                 //    SerialNumber = GetAllInfo(mo);
  590.                 //}
  591.                 //return SerialNumber;
  592.             }
  593.             catch (Exception ex)
  594.             {
  595.                 return "unknow";
  596.             }
  597.             finally
  598.             {
  599.             }
  600.         }
  601.         /// <summary>
  602.         /// 获取计算机名称
  603.         /// </summary>
  604.         /// <returns></returns>
  605.         private string GetComputerName()
  606.         {
  607.             try
  608.             {
  609.                 return System.Environment.GetEnvironmentVariable("ComputerName");
  610.             }
  611.             catch(Exception ex)
  612.             {
  613.                 return "unknow";
  614.             }
  615.             finally
  616.             {
  617.             }
  618.         }
  619.         #endregion
  620.     }
  621. }
复制代码


回复 支持 反对

使用道具 举报

mmgg

0

主题

2180

帖子

564

积分

积分
564
推广工具板凳
发表于 2017-2-27 01:07:14 | 只看该作者
编辑文字和活动都得靠自己想！！小白如我，只能做出这个效果。慢慢的去摸索！！??

回复 支持 反对

使用道具 举报

niubttt

0

主题

584

帖子

578

积分

积分
578
软件定制开发地板
发表于 2017-2-27 07:11:15 | 只看该作者
建站，方便快捷，有专人指导，还是很不错的！

回复 支持 反对

使用道具 举报

wbd902

0

主题

619

帖子

603

积分

积分
603
5#定制软件#
发表于 2017-2-28 00:20:34 | 只看该作者
推荐的店铺，客服超级nice，远程装修，全5分，棒棒滴！

回复 支持 反对

使用道具 举报

wangliuh11

0

主题

648

帖子

632

积分

积分
632
6#定制软件#
发表于 2017-2-28 01:00:21 | 只看该作者
热情的，动作也很利索，要求改进的地方什么的，都会第一时间改好。满分了

回复 支持 反对

使用道具 举报

枯干枯干

0

主题

2181

帖子

2

积分

积分
2
7#定制软件#
发表于 2017-3-1 10:43:13 | 只看该作者
。几天就做好了。很满意！

回复 支持 反对

使用道具 举报

niubt

1

主题

2204

帖子

565

积分

积分
565
8#定制软件#
发表于 2017-3-2 17:31:03 | 只看该作者
计的不错。

回复 支持 反对

使用道具 举报

zzjiuzi008

0

主题

1022

帖子

1029

积分

积分
1029
9#定制软件#
发表于 2017-3-2 22:44:58 | 只看该作者
意，做了好几个店铺了，服务真心的不错，客服真的很热情，装修以后就是你家了！

回复 支持 反对

使用道具 举报

cjagl520

0

主题

624

帖子

604

积分

积分
604
10#定制软件#
发表于 2017-3-3 03:36:18 | 只看该作者
客服姐姐晨曦都值得表扬，加班加点很敬业修改了10几次，都依依解决。最后都非常满意，现在像这种有问题能随时改正

回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

相关导读
信息发布软件安卓HID贝塞尔曲线手势操作示例
安卓HID贝塞尔曲线手势操作示例
信息发布软件安卓端与H5页面交互的完整实现
安卓端与H5页面交互的完整实现
信息发布软件苹果系统里如何使用OCR进行文本识别并执行点击操作
苹果系统里如何使用OCR进行文本识别并执行点击操作
信息发布软件AIWROK软件列表控件 [uiList] 实例演示
AIWROK软件列表控件 实例演示
信息发布软件安卓列表控件 [uiList] 方法小结
安卓列表控件 方法小结 方法 1：add方法 2：addArray方法 3：clear方法 4：delete方法 5：execSQL方法 6：exportData方法 7：exportTxt方法 8：findByID方法 9：getColumnCount方法 10：getColumnIndex方法 11：getColumnName方法 12：getColumnNames方法 13：getCount方法 14：getCursorSetp方法 15：getPosition方法 16：getString方法 17：getStringl方法 18：importData方法 19：isLast方法 20：move方法 21：moveNext方法
信息发布软件安卓版AIWROK软件APP操作类小结合集
安卓版AIWROK软件APP操作类小结合集 方法 1：代理模式获取当前 activity 地址[/backcolor]方法 2：getAllApp 获取所有 app[/backcolor]方法 3：getAppName 获取 APP 名字[/backcolor]方法 4：getCurrentActivity 无障碍获取当前 activity 地址[/backcolor]方法 5：getLocalAppName 获取自己 APP 名字（AIWORK 打包）[/backcolor]方法 6：getLocalVerName 获取自己版本号（AIWORK 打包）[/backcolor]方法 7：getMemory
信息发布软件AIWROK软件苹果点击开始按钮运行最简单的封装脚本例子
AIWROK软件苹果点击开始按钮运行最简单的封装脚本例子 另外主脚本.js封装的：
信息发布软件安卓toast吐司的各种方法应用实例
安卓toast吐司的各种方法应用实例
信息发布软件AIWROK软件支持悬浮窗自由定位和拖拽功能
AIWROK软件支持悬浮窗自由定位和拖拽功能
信息发布软件AIWROK软件安卓工具箱悬浮窗
AIWROK软件安卓工具箱悬浮窗
信息发布软件安卓通过floatUI创建悬浮窗H5界面
安卓通过floatUI创建悬浮窗H5界面
信息发布软件安卓专用吐司toast倒计时到指定时间并显示剩余时间
安卓专用吐司toast倒计时到指定时间并显示剩余时间
信息发布软件aiwrok软件适用于安卓环境下的外网IP获取工具实例
aiwrok软件适用于安卓环境下的外网IP获取工具实例
信息发布软件苹果系统激活模式投屏
1.安装AK-Runner链接下载https://www.pgyer.com/akrunner或者扫码下载AK-Runner.ipa2.安装后需要信任证书找到 设置 --通用---VPN与设备管理3.激活AK-Runner激活需要pc，首先下载激活器📎AK-Runner激活器.zip新手机需要爱思助手协助开启开发者模式，开启过的可以忽略。（爱思助手最好使用最新版）打开爱思助手按照提示操作即可,打开实时投屏。能获取到屏幕信息即可。如果没有出现可能是手机没有开启开发者模式，参考爱思助手
信息发布软件AIWROK软件全部硬件HID按键码小结集合
AIWROK软件全部硬件HID按键码小结集合 方法真实示例：
信息发布软件IOS苹果系统创建具有现代H5视觉效果的界面
IOS苹果系统创建具有现代H5视觉效果的界面
信息发布软件IOS苹果示例如何使用不同的UI风格创建直接运行脚本的按钮
IOS苹果示例如何使用不同的UI风格创建直接运行脚本的按钮
信息发布软件AIWROK苹果IOS线条类[Line]复杂示例
AIWROK苹果IOS线条类[Line]复杂示例
信息发布软件AIWROK软件苹果IOS线条实作简单示例
AIWROK软件苹果IOS线条实作简单示例
信息发布软件AIWROK软件IOS苹果线条类[Line]方法小结
AIWROK软件IOS苹果线条类[Line]方法小结 . 线条宽度设置方法2. 线条高度设置方法3. 线条颜色设置方法实用演示例子：
信息发布软件AIWROK软件苹果IOS吐司toast.show方法小结
AIWROK软件苹果IOS吐司toast.show方法小结 实例呈现：
信息发布软件AIWROK软件苹果IOS系统图色视觉[opencv]方法小结
AIWROK软件苹果IOS系统图色视觉[opencv]方法小结 方法 1：OCR 识别（指定区域）方法 2：获取图像 Base64 编码方法 3：获取 Mat 对象方法 4：Mat 转 Image方法 5：Base64 转 Image方法 6：读取图片文件为 Image方法 7：释放图像资源实战示例子：
信息发布软件AIWROK软件苹果IOS系统图色视觉[opencv]方法小结
AIWROK软件苹果IOS系统图色视觉[opencv]方法小结 方法 1：cv 文件找图（模版匹配 cv 找图）方法 2：cv 文件 OCR（模版匹配 OCR）方法 3：模版匹配（通过模版匹配找到目标对象）方法 4：找多图方法 5：转灰度图（图像转灰度图）方法 6：裁切图片（从大图中截图裁切图片）方法 7：二值化方法 8：颜色翻转实战实例：
信息发布软件AIWROK软件苹果IOS系统随机数[RJrxn1afZqW7yjf2NK]方法小结
AIWROK软件随机数[RJrxn1afZqW7yjf2NK]方法小结 📌GQGqcAlZv2随机字符📌WBJqf91s7J随机整数📌LtUqFOGkc6随机小数📌随机布尔值生成函数📌随机数组元素选择函数使用示例表 📌随机日期使用示例表使用示例表使用示例表📌随机UUID生成函数函数说明表使用示例表📌随机密码 / 验证码随机密码 / 验证码生成函数及使用说明[/backcolor]函数说明表[/backcolor]使用示例表[/back
信息发布软件AIWROK软件苹果系统里的事件[event]方法小结
AIWROK软件苹果系统里的事件[event]方法小结 方法 1：截屏开始方法 2：截屏暂停方法 3：截屏恢复实战示例：
信息发布软件AWIROK苹果系统屏幕类[screen]方法小结
AWIROK苹果系统屏幕类[screen]方法小结 方法 1：lockScreen（锁定屏幕缓存）方法 2：unLockScreen（解锁锁屏幕缓存）方法 3：isOpenShortcut（是否开启快照截屏）方法 4：getScreenWidth（获取屏幕宽度）方法 5：getScreenHeight（获取屏幕高度）方法 6：ocr（识别支持设定区域）方法 7：screenShot（截图缩放，记得调用 close 释放图像）方法 8：screenShotFull（全尺寸截图，记得调用 close 释放图像）实战实例子：单独 OCR
信息发布软件AIWROK软无任何苹果IOS系统配置[config]方法小结
AIWROK软无任何苹果IOS系统配置[config]方法小结 getConfig 获取配置📌setConfig设置配置实际示例：
信息发布软件AIWROK软件安卓日志窗口[logWindow]方法小结总汇集合
AIWROK软件安卓日志窗口[logWindow]方法小结总汇集合 clear 清理日志📌close关闭日志窗口📌setAlpha设置透明度📌setClickModel设置可点模式,就是无法穿透桌面📌setColor设置日志字体颜色📌setDrag设置为手动拖拽模式setHeight设置高度📌setNoClickModel设置为不可点，穿透桌面📌setPosition设置位置📌setSize设置日志字体大小setTitle设置标题📌setWidth 设置
信息发布软件AIWROK安卓类日志类[print]方法小结总汇集合
AIWROK安卓类日志类方法小结总汇集合 print.log：输出调试 / 日志信息2. print.err：输出错误信息3. print.time：启动计时4. print.timeEnd：结束计时并返回时长5. print.warn：输出警告信息完整的示例：
信息发布软件AIWROK软件苹果IOS快捷指令代理服务[shortAgent]方法小结
AIWROK软件苹果IOS快捷指令代理服务[shortAgent]方法小结 openApp启动app📌appopenUrl打开网址或者Scheme📌openSelf自启动📌screenShot代理截屏📌getTopApp 获取顶端app(I0S18+)特别示例：
信息发布软件AIWROK系统安卓找字OCR___方法小结总汇集合
AIWROK系统安卓找字OCR___方法小结总汇集合 findIncludeText查询包含文字🔍🔢findIncludeTexts查询包含文字多目标🔍🔢findSimilarText模糊查询🔍🔢findText查询文字🔍🔢getAllDetect 获取所有目标🔍🔢getAllString 获取所有字符串🔍🔢getJson 获取json对象🔍🔢getJsonString 获取json字符串🔍🔢MLKitOcr文字
信息发布软件AIWROK软件toast_显示方法小结
AIWROK软件toast_显示方法小结 toast.setAlpha___设置透明度toast.setPoint___设置位置toast.setSize___设置字号toast.setTextColor___设置文字颜色toast.showLong___显示长吐司toast.show___显示吐司特别案例：示例二：示例三倒计时到指定时间并显示剩余时间（红色文字）：
信息发布软件AIWROK软件苹果系统方法快捷指令[shortcut]方法小结
AIWROK软件苹果系统方法快捷指令[shortcut]方法小结 openApp启动app(需要前台运行)📌openUrl打开网页(需要前台运行)📌runShortcut打开快捷指令(需要前台运行)
信息发布软件AIWROK软件苹果IOS矩形类[rect]方法小结
AIWROK软件苹果IOS矩形类[rect]方法小结 getLeft 获取左边界📌getRight获取右边界📌getTop获取上边界📌getBottom 获取下边界📌getWidth 获取宽度📌getHeight 获取高度📌getCenterX 获取中心X坐标📌getCenterY 获取中心Y坐标📌inRect 判断点是否在矩形内📌set设置矩形的边界📌toString输出字符串📌getRandX生成随机X坐标📌getRandY生成随
信息发布软件AIWROK软件IOS系统里脚本项目[project]方法小结
AIWROK软件IOS系统里脚本项目方法小结 📌getCodePath 获取代码完整目录📌getPluginsPath 获取插件完整目录📌getResourcesPath 获取资源完整目录📌getCard 获取卡密📌getVersion 获取脚本版本调用示例代码：
信息发布软件IOS功能苹果AIWROK软件剪贴板类[clipboard]方法小结
IOS功能苹果AIWROK软件剪贴板类[clipboard]方法小结 copyToClipboard 复制到剪贴板📌copyToClipboardPIP复制到剪贴板📌readFromClipboard 从剪贴板读取示例方法实用：
信息发布软件AIWROK软件IOS苹果系统检测目标类[Detect]方法方法小结
AIWROK软件IOS苹果系统检测目标类[Detect]方法方法小结 📌score 获取检测分数📌getRect 获取检测区域📌clickRandom随机点击📌click点击示例演示：
信息发布软件AIWROK苹果IOS系统里的打印[print]方法小结
AIWROK苹果IOS系统里的打印方法小结 📌now返回本次脚本运行所有日志📌last 返回上次脚本运行所有日志📌showPip 显示画中画,必须前台📌hidePip 隐藏画中画,必须前台log日志📌log日志📌warn警告err 错误📌debug 调试简写printl示例方法演示：
信息发布软件AIWROK软件超多功能越全HID小结方法大放送
AIWROK软件超多功能越全HID小结方法大放送 ⌨️📌back：back 键⌨️📌backspace 键盘back删除键⌨️📌click：点击坐标⌨️📌clickPercent：点击百分比坐标⌨️📌clicks：连续点击⌨️📌clicksV2：连续点击 v2（可设置按下时长）⌨️📌connetBLE：连接蓝牙 HID（必须先完成配对）⌨
信息发布软件AIWROK软件苹果找图YoloV5目标检测[YoloV5]方法小结
AIWROK软件苹果找图YoloV5目标检测[YoloV5]方法小结 📌detectPercent预测📌loadModel 加载模型📌close释放模型
信息发布软件&#128241;⌨️最全的AIWROK软件安卓 HID方法集合小结A
信息发布软件示例苹果IOS系统简单展示一下H5界面AIWORK WebView 示例
示例苹果IOS系统简单展示一下H5界面AIWORK WebView 示例
信息发布软件用AIWROK软件IOS苹果系统创建一个黄色主题风格的 WebView 示例H5
用AIWROK软件IOS苹果系统创建一个黄色主题风格的 WebView 示例H5printl('//🍎交流QQ群711841924');// 创建一个黄色主题风格的 WebView 示例function createYellowThemedWebViewExample() { // 创建 WebView 实例 var web = new WebView(); // 显示界面 web.show(); // 加载黄色主题风格的 HTML 内容 web.loadHtml(`<!DOCTYPE html><html lang="zh-CN"><head> <meta charset="UT
信息发布软件苹果创建一个蓝色主题风格的 WebView 示例H5
苹果创建一个蓝色主题风格的 WebView 示例H5 演示了如何创建和操作 WebView 控件。代码中使用了注释的方式避免了实际的 URL 加载和界面关闭，以确保安全性和功能性。以下是代码的详细说明： function createYellowThemedWebViewExample() {...}：定义了一个名为 createYellowThemedWebViewExample 的函数，用于创建一个带有黄色主题风格的 WebView 示例。var web = new WebView();：创建了一个新的 WebView 实例。web.show()
信息发布软件AIWROK软件苹果IOS控件[WebView]方法小结
AIWROK软件苹果IOS控件[WebView]方法小结 📌show显示界面📌loadFile 加载本地文件📌loadHtml 加载 HTML内容📌dismiss关闭界面📌loadUrl加载网页URL完整演示例子：
信息发布软件AIWROK苹果部分功能UI-水平容器[Horizontal]方法小结
AIWROK苹果部分功能UI-水平容器[Horizontal]方法小结 📌addView添加子控件📌removeView移除视图📌clearAllViews清空所有视图📌getViewCount 获取视图数量📌setSpacing设置控件间距📌setBackgroundColor设置背景颜色📌setAlignment 设置对齐方式示例子 1 风格：示例风格 2：
信息发布软件AIWROK软件苹果IOS里的UI-输入框类[Input]方法小结
AIWROK软件苹果IOS里的UI-输入框类方法小结 📌setText 设置输入框文本📌getText 获取输入框文本 📌setlD设置控件ID📌setDefultText 设置默认值📌setTextColor设置文本颜色📌setFontSize设置字体大小📌setBackgroundColor 设置背景颜色📌setWidth设置输入框宽度📌setHeight 设置输入框高度📌setPlaceholder 设置占位符文本📌setTextAlignment 设
信息发布软件AIWROK软件苹果IOS系统Ul-空白站位[Space]方法小结
AIWROK软件苹果IOS系统Ul-空白站位[Space]方法小结 📌setHeight设置高度📌setWidth设置宽度📌setBackgroundColor 设置背景颜色完整示例：
信息发布软件AIWROK软件苹果IOS系统里UI-界面视图[IOSView]方法小结
苹果IOS系统里UI-界面视图方法小结 📌show显示界面📌dismiss关闭📌UIaddView添加📌getView获取view视图📌setBackgroundColor 设置背景颜色完整示例：
信息发布软件&#128296;UI-复选框类[CheckBox]方法小结
🔨UI-复选框类[CheckBox]方法小结📌setText 设置复选框标题📌getText 获取复选框标题📌setID设置控件ID📌setDefultSelect 设置默认值📌select选中复选框📌deselect取消选中复选框📌isSelect获取选中状态📌setColor设置复选框颜色 📌setWidth 设置控件宽度📌setHeight 设置控件高度📌onClick 按钮点击事件示例完整例子：
信息发布软件AIWROK软件IOS系统里的UI-标签类[Label]方法小结
AIWROK软件IOS系统里的UI-标签类[Label]方法小结 📌setText设置标签文本📌setTextColor 设置文本颜色📌setBackgroundColor设置背景颜色📌setFontSize设置字体大小📌setWidth 设置标签宽度📌setHeight设置标签高度📌setTextAlignment设置文本对齐方式完整示例方法例子：
信息发布软件AIWROK软件IOS苹果Ul-垂直容器[Vertical]方法小结
AIWROK软件IOS苹果Ul-垂直容器[Vertical]方法小结//方法小结，交流QQ群711841924//第一个方法：addView添加子控件var label = new Label();label.setText("Hello World");//第二个方法：removeView移除视图var v = new Vertical();v.removeView(0); // 移除第一个子控件//第三个方法：clearAllViews清空所有视图var v = new Vertical();v.clearAllViews(); // 清空所有控件//第四个方法：getViewCount 获取视图数量var v = new Ver
信息发布软件&#128296;AIWROK软件苹果系统UI-按钮[ Button]方法小结
🔨AIWROK软件苹果系统UI-按钮[ Button]方法小结//UI-按钮[ Button]方法小结，交流QQ群711841924// 方法一：setText 设置按钮标题var btn = new Button();btn.setText("点击我");// 方法二：getText 获取按钮标题var btn = new Button();string title = btn.getText();// 方法三：setColor设置按钮颜色var btn = new Button();btn.setColor(50, 100, 150); // 设置按钮颜色为RGB(50, 100, 150)// 方法四：setTextColor 设置
信息发布软件txt文件读写[txt]方法和UI-TAB界面视图[TabView]小结
txt文件读写[txt]方法和UI-TAB界面视图[TabView]小结//UI-TAB界面视图[TabView]方法小结，交流QQ群711841924 // 方法一：show显示界面 //申请一个UI var tab = new TabView(); tab.setTitels(['首页','关于']) vc.show(() => { //页面加载完后执行以下代码 printl("hello IOS") //创建一个水平容器 var h = new Horizontal() //创建一个按钮 var btn = new Butt
信息发布软件TomatoOCR文字识别[tomatoOCR]方法小结[OCR]
TomatoOCR文字识别[tomatoOCR]方法小结[OCR]
信息发布软件苹果系统OCR文字识别和OkHttp 网络请求管理
苹果系统OCR文字识别和OkHttp 网络请求管理
信息发布软件iosApp管理小结和苹果Ocr识别结果小结
iosApp管理小结和苹果Ocr识别结果小结
信息发布软件苹果IOS系统专用AIWROK软件HID键鼠模块小结
苹果IOS系统专用AIWROK软件HID键鼠模块小结
信息发布软件AIWROK软件IOS贝塞尔曲线
AIWROK软件IOS贝塞尔曲线 hid.moveToRealPoint(333, 1146);：这行代码指示设备（可能是模拟器或自动化测试工具）的hid（Human Interface Device）模块将操作点移动到屏幕上的坐标点(333, 1146)。这个点被定义为曲线的起点。sleep.second(1);：在移动到起点后，程序会暂停1秒钟。这是为了让设备有足够的时间到达起点位置，确保后续操作的准确性。接下来的几行代码定义了贝塞尔曲线的参数：startX 和 startY 定义了曲线的起点。en
信息发布软件AIWROK软件调用多任务随机倒计时函数
AIWROK软件调用多任务随机倒计时函数 代码逐行解释function 多任务随机倒计时(minSeconds, maxSeconds, 任务列表) {定义一个名为 多任务随机倒计时 的函数，该函数接受三个参数：minSeconds：倒计时的最小秒数。maxSeconds：倒计时的最大秒数。任务列表：一个包含多个任务对象的数组，每个任务对象都有一个任务名称和一个任务函数。 var randomInterval = Math.floor(Math.random() * (maxSeconds - minSeconds + 1) + mi
信息发布软件AIWROK软件对接豆包实例分享
AIWROK软件对接豆包实例分享 解释总结：创建一个新的 okHttp 对象实例：var http = new okHttp();创建了一个新的 okHttp 对象实例，并将其赋值给变量 http。okHttp 是一个用于发送 HTTP 请求的库。设置 HTTP 请求头：var aa = uiText.findByID("gd").getText();通过 uiText.findByID 方法找到 ID 为 “gd” 的控件，并获取其文本内容，赋值给变量 aa。uiText.findByID 是一个用于在用户界面上查找特定 ID 的控件的方法，getText
信息发布软件屏幕操作自动化随机点击与滑动函数示例
x和y是百分比形式的屏幕坐标，用于指定点击的大致位置。x范围和y范围定义了在指定坐标点附近点击的随机范围。function 随机位置点击(x, y, x范围, y范围) {定义了一个名为随机位置点击的函数，该函数接受四个参数：x、y、x范围、y范围。 // 将百分比坐标转成真实坐标 var x1 = screen.percentToWidth(x); var y1 = screen.percentToHeight(y);这里将百分比形式的x和y坐标转换为实际屏幕上的像素坐标。screen.percentT
信息发布软件aiwrok软件如何获取getRealPointRGB 获取真实坐标RGB？
getRealPointRGB 获取真实坐标RGB，为什么叫真实坐标 RGB？// 截屏 var img = screen.screenShotFull(); // 定义目标 RGB 值（假设目标图标的 RGB 值为 [255, 0, 0]） var targetRgb = [255, 0, 0]; // 遍历屏幕某区域（例如 [100, 100] 到 [300, 300]），查找目标 RGB 值 var startX = 100; var startY = 100; var endX = 300; var endY = 300; for (var x = startX; x <= endX; x++) { for (var y = start
信息发布软件AIWROK软件京东广告后台意图跳转方法
// 导入包 importClass(Packages.android.content.Intent); importClass(Packages.android.net.Uri); importClass(Packages.android.content.ActivityNotFoundException); importClass(Packages.android.widget.Toast); importClass(Packages.android.os.Handler); importClass(Packages.android.os.Looper); // 设置京东用户页面的URL var userId = "京东用户ID"; // 请替换为实际用户ID var url = "openapp.jdmobile:
信息发布软件AIWROK软件意图跳转支付宝的用户ID打开支付宝用户页面
AIWROK软件意图跳转支付宝的用户ID打开支付宝用户页面importClass(Packages.android.content.Intent); importClass(Packages.android.net.Uri); importClass(Packages.android.content.ActivityNotFoundException); importClass(Packages.android.widget.Toast); importClass(Packages.android.os.Handler); importClass(Packages.android.os.Looper); // 设置支付宝用户页面的URL var userId = "支付宝用户ID"; // 请替

QQ|( 京ICP备09078825号 )

本网站信息发布软件，是可以发布论坛，发送信息到各大博客，各大b2b软件自动发布，好不夸张的说：只要手工能发在电脑打开IE能发的网站，用这个宣传软件就可以仿制动作，进行推送发到您想发送的B2B网站或是信息发布平台上，不管是后台，还是前台，都可以进行最方便的广告发布，这个广告发布软件，可以按月购买，还可以试用软件，对网站的验证码也可以完全自动对信息发布，让客户自动找上门,使企业轻松实现b2b发布，这个信息发布软件，均是本站原创正版开发，拥有正版的血统，想要新功能，欢迎提意见给我，一好的分类信息群发软件在手，舍我其谁。QQ896757558

GMT+8, 2025-10-13 20:50 , Processed in 0.252660 second(s), 53 queries .

宣传软件--信息发布软件--b2b软件【广告发布软件】

快速回复 返回顶部 返回列表