Функция getUrl (url) set retrieval = createObject ("microsoft.xmlhttp") с поиском .open "get", url, false.send geturl = bytes2bstr (.ResponseBody) 'проверьте информацию, чтобы получить. Если длина информации меньше 100, это означает, что перехват не удастся, если Len (.ResponseBody) <100 ThenResponse.Write «Получить удаленный файл» & url & «не удалось». response.endend ifend с установленным поиском = ничто из окончания Function 'Binary to String, в противном случае появится искаженный код! Функция bytes2bstr (vin) strreturn = "" for i = 1 to lenb (vin) thisChode = ascb (midb (vin, i, 1)), если этот каркас <& h80, то rскантер = strreturn & chr (this charcode) else stearchode = ascb (midb (vin, i+1,1)) strreturn = strreturn = strreturn = rtrreurn = chrng (vin, i+1,1))) & h100 + cint (nextcharcode)) i = i + 1 end if bytes2bstr = strreturn end function funct objStream1 = createObject ("adodb.stream") objstream1.type = 2objstream1.openobjstream1.position = objstream1.sizeObjStream1.WriteText BodyAllObjStream1.savetOfile filename, 2objStream1.closeTeTeTemtream1. end function GetKey(HTML,Start,Last)filearray=split(HTML,Start)filearray2=split(filearray(1),Last)GetKey=filearray2(0)End Functionurl="http://www.86516.com"Html = GetURL(Url)savetofile html,"ce.htm" [Ctrl+A Select All Note: Если вам нужно представить внешний JS, вам нужно обновить, чтобы выполнить] 12next page Прочитайте полный текст
