vb.net连接wifi vb net

使用vb.net将以太网共享给虚拟wifi网络

最简单的办法是用句柄操作窗体，这种方法就好比是计算机在代替你在打开设置窗口，完成设置。

比较难实现的方法是用API，不过我不知道用那些API，而且还要驱动支持

因为vb。net是高级语言，不能直接操作驱动，所以直接写汇编是不可行的

相关问答

Q1: VB.Net 关于路由器后TCP或UDP通讯问题 假设一台电脑192.168.0.1位于路由1.

端口不NAT，两个子网中的两端之间不可能通信。至少要有一方处在公网下或有路由端口映射，不必双方都映射。

建议题主找本计算机网络的书研读一下子网划分这块儿。

Q2: 用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

Q3: vb.net 获取指定网卡的网络连接状态

.net不能获得【指定】网卡的信息，给个思路，先遍历所有网卡，然后找到你需要的的那个网卡的信息。

Q4: VB.NET如何判断电脑是否已连接到网络？

Microsoft.VisualBasic.Devices.Network.IsAvailable As Boolean

生成实例后可以通过此属性来获取是否联网的值，True代表已联网，False代表没有联网

Microsoft.VisualBasic.Devices.Network.NetworkAvailabilityChanged(ByVal Object, ByVal Microsoft.VisualBasic.Devices.NetworkAvailableEventArgs)

该事件是在电脑断开/连上互联网是引发的

其中：

e.IsNetworkAvailable

的功能同Microsoft.VisualBasic.Devices.Network.IsAvailable

实例:

Dim netListener As New Microsoft.VisualBasic.Devices.Network '生成实例

If netListener.IsAvailable = True Then

    MsgBox("已联网")

Else

    MsgBox("未联网")

End If

NetworkAvailabilityChanged实例：

WithEvents netListener As New Microsoft.VisualBasic.Devices.Network '生成实例

Private Sub OnNetworkChanged(ByVal Object, ByVal Microsoft.VisualBasic.Devices.NetworkAvailableEventArgs)Handles netListener.NetworkAvailabilityChanged

    If e.IsNetworkAvailable = True Then

        MsgBox("已联网")

    Else

        MsgBox("未联网")

    End If

End Sub

vb.net连接wifi的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb net、vb.net连接wifi的信息别忘了在本站进行查找喔。