Code: Select all
View.Set ("title: Web Browser")
var url : string
put "Enter the URL to load: " ..
get url
var line : string
put "Connecting to ", url
var netStream := Net.OpenURLConnection (url)
if netStream <= 0 then
    put "Unable to connect to ", url
    return
else
    put "Connected!"
end if
var winID := Window.Open ("text,title: " + url)
loop
    exit when eof (netStream)
    get : netStream, line : *
    put line
end loop
Net.CloseConnection (netStream)
[code] 
[color=#888888][size=85]Archived topic from Iceteks,  old topic ID:4354, old post ID:35044[/size][/color]