# 救救我吧！这个程式编译之后都会出现“执行期错误183“

Posted by 科南 on December 23, 1998 at 17:14:05:

不知道为什么下面这个程式在第一次执行或编译之后就会出现执行期错误183

Dim byteAry() As Byte
Dim totbyte As Long
Dim clientdata() As Byte

Private Sub Command1_Click()
Dim a() As Byte
ReDim a(8000)
Dim i As Integer
Dim j As Integer
For i = 1 To 8000
If j >= 255 Then
j = 0
End If
j = j + 1
a(i) = j
Next i
Winsock1.SendData (a)
^^^^^^^^^^^^^^^^^^^^^^就是这一个行！！
End Sub

Private Sub Form_Load()

Call init_pic '画面储存
With Winsock1
.RemoteHost = "255.255.255.255"
.RemotePort = 5100 '要连线的连接埠。
.LocalPort = 5200
.Bind 5200 '连结到本机的连接埠上。
End With

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Winsock1.GetData clientdata()
End Sub

Follow Ups:

- Re: 救救我吧！这个程式编译之后都会出现“执行期错误183“ Knight 10:31:17 12/24/98 (0)