وظيفة geturl (url) set Retrieval = createObject ("microsoft.xmlhttp") مع استرجاع .Open "get" ، url ، false.send geturl = bytes2bsstr (.responseBody) 'تحقق من المعلومات التي يجب الحصول عليها. إذا كان طول المعلومات أقل من 100 ، فهذا يعني فشل الاعتراض إذا كان LEN (.responseBody) <100 therresponse.write "الحصول على ملف بعيد" و URL & "فشل". استجابة. دالة bytes2bsstr (vin) streturn = "" for i = 1 to lenb (vin) thischarcode = ascb (midb (vin ، i ، 1)) إذا كان هذا المشارك <& h80 ثم streturn = streturn & chrreturn) & H100 + CINT (NEXTCHARCODE)) i = i + 1 end إذا كانت BYTES2BSTR التالية = Streturn end function savetofile (bodyall ، filename) dim objstream1set objStream1 = createObject ("adodb.stream") objstream1.type = 2ObjStream1.openObjStream1.position = objstream1.sizeObjStream1.writeTetext BodyAllObjStream1.savetofile وظيفة النهاية 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. [Ctrl+A حدد كل الملاحظات: إذا كنت بحاجة إلى تقديم JS الخارجي ، فأنت بحاجة إلى تحديث لتنفيذ] 12 next page اقرأ النص الكامل
