vb網卡

Ⅰ vb獲取網卡mac的完整代碼

MAC雖然具有唯一性，但如你所言也是能夠變更的。所以你能取到的就是你當前網卡配置中的MAC地址版。你可以試試，權在你的cmd下輸入 GetMAC。就能獲取當前的MAC地址，也就是你是網卡的物理地址。和代碼中的結果應該是一樣的。

Ⅱ vb代碼獲取電腦網卡的信息

PrivateSubGetMyIP()
DimstrComputerAsString
DimobjWMIAsObject
DimcolIPAsObject
DimIPAsObject
DimIAsInteger
strComputer="."
objWMI=GetObject("winmgmts://"&strComputer&"/root/cimv2")
colIP=objWMI.ExecQuery_
("Select*fromWin32_=TRUE")
ForEachIPIncolIP
IfNotIsNothing(IP.IPAddress)Then
ForI=LBound(IP.IPAddress)ToUBound(IP.IPAddress)
MsgBox("IP地址:"&IP.IPAddress(I)&Chr(10)&_
"網卡類型:"&IP.Description(I)&Chr(10)&_
"網卡地址:"&IP.Macaddress(I))
Next
EndIf
Next
EndSub

PrivateSubButton7_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton7.Click
DimstrAsString=""
GetMyIP()

TextBox6.Text=str
EndSub

Ⅲ 求大神指點 vb.net 怎麼獲取 所有網卡的 描述呢 vbs 的也可以

PrivateSubGetMyIP()
DimstrComputerAsString
DimobjWMIAsObject
DimcolIPAsObject
DimIPAsObject
DimIAsInteger
strComputer="."
objWMI=GetObject("winmgmts://"&strComputer&"/root/cimv2")
colIP=objWMI.ExecQuery_
("Select*fromWin32_=TRUE")
ForEachIPIncolIP
IfNotIsNothing(IP.IPAddress)Then
ForI=LBound(IP.IPAddress)ToUBound(IP.IPAddress)
MsgBox("IP地址:"&IP.IPAddress(I)&Chr(10)&_
"網卡類型:"&IP.Description(I)&Chr(10)&_
"網卡地址:"&IP.Macaddress(I))
Next
EndIf
Next
EndSub

Ⅳ VB如何獲得網卡IP地址

Option Explicit

Private Sub GetMyIP()
Dim strComputer As String
Dim objWMI As Object
Dim colIP As Object
Dim IP As Object
Dim I As Integer
strComputer = "."
Set objWMI = GetObject("winmgmts://" & strComputer & "/root/cimv2")
Set colIP = objWMI.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each IP In colIP
If Not IsNull(IP.IPAddress) Then
For I = LBound(IP.IPAddress) To UBound(IP.IPAddress)
MsgBox "IP 地址:" & IP.IPAddress(I) & Chr(10) & "網卡類型:" & IP.Description(I) & Chr(10) & "網卡地址:" & IP.Macaddress(I)
Next
End If
Next
End Sub

Private Sub Command1_Click() '調用
GetMyIP
End Sub

Ⅳ VB6.0設置網卡第2個IP地址

Option Explicit
Dim objSWbemServices As SWbemServices
Dim objSWbemObjectSet As SWbemObjectSet
Dim objSWbemObject As SWbemObject
'Text1(0)為IP地址、Text1(1)為子網掩碼、Text1(2)為預設網關、Text1(3)為DNS

Private Sub Form_Load()
Set objSWbemServices = GetObject("winmgmts:")
Set objSWbemObjectSet = objSWbemServices.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
For Each objSWbemObject In objSWbemObjectSet
Combo1.AddItem objSWbemObject.Description '添加本機上已經安裝了TCP/IP協議的網卡
Next
Combo1.Text = Combo1.List(0)
Combo1.ListIndex = 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set objSWbemServices = Nothing
Set objSWbemObjectSet = Nothing
Set objSWbemObject = Nothing
End Sub

'當選擇了網卡後，顯示當前所選網卡的設置
Private Sub Combo1_Click()
Set objSWbemObjectSet = objSWbemServices.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where Description='" & Combo1.Text & "'")
For Each objSWbemObject In objSWbemObjectSet
If objSWbemObject.DHCPEnabled Then
Text1(0).Text = ""
Text1(1).Text = ""
Text1(2).Text = ""
If IsNull(objSWbemObject.DNSServerSearchOrder) Then
Text1(3).Text = ""
Else
Text1(3).Text = objSWbemObject.DNSServerSearchOrder(0)
End If
Else
Text1(0).Text = objSWbemObject.IPAddress(0)
Text1(1).Text = objSWbemObject.IPSubnet(0)
Text1(2).Text = objSWbemObject.DefaultIPGateway(0)
Text1(3).Text = objSWbemObject.DNSServerSearchOrder(0)
End If
Next
End Sub

'設置網卡的IP地址、子網掩碼、預設網關和DNS
Private Sub Command1_Click()
Set objSWbemObjectSet = objSWbemServices.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where Description='" & Combo1.Text & "'")
For Each objSWbemObject In objSWbemObjectSet
objSWbemObject.EnableStatic Array(Text1(0).Text), Array(Text1(1).Text)
objSWbemObject.SetGateways Array(Text1(2).Text)
objSWbemObject.SetDNSServerSearchOrder Array(Text1(3).Text)
Next
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Ⅵ vb中有沒有直接的禁用和啟用網卡的辦法

Option Explicit
'首先引用Microsoft Shell Controls And Automation
Private Function ExcNetLinkMenu(ByVal AdapterName As String, ByVal MenuName As String) As Boolean
On Error Resume Next
Dim mShell As New Shell32.Shell
Dim NetConnection As Shell32.Folder
Dim FolderItem As Shell32.FolderItem
Dim NetConnectionItem As ShellFolderItem
Dim verb As Shell32.FolderItemVerb
Set NetConnection = mShell.NameSpace(49) '這個49是我找出來的，有了它就可以避免遍歷控制面板
If ObjPtr(NetConnection) = 0 Then
ExcNetLinkMenu = False
GoTo exitfunction
End If
Dim flag As Boolean
flag = False
For Each FolderItem In NetConnection.Items
If FolderItem.Name = AdapterName Then
Set NetConnectionItem = FolderItem
flag = True
Exit For
End If
Next
If flag = False Then
ExcNetLinkMenu = False
GoTo exitfunction
End If
For Each verb In NetConnectionItem.Verbs
If verb.Name = MenuName Then
flag = True
verb.DoIt
ExcNetLinkMenu = True
GoTo exitfunction
End If
Next
If flag = False Then
ExcNetLinkMenu = False
GoTo exitfunction
End If
exitfunction:
Set mShell = Nothing
Set NetConnection = Nothing
Set FolderItem = Nothing
Set NetConnectionItem = Nothing
Set verb = Nothing
End Function

Private Sub Command1_Click()
Dim flag As Boolean
'把 本地連接 2 換成你要控制的本地連接的名字
flag = ExcNetLinkMenu("本地連接", "停用(&B)") '這個在2000下對應的是禁用,具體是什麼，點右鍵,自己看吧
End Sub

Private Sub Command2_Click()
'把 本地連接 2 換成你要控制的本地連接的名字
Dim flag As Boolean
flag = ExcNetLinkMenu("本地連接", "啟用(&A)")
End Sub

Ⅶ vb6.0如何 建立虛擬網卡

虛擬網卡不是VB建立的……
你選擇安裝新硬體，在網卡類型中選擇 Microsoft Loopback，系統自帶的。裝這個就行了。

Ⅷ vb獲取網卡mac的完整代碼 你是怎麼獲取物理mac的

代碼如下：
Private Sub Form_Load()
Dim Mac
strComputer = "."
Mac = ""

'獲得MAC信息

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!//" & strComputer & "/root/cimv2")'''加上這個
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
For Each objItem In colItems
Mac = Mac + " " + objItem.macaddress
Next
TeMac.Text = Replace(Trim(Mac), ":", "-")

strComputer = "."
Set objWMI = GetObject("winmgmts://" & strComputer & "/root/cimv2")
Set colIP = objWMI.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

For Each Ip In colIP
If Not IsNull(Ip.ipaddress) Then
For i = LBound(Ip.ipaddress) To UBound(Ip.ipaddress)
'Mac = Ip.macaddress(I)objObject.DNSHostName
If Ip.ipaddress(i) = "0.0.0.0" Then
Else

TeIp.Text = Trim(TeIp.Text + " " + Ip.ipaddress(i))
End If
'MsgBox "IP 地址:" & IP.ipaddress(I) & Chr(10) & _
"網卡類型:" & IP.Description(I) & Chr(10) & _
"網卡地址:" & IP.macaddress(I)
Next
End If
Next
End Sub