日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時間：8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
VB.NET網(wǎng)絡(luò)監(jiān)控具體步驟詳解

VB.NET不但可以幫助開發(fā)人員實現(xiàn)各種硬件設(shè)備信息的產(chǎn)看等功能，還能通過它對網(wǎng)絡(luò)進行監(jiān)控。在這里我們就會為大家詳細介紹有關(guān)VB.NET網(wǎng)絡(luò)監(jiān)控的相關(guān)操作方法，希望對初學(xué)者們有所幫助。#t#

創(chuàng)新互聯(lián)公司自成立以來，一直致力于為企業(yè)提供從網(wǎng)站策劃、網(wǎng)站設(shè)計、成都做網(wǎng)站、網(wǎng)站制作、電子商務(wù)、網(wǎng)站推廣、網(wǎng)站優(yōu)化到為企業(yè)提供個性化軟件開發(fā)等基于互聯(lián)網(wǎng)的全面整合營銷服務(wù)。公司擁有豐富的網(wǎng)站建設(shè)和互聯(lián)網(wǎng)應(yīng)用系統(tǒng)開發(fā)管理經(jīng)驗、成熟的應(yīng)用系統(tǒng)解決方案、優(yōu)秀的網(wǎng)站開發(fā)工程師團隊及專業(yè)的網(wǎng)站設(shè)計師團隊。

VB.NET網(wǎng)絡(luò)監(jiān)控的開發(fā)環(huán)境：Visual Studio.net 2005

1.在窗體上放置一個TreeView控件，改名為tvInfo。

2.再放置一個按鈕控件。

3.雙擊按鈕，編寫VB.NET網(wǎng)絡(luò)監(jiān)控代碼。

  1. Dim _ManagementObjectSearcher As 
    New System.Management.Management
    ObjectSearcher("SELECT * FROM 
    Win32_NetworkAdapterConfiguration")  
  2. Dim _ParenNode As TreeNode = 
    Nothing '父節(jié)點  
  3. Me.tvInfo.Nodes.Clear()  
  4. Try  
  5. For Each ManObj As System.
    Management.ManagementObject 
    In _ManagementObjectSearcher.Get  
  6. _ParenNode = New TreeNode
    (ManObj("Description"))  
  7. If CBool(ManObj("IPEnabled")) Then 

創(chuàng)建 ip地址及子網(wǎng)掩碼 子節(jié)點

 
 
 
    
  
  
  
  1. Dim _IpNode As New TreeNode
    ("IP Address | Default Gateway")  
    2.   
  
  
  2. If (ManObj("IPAddress") 
    IsNot Nothing) Then  
    3.   
  
  
  3. For i As Integer = 0 To 
    UBound(ManObj("IPAddress"))  
    4.   
  
  
  4. _IpNode.Nodes.Add(New TreeNode
    (ManObj("IPAddress")(i) & " 
    | " & ManObj("IPSubnet")(i)))  
    5.   
  
  
  5. Next  
    6.   
  
  
  6. Else  
    7.   
  
  
  7. _IpNode.Nodes.Add(New 
    TreeNode("Null"))  
    8.   
  
  
  8. End If 
    9.

創(chuàng)建 默認網(wǎng)關(guān) 子節(jié)點

 
 
 
    
  
  
  
  1. Dim _GatewayNode As New 
    TreeNode("Default Gateway")  
    2.   
  
  
  2. If (ManObj("DefaultIPGateway") 
    IsNot Nothing) Then  
    3.   
  
  
  3. For i As Integer = 0 To UBound
    (ManObj("DefaultIPGateway"))  
    4.   
  
  
  4. _GatewayNode.Nodes.Add(New 
    TreeNode(ManObj("DefaultIP
    Gateway")(i)))  
    5.   
  
  
  5. Next  
    6.   
  
  
  6. Else  
    7.   
  
  
  7. _GatewayNode.Nodes.Add(New 
    TreeNode("Null"))  
    8.   
  
  
  8. End If 
    9.

創(chuàng)建 DNS服務(wù)器地址 子節(jié)點

 
 
 
    
  
  
  
  1. Dim _DNSNode As New TreeNode
    ("DNS Servers")  
    2.   
  
  
  2. If (ManObj("DNSServerSearchOrder") 
    IsNot Nothing) Then  
    3.   
  
  
  3. For i As Integer = 0 To UBound
    (ManObj("DNSServerSearchOrder"))  
    4.   
  
  
  4. _DNSNode.Nodes.Add(New TreeNode
    (ManObj("DNSServerSearchOrder")(i)))  
    5.   
  
  
  5. Next  
    6.   
  
  
  6. Else  
    7.   
  
  
  7. _DNSNode.Nodes.Add(New TreeNode("Null"))  
    8.   
  
  
  8. End If 
    9.  
 
 
 
 
 
    
  
  
  
  1. _ParenNode.Nodes.AddRange( _  
    2.   
  
  
  2. New TreeNode() { _  
    3.   
  
  
  3. New TreeNode(String.Format
    ("Physical Address：{0}", ManObj
    ("MACAddress"))), _  
    4.   
  
  
  4. New TreeNode(String.Format
    ("DHCPEnabled：{0}", ManObj
    ("DHCPEnabled"))), _  
    5.   
  
  
  5. _IpNode, _  
    6.   
  
  
  6. _GatewayNode, _  
    7.   
  
  
  7. _DNSNode _  
    8.   
  
  
  8. })  
    9.   
  
  
  9. End If 
    10.  
 
 
 
 
 
    
  
  
  
  1. _ParenNode.ExpandAll()  
    2.   
  
  
  2. Me.tvInfo.Nodes.Add
    (_ParenNode)  
    3.   
  
  
  3. Next  
    4.   
  
  
  4. Catch ex As Exception  
    5.   
  
  
  5. MsgBox(ex.Message, 
    MsgBoxStyle.Exclamation)  
    6.   
  
  
  6. End Try 
    7.

VB.NET網(wǎng)絡(luò)監(jiān)控的實際操作步驟就為大家介紹到這里。


新聞標題：VB.NET網(wǎng)絡(luò)監(jiān)控具體步驟詳解
文章轉(zhuǎn)載：http://www.5511xx.com/article/dpioggi.html