代码如下:
Sub con()
Const sckConnectionReset = 0
udpPeerA.Close
With udpPeerA
.RemoteHost = xx '要连接到的计算机名
.RemotePort = 1001 '要连接到的端口号
.LocalPort = 1001 '该Winsock控制将要使用的本地端口号,便于其它端与该Winsock通讯
.Bind 1001 '将该Winsock控制绑定到该本地端口
End With
Call textSend
Exit Sub
End SubSub textSend()
udpPeerA.SendData txtSend.Text '发送文本
Exit Sub
End Sub
Private Sub Form_Load()
xx="...."\\此处若用IP则在win98中运行时出现:"运行时错误'126'"win2000中刚正常
Call con
End Sub
请大家看看这是怎么回事,是不是.DLL的问题
Sub con()
Const sckConnectionReset = 0
udpPeerA.Close
With udpPeerA
.RemoteHost = xx '要连接到的计算机名
.RemotePort = 1001 '要连接到的端口号
.LocalPort = 1001 '该Winsock控制将要使用的本地端口号,便于其它端与该Winsock通讯
.Bind 1001 '将该Winsock控制绑定到该本地端口
End With
Call textSend
Exit Sub
End SubSub textSend()
udpPeerA.SendData txtSend.Text '发送文本
Exit Sub
End Sub
Private Sub Form_Load()
xx="...."\\此处若用IP则在win98中运行时出现:"运行时错误'126'"win2000中刚正常
Call con
End Sub
请大家看看这是怎么回事,是不是.DLL的问题
谢谢[email protected]
在 .RemoteHost = xx '要连接到的计算机名
.RemotePort = 1001 '要连接到的端口号
试一下
我的vb+SP6也装过了都没用
xx 变量定义了么?
.RemoteHostIP = xx