Ответ: Сеть в BlitzMax
Нашол! Тока извлечение html содержимого:
Strict
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")
__________________
Retry, Abort, Ignore? █
Intel Core i7-9700 4.70 Ghz; 64Gb; Nvidia RTX 4090 3070
AMD Ryzen 7 3800X 4.3Ghz; 64Gb; Nvidia 1070Ti
AMD Ryzen 7 1700X 3.4Ghz; 8Gb; AMD RX 570
AMD Athlon II 2.6Ghz; 8Gb; Nvidia GTX 750 Ti
|