Серый форум — AHK: Обновление определенной вкладки в браузере Mozilla.

Re: AHK: Обновление определенной вкладки в браузере Mozilla.

2021-12-15T21:05:48Z

Michael

Если можно вкладку отделить как в хроме, можно так ещё попробовать:

#SingleInstance Force
#NoEnv

Key = Перезагрузить	; Кнопку, что нужно нажать на странице.
Wait := 5000		; Время для таймера. 3600000 = 1 час (60*60*1000)
Return

F6:: Reload

F2::	; Обновление вкладки по таймеру (перейти на нужную отделить от основных, нажать клавишу).
If !(SW := !SW){
 SetTimer, F5, Off
 I=
 Tool("Обновление вкладки выключено:`n" Title)
 Return
}
WinGetTitle, Title, A
ID := WinExist("A")
Tool(ID "`t" Title)
SetTimer, F5, % Wait

F5:
if B
 B.accDoDefaultAction(0)
Else
 B := Button(Key, Title)
; B := Button(Key, ID)
If (B = 1){
 SetTimer, F5, Off 
 SW := !SW
 Tool("Не удалось получить accessible-object.", 15000,0,0)
 Return
}
If (B = 2){
 SetTimer, F5, Off
 SW := !SW
 Tool("Ошибка! Такой клавиши нет!`n" Key, 15000,0,0)
 Return
}
I++
Tool("Обновили: " I, 2500,0,0)
Return

;-----------------------------------------
;[teadrinker] 12.12.2019	http://forum.script-coding.com/viewtopic.php?id=15091
Button(key_name, wind := "A"){
ListLines, Off
;SendMessage, WM_GETOBJECT := 0x003D, 0, 1, WinExist(wind)
If !accNow := AccObjectFromWindow(WinExist(wind))
 Return	1	; Не удалось получить accessible-object.
If !AccElem := SearchElement(accNow, {Role: ROLE_SYSTEM_PUSHBUTTON := 0x2B, Name: key_name})
 Return 2	; Кнопка не найдена.
AccElem.accDoDefaultAction(0)
Return AccElem 
}

;-------------------------------------------------------------------------------------------------------

SearchElement(parentElement, params){
 ListLines, Off
 found := true
 for k, v in params {
  Try (parentElement["acc" . k](0) != v && found := false)
  catch 
   found := false
 } until !found
 If found
  Return parentElement
 
 for k, v in AccChildren(parentElement)
  If obj := SearchElement(v, params)
   Return obj
}

AccObjectFromWindow(hWnd, idObject = 0){
 ListLines, Off
 Static IID_IDispatch := "{00020400-0000-0000-C000-000000000046}"
    , IID_IAccessible := "{618736E0-3C3D-11CF-810C-00AA00389B71}"
    , OBJID_NATIVEOM  := 0xFFFFFFF0, VT_DISPATCH := 9, F_OWNVALUE := 1
    , h := DllCall("LoadLibrary", Str, "oleacc", Ptr)
    
 VarSetCapacity(IID, 16), idObject &= 0xFFFFFFFF
 DllCall("ole32\CLSIDFromString", Str, idObject = OBJID_NATIVEOM ? IID_IDispatch : IID_IAccessible, Ptr, &IID)
 If DllCall("oleacc\AccessibleObjectFromWindow", Ptr, hWnd, UInt, idObject, Ptr, &IID, PtrP, pAcc) = 0
  Return ComObject(VT_DISPATCH, pAcc, F_OWNVALUE)
}

AccChildren(Acc){
 ListLines, Off
 Static VT_DISPATCH := 9
 Loop 1{
  If ComObjType(Acc, "Name") != "IAccessible"{
   Error := "Invalid IAccessible Object"
   Break
  }
  cChildren := Acc.accChildCount, Children := []
  VarSetCapacity(varChildren, cChildren*(8 + A_PtrSize*2), 0)
  Res := DllCall("oleacc\AccessibleChildren", "Ptr", ComObjValue(Acc), "Int", 0
                , "Int", cChildren, "Ptr", &varChildren, "IntP", cChildren)
  If (Res != 0) {
   Error := "AccessibleChildren DllCall Failed"
   Break
  }
  Loop % cChildren{
   i := (A_Index - 1)*(A_PtrSize*2 + 8)
   child := NumGet(varChildren, i + 8)
   Children.Push((b := NumGet(varChildren, i) = VT_DISPATCH) ? AccQuery(child) : child)
   (b && ObjRelease(child))
  }
 }
 If Error
  ErrorLevel := Error
 else
  Return Children.MaxIndex() ? Children : ""
}

AccQuery(Acc){
 ListLines, Off
 Static IAccessible := "{618736e0-3c3d-11cf-810c-00aa00389b71}", VT_DISPATCH := 9, F_OWNVALUE := 1
 Try Return ComObject(VT_DISPATCH, ComObjQuery(Acc, IAccessible), F_OWNVALUE)
}


;-----------------------------------------
Tool(Text, Wait := 1000, X := "", Y := ""){
 SetTimer, T_Off, Off
 ToolTip, % Text, %X%, %Y%
 SetTimer, T_Off, % Wait
 Return
}

~Esc::
T_Off:
SetTimer, T_Off, Off
ToolTip
Return

Re: AHK: Обновление определенной вкладки в браузере Mozilla.

2021-12-15T20:44:32Z

teadrinker пишет:

Код завершается, когда доходит до первого Return. Этого не происходит в следующих случаях:
Где-то в коде есть директива #Persistent
В коде есть горячая клавиша
В коде есть GUI
В коде есть функция OnMessage()

Большое спасибо! Получилось:

#Persistent
setTimer, Start, % 1 * 1 * 1 * 1800000

Start:
FF_ActivateTabByName("Мои сообщения")
Sleep, 200
Send, {F5}
return

FF_ActivateTabByName(tabName) {
   static ROLE_SYSTEM_PAGETAB     := 0x25
        , ROLE_SYSTEM_PAGETABLIST := 0x3C
   if !hFF := WinExist("ahk_class MozillaWindowClass")
      throw "Firefox window not found"
   if !AccFF := AccObjectFromWindow(hFF)
      throw "Failed to get accessible object from FF"
   if !AccTabList := SearchElement(AccFF, {Role: ROLE_SYSTEM_PAGETABLIST})
      throw "Failed to get accessible object from tablist"
   for k, v in AccChildren(AccTabList) {
      if (v.accRole(0) = ROLE_SYSTEM_PAGETAB && v.accName(0) = tabName && found := v)
         break
   }
   if !found
      throw "Page not found"
   WinActivate
   found.accDoDefaultAction(0)
}

SearchElement(parentElement, params)
{ ; params — object like {Role: ROLE_SYSTEM_PUSHBUTTON := 0x2B, Name: "5"}
   found := true
   for k, v in params {
      try {
         if (k = "State")
            (!(parentElement.accState(0)    & v) && found := false)
         else if (k ~= "^(Name|Value)$")
            (!(parentElement["acc" . k](0) ~= v) && found := false)
         else if (k = "ChildCount")
            (parentElement["acc" . k]      != v  && found := false)
         else
            (parentElement["acc" . k](0)   != v  && found := false)
      }
      catch 
         found := false
   } until !found
   if found
      Return parentElement
   
   for k, v in AccChildren(parentElement)
      if obj := SearchElement(v, params)
         Return obj
}

AccObjectFromWindow(hWnd, idObject = 0) {
   static IID_IDispatch   := "{00020400-0000-0000-C000-000000000046}"
        , IID_IAccessible := "{618736E0-3C3D-11CF-810C-00AA00389B71}"
        , OBJID_NATIVEOM  := 0xFFFFFFF0, VT_DISPATCH := 9, F_OWNVALUE := 1
        , h := DllCall("LoadLibrary", "Str", "oleacc", "Ptr")
        
   VarSetCapacity(IID, 16), idObject &= 0xFFFFFFFF, AccObject := 0
   DllCall("ole32\CLSIDFromString", "Str", idObject = OBJID_NATIVEOM ? IID_IDispatch : IID_IAccessible, "Ptr", &IID)
   if DllCall("oleacc\AccessibleObjectFromWindow", "Ptr", hWnd, "UInt", idObject, "Ptr", &IID, "PtrP", pAcc) = 0
      AccObject := ComObject(VT_DISPATCH, pAcc, F_OWNVALUE)
   Return AccObject
}

AccChildren(Acc) {
   static VT_DISPATCH := 9
   Loop 1  {
      if ComObjType(Acc, "Name") != "IAccessible"  {
         error := "Invalid IAccessible Object"
         break
      }
      try cChildren := Acc.accChildCount
      catch
         Return
      Children := []
      VarSetCapacity(varChildren, cChildren*(8 + A_PtrSize*2), 0)
      res := DllCall("oleacc\AccessibleChildren", "Ptr", ComObjValue(Acc), "Int", 0
                                                , "Int", cChildren, "Ptr", &varChildren, "IntP", cChildren)
      if (res != 0) {
         error := "AccessibleChildren DllCall Failed"
         break
      }
      Loop % cChildren  {
         i := (A_Index - 1)*(A_PtrSize*2 + 8)
         child := NumGet(varChildren, i + 8)
         Children.Push( (b := NumGet(varChildren, i) = VT_DISPATCH) ? AccQuery(child) : child )
         ( b && ObjRelease(child) )
      }
   }
   if error
      ErrorLevel := error
   else
      Return Children.MaxIndex() ? Children : ""
}

AccQuery(Acc) {
   static IAccessible := "{618736e0-3c3d-11cf-810c-00aa00389b71}", VT_DISPATCH := 9, F_OWNVALUE := 1
   try Return ComObject(VT_DISPATCH, ComObjQuery(Acc, IAccessible), F_OWNVALUE)
}

Re: AHK: Обновление определенной вкладки в браузере Mozilla.

2021-12-15T19:36:08Z

Malcev
В двух словах: есть сайт, страница которого если будет просто открыта без активности - будет "офлайн статус" либо периодически даже разлогинивается.

Можно посылать WinhttpRequest с нужными кукисами.

Re: AHK: Обновление определенной вкладки в браузере Mozilla.

2021-12-15T18:49:52Z

Код завершается, когда доходит до первого Return. Этого не происходит в следующих случаях:

Где-то в коде есть директива #Persistent
В коде есть горячая клавиша
В коде есть GUI
В коде есть функция OnMessage()

Re: AHK: Обновление определенной вкладки в браузере Mozilla.

2021-12-15T18:42:19Z

teadrinker
Выполняет код только единожды, а не каждую секунду. Но я вроде где-то на верном пути...)

setTimer, Start, % 1 * 1 * 1 * 1000

Start:
FF_ActivateTabByName("Мои сообщения")
Sleep, 200
Send, {F5}
return

FF_ActivateTabByName(tabName) {
   static ROLE_SYSTEM_PAGETAB     := 0x25
        , ROLE_SYSTEM_PAGETABLIST := 0x3C
   if !hFF := WinExist("ahk_class MozillaWindowClass")
      throw "Firefox window not found"
   if !AccFF := AccObjectFromWindow(hFF)
      throw "Failed to get accessible object from FF"
   if !AccTabList := SearchElement(AccFF, {Role: ROLE_SYSTEM_PAGETABLIST})
      throw "Failed to get accessible object from tablist"
   for k, v in AccChildren(AccTabList) {
      if (v.accRole(0) = ROLE_SYSTEM_PAGETAB && v.accName(0) = tabName && found := v)
         break
   }
   if !found
      throw "Page not found"
   WinActivate
   found.accDoDefaultAction(0)
}

SearchElement(parentElement, params)
{ ; params — object like {Role: ROLE_SYSTEM_PUSHBUTTON := 0x2B, Name: "5"}
   found := true
   for k, v in params {
      try {
         if (k = "State")
            (!(parentElement.accState(0)    & v) && found := false)
         else if (k ~= "^(Name|Value)$")
            (!(parentElement["acc" . k](0) ~= v) && found := false)
         else if (k = "ChildCount")
            (parentElement["acc" . k]      != v  && found := false)
         else
            (parentElement["acc" . k](0)   != v  && found := false)
      }
      catch 
         found := false
   } until !found
   if found
      Return parentElement
   
   for k, v in AccChildren(parentElement)
      if obj := SearchElement(v, params)
         Return obj
}

AccObjectFromWindow(hWnd, idObject = 0) {
   static IID_IDispatch   := "{00020400-0000-0000-C000-000000000046}"
        , IID_IAccessible := "{618736E0-3C3D-11CF-810C-00AA00389B71}"
        , OBJID_NATIVEOM  := 0xFFFFFFF0, VT_DISPATCH := 9, F_OWNVALUE := 1
        , h := DllCall("LoadLibrary", "Str", "oleacc", "Ptr")
        
   VarSetCapacity(IID, 16), idObject &= 0xFFFFFFFF, AccObject := 0
   DllCall("ole32\CLSIDFromString", "Str", idObject = OBJID_NATIVEOM ? IID_IDispatch : IID_IAccessible, "Ptr", &IID)
   if DllCall("oleacc\AccessibleObjectFromWindow", "Ptr", hWnd, "UInt", idObject, "Ptr", &IID, "PtrP", pAcc) = 0
      AccObject := ComObject(VT_DISPATCH, pAcc, F_OWNVALUE)
   Return AccObject
}

AccChildren(Acc) {
   static VT_DISPATCH := 9
   Loop 1  {
      if ComObjType(Acc, "Name") != "IAccessible"  {
         error := "Invalid IAccessible Object"
         break
      }
      try cChildren := Acc.accChildCount
      catch
         Return
      Children := []
      VarSetCapacity(varChildren, cChildren*(8 + A_PtrSize*2), 0)
      res := DllCall("oleacc\AccessibleChildren", "Ptr", ComObjValue(Acc), "Int", 0
                                                , "Int", cChildren, "Ptr", &varChildren, "IntP", cChildren)
      if (res != 0) {
         error := "AccessibleChildren DllCall Failed"
         break
      }
      Loop % cChildren  {
         i := (A_Index - 1)*(A_PtrSize*2 + 8)
         child := NumGet(varChildren, i + 8)
         Children.Push( (b := NumGet(varChildren, i) = VT_DISPATCH) ? AccQuery(child) : child )
         ( b && ObjRelease(child) )
      }
   }
   if error
      ErrorLevel := error
   else
      Return Children.MaxIndex() ? Children : ""
}

AccQuery(Acc) {
   static IAccessible := "{618736e0-3c3d-11cf-810c-00aa00389b71}", VT_DISPATCH := 9, F_OWNVALUE := 1
   try Return ComObject(VT_DISPATCH, ComObjQuery(Acc, IAccessible), F_OWNVALUE)
}

Re: AHK: Обновление определенной вкладки в браузере Mozilla.

2021-12-15T18:40:22Z

Michael пишет:

Если не нужно запускать по таймеру, то как сделать вызов данной функции раз в час, допустим?

Не совсем понял вопрос. Почему может быть не нужно запускать по таймеру? Таймер как раз подойдёт в данном случае.

Re: AHK: Обновление определенной вкладки в браузере Mozilla.

2021-12-15T18:31:35Z

teadrinker пишет:

Читайте про функции в справке.

Получилось вот так (разворачивает окно браузера, открывает нужную вкладку и обновляет страницу при нажатии F8):

F8::
FF_ActivateTabByName("Мои сообщения")
Sleep, 200
Send, {F5}
return

FF_ActivateTabByName(tabName) {
   static ROLE_SYSTEM_PAGETAB     := 0x25
        , ROLE_SYSTEM_PAGETABLIST := 0x3C
   if !hFF := WinExist("ahk_class MozillaWindowClass")
      throw "Firefox window not found"
   if !AccFF := AccObjectFromWindow(hFF)
      throw "Failed to get accessible object from FF"
   if !AccTabList := SearchElement(AccFF, {Role: ROLE_SYSTEM_PAGETABLIST})
      throw "Failed to get accessible object from tablist"
   for k, v in AccChildren(AccTabList) {
      if (v.accRole(0) = ROLE_SYSTEM_PAGETAB && v.accName(0) = tabName && found := v)
         break
   }
   if !found
      throw "Page not found"
   WinActivate
   found.accDoDefaultAction(0)
}

SearchElement(parentElement, params)
{ ; params — object like {Role: ROLE_SYSTEM_PUSHBUTTON := 0x2B, Name: "5"}
   found := true
   for k, v in params {
      try {
         if (k = "State")
            (!(parentElement.accState(0)    & v) && found := false)
         else if (k ~= "^(Name|Value)$")
            (!(parentElement["acc" . k](0) ~= v) && found := false)
         else if (k = "ChildCount")
            (parentElement["acc" . k]      != v  && found := false)
         else
            (parentElement["acc" . k](0)   != v  && found := false)
      }
      catch 
         found := false
   } until !found
   if found
      Return parentElement
   
   for k, v in AccChildren(parentElement)
      if obj := SearchElement(v, params)
         Return obj
}

AccObjectFromWindow(hWnd, idObject = 0) {
   static IID_IDispatch   := "{00020400-0000-0000-C000-000000000046}"
        , IID_IAccessible := "{618736E0-3C3D-11CF-810C-00AA00389B71}"
        , OBJID_NATIVEOM  := 0xFFFFFFF0, VT_DISPATCH := 9, F_OWNVALUE := 1
        , h := DllCall("LoadLibrary", "Str", "oleacc", "Ptr")
        
   VarSetCapacity(IID, 16), idObject &= 0xFFFFFFFF, AccObject := 0
   DllCall("ole32\CLSIDFromString", "Str", idObject = OBJID_NATIVEOM ? IID_IDispatch : IID_IAccessible, "Ptr", &IID)
   if DllCall("oleacc\AccessibleObjectFromWindow", "Ptr", hWnd, "UInt", idObject, "Ptr", &IID, "PtrP", pAcc) = 0
      AccObject := ComObject(VT_DISPATCH, pAcc, F_OWNVALUE)
   Return AccObject
}

AccChildren(Acc) {
   static VT_DISPATCH := 9
   Loop 1  {
      if ComObjType(Acc, "Name") != "IAccessible"  {
         error := "Invalid IAccessible Object"
         break
      }
      try cChildren := Acc.accChildCount
      catch
         Return
      Children := []
      VarSetCapacity(varChildren, cChildren*(8 + A_PtrSize*2), 0)
      res := DllCall("oleacc\AccessibleChildren", "Ptr", ComObjValue(Acc), "Int", 0
                                                , "Int", cChildren, "Ptr", &varChildren, "IntP", cChildren)
      if (res != 0) {
         error := "AccessibleChildren DllCall Failed"
         break
      }
      Loop % cChildren  {
         i := (A_Index - 1)*(A_PtrSize*2 + 8)
         child := NumGet(varChildren, i + 8)
         Children.Push( (b := NumGet(varChildren, i) = VT_DISPATCH) ? AccQuery(child) : child )
         ( b && ObjRelease(child) )
      }
   }
   if error
      ErrorLevel := error
   else
      Return Children.MaxIndex() ? Children : ""
}

AccQuery(Acc) {
   static IAccessible := "{618736e0-3c3d-11cf-810c-00aa00389b71}", VT_DISPATCH := 9, F_OWNVALUE := 1
   try Return ComObject(VT_DISPATCH, ComObjQuery(Acc, IAccessible), F_OWNVALUE)
}

Если не нужно запускать по таймеру, то как сделать вызов данной функции раз в час, допустим?

Malcev
В двух словах: есть сайт, страница которого если будет просто открыта без активности - будет "офлайн статус" либо периодически даже разлогинивается.
Самый просто способ (и рабочий, проверено), это прожимать просто обновление страницы, хотя бы раз в 30 или 60 минут. Вкладок у меня много, поэтому нужен поиск среди них.

Re: AHK: Обновление определенной вкладки в браузере Mozilla.

2021-12-15T15:28:00Z

Michael, а зачем вам вообще все это надо?

Re: AHK: Обновление определенной вкладки в браузере Mozilla.

2021-12-15T14:55:17Z

Вам не нужно по таймеру запускать весь мой код целиком, вам нужно только вызывать функцию.

FF_ActivateTabByName("Мои сообщения")

Читайте про функции в справке.

Re: AHK: Обновление определенной вкладки в браузере Mozilla.

2021-12-15T14:36:33Z

Потому что у меня вот такая "хрень" получилась:

setTimer, FF_ActivateTabByName, % 1 * 1 * 1 * 1000 ; hour * minutes * seconds * ms
return

F8::
FF_ActivateTabByName()
return

FF_ActivateTabByName()
{
FF_ActivateTabByName("Мои сообщения")

FF_ActivateTabByName(tabName) {
   static ROLE_SYSTEM_PAGETAB     := 0x25
        , ROLE_SYSTEM_PAGETABLIST := 0x3C
   if !hFF := WinExist("ahk_class MozillaWindowClass")
      throw "Firefox window not found"
   if !AccFF := AccObjectFromWindow(hFF)
      throw "Failed to get accessible object from FF"
   if !AccTabList := SearchElement(AccFF, {Role: ROLE_SYSTEM_PAGETABLIST})
      throw "Failed to get accessible object from tablist"
   for k, v in AccChildren(AccTabList) {
      if (v.accRole(0) = ROLE_SYSTEM_PAGETAB && v.accName(0) = tabName && found := v)
         break
   }
   if !found
      throw "Page not found"
   WinActivate
   found.accDoDefaultAction(0)
}

SearchElement(parentElement, params)
{ ; params — object like {Role: ROLE_SYSTEM_PUSHBUTTON := 0x2B, Name: "5"}
   found := true
   for k, v in params {
      try {
         if (k = "State")
            (!(parentElement.accState(0)    & v) && found := false)
         else if (k ~= "^(Name|Value)$")
            (!(parentElement["acc" . k](0) ~= v) && found := false)
         else if (k = "ChildCount")
            (parentElement["acc" . k]      != v  && found := false)
         else
            (parentElement["acc" . k](0)   != v  && found := false)
      }
      catch 
         found := false
   } until !found
   if found
      Return parentElement
   
   for k, v in AccChildren(parentElement)
      if obj := SearchElement(v, params)
         Return obj
}

AccObjectFromWindow(hWnd, idObject = 0) {
   static IID_IDispatch   := "{00020400-0000-0000-C000-000000000046}"
        , IID_IAccessible := "{618736E0-3C3D-11CF-810C-00AA00389B71}"
        , OBJID_NATIVEOM  := 0xFFFFFFF0, VT_DISPATCH := 9, F_OWNVALUE := 1
        , h := DllCall("LoadLibrary", "Str", "oleacc", "Ptr")
        
   VarSetCapacity(IID, 16), idObject &= 0xFFFFFFFF, AccObject := 0
   DllCall("ole32\CLSIDFromString", "Str", idObject = OBJID_NATIVEOM ? IID_IDispatch : IID_IAccessible, "Ptr", &IID)
   if DllCall("oleacc\AccessibleObjectFromWindow", "Ptr", hWnd, "UInt", idObject, "Ptr", &IID, "PtrP", pAcc) = 0
      AccObject := ComObject(VT_DISPATCH, pAcc, F_OWNVALUE)
   Return AccObject
}

AccChildren(Acc) {
   static VT_DISPATCH := 9
   Loop 1  {
      if ComObjType(Acc, "Name") != "IAccessible"  {
         error := "Invalid IAccessible Object"
         break
      }
      try cChildren := Acc.accChildCount
      catch
         Return
      Children := []
      VarSetCapacity(varChildren, cChildren*(8 + A_PtrSize*2), 0)
      res := DllCall("oleacc\AccessibleChildren", "Ptr", ComObjValue(Acc), "Int", 0
                                                , "Int", cChildren, "Ptr", &varChildren, "IntP", cChildren)
      if (res != 0) {
         error := "AccessibleChildren DllCall Failed"
         break
      }
      Loop % cChildren  {
         i := (A_Index - 1)*(A_PtrSize*2 + 8)
         child := NumGet(varChildren, i + 8)
         Children.Push( (b := NumGet(varChildren, i) = VT_DISPATCH) ? AccQuery(child) : child )
         ( b && ObjRelease(child) )
      }
   }
   if error
      ErrorLevel := error
   else
      Return Children.MaxIndex() ? Children : ""
}

AccQuery(Acc) {
   static IAccessible := "{618736e0-3c3d-11cf-810c-00aa00389b71}", VT_DISPATCH := 9, F_OWNVALUE := 1
   try Return ComObject(VT_DISPATCH, ComObjQuery(Acc, IAccessible), F_OWNVALUE)
}
Send, {F5}
}

Выдает ошибку:

==> Functions cannot contain functions.
     Specifically: FF_ActivateTabByName(tabName)

Re: AHK: Обновление определенной вкладки в браузере Mozilla.

2021-12-15T14:26:06Z

Почему не можете?

Re: AHK: Обновление определенной вкладки в браузере Mozilla.

2021-12-15T14:22:32Z

teadrinker
Да, переключает на нужную вкладку, но не могу сюда же прикрутить то, что изначально было нужно, посыл нажатия ф5, и таймер на час..

Re: AHK: Обновление определенной вкладки в браузере Mozilla.

2021-12-15T11:03:54Z

Переключиться на вкладку в FF по заголовку можно так:

FF_ActivateTabByName("Мои сообщения")

FF_ActivateTabByName(tabName) {
   static ROLE_SYSTEM_PAGETAB     := 0x25
        , ROLE_SYSTEM_PAGETABLIST := 0x3C
   if !hFF := WinExist("ahk_class MozillaWindowClass")
      throw "Firefox window not found"
   if !AccFF := AccObjectFromWindow(hFF)
      throw "Failed to get accessible object from FF"
   if !AccTabList := SearchElement(AccFF, {Role: ROLE_SYSTEM_PAGETABLIST})
      throw "Failed to get accessible object from tablist"
   for k, v in AccChildren(AccTabList) {
      if (v.accRole(0) = ROLE_SYSTEM_PAGETAB && v.accName(0) = tabName && found := v)
         break
   }
   if !found
      throw "Page not found"
   WinActivate
   found.accDoDefaultAction(0)
}

SearchElement(parentElement, params)
{ ; params — object like {Role: ROLE_SYSTEM_PUSHBUTTON := 0x2B, Name: "5"}
   found := true
   for k, v in params {
      try {
         if (k = "State")
            (!(parentElement.accState(0)    & v) && found := false)
         else if (k ~= "^(Name|Value)$")
            (!(parentElement["acc" . k](0) ~= v) && found := false)
         else if (k = "ChildCount")
            (parentElement["acc" . k]      != v  && found := false)
         else
            (parentElement["acc" . k](0)   != v  && found := false)
      }
      catch 
         found := false
   } until !found
   if found
      Return parentElement
   
   for k, v in AccChildren(parentElement)
      if obj := SearchElement(v, params)
         Return obj
}

AccObjectFromWindow(hWnd, idObject = 0) {
   static IID_IDispatch   := "{00020400-0000-0000-C000-000000000046}"
        , IID_IAccessible := "{618736E0-3C3D-11CF-810C-00AA00389B71}"
        , OBJID_NATIVEOM  := 0xFFFFFFF0, VT_DISPATCH := 9, F_OWNVALUE := 1
        , h := DllCall("LoadLibrary", "Str", "oleacc", "Ptr")
        
   VarSetCapacity(IID, 16), idObject &= 0xFFFFFFFF, AccObject := 0
   DllCall("ole32\CLSIDFromString", "Str", idObject = OBJID_NATIVEOM ? IID_IDispatch : IID_IAccessible, "Ptr", &IID)
   if DllCall("oleacc\AccessibleObjectFromWindow", "Ptr", hWnd, "UInt", idObject, "Ptr", &IID, "PtrP", pAcc) = 0
      AccObject := ComObject(VT_DISPATCH, pAcc, F_OWNVALUE)
   Return AccObject
}

AccChildren(Acc) {
   static VT_DISPATCH := 9
   Loop 1  {
      if ComObjType(Acc, "Name") != "IAccessible"  {
         error := "Invalid IAccessible Object"
         break
      }
      try cChildren := Acc.accChildCount
      catch
         Return
      Children := []
      VarSetCapacity(varChildren, cChildren*(8 + A_PtrSize*2), 0)
      res := DllCall("oleacc\AccessibleChildren", "Ptr", ComObjValue(Acc), "Int", 0
                                                , "Int", cChildren, "Ptr", &varChildren, "IntP", cChildren)
      if (res != 0) {
         error := "AccessibleChildren DllCall Failed"
         break
      }
      Loop % cChildren  {
         i := (A_Index - 1)*(A_PtrSize*2 + 8)
         child := NumGet(varChildren, i + 8)
         Children.Push( (b := NumGet(varChildren, i) = VT_DISPATCH) ? AccQuery(child) : child )
         ( b && ObjRelease(child) )
      }
   }
   if error
      ErrorLevel := error
   else
      Return Children.MaxIndex() ? Children : ""
}

AccQuery(Acc) {
   static IAccessible := "{618736e0-3c3d-11cf-810c-00aa00389b71}", VT_DISPATCH := 9, F_OWNVALUE := 1
   try Return ComObject(VT_DISPATCH, ComObjQuery(Acc, IAccessible), F_OWNVALUE)
}

Re: AHK: Обновление определенной вкладки в браузере Mozilla.

2021-12-15T08:28:08Z

Selenium или webdriver.
Все это уже перенесено на автохотки.

Re: AHK: Обновление определенной вкладки в браузере Mozilla.

2021-12-14T23:00:36Z

Phoenixxx_Czar
Первый раз находит и обновляет нужную страницу - далее обновляет рандомные страницы в браузере, не пойму почему