// Константы для WinHttpRequest
var WinHttpRequestOption_UserAgentString = 0,
	WinHttpRequestOption_URL = 1;

// Создание объекта для работы c веб ресурсами
var whr = WSH.CreateObject('WinHttp.WinHttpRequest.5.1');
// Установка User-Agent, чтобы сайт опознавал нас как мобильное устройство
//whr.Option(WinHttpRequestOption_UserAgentString) = 'Mozilla/5.0 (BlackBerry; U; BlackBerry 9900; en-US) AppleWebKit/534.11+ (KHTML, like Gecko) Version/7.0.0.187 Mobile Safari/534.11+';
whr.Option(WinHttpRequestOption_UserAgentString) = 'Nokia7610/2.0 (5.0509.0) SymbianOS/7.0s Series60/2.1 Profile/MIDP-2.0 Configuration/CLDC-1.0'
// Загрузка страницы авторизации
WSH.Echo("Loading main page...");
whr.open('GET','https://m.facebook.com/login',false);
whr.send();
// Парсинг страницы (вторым параметром передаётся базовый URL страницы, чтобы все относительные ссылки внутри документа возвращали полный адрес)
var document = documentFromHTML(whr.responseText,whr.Option(WinHttpRequestOption_URL));
if(document.forms.length < 1){
	WSH.Echo('Authorization form not found !');
	WSH.Quit();
} 
// Получение полей формы
var form = document.forms[0];
// Заполнение логина и пароля в форме
form.elements['email'].value ='user@mail.com';
form.elements['pass'].value = 'password';
// Эмуляция отправки формы на сервер
WSH.Echo("Authorizing...");
whr.open('POST',form.action,false);
whr.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
// Отправка данных формы для авторизации на сайте. Сначала поля формы преобразуются к JSON объекту, а потом уже в строку параметров
whr.send(toQueryString(formDataToJSON(form)));
// Косвенная проверка успешности авторизации. При успешном исходе в URL присутсвует подстрока login/save-device
if(!/login\/save-device/i.test(whr.Option(WinHttpRequestOption_URL))){
	WSH.Echo("Login failed.");
	WSH.Quit();
}
// Получение страницы с данными по друзьям
WSH.Echo("Loading friend list...");
whr.open('GET','https://m.facebook.com/buddylist.php?ref_component=mbasic_home_header&ref_page=MChatBuddyListController',false);
whr.send();
// Парсим HTML содержимое
var document = documentFromHTML(whr.ResponseText);
// Выбираем все ссылки с классом "bm" внутри div элемента с классом "bx by bz"
var elements = document.querySelectorAll("div.bx.by.bz a.bm");
for(var i=0;i < elements.length;i++){
	WSH.Echo(elements[i].innerText);
}

// Обработка полей формы и создание объекта
function formDataToJSON(form){
	var object = {};
	for(var i=0;i < form.elements.length;i++){
		object[form.elements[i].name] = form.elements[i].value;
	}
	return object
}

// Функция преобразования HTML текста в объектную модель HTML документа
function documentFromHTML(text,baseURL){
	var document = new ActiveXObject('htmlfile');
	// Включение максимально доступной версии парсера IE
	document.write('<meta http-equiv="X-UA-Compatible" content="IE=Edge">' + text);
	document.close();
	// Добавление базового URL
	if(baseURL){
		var base = document.createElement('base');
		base.href = baseURL;
		document.all.tags('head')[0].appendChild(base);
	}
	return document
}
// Функция преобразования JS объектов и массивов в строку параметров для запроса a=1&b=2&c=3....
//https://stackoverflow.com/questions/1714786/query-string-encoding-of-a-javascript-object
//https://stackoverflow.com/questions/1714786/query-string-encoding-of-a-javascript-object#comment19642330_1714899
function toQueryString(obj, prefix) {
    var str = [];
	for (var p in obj) {
		if (obj.hasOwnProperty(p)) {
			var k = prefix ? prefix + "[" + p + "]" : p, v = obj[p];
			str.push(typeof v == "object" ? toQueryString(v, k) : encodeURIComponent(k) + "=" + encodeURIComponent(v));
		}
	}
    return str.join("&").replace(/%20/g,'+');
}