Скачать MetaTrader 5
Авторизуйтесь или зарегистрируйтесь, чтобы добавить комментарий
Делай скриншоты в MetaTrader и управляй ими в галерее!
Yuriy Zaytsev
11628
Yuriy Zaytsev 2014.05.29 12:03 
//
// Зайцев Ю.В. JAVA 
// загружаем MQL64.exe
//
var fso = new ActiveXObject("Scripting.FileSystemObject");
var wShell = new ActiveXObject("WScript.Shell");
var ForReading = 1, ForWriting = 2, ForAppending = 8;
var TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0;
var CurrentPath = WScript.ScriptFullName.substr(0,WScript.ScriptFullName.lastIndexOf("\\"));
var logFile = CurrentPath+"\\getMQL.log";

if(!fso.FileExists(logFile)){
        fso.CreateTextFile(logFile);
}
try{logFile = fso.OpenTextFile(logFile,8);}catch(e){}
try{logFile.WriteLine("---------------------------");}catch(e){}
var d = new Date();
try{logFile.WriteLine(d.toLocaleString()+" - старт");}catch(e){}
var dirMT4    = "C:\\F\\MT4";  // Куда заливать
var oXMLHTTP = new ActiveXObject("MSXML2.XMLHTTP");
fName = "mql64.exe";
strHTTP = "http://files.metaquotes.net/metaquotes.software.corp/mt5/";
oXMLHTTP.Open("GET",strHTTP+fName, 0);
var d = new Date();
try{logFile.WriteLine(d.toLocaleString()+" - GET <--- "+strHTTP+fName);}catch(e){}
oXMLHTTP.send();

if (oXMLHTTP.status != 200 )
{ 
   try{logFile.WriteLine(d.toLocaleString()+" - error  oXMLHTTP.status " + oXMLHTTP.status );}catch(e){}
   WScript.quit();
}
var d = new Date();
var oADOStream = new ActiveXObject("ADODB.Stream");
oADOStream.Mode = 3; //разрешение на чтение и запись
oADOStream.Type = 1; //тип данных - Binary
oADOStream.Open();
var d = new Date();
oADOStream.Write(oXMLHTTP.responseBody);
var d = new Date();
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
oADOStream.SaveToFile(dirMT4+"\\"+fName, 2);
var d = new Date();
try{logFile.WriteLine(d.toLocaleString()+" - oADOStream.SaveToFile  --> "+dirMT4+"\\"+fName);}catch(e){}
try{f = fso.getFile(dirMT4+"\\"+fName);}
catch(e){
        var d = new Date();
        logFile.WriteLine(d.toLocaleString()+" - НЕ УДАЛОСЬ получить файл "+dirMT4+"\\"+fName);
        sendMess("Не удалось получить файл - "+dirMT4+"\\"+fName);
        WScript.quit();
}
var d = new Date();
try{logFile.WriteLine(d.toLocaleString()+" - записан "+dirMT4+"\\"+fName+" - "+f.Size+" байт");}catch(e){}
var d = new Date();
try{logFile.WriteLine(d.toLocaleString()+" - OK");}catch(e){}
WScript.quit();

keekkenen
1128
keekkenen 2014.05.29 17:53  
Юрец, ты монстрец ;) 
Yuriy Zaytsev
11628
Yuriy Zaytsev 2014.05.30 09:05  
keekkenen:
Юрец, ты монстрец ;) 

Эдик , не обзывайся :-)

...

поправил пару строк


fName = "mql64.exe";
strHTTP = "http://files.metaquotes.net/metaquotes.software.corp/mt5/";
...
oADOStream.SaveToFile(dirMT4+"\\"+fName, 2);
...
try{logFile.WriteLine(d.toLocaleString()+" - oADOStream.SaveToFile  --> "+dirMT4+"\\"+fName);}catch(e){}
/
Авторизуйтесь или зарегистрируйтесь, чтобы добавить комментарий