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]