你可以使用WMI來獲取MAC ID。。加上一些特定的條件也可以實現獲取WLAN MAC_ID
計算機連接wifi，
vb用winsock連接網路。
❸ 用vb.net實現網路通信
用 vb.net socket通信
Dim th As Threading.Thread
2 Dim tcpl As System.Net.Sockets.TcpListener
3
4 Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
5 th = New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf MyListen))
6 th.Start()
7 End Sub
8
9 Public Sub SendMessage()Sub SendMessage(ByVal IP As String, ByVal SendMsg As String)
10 Try
11 If IP <> "" Then
12 Dim tcpc As New System.Net.Sockets.TcpClient(IP, 5656)
13 Dim tcpStream As Net.Sockets.NetworkStream = tcpc.GetStream
14 Dim reqStream As New IO.StreamWriter(tcpStream)
15 reqStream.Write(SendMsg)
16 reqStream.Flush()
17 tcpStream.Close()
18 tcpc.Close()
19 End If
20 Catch ex As Exception
21 MsgBox(ex.Message.ToString)
22 End Try
23 End Sub
24 Private Sub MyListen()Sub MyListen()
25 Try
26 Dim ipAddress As System.Net.IPAddress = System.Net.Dns.Resolve(System.Net.Dns.GetHostName).AddressList(0)
27 tcpl = New System.Net.Sockets.TcpListener(ipAddress, 5656)
28 tcpl.Start()
29 While True
30 Dim s As System.Net.Sockets.Socket = tcpl.AcceptSocket()
31 Dim MyBuffer(1024) As Byte
32 Dim i As Integer
33 i = s.Receive(MyBuffer)
34 If i > 0 Then
35 Dim lstrRec As String
36 Dim j As Integer
37 For j = 0 To i - 1
38 TextBox1.Text += Chr(MyBuffer(j)) & ","
39 Next
40 End If
41 End While
42 Catch ex As Exception
43 MsgBox(ex.Message.ToString)
44 End Try
45 End Sub
46
47 Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
48 SendMessage("192.168.0.61", TextBox2.Text)
49 End Sub
❹ VB.net如何搜索可用的無線網路並連接到指定的無線節點求指教。
病情分析：
考慮為感冒的可能，可以採用小兒氨酚黃那敏顆粒治療，
指導意見：
多喝開水，注意保暖很重要，必要時可以採用輸液進行治療的。
病情分析：
你好，謝謝你的咨詢，感冒初期可以吃點牛磺酸顆粒，葯店可以買到，是非處方葯。同時補充大量維C。感冒葯可以吃但只能緩解感冒症狀而不能治療感冒。
指導意見：
如果流鼻涕比較多，或者有點熱度，可以吃一點消炎葯，但是消炎葯最好少吃。感冒一般一個星期自愈。症狀如果加重就要去醫院。
病情分析：
您好，根據您的情況分析寶寶可能是受涼引起的感冒。
指導意見：
建議您在平時讓寶寶多喝水，同時您也要給寶寶吃點感冒葯，注意保暖，在飲食上少吃冷涼的食物，這樣寶寶慢慢會好的。
病情分析：
你好，七個月寶寶感冒鼻子不通氣，考慮是感冒導致的鼻炎。吃點哎暢等抗感冒葯就可以了。
指導意見：
平時多喝水，易消化飲食，保持室內空氣流通，注意休息。
病情分析：
你好，你所說的這種症狀是炎症的表現，是機體感染病菌的結果，應該在就醫治療的同時做好調整防護。
指導意見：
合理喂養，避免受涼，適當的增加衣物，減少易感人群的接觸和各種不良刺激，從各方面進行調整，逐漸的減輕恢復正常。
病情分析：
小兒上呼吸道感染，多為病毒引起，應早期應用病毒唑顆粒等，輔以對症及支持治療即可
指導意見：
日常應合理飲食，多飲水，加強護理，避免不良刺激，鼻塞等可應用撲爾敏，配合局部熱敷，滴用麻黃鹼滴劑等，具體應遵循臨床醫師的指導，
病情分析：
根據描述，考慮上呼吸道感染。
指導意見：
可以用點雙黃連口服液。多喂水，注意保暖。
❺ 用VB怎麼書寫NETSH WLAN 命令
open 的方法應用Append，output會覆蓋原文件
For V = 1 To 169
Open "\wifi.bat" For append As #10
temp="netsh wlan add profile filename=" + ""; WLAN - FAST_15FF40(" + Str(V) + ").XML; " "
print #10，temp
close #10
……
❻ VB中的網路連接問題
用winsock 控制項啊，老牌子東西了。（在部件里自己添加）
做兩個工程，各一個窗體，各添加一個winsock，用TCP方式連接，
A窗體：
winsockA.localip=192.168.18.15
winsockA.localport=1000
B窗體：
winsockB.remotehost=192.168.18.15(或218.75.146.123)
winsockB.remoteport=1000
具體一點請搜索 "vb 網路編程" "VB winsock " 等
❼ Vb DHCP怎麼做
可以考慮用VB shell 函數調用批處理文件：
方法如下：
有時候我們更換計算機的網路環境時，可能就需要設置計算機IP地址，而如果每次都通過點擊網路連接->屬性->IP地址這種方式來設置的話，也未免太繁瑣了，下面我來介紹一下使用批處理設置計算機的IP地址。
有時候我們更換計算機的網路環境時，可能就需要設置計算機IP地址，而如果每次都通過點擊網路連接->屬性->IP地址這種方式來設置的話，也未免太繁瑣了，下面我來介紹一下使用批處理設置計算機的IP地址。
腳本使用方法：先新建文本文件，修改後綴名為「.cmd"或「.bat」，然後將將所需要的代碼部分粘貼進去，保存，關閉文件。然後右鍵點擊該文件，選擇「打開」即可（Windows7需要選擇使用管理員運行）。文章的最後我會將所有四個批處理文件的下載地址列出。
一、Windows 7下的設置方法
1.自動獲取IP地址：
[plain] view plain
01.@echo off
02.echo ----來自GarfieldJiang的專欄的自動獲取IP地址批處理文件---
03.echo -----http://hi.csdn.net/jiangzhanchang------------------
04.echo --------------------------------------------------------
05.echo 正在設置自動獲得IP地址，請稍等......
06.netsh interface ipv4 set address name="本地連接" source=dhcp
07.:以上代碼設置IP地址自動獲取
08.netsh interface ipv4 set dns name="本地連接" source=dhcp
09.:以上代碼設置DNS自動獲取
10.:以上幾行代碼中的「本地連接」可根據需要修改為其他的，比如「無線網路連接」
11.if %errorlevel%==0 (netsh interface ipv4 show ip) else (echo ---------------------出現錯誤！-----------------&echo 錯誤代碼：%ERRORLEVEL%&echo 請點右鍵選擇「使用管理員運行」&echo ---------------------------------------------------)
12.pause
2.手動設置IP地址：
[plain] view plain
01.@echo off
02.echo ----來自GarfieldJiang的專欄的自動獲取IP地址批處理文件---
03.echo -----http://hi.csdn.net/jiangzhanchang------------------
04.echo --------------------------------------------------------
05.
06.echo 正在手動設置IP地址，請稍等......
07.
08.netsh interface ipv4 set address "本地連接" static 192.168.0.100 255.255.255.0 192.168.0.1
09.:上面一行地址分別為：IP地址、子網掩碼、默認網關
10.
11.netsh interface ipv4 set dnsservers "本地連接" static 192.168.0.1 primary
12.:上面一行設置主要的DNS伺服器地址
13.
14.netsh interface ipv4 set dnsservers "本地連接" static 192.168.0.1
15.:上面一行設置次要的DNS伺服器地址
16.:以上幾行代碼中的「本地連接」可根據需要修改為其他的，比如「無線網路連接」
17.if %errorlevel%==0 (netsh interface ipv4 show ip) else (echo ---------------------出現錯誤！-----------------&echo 錯誤代碼：%ERRORLEVEL%&echo 請點右鍵選擇「使用管理員運行」&echo ---------------------------------------------------)
18.
19.pause
二、Windows XP下的設置方法
1.自動獲取IP地址：
[plain] view plain
01.<span style="font-size: 10px;">@echo off
02.echo ----來自GarfieldJiang的專欄的自動獲取IP地址批處理文件---
03.echo -----http://hi.csdn.net/jiangzhanchang------------------
04.echo --------------------------------------------------------
05.echo 正在設置自動獲得IP地址，請稍等......
06.netsh interface ip set address name="本地連接" source=dhcp
07.:以上代碼設置IP地址自動獲取
08.netsh interface ip set dns name="本地連接" source=dhcp
09.:以上代碼設置DNS自動獲取
10.:以上幾行代碼中的「本地連接」可根據需要修改為其他的，比如「無線網路連接」
11.if %errorlevel%==0 (netsh interface ip show ip) else (echo ---------------------出現錯誤！-----------------&echo 錯誤代碼：%ERRORLEVEL%&echo 請點右鍵選擇「使用管理員運行」&echo ---------------------------------------------------)
12.pause</span>
2.手動設置IP地址：
[plain] view plain
01.<span style="font-size: 10px;">@echo off
02.echo ----來自GarfieldJiang的專欄的自動獲取IP地址批處理文件---
03.echo -----http://hi.csdn.net/jiangzhanchang------------------
04.echo --------------------------------------------------------
05.
06.echo 正在手動設置IP地址，請稍等......
07.
08.netsh interface ip set address "本地連接" static 192.168.0.100 255.255.255.0 192.168.0.1
09.:上面一行地址分別為：IP地址、子網掩碼、默認網關
10.
11.netsh interface ip set dnsservers "本地連接" static 192.168.0.1 primary
12.:上面一行設置主要的DNS伺服器地址
13.
14.netsh interface ip set dnsservers "本地連接" static 192.168.0.1
15.:上面一行設置次要的DNS伺服器地址
16.:以上幾行代碼中的「本地連接」可根據需要修改為其他的，比如「無線網路連接」
17.if %errorlevel%==0 (netsh interface ip show ip) else (echo ---------------------出現錯誤！-----------------&echo 錯誤代碼：%ERRORLEVEL%&echo 請點右鍵選擇「使用管理員運行」&echo ---------------------------------------------------)
18.
19.pause</span>
❽ vb中連接網路
如果你知道連接的名稱，例如「連接到163」或「ADSL」，那麼這段程序就可以運行了，不過你可不能保證你的用戶機器上有同樣的連接名稱，所以還必須要使用一段API函數來枚舉所有的可用撥號連接名稱才行。
新建一個VB
Project，在Form1中做以下聲明：
Private
Const
RAS_MaxDeviceType
=
16
Private
Const
RAS95_MaxDeviceName
=
128
Private
Const
RAS95_MaxEntryName
=
256
Private
Type
RASCONN95
dwSize
As
Long
hRasConn
As
Long
szEntryName(RAS95_MaxEntryName)
As
Byte
szDeviceType(RAS_MaxDeviceType)
As
Byte
szDeviceName(RAS95_MaxDeviceName)
As
Byte
End
Type
Private
Type
RASENTRYNAME95
dwSize
As
Long
szEntryName(RAS95_MaxEntryName)
As
Byte
End
Type
Private
Declare
Function
RasEnumConnections
Lib
"RasApi32.DLL"
Alias
"RasEnumConnectionsA"
(lprasconn
As
Any,
lpcb
As
Long,
lpcConnections
As
Long)
As
Long
Private
Declare
Function
RasEnumEntries
Lib
"RasApi32.DLL"
Alias
"RasEnumEntriesA"
(ByVal
reserved
As
String,
ByVal
lpszPhonebook
As
String,
lprasentryname
As
Any,
lpcb
As
Long,
lpcEntries
As
Long)
As
Long
Private
Declare
Function
RasHangUp
Lib
"rasapi32.dll"
Alias
_
"RasHangUpA"
(ByVal
hRasConn
As
Long)
As
Long
在Form上放一個ListBox或者ComboBox，然後在Form_Load中寫入以下代碼把當前可用的撥號連接名稱加進去，這里我們使用ListBox。
Private
Sub
Form_Load()
Dim
s
As
Long,
l
As
Long,
ln
As
Long,
a$
ReDim
R(255)
As
RASENTRYNAME95
R(0).dwSize
=
264
s
=
256
*
R(0).dwSize
l
=
RasEnumEntries(vbNullString,
vbNullString,
R(0),
s,
ln)
For
l
=
0
To
ln
-
1
a$
=
StrConv(R(l).szEntryName(),
vbUnicode)
List1.AddItem
Left$(a$,
InStr(a$,
Chr$(0))
-
1)
Next
List1.ListIndex
=
0
End
Sub
好，現在你就可以運行一下了，ListBox中應該把當前所有的撥號連接名稱都顯示出來了。
下面再往Form上加一個命令按鈕，Caption設為「Connect」。輸入以下代碼：
Private
Sub
Command1_Click()
Dim
cmd
As
String
cmd
=
"rundll
rnaui.dll,RnaDial
"
&
List1.List(List1.ListIndex)
Shell
cmd$,
vbNormalFocus
End
Sub
這段程序從ListBox獲得選擇的撥號連接名稱，然後調用RunDLL建立撥號連接。如果已經建立連接，它將顯示撥號連接的狀態。如果你不想讓對話框出現，再添一行代碼上去：
DoEvents:SendKeys
"{enter}",
True
它將發送一個回車鍵到當前窗口，相當於用戶按了「確認」按鈕。
如何掛斷當前的連接
我們繼續在上面的基礎上講解，掛斷連接要用到RasHangUp函數，我們在上面聲明部分已經寫過了。
再向Form1添加一個按鈕Command2，Caption設為Disconnect，輸入如下的代碼：
Private
Sub
Command2_Click()
Dim
s
As
Long,
l
As
Long,
ln
As
Long,
a$,
RasConn
As
Long,
Ret
As
Long
b$
=
List1.List(List1.ListIndex)
ReDim
R(255)
As
RASCONN95
R(0).dwSize
=
412
s
=
256
*
R(0).dwSize
l
=
RasEnumConnections(R(0),
s,
ln)
For
l
=
0
To
ln
-
1
a$
=
StrConv(R(l).szEntryName(),
vbUnicode)
a$
=
Left$(a$,
InStr(a$,
Chr$(0))
-
1)
RasConn
=
R(l).hRasConn
'這里將掛斷連接
Ret
=
RasHangUp(ByVal
RasConn)
Next
End
Sub
這段代碼枚舉當前所有的連接，並且把它掛斷，如果你有雙貓，三貓（沒有這么好的條件吧），它將把所有連接都掛斷。
如何判斷當前是否連接到Internet
以前部分網站介紹過讀取Registry來判斷是否連接到Internet的方法，不過筆者認為這種方法不是最健壯，這里還是在上面的基礎上用RasEnumConnections來判斷某個連接是否已經連上線了。
再向Form1添加一個按鈕Command3，Caption設為Status，輸入如下的代碼：
Private
Sub
Command2_Click()
Dim
s
As
Long,
l
As
Long,
ln
As
Long,
a$,
b$
b$
=
List1.List(List1.ListIndex)
ReDim
R(255)
As
RASCONN95
R(0).dwSize
=
412
s
=
256
*
R(0).dwSize
l
=
RasEnumConnections(R(0),
s,
ln)
For
l
=
0
To
ln
-
1
a$
=
StrConv(R(l).szEntryName(),
vbUnicode)
a$
=
Left$(a$,
InStr(a$,
Chr$(0))
-
1)
If
a$
=
b$
Then
MsgBox
"Connected
(or
connecting)!":
Exit
Sub
Next
MsgBox
"Not
Connected!"
End
Sub
本段代碼判斷ListBox當前選中的連接是否已經連接成功或者正在連接之中，並給出相應的信息。
❾ 電腦~vb~聯網
單機使用完全沒有問題。VB在編輯時是單機編輯的，在編輯過程中確定所編輯的程序是不是網路程序，如果不是，在單機調試就可以，如果是，在編輯調試中在網路中調試。
在安裝VB時，你所需要的基本控制項、控制項的屬性、控制項的方法、控制項的事件都在VB程序中，在編輯過程中調用即可。