ฟังก์ชั่น geturl (URL) SET RETRIEVAL = CREATEOBJECT ("Microsoft.xmlhttp") ด้วยการดึง. เปิด "รับ", url, false.send getUrl = bytes2bstr (.responsebody) ตรวจสอบข้อมูลที่จะได้รับ หากความยาวของข้อมูลน้อยกว่า 100 หมายความว่าการสกัดกั้นล้มเหลวหาก len (.responsebody) <100 thenResponse.write "รับไฟล์ระยะไกล" & url & "ล้มเหลว" response.endend ifend ด้วยชุด Retrieval = ไม่มีอะไรจบฟังก์ชั่น 'ไบนารี' เป็นสตริงมิฉะนั้นรหัสที่อ่านไม่ออกจะปรากฏขึ้น! ฟังก์ชั่น bytes2bstr (vin) strreturn = "" สำหรับ i = 1 ถึง lenb (vin) thischarcode = ascb (midb (vin, i, 1)) ถ้า thisChode <& h80 จากนั้น strreturn = strreturn & chr (thischarcode) อื่น ๆ CHR (CLNG (thisChode) * & H100 + CINT (NextChArcode)) i = i + 1 end ถ้า next bytes2bstr = ฟังก์ชั่น strreturn end function ฟังก์ชั่น savetofile (bodyall, filename) dim objstream1set objstream1 = createObject ("adodb.stream") objstream1.type = 2objstream1.openobjstream1.position = objstream1.sizeobjstream1 ฟังก์ชั่น getkey (html, start, last) filearray = split (html, start) filearray2 = split (filearray (1), สุดท้าย) getkey = filearray2 (0) end functionurl = "http://ww.86516.com" html = geturl [CTRL+A SELECT ทั้งหมดหมายเหตุ: หากคุณต้องการแนะนำ JS ภายนอกคุณต้องรีเฟรชเพื่อดำเนินการ] หน้า 12NEXT อ่านข้อความเต็มรูปแบบ
