Chilkat HOME Android™ ASP Visual Basic VB.NET C# iOS (IPhone) Objective-C C++ C Unicode C++ Unicode C MFC Delphi DLL Delphi ActiveX FoxPro Java Perl PHP Extension PHP ActiveX Python PowerShell Ruby SQL Server VBScript
(Visual Basic) SSL Client ExampleDemonstrates how to connect to an SSL server, send a simple message, receive a simple response, and disconnect.
Dim socket As New ChilkatSocket Dim success As Long success = socket.UnlockComponent("Anything for 30-day trial") If (success <> 1) Then Text1.Text = Text1.Text & socket.LastErrorText & vbCrLf Exit Sub End If Dim ssl As Long ssl = 1 Dim maxWaitMillisec As Long maxWaitMillisec = 20000 ' The SSL server hostname may be an IP address, a domain name, ' or "localhost". You'll need to change this: Dim sslServerHost As String sslServerHost = "123.123.88.88" Dim sslServerPort As Long sslServerPort = 8123 ' Connect to the SSL server: success = socket.Connect(sslServerHost,sslServerPort,ssl,maxWaitMillisec) If (success <> 1) Then Text1.Text = Text1.Text & socket.LastErrorText & vbCrLf Exit Sub End If ' Set maximum timeouts for reading an writing (in millisec) socket.MaxReadIdleMs = 20000 socket.MaxSendIdleMs = 20000 ' Send a "Hello Server! -EOM-" message: success = socket.SendString("Hello Server! -EOM-") If (success <> 1) Then Text1.Text = Text1.Text & socket.LastErrorText & vbCrLf Exit Sub End If ' The server (in this example) is going to send a "Hello Client! -EOM-" ' message. Read it: Dim receivedMsg As String receivedMsg = socket.ReceiveUntilMatch("-EOM-") If (receivedMsg = vbNullString ) Then Text1.Text = Text1.Text & socket.LastErrorText & vbCrLf Exit Sub End If ' Close the connection with the server ' Wait a max of 20 seconds (20000 millsec) socket.Close 20000 MsgBox receivedMsg |
© 2000-2013 Chilkat Software, Inc. All Rights Reserved.