langs a-z

Task/HTTPS/Objeck/https.objeck

@@ -0,0 +1,11 @@
+use HTTP;
+
+class HttpsTest {
+  function : Main(args : String[]) ~ Nil {
+    client := HttpsClient->New();
+    lines := client->Get("https://sourceforge.net");
+    each(i : lines) {
+      lines->Get(i)->As(String)->PrintLine();
+    };
+  }
+}

Task/HTTPS/Pike/https.pike

@@ -0,0 +1,3 @@
+int main() {
+    write("%s\n", Protocols.HTTP.get_url_data("https://sourceforge.net"));
+}

Task/HTTPS/PowerShell/https.psh

@@ -0,0 +1,2 @@
+$wc = New-Object Net.WebClient
+$wc.DownloadString('https://sourceforge.net')

Task/HTTPS/REALbasic/https.realbasic

@@ -0,0 +1,2 @@
+      Dim sock As New HTTPSecureSocket
+      Print(sock.Get("https://sourceforge.net", 10))  //set the timeout period to 10 seconds.

Task/HTTPS/TUSCRIPT/https.tuscript

@@ -0,0 +1,3 @@
+$$ MODE TUSCRIPT
+SET DATEN = REQUEST ("https://sourceforge.net")
+*{daten}

Task/HTTPS/UNIX-Shell/https.sh

@@ -0,0 +1 @@
+curl -k -s -L https://sourceforge.net/

Task/HTTPS/VBScript/https.vbscript

@@ -0,0 +1,17 @@
+Option Explicit
+
+Const sURL="https://sourceforge.net/"
+
+Dim oHTTP
+Set oHTTP = CreateObject("Microsoft.XmlHTTP")
+
+On Error Resume Next
+oHTTP.Open "GET", sURL, False
+oHTTP.Send ""
+If Err.Number = 0 Then
+     WScript.Echo oHTTP.responseText
+Else
+     Wscript.Echo "error " & Err.Number & ": " & Err.Description
+End If
+
+Set oHTTP = Nothing

Task/HTTPS/Visual-Basic-.NET/https.visual

@@ -0,0 +1,5 @@
+Imports System.Net
+
+Dim client As WebClient = New WebClient()
+Dim content As String = client.DownloadString("https://sourceforge.net")
+Console.WriteLine(content)