AHK: Мониторинг стены ВКонтакта

null@example.com (DD) — Sun, 24 Jun 2018 22:55:34 +0000

Скрипт предназначен для отслеживания постов и комментариев в ВК-сообществе/профиле. После запуска логинится один раз (нужно для работы execute-процедуры, которая в зависимости от настроек, получает за один запрос изменения о до 2500 последних постов со стены), скачивает указанное количество постов и в последующем докачивает в них комментарии в случае изменений. Комментарии могут докачиваться не именно с добавленного и ниже, а на указанное количество комментариев выше него — на случай, если несколько комментов со стены были удалены и их позиция сместилась.
Таким образом, один вызов для получения общей картины об изменениях на стене, и при их наличии — точное обращение к добавленным комментариям.

В прикреплении скрипт можно скачать вместе с CSS-стилями, нужными для страниц. Для наглядности работают некоторые Tooltip.

;*******************************************************************************
; WallMonitor.ahk
;*******************************************************************************
#Persistent
#MaxMem 200
SetBatchLines -1
#SingleInstance Force
HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")

; ========================= НАСТРОЙКИ ПОЛЬЗОВАТЕЛЯ =========================
email := "ВАШ_ИМЭЙЛ_НА_ВК"
password := "ВАШ_ПАРОЛЬ_НА_ВК"
OwnerId := -29534144      ; айди сообщества, которое мониторим
Pause := 20               ; пауза В СЕКУНДАХ между проверками (за слишком частые обращения блокируют)
PstIters := 1             ; До 25-ти. Количество итераций при получении инфы о постах и комментах,
                          ; увеличивать на один только если отслеживаемых постов больше 100
PstCount := 2             ; Сколько последних постов со стены отслеживать
                          ; До 2500, в зависмости от итерации, которую
                          ; с каждой сотней постов надо увеличивать на единицу. 

CmtMinus := 3             ; На сколько комментариев отступать назад при их докачке
                          ; (на случай удаления на сервере)
Dest_Path = %A_ScriptDir% ; путь к целевой папке (куда сохранять результат)
; ========================= КОНЕЦ НАСТРОЕК ПОЛЬЗОВАТЕЛЯ =========================

SetTimer, gogo, % Pause*1000
Return

gogo:

If not (LoginMode == 1)  ;при первом запуске логиниться однократно:
{
   gosub login
   LoginMode = 1
}

;--------------------------------------------
;ПОСТ:
;--------------------------------------------
HTTP.Open("POST", "https://vk.com/dev?act=a_run_method&al=1&hash=" PostHash "&method=execute¶m_code=var%20owner_id%3D%22" OwnerId "%22%3Bvar%20offset%3D0%3Bvar%20ITERS%3D" PstIters "%3Bvar%20COUNT%3D" PstCount "%3Bvar%20posts%3D%5B%5D%3Bvar%20req_params%3D%7B%22owner_id%22%3Aowner_id%2C%22count%22%3ACOUNT%2C%22offset%22%3Aoffset%2C%22v%22%3A%225.78%22%7D%3Bvar%20i%3D0%3Bwhile(i%20%3C%20ITERS)%7Breq_params.offset%3Di*COUNT%2BITERS*COUNT*offset%3Bvar%20items%3DAPI.wall.get(req_params).items%3Bif%20(items.length%20%3D%3D%200)%20%7Breturn%20posts%3B%7Dvar%20ids%3Ditems%40.id%3Bvar%20tmp%3D%7B%7D%3Btmp.ids%3Dids%3Btmp.comments%3Ditems%40.comments%40.count%3Bposts.push(tmp)%3Bi%3Di%2B1%3B%7Dreturn%20posts%3B¶m_v=5.78", true)
HTTP.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko)")
HTTP.SetRequestHeader("Pragma", "no-cache")
HTTP.SetRequestHeader("Cache-Control", "no-cache, no-store")
HTTP.SetRequestHeader("If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT")
HTTP.Send()
HTTP.WaitForResponse()
Wall_Info_List := HTTP.ResponseText

If NOT InStr(Wall_Info_List, """ids"":[")  ;если прежний хэш не действует — перелогиниться:
{
   sleep, 5000
   gosub login
   fileappend  login в %a_now%`n, %Dest_Path%\_login.txt, UTF-8
   Return
}

;Обработка вывода execute-процедуры
Wall_Info_List := RegExReplace(Wall_Info_List, "s)(""\w+"":\[)", "`n$1")
Wall_Info_List := RegExReplace(Wall_Info_List, "s)[\][^`n]*`n|\]|\}]", "`n")

Cont := Wall_Info_List, arrA := [], arrC := [] 
Loop, parse, Cont, `n, `r 
{ 
   str := A_LoopField 
   Loop, parse, str, [`,] 
   if A_LoopField != 
   { 
      if InStr(str, "ids") 
      arrA[A_Index] := A_LoopField, LastA := A_Index 
      if InStr(str, "comments") 
      arrC[A_Index] := A_LoopField, LastC := A_Index 
   } 
   if InStr(str, "comments") 
   { 
      num ++ 
      Loop, % LastA 
      if A_Index > 1 
      Wall_Info_List_Out .= arrA[A_Index] "-" arrC[A_Index] "`n" 
      if (LastA != LastC)    ;ПРОВЕРКА 
      Msgbox, 0x1030, , Ошибка в блоке %num%`, строка ~ %A_Index% исходных данных.`n`nКоличество чисел не совпало. 
      arrA := [], arrC := [], LastA :=LastC := str :="" 
   } 
} 

Wall_Info_List_Out1 := Wall_Info_List_Out

If (FirstMode == 1)  ;при первом запуске пропустить
{
   Loop, parse, Wall_Info_List_Out_Prev, `n, `r
      Wall_Info_List_Out := RegExReplace(Wall_Info_List_Out, "m`a)^\n|^\Q" A_LoopField "\E$")
   Wall_Info_List_Out_Uniq := Wall_Info_List_Out

   tooltip Обновление в постах: `n%Wall_Info_List_Out_Uniq%
   sleep 1500

   if (Wall_Info_List_Out_Uniq = "")  ;если перемен пуста
      Return
}

FirstMode = 1

if (Wall_Info_List_Out_Uniq = "")  ;если перемен пуста
   Wall_Info_List_Out_Uniq := Wall_Info_List_Out1

Wall_Info_List_Out_Uniq := RegExReplace(Wall_Info_List_Out_Uniq, "\R+\s*", "`n") ;удал пуст строки
Wall_Info_List_Out_Uniq := RegExReplace(Wall_Info_List_Out_Uniq, "\R$", "") ;удал последн пуст

Wall_Info_List_Out =
Loop, parse, Wall_Info_List_Out_Uniq, `n, `r
{

   RegExMatch(A_LoopField, "s)(\d+)-(\d+)", match)
   PostId := match1
   CmtCount := match2

   If NOT PostId~="\d"
     Continue

   pfile = %Dest_Path%\%OwnerId%_%PostId%.html
   if (NOT FileExist(pfile))
   {
      HTTP.Open("GET", "https://vk.com/wkview.php?act=show&al=1&w=wall" OwnerId "_" PostId "&offset=999999", true)
      HTTP.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko)")
      HTTP.SetRequestHeader("Pragma", "no-cache")
      HTTP.SetRequestHeader("Cache-Control", "no-cache, no-store")
      HTTP.SetRequestHeader("If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT")
      HTTP.Send()
      HTTP.WaitForResponse()
      ResponseText := HTTP.ResponseText

      Gosub, PstProc
      Gosub, NewTitle
      Gosub, htmlcode

      fileappend, %htmlcode%%ResponseText%`n`n`n`n, %Dest_Path%\%OwnerId%_%PostId%.html, UTF-8
      FileCreate = 1
      CmtCountInFile := 0
   }
   Else
   {
      FileCreate = 0
      FileRead, Post_File, %pfile%
      StrReplace(Post_File, " 0
   {
      loop % CmtCount
      {
         if (FileCreate == 0)
         {
            cn := A_Index - 1 + CmtCountInFile - CmtMinus
            tooltip файл сущ----`nВсего коментов: %CmtCount%/%cn%`nPostId: %PostId%
            sleep 900
            If InStr(cn, "-")
               Continue
            if (cn = CmtCount)
               break
            if cn > CmtCount
               break
         }
         if (FileCreate == 1)
         {
            cn := A_Index - 1
            tooltip файл НЕ сущ----`nВсего коментов: %CmtCount%/%cn%`nPostId: %PostId%
         }

         ;--------------------------------------------
         ;ОПРЕДЕЛЕННЫЙ КОММ ПОСТА
         ;--------------------------------------------
         HTTP.Open("POST", "https://vk.com/al_wall.php", true)
         ;HTTP.SetRequestHeader("Cookie", "remixlang=0")   ; имена на русском
         HTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
         HTTP.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko)")
         HTTP.SetRequestHeader("Pragma", "no-cache")
         HTTP.SetRequestHeader("Cache-Control", "no-cache, no-store")
         HTTP.SetRequestHeader("If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT")
         HTTP.Send("act=get_replies&al=1&count=1&from=wkview&offset=" cn "&post=" OwnerId "_" PostId "&rev=0")
         HTTP.WaitForResponse()
         ResponseText := HTTP.ResponseText

         RegExMatch(ResponseText, "s)class=""post_link"" href=""[^""]*(_\d+\?reply=\d+"")", match)
         Cmt_Id := match1

         If InStr(Post_File, Cmt_Id)
            Continue

         ResponseText := RegExReplace(ResponseText, "s)^.*?(.*?$", "$1")
         Gosub, CmtProc

         fileappend, %ResponseText%, %Dest_Path%\%OwnerId%_%PostId%.html, UTF-8

         ResponseText =
         match =
         match1 =
         mattch =
         mattch1 =
         NewTitle =
         tSTRING =
         DateTime =
         arrA =
         str =
         Cont =
         Cmt_Id =
         Wall_Info_List =
         Wall_Info_List_Out_Uniq =
         ;Post_File =
         ;!!PostId
         ;!!CmtCount
         cn =
      }
   }
}
Wall_Info_List_Out_Prev := Wall_Info_List_Out1
FileCreate = 0
Return

NewTitle:
   ;захватить не более 100 символов в секции, с границей получаемого текста вне угловых скобок
   RegExMatch(ResponseText, "(?!
)((.(?!
)){0,350}.)(?=.*

)", match)
   NewTitle := RegExReplace(match1, "<[^>]*$")
   NewTitle := RegExReplace(NewTitle, "<[^>]*>", " ")
   NewTitle := RegExReplace(NewTitle, "  ", " ")
   NewTitle := UnHTM(NewTitle)
return

PstProc:
ResponseText := RegExReplace(ResponseText, "s)", "")
ResponseText := RegExReplace(ResponseText, "s).*?().*", "$1")

ResponseText := RegExReplace(ResponseText, "s)]*)base":"([^>]*)(","[^>]*\[")([^}]*)("[^>]*)>", "`n`n`n")
ResponseText := RegExReplace(ResponseText, "s)(]* )(style=""[^>]*>]* )(style=""[^>]*>]*>]* title=)""(https?:[^""]*)""", " href=""$3""$2""$3""") ;!!
ResponseText := RegExReplace(ResponseText, "s)aria-label=", "title=") ;!!
ResponseText := RegExReplace(ResponseText, "s)
|
|.*?
|", "")
ResponseText := RegExReplace(ResponseText, "m`a)^\s+

Серый форум — AHK: Мониторинг стены ВКонтакта

AHK: Мониторинг стены ВКонтакта