13518219792
错误代码,是指人们在使用软、硬件、路由器的时候，这些软硬件不能正常操作的一种现象~~
创新互联是专业的工布江达网站建设公司，工布江达接单;提供成都做网站、网站设计,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行工布江达网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
如果是某几个网页打不开，而出现错误代码，那么这是属于服务器的事，我们是无法左右它的！
比较常见的一些代码如下：
错误678/651/815，碰到这样的代码，你先偿试重起电脑或路由器，以排除它们的偶然故障引起。
查看modem的亮灯情况：
第一步：查看power灯是否正常，稳定亮转至第二步，不亮则可能是忘记打开MODEM电源开关，插电源线或电源稳压器松动所致；
第二步：查看DSL灯是否正常亮。如稳定亮则转至第三步，如果DSL灯一直闪烁不停，表明ADSL线路正在连接或一直连接不上，此为线路问题，最常见的一种情况是分离器进线与接电话的端口接错了，这时调换接线端口，再检查室内的电话线接头是否接触不良，或者取消分离器，直接把入户线接入modem，再重启MODEM，如果仍不能解决问题出单检查外线。；
第三步：查看LAN亮灯情况，如不亮则转至第四步，如是稳定亮，有可能是电脑的拨号软件出现问题，建议重装拨号软件；
第四步：如LAN灯不亮，则是modem与电脑的连线问题，请从新拔插由modem到电脑之间的网线。
错误691/619/629一般多为账号密码不一致，欠费，账号挂死或者端口出错引起。
错误769/797一般是网卡禁用或者驱动程序出问题。
如果在你使用中，又出现了别的代码，那么你可以参考百科资料：
Imports System.Text
Imports System.Windows
Imports System.Windows.Forms
Public Class Netin '类 名
'Inherits Forms.Form
Public Shared Netin As New Form
Public components As ComponentModel.IContainer
Protected Overrides Sub Finalize()
MyBase.Finalize()
End Sub
DebuggerStepThrough()
Public Sub InitializeComponent()
Me.components = New ComponentModel.Container()
Dim resources As ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(bjt))
Me.TextBox1 = New TextBox(Me.components)
Me.Button1 = New Button(Me.components)
'For … Next
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Button1)
Me.m = New ContextMenuStrip(Me.components)
Me.m1.Text = "菜单项1"
'设置并添加相关控件，(窗体)Netin 初始化。
End Sub
Private Sub Form_Load(sender As Object, e As EventArgs) Handles Me.Load
'加载后显示窗体Netin。
End Sub
Public Sub ObjClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click,Button2.Click,Button3.Click,TextBox1.Click
MessageBox.Show("你按了鼠标")
End Sub
Public WithEvents TextBox1 As TextBox
Public WithEvents Button1 As Button
Public WithEvents Button2 As Button
Public WithEvents Button3 As Button
Friend WithEvents m As ContextMenuStrip
Friend WithEvents m1 As ToolStripMenuItem
End Class
Class MainWindow
Netin.Show()
Netin.Button2.Text = "Main"
……
Dim bt As New ArrayList
bt.Add(Me.Button5)
bt.Add(Me.Button6)
bt.Add(Me.Button7)
上面这段代码本人表示不懂，故没有使用。下面的代码在VS2015中运行通过：
Private Sub btClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click, Button6.Click, Button7.Click
Select Case CType(sender, Button).Name
Case "Button5"
MessageBox.Show("你点击了 Button5 按钮")
Case "Button6"
MessageBox.Show("你点击了 Button6 按钮")
Case "Button7"
MessageBox.Show("你点击了 Button7 按钮")
End Select
End Sub
.....
Px += 0
Py += 20
AddHandler pic(i).Click, AddressOf Pic_Click '添加这一句，绑定单击图片框事件
Next
FlowLayoutPanel1.Controls.AddRange(pic)
End Sub
Dim l As Point, s As Size, f As Boolean
Private Sub Pic_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim pic As PictureBox = CType(sender, PictureBox)
If f Then
pic.Location = l
pic.Size = s
f = False
Else
l = pic.Location
s = pic.Size
pic.BringToFront()
pic.Location = FlowLayoutPanel1.Location
pic.Size = FlowLayoutPanel1.Size
f = True
End If
End Sub
