你可以使用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程序中，在编辑过程中调用即可。