Information Technology Reference
In-Depth Information
End
End
Attribute VB_Name = "myClient"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Last modification: 15/11/99
Private Sub Form_Load()
Unload ChoiceSC 'Close the main menu properly
SendTextData.Enabled = False 'Initialisation
SendLabel.Enabled = False
cmdDisConnect.Enabled = False
cmdConnect.Enabled = True
AddressIP.Enabled = True
AddressPort.Enabled = False
End Sub
Private Sub cmdConnect_Click()
'Connect to the server
myTCPClient.Connect
SendTextData.Enabled = True
SendLabel.Enabled = True
cmdConnect.Enabled = False
cmdDisConnect.Enabled = True
AddressIP.Enabled = False
AddressPort.Enabled = False
CloseC.Enabled = False
PortNameC.Enabled = False
End Sub
Private Sub cmdDisConnect_Click()
'Disconnect from the server
myTCPClient.Close
SendTextData.Enabled = False
SendLabel.Enabled = False
cmdConnect.Enabled = True
cmdDisConnect.Enabled = False
AddressIP.Enabled = True
CloseC.Enabled = True
PortNameC.Enabled = True
End Sub
Private Sub PortNameC_Click()
'Choice of the port (name)
If PortNameC.Text = "--Manual enter-- >" Then AddressPort.Enabled = True
Else AddressPort.Enabled = False
If PortNameC.Text = "Test" Then AddressPort.Text = "1001"
If PortNameC.Text = "Echo" Then AddressPort.Text = "7"
If PortNameC.Text = "Daytime" Then AddressPort.Text = "13"
If PortNameC.Text = "FTP" Then AddressPort.Text = "21"
If PortNameC.Text = "Telnet" Then AddressPort.Text = "23"
If PortNameC.Text = "SMTP" Then AddressPort.Text = "25"
End Sub
Private Sub myTCPClient_DataArrival(ByVal bytesTotal As Long)
'Display incoming data
Dim str1 As String, str2 As String, str As String 'declare old, new, to-
tal data
str1 = ShowText.Text 'old data
