alias download {
clear
.comopen xml msxml2.xmlhttp
var %x $com(xml,open,1,bstr,get,bstr,http://www.mirc.com,bool,-1) $&
$com(xml,send,1) $com(xml,responseText,3,bstr* txt,hello)
echo -a argv[0]: $com(xml,txt)
comopen ado adodb.stream
echo -a Mode: $com(ado,Mode,4,int,3)
echo -a Type: $com(ado,Type,4,int,2)
echo -a Open: $com(ado,Open,3)
echo -a WriteText: $com(ado,WriteText,3,bstr*,txt)
echo -a Save: $com(ado,SaveToFile,3,bstr,C:\test.txt,int,2)
echo -a Close: $com(ado,Close,3) - $com(xml,txt)
cc
run C:\test.txt
}
alias cc {
if ($com(xml)) comclose xml
if ($com(txt)) comclose txt
if ($com(ado)) comclose ado
}