2017-08-10 55 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文本框的內容。