wie von Byte-Array lesen zum Herunterladen einer Binärdatei mit VBScript Binärdatei

Question

Hier ein Code-Snippet zu generieren:

... 
Dim fs,ts 
varByteArray = http.ResponseBody 
Set fs = CreateObject("Scripting.FileSystemObject") 
Set ts = fs.CreateTextFile("filetowrite", True) 
For lngCounter = 0 to UBound(varByteArray) 
    ts.Write Chr(255 And Ascb(Midb(varByteArrary, lngCounter + 1, 1))) 
Next 
ts.Close 

über (vollständige Code kann here zu finden)

Ich frage mich:

Chr(255 And Ascb(... 

1. Aus meinem einem besseren Verständnis Chr 2 Bytes erzeugt UTF-8, nicht ein (012.311.). Aber wäre das nicht notwendig für eine korrekte Byteausgabe für eine neu erzeugte Binärdatei?
2. Warum maskieren Sie 255 unter Verwendung eines And-Operators mit der Nummer eines 1-Byte-ANSI-Zeichens. Welchen Zweck hat das?

Answer 1

1. Dieser Code wird nicht mit "Option Explicit" so Variablendeklarationen sind nutzlos. Es verwendet nicht deklarierte Variablen. Zwei deklarierte und initialisierte Variablen werden nicht verwendet.

2. Die "binary und" mit 255 scheint

ich keinen Zweck, einen Test zu dienen Datei 4 MB mit 4 verschiedenen Methoden heruntergeladen

3. Verwenden von Chrome, der normale Weg

4. Verwenden Sie die ADO-Methode im Skript. Ist sehr schnell und ist Byte-identisch zur Browser-Version (Hex-Vergleich)

5. Verwendung der AscB-Methode mit "binary und with 255". Es ist sehr, sehr, sehr langsam aber ist Byte-identisch mit Browser-Version (Hex-Vergleich)

6. Verwenden Sie die AscB-Methode ohne "Binär-und mit 255". Es ist sehr, sehr langsam (aber ein wenig schneller als 5), ist aber Byte-identisch mit Browser-Version (Hex Vergleich)

Bottom Line: Dieser Code funktioniert. Versucht mehrere Methoden in der Reihenfolge ihrer Präferenz zu verbinden, versucht zwei Methoden in der Reihenfolge der Präferenz herunterzuladen (es versucht zuerst ADO und fällt nur auf die AscB-Methode zurück, wenn ADO fehlschlägt). Ich mag diesen Code.