Function geturl (URL) <br/> set retrieval = Createobject ("Microsoft. XMLHTTP ") <br/> with retrieval <br/>. open "get", URL, false <br/>. send <br/> geturl = bytes2bstr (. responsebody) <br/> 'verifies the obtained information. If the length of the information is less than 100, the interception fails. <br/> If Len (. responsebody) "& URL &" failed. "<Br/> response. end <br/> end if <br/> end with <br/> set retrieval = nothing <br/> end function <br/> 'convert binary string, otherwise, garbled characters will appear! <Br/> function bytes2bstr (VIN) <br/> strreturn = "" <br/> for I = 1 to lenb (VIN) <br/> thischarcode = ASCB (midb (Vin, I, 1) <br/> If thischarcode <br/> <input onclick = "runex ('runcode88438 ') "type =" button "value =" Running code "> <input onclick =" docopy ('runcode88438 ') "type =" button "value =" Copy code "> <input onclick =" dosave (runcode88438) "type =" button "value =" Save code "> [Ctrl + A select all Note: To introduce external JS, refresh it before execution]
