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

Posted by Knight on December 24, 1998 at 10:31:17:

In Reply to: 救救我吧！这个程式编译之后都会出现“执行期错误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)
: ^^^^^^^^^^^^^^^^^^^^^^就是这一个行！！
use winsock1.senddata a
为何 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: