Chilkat HOME ASP Visual Basic VB.NET C# Visual C++ C MFC Delphi FoxPro Java Perl PHP Python Ruby SQL Server VBScript
SSL Client ExampleDemonstrates how to connect to an SSL server, send a simple message, receive a simple response, and disconnect.
set socket = CreateObject("Chilkat.Socket") success = socket.UnlockComponent("Anything for 30-day trial") If (success <> 1) Then MsgBox "Failed to unlock component" WScript.Quit End If ssl = 1 maxWaitMillisec = 20000 ' The SSL server hostname may be an IP address, a domain name, ' or "localhost". You'll need to change this: sslServerHost = "123.123.88.88" sslServerPort = 8123 ' Connect to the SSL server: success = socket.Connect(sslServerHost,sslServerPort,ssl,maxWaitMillisec) If (success <> 1) Then MsgBox socket.LastErrorText WScript.Quit 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 MsgBox socket.LastErrorText WScript.Quit End If ' The server (in this example) is going to send a "Hello Client! -EOM-" ' message. Read it: receivedMsg = socket.ReceiveUntilMatch("-EOM-") If (receivedMsg = vbNullString ) Then MsgBox socket.LastErrorText WScript.Quit End If ' Close the connection with the server ' Wait a max of 20 seconds (20000 millsec) socket.Close 20000 MsgBox receivedMsg |
Need a specific example? Send a request to support@chilkatsoft.com
© 2000-2010 Chilkat Software, Inc. All Rights Reserved.