vb.net连接宽带 vbnet console

求大神指点vb.net 怎么取宽带连接的账号呀

.net

取宽带账号和密码的我没，如果你想实现拨号和断网的话

，我有现成的模块

求大神指点vb.net 怎么判断 网络是否连接 和取本机局域网IP和互联网IP

你这段代码可以获得该主机名下vb.net连接宽带的所有ipvb.net连接宽带，每个ip地址都是有类型簇vb.net连接宽带的，可以区别本地地址和网络地址、ip6地址。

你获取索引为0的ip，不一定是正确的网络地址，它有时顺序在中间，在后面。

应该获取所有ip，再通过ip地址簇类型区分

判断连接本身有一个函数，不过有时没联网也是真。

可以用ping，ping百度、ping访问速度快、不经常维护断线的网络主机。

用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 连接宽带和断开的代码

编写一个宽带连接的批处理脚本：

rasdial entryname [unseranamd 12345678]

编写一个宽带断开的批处理脚本：

rasphone -h entryname

在vb中调用这两个脚本执行就可以了；

求大神指点. vb.net 做面判断win7 系统的桌面上是否有宽带连接快捷方式呢? 没有的话就创建一个

util:property-path id="property-path" path="helloWorld.hello"/

/bin/arch = unknown

/usr/bin/arch -k = unknown

/usr/convex/getsysinfo = unknown

/usr/bin/hostinfo = Mach kernel version:

Darwin Kernel Version 11.4.0d1: Fri May 18 16:05:31 EDT 2012; root:xnu-1699.26.8/BUILD/obj//RELEASE_I386

Kernel configured for up to 4 processors.

4 processors are physically available.

4 processors are logically available.

Processor type: i486 (Intel 80486)

Processors active: 0 1 2 3

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

Microsoft.VisualBasic.Devices.Network.IsAvailable As Boolean

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

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

该事件是在电脑断开/连上互联网是引发vb.net连接宽带的

其中：

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连接宽带和vbnet console的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。