Fonction getUrl (URL) SET RETRÉVAL = CREATEOBject ("Microsoft.xmlhttp") avec récupération .open "get", url, false.send getUrl = bytes2BSTR (.ResponseBody) 'Vérifiez les informations à obtenir. Si la longueur d'information est inférieure à 100, cela signifie que l'interception a échoué si Len (.ResponseBody) <100 TheResponse.write "Get Fichier à distance" & url & "a échoué". Response.Endend Ifend avec set Retrieval = Rien de fonction de fin 'binaire à la chaîne, sinon le code brouillé apparaîtra! fonction bytes2bstr (vin) strreturn = "" pour i = 1 à Lenb (vin) thischarcode = assb (midb (vin, i, 1)) if thischarcode <& h80 alors strreturn = strreturn & chr (thatCode) else else Nextcharcode = ASCB (midb (vin, i + 1,1) & h100 + cint (nextCharcode))) i = i + 1 fin si suivant bytes2bstr = fonction streturn final function savetofile (bodyall, nom de fichier) dim objstream1set objstream1 = createObject ("adodb.stream") objstream1.type = 2oBjstream1.openobjstream1.position = objstream1.sizeObjstream1.writeText bodyallobjstream1.savetofile filename, 2OBJStream1.closeset objstream1 = rien Fonction finale getKey (html, start, dernier) filearray = split (html, start) filearray2 = split (filearray (1), dernier) getKey = filearray2 (0) fin functionUrl = "http://www.86516.com" html = geturl (url) SAVETOFILE HTML, "ce.htm" [Ctrl + A Sélectionnez All Remarque: Si vous devez introduire un JS externe, vous devez actualiser pour exécuter] 12Next Page Lire le texte intégral
