2017-08-10 216 views
0

我是一名编程初学者,我一直试图理解我的教授给我的这套代码。下面是一个形式的全部代码:visual basic 6(vb6)代码含义

Option Explicit 

Private Sub cmdSend_Click() 
    Dim sIPAddress As String 

    sIPAddress = Trim(txtIPAddress) 

    If sIPAddress = "" Then Exit Sub 

    With Winsock1 
     .RemoteHost = sIPAddress 
     .RemotePort = "1338" 
     .SendData txtSendMessage 
    End With 
End Sub 

Private Sub Form_Load() 
    With Winsock1 
     .Close 
     .Protocol = sckUDPProtocol 
     .Bind "1337" 
    End With 
End Sub 

Private Sub Form_Unload(Cancel As Integer) 
    Winsock1.Close 
End Sub 

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) 
    Dim msg As String 

    Winsock1.GetData msg, vbString 
    txtReceiveMessage = msg & vbCrLf & txtReceiveMessage 
End Sub 

这是我不能明白寿代码:

With Winsock1 
     .RemoteHost = sIPAddress 
     .RemotePort = "1338" 
     .SendData txtSendMessage 
    End With 
End Sub 

Private Sub Form_Load() 
    With Winsock1 
     .Close 
     .Protocol = sckUDPProtocol 
     .Bind "1337" 
    End With 
End Sub 

谁能让我明白了吗?当我在接下来的几十年或两年中遇到这些代码时,单词的意思会更好,这样我的生活会更轻松。谢谢。

+0

您将在VB6联机帮助中找到所有需要的信息:[Visual Basic 6.0产品文档](https://msdn.microsoft.com/en-us/library/aa338032%28VS.60%29.aspx)。请记住:今天的初学者是明天的专家;) – deblocker

+0

如果你说“密码”,你已经可怕地失去了。 – Bob77

+0

一些非软件工程师的工程师可能会说“代码”而不是“源代码”(程序员的名词),但我不认识任何会说“代码”的人:)起初我以为你的意思是像一组数字意味着别的什么...... – DaveInCaz

回答

1

当形式负载,的Form_Load()被调用,并设置在Winsock的协议UDP和侦听(绑定),用于输入端口1337

有窗体上的一个按钮(cmdSend)。当它被点击时,它发送txtSendMessage文本框的内容。