木瓜奇迹剑士转职:求大家帮我看看这个VB 程序吧。

这个程序主要是一个聊天程序的部分程序，问题是我把其生成EXE程序的时候它就会显示“错误的参数号或无效的属性赋值”然后光标就在b(Index)那里了。哪个高手知道是怎么回事啊。

Private Sub b_DataArrival(ByVal bytesTotal As Long)

Dim str As String

Dim i As Long

b(Index).GetData str

Text1.Text = Text1.Text + str

For i = 1 To maxn

If user(i) Then

b(i).SendData str

End If

Next i

End Sub

Private Sub Command1_Click()

Form2.Hide

End Sub

Private Sub Command2_Click()

Load Form1

Form1.Show

End Sub

Private Sub Form_Load()

Dim str1 As String

Form2.Caption = "用户"

'注释：winsock控件 a 作为服务器程序监听

a.LocalPort = 3000

a.Listen

End Sub

Private Sub a_ConnectionRequest(ByVal requestID As Long)

Dim i As Long

For i = 1 To maxn '当一客户请求时给启动一Winsock控件标志号

If Not user(i) Then

user(i) = True

Exit For

End If

Next i

If i > maxn Then

Exit Sub

End If

Load b(i) '当一客户请求时启动一Winsock控件

b(i).Accept requestID '注释：实际建立连接

If Text1.Text = "" Then '注释: 发送数据

b(i).SendData Chr(0)

Else

b(i).SendData Text1.Text

End If

Form2.Show

End Sub

Private Sub s_Close(Index As Integer)

b(Index).Close '注释: 关闭连接

Unload b(Index) '注释：卸载 一个WinSock 控件'

user(Index) = False

End Sub
刚才的问题好象已经解决了。但是现在却出现了和谁连接都超时连不上的问题。为什么呢？谁能告诉我。

PS：DIM就在那个位置啊。

我是下载的，希望大家去看看原文：http://www.tesoftware.net/code/netware/117.htm 非常感谢