RosettaCodeData/Task/HTTP/REALbasic/http.basic

  Dim sock As New HTTPSocket
  Print(sock.Get("http://www.rosettacode.org", 10))  //set the timeout period to 10 seconds.