VB.NET 獲取網(wǎng)關(guān)IP MAC地址

我找了一些C# 的VB。NET 貌似很少不過都是。NET 平臺。你看看吧都應(yīng)該通用的。

網(wǎng)站建設(shè)哪家好，找創(chuàng)新互聯(lián)公司！專注于網(wǎng)頁設(shè)計、網(wǎng)站建設(shè)、微信開發(fā)、微信小程序定制開發(fā)、集團企業(yè)網(wǎng)站建設(shè)等服務(wù)項目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了會同免費建站歡迎大家使用！

添加對System.Management的引用

using System.Management;

。。。

//獲取IP,子網(wǎng)掩碼(subnet mask)和默認網(wǎng)關(guān)

ManagementClass mc = new ManagementClass( "Win32_NetworkAdapterConfiguration ");

ManagementObjectCollection nics = mc.GetInstances();

foreach(ManagementObject nic in nics)

{

if(Convert.ToBoolean(nic[ "ipEnabled "]) == true)

{

Console.WriteLine((nic[ "IPAddress "] as String[])[0]);

Console.WriteLine((nic[ "IPSubnet "] as String[])[0]);

Console.WriteLine((nic[ "DefaultIPGateway "] as String[])[0]);

}

}

獲取硬件信息源代碼：

獲取硬件信息演示程序：

漢化

利用using System.Management類來獲取相應(yīng)的硬件知識

其實這類東西很容易找到答案的，方法非常多，最常見的API模式，你去搜索吧，保證一把一把的

vb.net 怎么用事件觸發(fā)的方式讀取串口數(shù)據(jù)

首先：

textbox里沒有顯示，是因為SerialPort1和TextBox2不是同一線程創(chuàng)建的，需要跨線程操作。需要用到委托，這樣才能顯示出來。

其次：

我覺得用串口的接收數(shù)據(jù)事件更好一些。

下面代碼供參考：

'----------------------

'串口接收數(shù)據(jù)事件，其實比用定時器更好，

'觸發(fā)事件的條件可以自己在form_load中設(shè)置ReceivedBytesThreshold屬性數(shù)值，默認為ReceivedBytesThreshold=1

Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived

Dim strRecvData As String = ""

strRecvData = SerialPort1.ReadExisting

Call disPlayComData(strRecvData)

End Sub

Delegate Sub callback(ByVal strT As String) '定義委托

Sub showString(ByVal comdata As String) '顯示結(jié)果

Me.TextBox1.Text = "結(jié)果：" comdata

End Sub

Sub disPlayComData(ByVal strTmp As String) '判定是否為跨線程

If Me.TextBox1.InvokeRequired Then

Dim d As New callback(AddressOf showString)

Me.Invoke(d, New Object() {strTmp})

Else

Me.TextBox1.Text = strTmp

End If

End Sub

VB.NET 如何獲取網(wǎng)頁中的數(shù)據(jù)

Public Function webCaptureContent(ByVal mWebsiteUrl As String, ByVal mWebsiteType As Boolean) As String

'啟動一次具體的數(shù)據(jù)采集工作,返回采集到的HTML內(nèi)容:要求必須輸入帶://的全地址數(shù)據(jù)

On Error Resume Next

Dim Str_WebContent As String = "請輸入查找網(wǎng)站地址."

Dim wb As WebClient = New WebClient() '//創(chuàng)建一個WebClient實例

If mWebsiteUrl.IndexOf("://") 0 Then

'//獲取或設(shè)置用于對向 Internet 資源的請求進行身份驗證的網(wǎng)絡(luò)憑據(jù)。（可有可無）

wb.Credentials = CredentialCache.DefaultCredentials

'//從資源下載數(shù)據(jù)并返回字節(jié)數(shù)組。（加@是因為網(wǎng)址中間有"/"符號）

Dim pagedata As Object = wb.DownloadData(mWebsiteUrl)

'//轉(zhuǎn)換字符

If mWebsiteType Then

Str_WebContent = Encoding.Default.GetString(pagedata)

Else

Str_WebContent = Encoding.UTF8.GetString(pagedata)

End If

End If

Return Str_WebContent '提取出來新聞內(nèi)容,刪除Body前后的多余內(nèi)容,同時補充上該 Body標記,形成完整的內(nèi)容 Str_WebContent '

End Function

求VB.NET讀取網(wǎng)頁內(nèi)容寫法

Imports System.Net

Imports System.IO

Imports System.Text.RegularExpressions

Public Class Form1

Private Sub button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim stream As IO.Stream = WebRequest.Create(UrlAdress).GetResponse().GetResponseStream()

'注意urladress為你上面的網(wǎng)頁地址。

Dim sr As StreamReader = New StreamReader(stream, System.Text.Encoding.UTF8)

Label1.Text = Regex.Match(sr.ReadToEnd, "回答采納率").ToString

'sr。readtoend讀取網(wǎng)頁流到末尾，即使用正則表達式從網(wǎng)頁流中提取“回答采納率”，賦值給Label1.Text ‘沒有則為空

sr.Dispose() '關(guān)閉流

End Sub'要提取什么東西用正則表達式最好

End Class

電腦有兩張網(wǎng)卡。如何用vb.net分別獲取網(wǎng)卡的IP?求大神明路！

'要使得引用System.Management有效，先通過菜單

'[項目]--[添加引用]，在“.Net”選項卡里，選擇“System.Management”，單擊[確定]

Imports System.Management

Public Class Form1

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

Dim MySearcher As New ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")

For Each MySearcherObj As ManagementObject In MySearcher.Get

If CBool(MySearcherObj("IPEnabled")) Then

MsgBox(MySearcherObj("IPAddress")(0))

End If

Next

End Sub

End Class

網(wǎng)站欄目：vb.net讀取網(wǎng)口信息,vb網(wǎng)口通信
URL標題：http://chinadenli.net/article11/dsgjgdd.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供品牌網(wǎng)站設(shè)計、服務(wù)器托管、自適應(yīng)網(wǎng)站、面包屑導(dǎo)航、電子商務(wù)、動態(tài)網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)