关于VB的远程发信息

来源：百度知道 编辑：UC知道 时间：2024/05/27 06:21:25
Winsock1.RemoteHost = "119.165.xxx.xx"
Winsock1.RemotePort = 4444
Winsock1.Connect
基本的客户端但是对方把防火墙和杀毒等即使都关了，用VC打包给了对方
我哪出问题了,还是对方因为没有VB的关系？

Private Sub Timer1_Timer()
If Winsock1.State = sckClosed Then
Winsock1.RemoteHost = "119.165.186.25"
Winsock1.RemotePort = 4444
Winsock1.Connect
End If
End Sub

Private Sub Winsock1_Close()
Winsock1.Close

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim a As String
Winsock1.GetData a
If Mid(a, 1, 3) = "msg" Then
MsgBox Mid(a, 4, Len(a))
End If
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Winsock1.Close
End Sub
是VB打的包
和延迟有关吗?
如果外网连外网可以吗？
局域网肯定是可以的

情况就是，你不能发送一个信息，给连接到INTNET的局域网中的某一太计算机。

当然如果你这两台计算机在同一个局域网中，并且IP使用的是局域网的IP，我想就不会出现问题了。