Как скачать интернет страницу по защищенному соединению на PureBasic?
Провозились пол-дня, результата ноль.
На Питоне-3 это делается в три строки, а можно и в одну:
import requests
url_1 = 'https://www.purebasic.com'
r = requests.get(url_1, allow_redirects=True)
open('J:\index1.htm', 'wb').write(r.content)
url_2 = 'https://younglinux.info'
r = requests.get(url_2, allow_redirects=True)
open('J:\index2.htm', 'wb').write(r.content)
open('J:\index3.htm', 'wb').write(requests.get('https://younglinux.info/oopython/doc.php', allow_redirects=True).content)
open('J:\index4.htm', 'wb').write(requests.get('http://pure-basic.narod.ru/article/mk/prog_pic/prog_pic.html', allow_redirects=True).content)
Вот такой код на PureBasice отлично работает по обычному http протоколу:
Procedure.l DownloadToMem(URL.s, *lpRam, ramsize ) ; процедура для скачивания фала в память
Protected agent.s, hInet, hData, Bytes.l
agent.s = "Mozilla/4.0 (compatible; ST)"
hInet = InternetOpen_( @agent.s,0,0,0,0 )
hData = InternetOpenUrl_( hInet, @URL.s, "", 0, $8000000, 0 )
If hData > 0
InternetReadFile_( hData, *lpRam, ramsize, @Bytes )
Else
Bytes = -1
EndIf
InternetCloseHandle_(hInet)
InternetCloseHandle_(hData)
ProcedureReturn Bytes
EndProcedure
#content_file = 0
Dim html.a(1000000)
;site_URL.s = "https://younglinux.info" ; 15631 байт-кусок
;site_URL.s = "http://pure-basic.narod.ru/article/mk/prog_pic/prog_pic.html" ; дает скрипт
;site_URL.s = "http://www.purebasic.mybb.ru" ; ОТЛИЧНО 14393 байт
site_URL.s = "https://www.purebasic.com" ; 4349 байт-кусок
Size=DownloadToMem(site_URL, @html(), 1000000)
MessageRequester("Получи", PeekS(@html(), Size, #PB_Ascii))
If CreateFile(#content_file, "J:\index.htm")
WriteString(#content_file, PeekS(@html(), Size, #PB_Ascii) )
CloseFile(#content_file)
EndIf
В конце кода закомментированы три строки адресов страниц с урлами, комментариями дано что происходит:
из четырех попыток скачать страницы только одна успешная по незащищенному соединению - там где в комменте ОТЛИЧНО.
две попытки на https дают кусок страниц, а незащищенная народ.ру вываливает скрипты бэкдорной рекламы не доходя до тега <html>
Может ли кто дать рабочий код на пюребейсике, потому что на питоне сложности с графическим интерфейсом на PyQt5, да и хочется чтобы все это приложение было в виде одного exe-файла
Заранее спасибо всем