Fungsi getUrl (url) atur retrieval = createObject ("microsoft.xmlhttp") dengan pengambilan .open "get", url, false.send getUrl = bytes2bstr (.responseBody) 'Verifikasi informasi yang akan diperoleh. Jika panjang informasi kurang dari 100, itu berarti intersepsi gagal jika len (.responseBody) <100 lalu respons.write "Dapatkan file jarak jauh" & url & "gagal." response.endend ifend dengan set retrieval = nothing end function 'biner ke string, jika tidak kode kacau akan muncul! Fungsi bytes2btr (vin) strreturn = "" untuk i = 1 ke lenb (vin) charcode ini = ASCB (midb (vin, i, 1)) Jika chrarcode ini <& h80 kemudian strreturn = strreturn & chr (charcode ini lain nextCharcode = ASCB (midb (vin, i+1.1) (charcode) elseCharcode = ASCB (midb (vin, i+1,1) (chrarcode) lain nextCharcode = ascb (midb (vin, i+1.1) (chrarcode)) nextCharcode = ascb (midb (vin, i+1.1) (chrarcode)) NextCharcode = ascb (midb (vin, i+1.1) (chrarcode) lain & H100 + CINT (NextCharCode)) I = i + 1 Akhir jika Bytes2BTRS NEXT = Fungsi akhir Strreturn Savetofile (BodyAll, FileName) Dim ObjStream1set ObjStream1 = createObject ("adodb.stream") objstream1.type = 2objStream1.openstream.wreMext.ReMext1posities = 2ObStream1.openstream.wreMext.ReMext1. bodyallobjstream1.savetofile filename,2objstream1.closeset objstream1=nothingend function'Declare the intercepted format, start from Start, and 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 Catatan: Jika Anda perlu memperkenalkan JS eksternal, Anda perlu menyegarkan untuk mengeksekusi] Halaman 12Next Baca teks lengkapnya
