Серый форум — AHK: Скрипт застывает при открытии окна загрузки файла на сайт

Re: AHK: Скрипт застывает при открытии окна загрузки файла на сайт

null@example.com (teadrinker) — Thu, 19 Oct 2023 22:34:23 +0000

В функции UnFreeze() ничего криминального нет, а в целом не могу сказать, особенно учитывая, что IE может работать сейчас неполноценно.

Re: AHK: Скрипт застывает при открытии окна загрузки файла на сайт

null@example.com (Malcev) — Thu, 19 Oct 2023 22:26:00 +0000

teadrinker, не знаешь насколько верно будет использовать данный код в цикле?

loop
{
   UnFreeze(200, Func("MyFunc"))
   oIE.document.querySelector("input[type=""file""]").click()
   msgbox unfreeze
}

Есть ли какие подводные камни?

oIE := ComObjCreate("InternetExplorer.Application")
OnExit( Func("IeQuit").Bind(oIE) )
oIE.visible := true
oIE.navigate("https://www.youtube.com/upload")
While oIE.readyState != 4 || oIE.document.readyState != "complete" || oIE.busy
   Sleep, 10

loop
{
   UnFreeze(200, Func("MyFunc"))
   oIE.document.querySelector("input[type=""file""]").click()
   msgbox unfreeze
}

MyFunc()  {
   Loop  {
      if WinExist("ahk_class #32770 ahk_exe IEXPLORE.EXE")  {
         MsgBox, do stuff here
         break
      }
      Sleep, 100
   }
}

IeQuit(oIE)  {
   if WinExist("ahk_class #32770 ahk_exe IEXPLORE.EXE")
      ControlClick, Button2
   try oIE.Quit()
}

UnFreeze(timeOut, userFunc)  {
   static SYNCHRONIZE := 0x100000, hGui, oInfo := {}
        , _ := OnMessage( msg := DllCall("RegisterWindowMessage", Str, "WM_INFO"), Func("WM_INFO").Bind(oInfo) )
   if !hGui
      Gui, New, +hwndhGui
   hProc := DllCall("OpenProcess", UInt, SYNCHRONIZE, UInt, 0, UInt, DllCall("GetCurrentProcessId"), Ptr)
   pPtr := GetProcAddr(hProc, hGui, msg, timeOut)
   oInfo.func := userFunc, oInfo.hProc := hProc
   DllCall("CreateThread", Ptr, 0, Ptr, 0, Ptr, pPtr, Ptr, 0, UInt, 0, Ptr, 0)
}

WM_INFO(oInfo)
{
   DllCall("CloseHandle", Ptr, oInfo.hProc)
   oInfo.func.Call()
}

GetProcAddr(Handle, hWnd, Msg, Timeout=-1)
{  ; на основе http://forum.script-coding.com/viewtopic.php?pid=56073#p56073
   static MEM_COMMIT := 0x1000, PAGE_EXECUTE_READWRITE := 0x40
   ptr := DllCall("VirtualAlloc", Ptr, 0, Ptr, A_PtrSize = 4 ? 49 : 85, UInt, MEM_COMMIT, UInt, PAGE_EXECUTE_READWRITE, Ptr)
   , hModule := DllCall("GetModuleHandle", Str, "kernel32.dll", Ptr)
   , pWaitForSingleObject := DllCall("GetProcAddress", Ptr, hModule, AStr, "WaitForSingleObject", Ptr)
   , hModule := DllCall("GetModuleHandle", Str, "user32.dll", Ptr)
   , pSendMessageW := DllCall("GetProcAddress", Ptr, hModule, AStr, "SendMessageW", Ptr)
   , NumPut(pWaitForSingleObject, ptr*1)
   , NumPut(pSendMessageW, ptr + A_PtrSize)
   if (A_PtrSize = 4)  {
      NumPut(0x68, ptr + 8, "UChar")
      , NumPut(Timeout, ptr + 9, "UInt"), NumPut(0x68, ptr + 13, "UChar")
      , NumPut(Handle, ptr + 14), NumPut(0x15FF, ptr + 18, "UShort")
      , NumPut(ptr, ptr + 20), NumPut(0x6850, ptr + 24, "UShort")
      , NumPut(Handle, ptr + 26), NumPut(0x68, ptr + 30, "UChar")
      , NumPut(Msg, ptr + 31, "UInt"), NumPut(0x68, ptr + 35, "UChar")
      , NumPut(hWnd, ptr + 36), NumPut(0x15FF, ptr + 40, "UShort")
      , NumPut(ptr+4, ptr + 42), NumPut(0xC2, ptr + 46, "UChar"), NumPut(4, ptr + 47, "UShort")
   }
   else  {
      NumPut(0x53, ptr + 16, "UChar")
      , NumPut(0x20EC8348, ptr + 17, "UInt"), NumPut(0xBACB8948, ptr + 21, "UInt")
      , NumPut(Timeout, ptr + 25, "UInt"), NumPut(0xB948, ptr + 29, "UShort")
      , NumPut(Handle, ptr + 31), NumPut(0x15FF, ptr + 39, "UShort")
      , NumPut(-45, ptr + 41, "UInt"), NumPut(0xB849, ptr + 45, "UShort")
      , NumPut(Handle, ptr + 47), NumPut(0xBA, ptr + 55, "UChar")
      , NumPut(Msg, ptr + 56, "UInt"), NumPut(0xB948, ptr + 60, "UShort")
      , NumPut(hWnd, ptr + 62), NumPut(0xC18941, ptr + 70, "UInt")
      , NumPut(0x15FF, ptr + 73, "UShort"), NumPut(-71, ptr + 75, "UInt")
      , NumPut(0x20C48348, ptr + 79, "UInt"), NumPut(0xC35B, ptr + 83, "UShort")
   }
   return ptr + A_PtrSize*2
}

Re: AHK: Скрипт застывает при открытии окна загрузки файла на сайт

null@example.com (teadrinker) — Thu, 01 Nov 2018 14:42:04 +0000

OFF: блин, что они с сайтом сделали. Раньше можно было выбрать цветовую тему, добавляя к ссылке определённый код, например style=17, но сейчас это не работает, страница не форматируется.

Re: AHK: Скрипт застывает при открытии окна загрузки файла на сайт

null@example.com (Malcev) — Thu, 01 Nov 2018 14:26:04 +0000

Запостил твоё решение на оффоруме.
https://autohotkey.com/boards/viewtopic … 53#p247253

Re: AHK: Скрипт застывает при открытии окна загрузки файла на сайт

null@example.com (teadrinker) — Mon, 29 Oct 2018 08:31:27 +0000

Вот так работает:

oIE := ComObjCreate("InternetExplorer.Application")
OnExit( Func("IeQuit").Bind(oIE) )
oIE.visible := true
oIE.navigate("https://www.youtube.com/upload")
While oIE.readyState != 4 || oIE.document.readyState != "complete" || oIE.busy
   Sleep, 10

UnFreeze(200, Func("MyFunc"))
oIE.document.querySelector("input[type=""file""]").click()

MyFunc()  {
   Loop  {
      if WinExist("ahk_class #32770 ahk_exe IEXPLORE.EXE")  {
         MsgBox, do stuff here
         break
      }
      Sleep, 100
   }
}

IeQuit(oIE)  {
   if WinExist("ahk_class #32770 ahk_exe IEXPLORE.EXE")
      ControlClick, Button2
   try oIE.Quit()
}

UnFreeze(timeOut, userFunc)  {
   static SYNCHRONIZE := 0x100000, hGui, oInfo := {}
        , _ := OnMessage( msg := DllCall("RegisterWindowMessage", Str, "WM_INFO"), Func("WM_INFO").Bind(oInfo) )
   if !hGui
      Gui, New, +hwndhGui
   hProc := DllCall("OpenProcess", UInt, SYNCHRONIZE, UInt, 0, UInt, DllCall("GetCurrentProcessId"), Ptr)
   pPtr := GetProcAddr(hProc, hGui, msg, timeOut)
   oInfo.func := userFunc, oInfo.hProc := hProc
   DllCall("CreateThread", Ptr, 0, Ptr, 0, Ptr, pPtr, Ptr, 0, UInt, 0, Ptr, 0)
}

WM_INFO(oInfo)
{
   DllCall("CloseHandle", Ptr, oInfo.hProc)
   oInfo.func.Call()
}

GetProcAddr(Handle, hWnd, Msg, Timeout=-1)
{  ; на основе http://forum.script-coding.com/viewtopic.php?pid=56073#p56073
   static MEM_COMMIT := 0x1000, PAGE_EXECUTE_READWRITE := 0x40
   ptr := DllCall("VirtualAlloc", Ptr, 0, Ptr, A_PtrSize = 4 ? 49 : 85, UInt, MEM_COMMIT, UInt, PAGE_EXECUTE_READWRITE, Ptr)
   , hModule := DllCall("GetModuleHandle", Str, "kernel32.dll", Ptr)
   , pWaitForSingleObject := DllCall("GetProcAddress", Ptr, hModule, AStr, "WaitForSingleObject", Ptr)
   , hModule := DllCall("GetModuleHandle", Str, "user32.dll", Ptr)
   , pSendMessageW := DllCall("GetProcAddress", Ptr, hModule, AStr, "SendMessageW", Ptr)
   , NumPut(pWaitForSingleObject, ptr*1)
   , NumPut(pSendMessageW, ptr + A_PtrSize)
   if (A_PtrSize = 4)  {
      NumPut(0x68, ptr + 8, "UChar")
      , NumPut(Timeout, ptr + 9, "UInt"), NumPut(0x68, ptr + 13, "UChar")
      , NumPut(Handle, ptr + 14), NumPut(0x15FF, ptr + 18, "UShort")
      , NumPut(ptr, ptr + 20), NumPut(0x6850, ptr + 24, "UShort")
      , NumPut(Handle, ptr + 26), NumPut(0x68, ptr + 30, "UChar")
      , NumPut(Msg, ptr + 31, "UInt"), NumPut(0x68, ptr + 35, "UChar")
      , NumPut(hWnd, ptr + 36), NumPut(0x15FF, ptr + 40, "UShort")
      , NumPut(ptr+4, ptr + 42), NumPut(0xC2, ptr + 46, "UChar"), NumPut(4, ptr + 47, "UShort")
   }
   else  {
      NumPut(0x53, ptr + 16, "UChar")
      , NumPut(0x20EC8348, ptr + 17, "UInt"), NumPut(0xBACB8948, ptr + 21, "UInt")
      , NumPut(Timeout, ptr + 25, "UInt"), NumPut(0xB948, ptr + 29, "UShort")
      , NumPut(Handle, ptr + 31), NumPut(0x15FF, ptr + 39, "UShort")
      , NumPut(-45, ptr + 41, "UInt"), NumPut(0xB849, ptr + 45, "UShort")
      , NumPut(Handle, ptr + 47), NumPut(0xBA, ptr + 55, "UChar")
      , NumPut(Msg, ptr + 56, "UInt"), NumPut(0xB948, ptr + 60, "UShort")
      , NumPut(hWnd, ptr + 62), NumPut(0xC18941, ptr + 70, "UInt")
      , NumPut(0x15FF, ptr + 73, "UShort"), NumPut(-71, ptr + 75, "UInt")
      , NumPut(0x20C48348, ptr + 79, "UInt"), NumPut(0xC35B, ptr + 83, "UShort")
   }
   return ptr + A_PtrSize*2
}

Re: AHK: Скрипт застывает при открытии окна загрузки файла на сайт

null@example.com (teadrinker) — Sun, 28 Oct 2018 19:27:33 +0000

А, нет, я перед этим вручную на кнопку загрузки кликнул, потому что через IE сначала авторизоваться пришлось. Если скрипт кликает, тогда не срабатывает.

Re: AHK: Скрипт застывает при открытии окна загрузки файла на сайт

null@example.com (teadrinker) — Sun, 28 Oct 2018 19:17:05 +0000

У меня срабатывает без клика:

Re: AHK: Скрипт застывает при открытии окна загрузки файла на сайт

null@example.com (Malcev) — Sun, 28 Oct 2018 18:20:14 +0000

Таймер сработает только если после появления окна для загрузки файлов кликнуть вручную правой кнопкой мыши на иконку запущенного скрипта.
Так что похоже не вариант.

#persistent
DllCall("SetTimer", Ptr, A_ScriptHwnd, Ptr, id := 1, UInt, 50, Ptr, RegisterCallback("MyTimer", "F"))

oIE := ComObjCreate("InternetExplorer.Application") 
oIE.visible := True, oIEHWND := oIE.HWND 
WinMaximize ahk_id %oIEHWND%  
oIE.navigate("https://www.youtube.com/upload")
While oIE.readyState != 4 || oIE.document.readyState != "complete" || oIE.busy
   Sleep, 10
oIE.document.querySelector("input[type=""file""]").click()



MyTimer()
{
   Global n
   n++
   if winexist("ahk_class #32770 ahk_exe IEXPLORE.EXE")
   {
      tooltip work
      DllCall("KillTimer", Ptr, A_ScriptHwnd, Ptr, id := 1)
      msgbox
   }
   tooltip % n
}

Re: AHK: Скрипт застывает при открытии окна загрузки файла на сайт

null@example.com (teadrinker) — Sat, 27 Oct 2018 20:34:19 +0000

Тут уж от исполнения зависит.

Re: AHK: Скрипт застывает при открытии окна загрузки файла на сайт

null@example.com (Malcev) — Sat, 27 Oct 2018 19:38:47 +0000

Да, действительно не замораживается.
Но вряд ли код с использованием этого таймера выйдет изящнее.

Re: AHK: Скрипт застывает при открытии окна загрузки файла на сайт

null@example.com (teadrinker) — Fri, 26 Oct 2018 21:48:21 +0000

Существует такой таймер на WinApi: SetTimer
Он не замораживается.

Re: AHK: Скрипт застывает при открытии окна загрузки файла на сайт

null@example.com (Malcev) — Fri, 26 Oct 2018 20:21:08 +0000

Сомневаюсь, так как IE останавливает поток скрипта, возможно из-за защиты от загрузки файлов без согласия пользователя.
Вариант использовать AHK_H который поддерживает многопоточность.

Re: AHK: Скрипт застывает при открытии окна загрузки файла на сайт

null@example.com (teadrinker) — Fri, 26 Oct 2018 20:03:49 +0000

g0ss пишет:

Думал, что есть более изящное решение

Скорее всего, можно решить вопрос с помощью таймера.

Re: AHK: Скрипт застывает при открытии окна загрузки файла на сайт

null@example.com (g0ss) — Fri, 26 Oct 2018 11:39:59 +0000

Я делал:


Run, winwait.ahk

;Далее код winwait.ahk
WinWait, Choose File to Upload,
IfWinNotActive, Choose File to Upload, , WinActivate, Choose File to Upload,
WinWaitActive, Choose File to Upload,
Click 240, 150
ExitApp

Думал, что есть более изящное решение, но все ровно спасибо. Может быть знаете, почему не работают горячие клавиши?

Re: AHK: Скрипт застывает при открытии окна загрузки файла на сайт

null@example.com (Malcev) — Fri, 26 Oct 2018 11:27:37 +0000

Перед нажатием на кнопку, после которого появляется окошко для загрузки, запускайте отдельный скрипт, который это окошко будет ожидать и при его появлнии заполнять и закрывать.