vb.netadsl的简单介绍

求大神指点vb.net代码添加数组图片框的时候写 图片框鼠标事件的时候提示错误Handles pic.MouseDown

错误代码,是指人们在使用软、硬件、路由器的时候，这些软硬件不能正常操作的一种现象~~

如果是某几个网页打不开，而出现错误代码，那么这是属于服务器的事，我们是无法左右它的！

比较常见的一些代码如下：

错误678/651/815，碰到这样的代码，你先偿试重起电脑或路由器，以排除它们的偶然故障引起。

查看modem的亮灯情况：

第一步：查看power灯是否正常，稳定亮转至第二步，不亮则可能是忘记打开MODEM电源开关，插电源线或电源稳压器松动所致；

第二步：查看DSL灯是否正常亮。如稳定亮则转至第三步，如果DSL灯一直闪烁不停，表明ADSL线路正在连接或一直连接不上，此为线路问题，最常见的一种情况是分离器进线与接电话的端口接错了，这时调换接线端口，再检查室内的电话线接头是否接触不良，或者取消分离器，直接把入户线接入modem，再重启MODEM，如果仍不能解决问题出单检查外线。；

第三步：查看LAN亮灯情况，如不亮则转至第四步，如是稳定亮，有可能是电脑的拨号软件出现问题，建议重装拨号软件；

第四步：如LAN灯不亮，则是modem与电脑的连线问题，请从新拔插由modem到电脑之间的网线。

错误691/619/629一般多为账号密码不一致，欠费，账号挂死或者端口出错引起。

错误769/797一般是网卡禁用或者驱动程序出问题。

如果在你使用中，又出现了别的代码，那么你可以参考百科资料：

相关问答

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

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

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

.net 取宽带账号和密码的我没，如果你想实现拨号和断网的话 ，我有现成的模块

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

Q4: 在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当前选中的连接是否已经连接成功或者正在连接之中，并给出相应的信息。

Q5: VB与VB.NET串口及以太网通迅

关于串口通讯的问题vb.netadsl：

很明显vb.netadsl，你还不知道（不会、不习惯）使用事件驱动的方式接收数据。

建议你仔细看看串口组件（无论VB6还是VB.net）的OnComm事件vb.netadsl，你的问题很容易解决。

关于以太网通讯vb.netadsl：

在TCP通讯中端口确实可以重用vb.netadsl，你百度一下“TCP端口重用”能查到很多示例。

但绝大多数情况下不推荐端口重用，而应该采取服务器端建立连接池的方法。

或者，干脆不用TCP，用UDP解决也可以。

关于vb.netadsl和的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。