INCLUDE ssl ' Connect to webserver s1 = SSL_CONNECT("www.google.com:443") ' Show some properties PRINT "----> Website: ", SSL_GET$(s1, "/") PRINT "----> Validation: ", SSL_VALIDATION$(s1) PRINT "----> Cipher: ", SSL_CIPHER$(s1) PRINT "----> Certificate: ", SSL_CERTIFICATE$(s1) ' Close SSL connection SSL_CLOSE(s1) '-------------------------------------------------------------------------- ' Alternatively, use the SSL_CMD$ API. '-------------------------------------------------------------------------- ' All requests to the HTTP server should be appended with CRNLCRNL SSL_APPEND_MARK$ = CR$ & NL$ & CR$ & NL$ ' Received HTTP data has no specific termination SSL_ENDING_MARK$ = "" ' Connect to webserver s1 = SSL_CONNECT("www.wikipedia.org:443") ' Send a request, make sure the server disconnects to avoid long timeout PRINT "GET: ", SSL_CMD$(s1, "GET / HTTP/1.1\r\nHost: " & SSL_web$(STR$(s1)) & "\r\nConnection: close") ' Close SSL connection SSL_CLOSE(s1) PRINT "Closed."