请教

Question

Private Sub cmdcon_Click()
On Error GoTo ErrHandler
With Winsock1
   .RemoteHost = Trim(txtRemoteIP)
   .RemotePort = Trim(txtRemotePort)
   If .LocalPort = Empty Then
      .LocalPort = Trim(txtLocalPort)
      .Bind .LocalPort
      End If
End With
txtLocalPort.Locked = True
txtsent.SetFocus
Exit Sub
ErrHandler:
MsgBox "建立连接失败，按 F1 以获得帮助信息", vbCritical
End Sub
Private Sub cmdsent_Click()
Dim s As String
s = Trim(txtsent.Text)
Winsock1.SendData s
End Sub
Private Sub Command3_Click()
txtsent.Text = ""
txtacce.Text = ""
txtsent.SetFocus
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF1 Then
ChDir App.Path
Shell "notepad.exe readme.txt", vbNormalFocus
End If
End Sub
Private Sub Form_Load()
txtRemoteIP = Winsock1.LocalIP
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim s As String
Winsock1.GetData s
txtacce.SelText = s
End Sub
高手帮帮看看我这个程序在局域网内能成功实现通讯吗?我现在没条件在局域网内试

Answer 1

单机测试网络的办法：如果你是Windows9X系统，直接启动两个程序（发送、接收）测试即可。如果你是Windows NT/2000/XP等系统，可以想办法将网线连接到HUB或者交换机，使网口处于工作状态及可以同上方法测试。实在不行，你就用127.0.0.1的IP试试看。俗话说：没有办法，想办法；办法不行改办法；总之一定有办法。