帮忙翻译一下VB代码（加点注释）

Question

服务器程序的源代码如下：

Private Sub Command1_Click()

End

End Sub

Private Sub Form_Load()

textsend.Visible = False

textget.Visible = False

Winsockserver.LocalPort = 1001

Winsockserver.Listen

End Sub

Private Sub textsend_Change()

Winsockserver.SendData textsend.Text

End Sub

Private Sub Winsockserver_Close()

Winsockserver.Close

End

End Sub

Private Sub Winsockserver_ConnectionRequest(ByVal requestID As Long)

textsend.Visible = True

textget.Visible = True

If Winsockserver.State <> sckClosed Then Winsockserver.Close

Winsockserver.Accept requestID

End Sub

Private Sub Winsockserver_DataArrival(ByVal bytesTotal As Long)

Dim tmpstr As String

Winsockserver.GetData tmpstr

textget.Text = tmpstr

End Sub

客户机程序的源代码如下：

Private Sub Command1_Click()

End

End Sub

Private Sub Command2_Click()

Winsockclient.Connect

End Sub

Private Sub Form_Load()

textsend.Visible = False

textget.Visible = False

Winsockclient.RemotePort = 1001

Winsockclient.RemoteHost = "sccdsz"

End Sub

Private Sub Text1_Change()

Winsockclient.RemoteHost = Text1.Text

End Sub

Private Sub textsend_Change()

Winsockclient.SendData textsend.Text

End Sub

Private Sub Winsockclient_Close()

Winsockclient.Close

End

End Sub

Private Sub winsockclient_Connect()

textsend.Visible = True

textget.Visible = True

Command2.Visible = False

End Sub

Private Sub winsockclient_DataArrival(ByVal bytesTotal As Long)

Dim tmpstr As String

Winsockclient.GetData tmpstr

textget.Text = tmpstr

End Sub

Answer 1

'这天热啊！
'有缘帮你写详细点吧
Private Sub Command1_Click() '按钮1点击事件

End '退出程序

End Sub

Private Sub Form_Load() '主窗口启动事件

textsend.Visible = False 'textsend是文本框控件吧,把它设为不可见

textget.Visible = False '同上,textget设为不可见

Winsockserver.LocalPort = 1001 'Winsockserver是你添加的winsock控件,绑定网络端口1001

Winsockserver.Listen '服务端设为监听状态

End Sub

Private Sub textsend_Change() 'textsend文本框数据发生了改变

Winsockserver.SendData textsend.Text '利用Winsockserver把textsend文本框的数据发送出去

End Sub

Private Sub Winsockserver_Close() 'Winsockserver关闭事件

Winsockserver.Close '关闭Winsockserver连接

End '退出程序

End Sub

Private Sub Winsockserver_ConnectionRequest(ByVal requestID As Long) 'Winsockserver有连接请求

textsend.Visible = True '同上改变文本框的属性，设为可见

textget.Visible = True '同上

If Winsockserver.State <> sckClosed Then Winsockserver.Close '连接未关闭就将其关闭
'这里还需要添加一个End If

Winsockserver.Accept requestID '接受客户端连接

End Sub

Private Sub Winsockserver_DataArrival(ByVal bytesTotal As Long) '有数据传进来了

Dim tmpstr As String '定义一个字符串变量tmpstr

Winsockserver.GetData 'tmpstr 把接收到得数据保存在tmpstr中

textget.Text = tmpstr 'textget文本框就显示接收到得数据

End Sub

客户机程序的源代码如下：

Private Sub Command1_Click() '同上

End

End Sub

Private Sub Command2_Click() '按钮2被点击

Winsockclient.Connect '连接服务端

End Sub

Private Sub Form_Load() '主窗口启动事件

textsend.Visible = False '同上设置属性不可见

textget.Visible = False

Winsockclient.RemotePort = 1001 '绑定网络端口1001

Winsockclient.RemoteHost = "sccdsz" '绑定服务端IP地址如 "192.168.1.1"

End Sub

Private Sub Text1_Change() '文本框1数据改变

Winsockclient.RemoteHost = Text1.Text '把文本框的数据设为服务端IP地址

End Sub

Private Sub textsend_Change() 'textsend文本框里面数据改变

Winsockclient.SendData textsend.Text '发送textsend文本框的数据到服务端

End Sub

Private Sub Winsockclient_Close() '同上关闭连接

Winsockclient.Close

End

End Sub

Private Sub winsockclient_Connect() '有连接请求了

textsend.Visible = True '不多说了

textget.Visible = True

Command2.Visible = False

End Sub

Private Sub winsockclient_DataArrival(ByVal bytesTotal As Long) '有数据到达了

Dim tmpstr As String

Winsockclient.GetData tmpstr

textget.Text = tmpstr '同上获取数据保存到textget文本框中，显示出来

End Sub