PostMessage, 0x200, 0, % lParam(x+=20, y),, % t

PostMessage, 0x200, 0x1, % lParam(x+=20, y),, % t

DetectHiddenWindows on
winhide, ahk_id 0x60a58
PostMessage, 0x200, 0, ((320<<16)^700),, ahk_id 0x60a58
sleep 1
PostMessage, 0x201, 0x1, ((320<<16)^700),, ahk_id 0x60a58
sleep 1
PostMessage, 0x200, 0, ((620<<16)^800),, ahk_id 0x60a58
sleep 1
PostMessage, 0x202,, ((620<<16)^800),, ahk_id 0x60a58
return

F1::
winhide, Серый форум - Google Chrome
PostMessage, 0x201, 0x1, ((320<<16)^700),, ahk_id 0x13037a   ; id контрола=0x13037a
PostMessage, 0x202,, ((320<<16)^700),, ahk_id 0x13037a
PostMessage, 0x201, 0x4 | 0x1, ((620<<16)^800),, ahk_id 0x13037a
PostMessage, 0x202, 0x4, ((620<<16)^800),, ahk_id 0x13037a
return

t := "ahk_exe firefox.exe"
CoordMode Mouse, Screen
MouseGetPos x, y
WinGetPos xW, yW,,, % t

PostMessage, 0x201, 1, % lParam(x-=xW, y-=yW),, % t
Loop 10
	PostMessage, 0x200, 0, % lParam(x+=20, y),, % t
PostMessage, 0x202, 0, % lParam(x, y),, % t

lParam(x, y) {
	Return lParam := x & 0xFFFF | (y & 0xFFFF) << 16 
}

F1::
winhide, Серый форум - Google Chrome
PostMessage, 0x201, 0x1, ((320<<16)^700),, ahk_id 0x13037a   ; id контрола=0x13037a
PostMessage, 0x202,, ((320<<16)^700),, ahk_id 0x13037a
PostMessage, 0x201, 0x4 | 0x1, ((620<<16)^500),, ahk_id 0x13037a
PostMessage, 0x202, 0x4, ((620<<16)^500),, ahk_id 0x13037a
winshow, Серый форум - Google Chrome
return

vkid := "id123456789", login := "+79876543210", pass := "p@ssword"

; Константы, используемые в WinHttpRequest
global WinHttpRequestOption_EnableRedirects := 6, WinHttpRequestOption_MaxAutomaticRedirects := 14, WinHttpRequestOption_EnableHttpsToHttpRedirects := 12

; Создаём объект для запросов по HTTP протоколу
global oHttpRequest := ComObjCreate("WinHttp.WinHttpRequest.5.1")
;Включаем автоматические редиректы
oHttpRequest.Option(WinHttpRequestOption_EnableRedirects) := -1
;Включаем автоматические редиректы с HTTP на HTTPS
oHttpRequest.Option(WinHttpRequestOption_EnableHttpsToHttpRedirects) := -1
;Выставляем максимальное количество редиректов
oHttpRequest.Option(WinHttpRequestOption_MaxAutomaticRedirects) := 20

writeLn("Загружаем основную страницу сайта")
; Загружаем основную страницу входа
oHtmlDoc1 := documentFromURL("https://vk.com/")
writeLn("Получаем первую форму")
; Получаем первую по счёту форму
oForm := oHtmlDoc1.forms[0]
; Заполняем в форме поле email и пароль
oForm["email"].value := login
oForm["pass"].value := pass
; Эмулируем отправку формы
submitForm(oForm)
; Проверяем - есть ли в тексте сообщение о том, что авторизация прошла успешно
if (InStr(oHttpRequest.ResponseText, "LoginDone") <= 0) {
	MsgBox % "Авторизация не удалась ! Проверьте логин и пароль"
	Exit
}
; Загружаем страницу профиля
oHtmlDoc2 := documentFromURL("https://vk.com/" vkid)
; Получаем ссылку на наш основной профиль и "переходим по ней"
; oHtmlDoc := documentFromURL(oHtmlDoc2.GetElementByID("l_pr").left_row)
; Выводим текст из блока с именем и фамилией
MsgBox % oHtmlDoc2.GetElementByID("page_info_wrap").innerText
Return

; Функция загрузки и построения документа с указанного URL
documentFromURL(sURL) {
	writeLn("documentFromURL")
	writeLn("   URL: " . sURL)
	oHttpRequest.Open("GET", sURL, false)
	oHttpRequest.Send()
	return documentFromHTML(oHttpRequest.responseText, sURL)
}
; Функция создания документа из HTML кода
documentFromHTML(ByRef sHTMLCode, ByRef sBaseURL) {
	writeLn("documentFromHTML")
	writeLn("   Base URL: " . sBaseURL)
	; Создаём объект для парсинга HTML кода
	oDoc := ComObjCreate("htmlfile")
	oDoc.open()
	; Вставляем базовый тэг чтобы у относительных ссылок была верная адрессация от базового адреса
	oDoc.write("<base href=""" . sBaseURL . """>")
	oDoc.close()
	;oDoc.write(sHTMLCode)
	oDoc.body.innerHTML := sHTMLCode
	return oDoc
}
; Функция эмулятор отправки формы
submitForm(ByRef oForm){
	writeLn("submitForm")
	; Получаем ссылку на объект Window от документа формы
	oScript := oForm.document.Script
	; Сборка строки запроса формы
	loop , % oForm.elements.length
	{
		i++
		if oForm.elements[i].name != ""
		{
			; Собираем значения полей формы в строку и кодируем их имена и значения
			sBody .= oScript.encodeURIComponent(oForm.elements[i].name) . "=" . oScript.encodeURIComponent(oForm.elements[i].value) . "&"
		}
	}
	StringLeft, sBody, sBody, StrLen(sBody)-1

	; Получаем текущий адрес на котором мы находимся (для заполнения referer и настройки свойства "action" формы )
	sCurrentURL := oHttpRequest.Option(1)
	; Для формы BASE hRef не срабатывает, поэтому искусственно вычисляем полный путь запроса формы
	oForm.action := buildURL(sCurrentURL,oForm.action)

	writeLn("   Referer: " . sCurrentURL)
	writeLn("   form action: " . oForm.action)
	writeLn("   Body: " . sBody)

	oHttpRequest.open("POST", oForm.action, false)
	; Указываем метод кодирования данных
	oHttpRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")
	; Выставляем Referer, дабы сайты не ругались, что мы себя плохо ведём.
	if sCurrentURL != ""
	{
		oHttpRequest.setRequestHeader("Referer", sCurrentURL)
	}
	; Отправляем данные формы
	oHttpRequest.send(sBody)
}
; Функция для построения полного пути из относительного для URL
buildURL(ByRef sBaseURL, ByRef sURL) {
	; Создаём HTML документ с единственной ссылкой
	oDoc := documentFromHTML("<a href=""" . sURL . """>", sBaseURL)
	; Берём href от этой ссылки.
	return oDoc.all.tags("a")[0].href
}
; Функция для вывода строки в консоль
writeLn(text){
	FileAppend % text "`n", *
}

F1::
WinHide, AAA - Internet Explorer
ControlClick, D X375 Y220, AAA - Internet Explorer
sleep, 1
PostMessage, 0x200,,,, AAA - Internet Explorer
sleep, 1
ControlClick, U X760 Y390, AAA - Internet Explorer  
sleep, 1
ControlSend ^{vk43}, AAA - Internet Explorer
return