2.9.9: Add "Msxml2.ServerXMLHTTP.6.0" (thanks to BADIK), check on Win…

…dows 10

README.md

@@ -23,8 +23,8 @@
 * До первого запуска программы внимательно изучите и отредактируйте *SVKTrans.ini*.
 * Для отправки информационных сообщений требуется MSXML версии 4.0 или выше. Программа при старте проверяет его наличие, выдавая предупреждение при его отсутствии. Загрузить MSXML 6.1 можно с сайта [Microsoft](http://www.microsoft.com/downloads/details.aspx?FamilyID=d21c292c-368b-4ce1-9dab-3e9827b70604&displayLang=ru).
 * Никаких ухищрений для защиты от дебильных антивирей не предпринималось, поэтому если пользуетесь одним из них, заносите программу в список исключений.
-* Запускать следует *SVKTrans.hta*, снимать зависший - *mshta.exe*.
-* В Windows 7 (и выше?) встроенная регистрация прилагаемых DLL может выдать ошибку с кодом 0x80004005. Это срабатывает защита Windows. Требуется пойти в "Пуск" -> "Все программы" -> "Стандартные", правой кнопкой мыши кликнуть на "Командная строка" -> "Запуск от имени администратора" (runas в этом не поможет!) и проделать регистрацию вручную:
+* Запускать следует *SVKTrans.hta*, снимать зависший - *mshta.exe* (В Windows 10 - *Microsoft(R) HTML приложение (32 бита)*).
+* В Windows 7+ (проверено и в Windows 10) встроенная регистрация прилагаемых DLL может выдать ошибку с кодом 0x80004005. Это срабатывает защита Windows. Требуется пойти в "Пуск" -> "Все программы" -> "Стандартные", правой кнопкой мыши кликнуть на "Командная строка" -> "Запуск от имени администратора" (runas в этом не поможет!) и проделать регистрацию вручную:
 
 ```
 #!cmd

SVKTrans.hta

@@ -13,7 +13,7 @@
 	selection="no"
 	contextMenu="no"
 	singleinstance="yes"
-	version="2.9.8"
+	version="2.9.9"
 	author="mozers™"
 	email="mozers@mail.ru"
 	icq="256106175"
@@ -1049,12 +1049,10 @@ function Download(queue) {
 		case 1:
                 	if (INI.Account.web_login_info) {
                 		WriteLog('> Запрос списка платежных сообщений');
-                	} else {
-                		WriteLog('> Запрос списка входящих сообщений');
-                	}
-                	web_login = INI.Account.web_login;
-                	web_passw = INI.Account.web_passw;
-                	GetXMLdata(url_get_list, GetList);
+	                	web_login = INI.Account.web_login;
+        	        	web_passw = INI.Account.web_passw;
+                		GetXMLdata(url_get_list, GetList);
+			}
                 	break;
 
                 case 2:
@@ -1299,11 +1297,18 @@ function ActiveX_Init() {
 	var msxml_alert = "Продолжение работы невозможно!\nУстановите MSXML 4.0 или более поздней версии.";
 
 	function XMLHTTP_Init() {
-		var progID = ['Msxml2.XMLHTTP.6.0', 'Msxml2.XMLHTTP.5.0', 'Msxml2.XMLHTTP.4.0', 'Microsoft.XMLHTTP'];
+		var progID = ['Msxml2.ServerXMLHTTP.6.0', 'Msxml2.XMLHTTP.6.0', 'Msxml2.XMLHTTP.5.0', 'Msxml2.XMLHTTP.4.0', 'Microsoft.XMLHTTP'];
 		for (var i = 0; i < progID.length; i++) {
 			try {
 				httpRequest = new ActiveXObject(progID[i]);
-				if (i > 2) alert("Отправка файлов статотчетности работать не будет!\nУстановите более позднюю версию MSXML.");
+				if (i > 3) alert("Отправка файлов статотчетности работать не будет!\nУстановите более позднюю версию MSXML.");
+				if (i < 1) {
+					var Timeout_Resolve = 50*1000;
+					var Timeout_Connect = 50*1000;
+					var Timeout_Send = 150*1000;
+					var Timeout_Receive = 150*1000;
+					httpRequest.setTimeouts(Timeout_Resolve, Timeout_Connect, Timeout_Send, Timeout_Receive);
+				}
 				return httpRequest;
 			}
 			catch (e) {}