Function inetscript:String(myurl:String)

'Теперь открываем нужную нам URL
Local myip:TStream = ReadStream(myurl$)

'Теперь нам нужна переменная, которая будет хранить строку, которую будет возвращать php скрипт
Local ipstring:String = ""

'URL существует?
If Not myip

'Если нет, то пускай пользователь это поймет!
ipstring$ = "Error!"

Else

'Если да, то читаем скрипт
While Not Eof(myip)

'И записываем вывод данных линией за линией
ipstring$ :+ ReadLine(myip)

Wend

'Не забудьте закрыть поток, когда скрипт будет прочтен!
CloseStream myip

EndIf

'Просто возвращаем то, что мы получили
Return ipstring$

End Function

Print inetscript$("http::www.infernalsoftware.com/md5.php?test=blablablubb")