Type | Description | |||
line as String | A string expression that indicates the custom command as described in the RFC 2229. |
Private Sub Form_Load() Dim c As EXDICTCLIENTLibCtl.Connection Set c = Client1.OpenConnection("dict.org") If Not (c Is Nothing) Then With c.LineStream .WriteLine "show db" Dim bContinue As Boolean bContinue = True While bContinue Dim s As String s = .ReadLine If (s = ".") Then bContinue = False End If Debug.Print s Wend End With c.Close End If Set c = Nothing End Sub
The sample sends the "show db" command to the server and gets the answer that server sends to the command, line by line until the server sends the '.' line. The "show db" command displays the list of currently accessible databases, one per line.