AHK: Пример скачивания поста с Фейсбука с развёрнутыми комментариями

2018-09-20T22:41:48Z

Пример скачивания поста с Фейсбука с развёрнутыми комментариями:


#MaxMem 200
SetBatchLines -1
#SingleInstance Force
HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")

login := "*********"  ;ЛОГИН (М. Б. НОМЕР ТЕЛЕФОНА В ФОРМАТЕ +12345678910)
password := "*********"   ;ПАРОЛЬ
email := login
owner_id := 810732232462076  ;АЙДИ ПРОФИЛЯ
post_num := 907883219413643  ;АЙДИ СТРАНИЦЫ

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

n := 0
loop
{
   sleep 400
   URL := "https://mobile.facebook.com/story.php?story_fbid=" post_num "&id=" owner_id "&p=" n
   gosub, HTTP

   all := ResponseText "`n" all

   If NOT InStr(ResponseText, "Просмотр предыдущих комментариев")
      break
   If A_Index = 1
      n+=10
   else
      n+=10
}

Gosub, htmlcode
gosub, ProcPost
subLnkPlus = 

all := all

loop
{
   If RegExMatch(all, "s)(]*>]*id=""comment_replies_more[^>]*>.*?href="")([^""]*)(""[^>]*>)([^<]* отве[А-ЯЁа-яё]+[^<]*)(

)", matchh)
   subLnk := matchh2

   If NOT InStr(matchh, "id=""comment_replies_more")
      break

loop
{
   sleep, 400
   If A_Index = 1
      URL := subLnk
   if (NOT subLnkPlus = "")
   {
      URL = https://mobile.facebook.com%subLnkPlus%
      subLnkPlus = 
   }
   gosub, HTTP

   all2 := ResponseText "`n" all2

   ;подсчёт реального количества ответов:
   StrReplace(all2, "",, SubCmtsRealCount)
   If (SubCmtsRealCount = 1)
      all2 =

   RegExMatch(ResponseText, "s)]*>(]*>)?Посмотреть предыдущие ответы<", match)
   subLnkPlus := match1
   loop, 20
      StringReplace subLnkPlus, subLnkPlus, &`;, &, All
   match1 =

   If NOT InStr(ResponseText, ">Посмотреть предыдущие ответы<")
      break

   If( subLnkPlus = "" )
      break
}

gosub, ProcPostOtv
all2 := all2
matchh4 := RegExReplace(matchh4, "s)Смотреть вс(е|ё)\s", "")
all2 := RegExReplace(all2, "s)(]*>|]*>| (class|id)=""[^""]*"")", "")
all2 := RegExReplace(all2, "s)(]*>)+", "
")
all2 := RegExReplace(all2, "s)(
)+", "
")
all2 := RegExReplace(all2, "s)(
|
)", "`n

") If (SubCmtsRealCount = 1) StringReplace all, all, %matchh%, `n`n%matchh4%`n`n, All Else { matchh4 := RegExReplace(matchh4, "s)^.? 1 ответ$", "1 ответ") StringReplace all, all, %matchh%, `n`n%matchh4%:`n%all2%`n`n, All } matchh= matchh1= matchh2= matchh3= matchh4= matchh5= matchhh= matchhh1= all2= } fileappend, %all%, %a_scriptdir%\pst%post_num%.html, UTF-8 ExitApp ProcPost: all := RegExReplace(all, "s)]>(]>)? Еще комментарии….?]>(]>)? Просмотр предыдущих комментариев…", "") all := RegExReplace(all, "s)^.?", htmlcode) all := RegExReplace(all, "s)
", "") ;!!SIC all := RegExReplace(all, "s)]>(Отреагировать|Ответить|Пожаловаться|Нравится|Отправить в сообщении|Отметить на фото)([^·])]> · ", "$2") all := RegExReplace(all, "s)(||font-size:0;?|]>На главную страницу)", "") all := RegExReplace(all, "s)]> · (.?)]>(Друзья|Доступно всем)", "$1") loop, 20 all := RegExReplace(all, "s)(=""[^""]&)amp;([^""]"")", "$1$2") StringReplace, all, all, >отредактировано, >/, All StringReplace, all, all, href="/, href="https://mobile.facebook.com/, All all := RegExReplace(all, "s)href=""https://mobile.facebook.com/home.php?[^""]""", "href=""../_index.html#" post_num """") StringReplace, all, all, line-height:, Xline-height:, All StringReplace, all, all, aria-label=", title=", All all := RegExReplace(all, "s)&#x(\w+);", "\u$1") all := JavaEscapedToHtml(all) all := RegExReplace(all, "s)]>((?!", "") ;!!SIC all := RegExReplace(all, "s)(]* target=""_blank""[^>]>)(]>]>)", "$2$1") all := RegExReplace(all, "s)(href=""https://lm.facebook.com/[^""])&h=[^""]""", "$1""") return ProcPostOtv: all2 := RegExReplace(all2, "s)]>(]>)?Посмотреть следующие ответы()?.?]>(]>)?Посмотреть предыдущие ответы()?", "") ;!! all2 := RegExReplace(all2, "s)^.?.?(.?)]>(Отреагировать|Ответить|Пожаловаться|Нравится)([^·])]> · ", "$2") all2 := RegExReplace(all2, "s)(||font-size:0;?)", "") loop, 20 all2 := RegExReplace(all2, "s)(=""[^""]&)amp;([^""]"")", "$1$2") StringReplace, all2, all2, >отредактировано, >/, All StringReplace, all2, all2, href="/, href="https://mobile.facebook.com/, All StringReplace, all2, all2, line-height:, Xline-height:, All StringReplace, all2, all2, aria-label=", title=", All all2 := RegExReplace(all2, "s)&#x(\w+);", "\u$1") all2 := JavaEscapedToHtml(all2) ;all2 := RegExReplace(all2, "s)(
]* target=""_blank""[^>]>)(]>]>)", "$2$1") all2 := RegExReplace(all2, "s)(href=""https://lm.facebook.com/[^""])&h=[^""]*""", "$1""") return login: SplashImage,, y-2 x60 w40 h14 M C11 ZH0 ZW0 ZX1 ZY1 B1 CTffffff CW3B5998 FM8 FS6 WM600 WS400,, login ;-------------------------------------------- ;Авторизация: ;-------------------------------------------- HTTP.Open("POST", "https://mobile.facebook.com/login.php", true) 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("email=" email "&pass=" password "&login=" login) HTTP.WaitForResponse() ResponseText := HTTP.ResponseText ResponseText = ;-------------------------------------------- SplashImage, OFF Return ;преобразование юникодных кодов в символы JavaEscapedToHtml(s) { i := 1 while j := RegExMatch(s, "\\u[A-Fa-f0-9]{1,4}", m, i) e .= SubStr(s, i, j-i) Chr("0x" SubStr(m, 3)), i := j + StrLen(m) return e . SubStr(s, i) } HTTP: HTTP.Open("GET", URL, 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() HTTP.WaitForResponse() ResponseText := HTTP.ResponseText return htmlcode: htmlcode= ( ) Return

Серый форум — AHK: Пример скачивания поста с Фейсбука с развёрнутыми комментариями

AHK: Пример скачивания поста с Фейсбука с развёрнутыми комментариями

|

)", "`n