function geturl（url）set retireval = create object（ "microsoft.xmlhttp"）with retireval .open "get"、url、false.send geturl = bytes2bstr（.responsebody） '情報を検証します。情報の長さが100未満の場合、len（.responsebody）<100 thonresponse.write "remote file"＆url＆ "failed"を書き留めた場合、インターセプトが失敗したことを意味します。 Response.Endend set retireval = Nothing end function 'binary to string、それ以外の場合は、Carled Codeが表示されます！関数bytes2bstr（vin）strreturn = "" for i = 1 to lenb（vin）thischarcode = ascb（midb（vin、i、1））thischarcode <＆h80 then strreturn = strreturn＆chr（thischarcode＆chr（thischarcode）else nextcharcode = ascb（midb（vin、i+1,1）） ＆h100 + cint（nextharcode））i = i + 1 end next bytes2bstr = strreturn end関数savet（bodyall、filename）dim objstream1set objStream1 = createObject（ "adodb.stream"）objstream1.type = 2objstream1.openobjstream1.pos = objstream1.sizeobjstream1.writeText bodyallobjstream1.savetofile filename、2objstream1.closeteet objstream1 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 htm [ctrl+a Select All注：外部JSを導入する必要がある場合は、実行するには更新する必要があります] 12NEXTページ全文を読んでください
