Хороший пример на данную тему. Процедура загружает код страницы в память. Не учить нас делать переход 301 Moved Permanently, но помогает избежать большинство таких проблем.
Procedure.l DownloadToMem(URL.s, *Buff, ramsize.l)
Protected agent.s, hInet.l, hData.l, Bytes.l
agent = "IE 6.0"
hInet = InternetOpen_( @agent.s,0,0,0,0 )
hData = InternetOpenUrl_( hInet, @URL.s, "", 0, $8000000, 0 )
If hData > 0
InternetReadFile_ ( hData, *Buff, ramsize, @Bytes );Шапка страницы- бежим дальше
InternetReadFile_ ( hData, *Buff, ramsize, @Bytes );Все еще шапка страницы- дальше
InternetReadFile_ ( hData, *Buff, ramsize, @Bytes );Вот оно
Else
Bytes = -1
EndIf
InternetCloseHandle_(hInet)
InternetCloseHandle_(hData)
ProcedureReturn Bytes
EndProcedure
*Buff = AllocateMemory(100000)
If *Buff
Size=DownloadToMem("https://zkillboard.com/character/93989061/", *Buff, 100000)
If Size>0
SetClipboardText(PeekS(*Buff, Size,#PB_UTF8))
EndIf
EndIf
Если у вас не получилось, то проблема может быть в кодировке текста
Не забываем смотреть формат загружаемого текста
Это может быть Unicode и прочее.