Bablosoft

Скрипт работает только в режиме записи.

Поддержка

  • NikolasN

    Как записать видео работы скрипта в режиме запуска?

    Поддержка
    0 Votes
    3 Posts
    774 Views
    NikolasN

    в общем Решил проблему написав autohotkeyscript. вот он . может кому-то тоже будет полезно
    требует autohotkey версии v1.1.37.02
    горячие клавиши запуска\паузы:
    Ctrl+Alt+P

    вместо :

    BasPidStatic := 10696

    поставьте свой номер процесса из Диспетчера задач:
    53684ddb-91d7-43ee-93b2-889c6ea09fd6-image.png

    вместо:

    BasTitleKey := "instagram_5.2"

    поставьте текст без разрыва на латинице который присутствует в заголовке окна вашего процесса
    fe719f0c-3974-4c3d-aabf-223410f07b97-image.png

    ; ========================================================== ; BAS Keep Browser Visible — bind by PID, multi-monitor ready ; AHK v1.1.37.02 — держит окно "Браузер" раскрытым ; ========================================================== #NoEnv #SingleInstance, Force SetBatchLines, -1 SetTitleMatchMode, 2 SendMode, Input CoordMode, Mouse, Window CoordMode, Pixel, Window DetectHiddenWindows, Off ; Включаем DPI-awareness (пер-монитор). Если нет Shcore — откатываемся. DllCall("Shcore\SetProcessDpiAwareness", "Int", 2, "Int") if (ErrorLevel) DllCall("SetProcessDPIAware") ; ------------------- КОНФИГ ------------------- BasPidStatic := 10696 ; <-- твой текущий PID BAS BasTitleKey := "instagram_5.2" ; ASCII-фолбэк, если PID не найден BasWinClass := "Qt5QWindowIcon" BasExe := "BrowserAutomationStudio.exe" BrowserWinClass := "WorkerWindowClass" BrowserExe := "Worker.exe" BrowserWinTitle := "Браузер" ; файл должен быть UTF-8 with BOM TimerMs := 700 ; Координаты "Показать браузер" (клиентская область BAS) ShowLinkX := 56 ShowLinkY := 292 ; ---- Мониторы ---- ; Куда класть окно "Браузер": 0 = не трогать, 1/2/3 = номер монитора BrowserOnMonitor := 2 ; Куда переместить окно BAS: 0 = не трогать, 1/2/3 = номер монитора BasOnMonitor := 0 ; Отступы и размер "Браузер" внутри выбранного монитора (рабочая область) BrowserMarginX := 40 BrowserMarginY := 80 BrowserWidth := 520 BrowserHeight := 900 ; ----------------- /КОНФИГ -------------------- ; Глобальные gBasHwnd := "" gBasPid := 0 gBrowserHwnd := "" gOn := 0 ; --------- ГОРЯЧИЕ КЛАВИШИ ---------- ; Ctrl+Alt+P — старт/пауза мониторинга ^!p:: gOn := !gOn SetTimer, WatchLoop, % (gOn ? TimerMs : "Off") TrayTip, BAS Watcher, % (gOn ? "Мониторинг включен" : "Мониторинг выключен"), 1500, 1 return ; Ctrl+Alt+Q — выход ^!q::ExitApp ; Ctrl+Alt+C — калибровка координат "Показать браузер" (клиент BAS) ^!c:: GetBasSpec(basSpec) if (!WinExist(basSpec)) return WinActivate, %basSpec% Sleep, 120 MouseGetPos, mx, my Clipboard := mx "," my TrayTip, BAS Watcher, % "Координаты (отн. BAS): " mx "," my " скопированы", 1500, 1 return ; Ctrl+Alt+B — привязать к активному окну BAS (если PID сменился) ^!b:: WinGetClass, c, A WinGet, pname, ProcessName, A if (c = BasWinClass && pname = BasExe) { gBasHwnd := WinExist("A") WinGet, gBasPid, PID, ahk_id %gBasHwnd% BasPidStatic := gBasPid gBrowserHwnd := "" WinGetTitle, t, ahk_id %gBasHwnd% TrayTip, BAS Watcher, % "Привязан к BAS PID " gBasPid " | " t, 2000, 1 if (BasOnMonitor) MoveWindowToMonitor(gBasHwnd, BasOnMonitor) } else { TrayTip, BAS Watcher, "Активное окно не BAS", 1500, 1 } return ; Ctrl+Alt+I — показать статус ^!i:: WinGetTitle, t, ahk_id %gBasHwnd% MsgBox, 64, BAS Watcher , % "BAS PID: " gBasPid " (static=" BasPidStatic ")\nBAS HWND: " gBasHwnd "`nTitle: " t "`nBrowser HWND: " gBrowserHwnd "`nМониторинг: " (gOn ? "ON" : "OFF") return ; --------- АВТОСТАРТ ---------- Initialize() if (BasOnMonitor && IsWindowValid(gBasHwnd)) MoveWindowToMonitor(gBasHwnd, BasOnMonitor) gOn := 1 SetTimer, WatchLoop, %TimerMs% TrayTip, BAS Watcher, "Мониторинг включен (автостарт)", 1500, 1 return ; ================= ФУНКЦИИ ================= Initialize() { global BasPidStatic, BasTitleKey, BasWinClass, BasExe, gBasHwnd, gBasPid if (BasPidStatic > 0) { spec := "ahk_pid " . BasPidStatic . " ahk_class " . BasWinClass . " ahk_exe " . BasExe if (WinExist(spec)) { gBasHwnd := WinExist(spec) gBasPid := BasPidStatic return } } spec2 := BasTitleKey . " ahk_class " . BasWinClass . " ahk_exe " . BasExe if (WinExist(spec2)) { gBasHwnd := WinExist(spec2) WinGet, gBasPid, PID, ahk_id %gBasHwnd% } } GetBasSpec(ByRef out) { global gBasHwnd, BasPidStatic, BasWinClass, BasExe, BasTitleKey if (IsWindowValid(gBasHwnd)) { out := "ahk_id " . gBasHwnd return } if (BasPidStatic > 0) { out := "ahk_pid " . BasPidStatic . " ahk_class " . BasWinClass . " ahk_exe " . BasExe } else { out := BasTitleKey . " ahk_class " . BasWinClass . " ahk_exe " . BasExe } } GetParentPid(pid) { wmi := ComObjGet("winmgmts:") for p in wmi.ExecQuery("SELECT ParentProcessId FROM Win32_Process WHERE ProcessId=" pid) return p.ParentProcessId + 0 return 0 } IsWindowValid(hwnd) { if (!hwnd) return false WinGet, out, ID, ahk_id %hwnd% return (out = hwnd) } ; Рабочая область монитора N (без панели задач) GetMonitorWorkArea(idx, ByRef l, ByRef t, ByRef r, ByRef b) { SysGet, c, MonitorCount if (idx < 1 || idx > c) { l := t := r := b := "" return false } SysGet, Mon, MonitorWorkArea, %idx% l := MonLeft, t := MonTop, r := MonRight, b := MonBottom return true } ; Переместить окно в рабочую область монитора N MoveWindowToMonitor(hwnd, idx) { global BrowserMarginX, BrowserMarginY, BrowserWidth, BrowserHeight if (!IsWindowValid(hwnd)) return if (!GetMonitorWorkArea(idx, l, t, r, b)) return x := l + BrowserMarginX y := t + BrowserMarginY w := BrowserWidth h := BrowserHeight WinMove, ahk_id %hwnd%, , %x%, %y%, %w%, %h% } FindBrowserForThisBas() { global gBasPid, BrowserWinClass, BrowserExe, BrowserWinTitle if (!gBasPid) return "" ; 1) По классу+exe и ParentPID WinGet, list, List, ahk_class %BrowserWinClass% ahk_exe %BrowserExe% Loop, %list% { thisH := list%A_Index% WinGet, thisPid, PID, ahk_id %thisH% ppid := GetParentPid(thisPid) if (ppid = gBasPid) return thisH } ; 2) Фолбэк — по заголовку "Браузер" WinGet, list2, List, %BrowserWinTitle% Loop, %list2% { thisH := list2%A_Index% WinGet, thisPid, PID, ahk_id %thisH% ppid := GetParentPid(thisPid) if (ppid = gBasPid) return thisH } return "" } ClickShowInBas() { global ShowLinkX, ShowLinkY GetBasSpec(basSpec) if (!WinExist(basSpec)) return WinGet, bstate, MinMax, %basSpec% if (bstate = -1) WinRestore, %basSpec% WinActivate, %basSpec% Sleep, 120 ControlClick, x%ShowLinkX% y%ShowLinkY%, %basSpec%, , , NA } TendBrowser(hwnd) { global AlwaysOnTopOn, BrowserOnMonitor if (!hwnd) return WinGet, st, MinMax, ahk_id %hwnd% if (st = -1) WinRestore, ahk_id %hwnd% if (AlwaysOnTopOn) WinSet, AlwaysOnTop, On, ahk_id %hwnd% if (BrowserOnMonitor) MoveWindowToMonitor(hwnd, BrowserOnMonitor) } ; ================= ОСНОВНОЙ ЦИКЛ ================= WatchLoop: { global gBasHwnd, gBasPid, gBrowserHwnd, BasOnMonitor GetBasSpec(basSpec) if (!WinExist(basSpec)) { Initialize() return } if (!IsWindowValid(gBasHwnd)) gBasHwnd := WinExist(basSpec) if (!gBasPid) { WinGet, gBasPid, PID, ahk_id %gBasHwnd% if (!gBasPid) return } if (BasOnMonitor && IsWindowValid(gBasHwnd)) MoveWindowToMonitor(gBasHwnd, BasOnMonitor) if (IsWindowValid(gBrowserHwnd)) { TendBrowser(gBrowserHwnd) return } gBrowserHwnd := FindBrowserForThisBas() if (gBrowserHwnd) { TendBrowser(gBrowserHwnd) return } ClickShowInBas() Loop, 5 { Sleep, 300 gBrowserHwnd := FindBrowserForThisBas() if (gBrowserHwnd) { TendBrowser(gBrowserHwnd) break } } } return
  • P

    в чем прикол функции в многопоток

    Поддержка
    0 Votes
    6 Posts
    1152 Views
    P

    @Fox Привет.Я описывал задачу в этой теме https://community.bablosoft.com/topic/27417/вызов-многопоточной-функции
    Дело в том,что я не могу вообще никак перевести свой скрипт на многопоток,у меня тупо,что в вызове функции в многопоток,что просто обычный многопоток,выполняет свою работу с данными по очереди,а не одновременно.И это очень сильно бьет по времени,а нужна именно скорость обработки.Все уже готово и скрипт рабочий полностью,но скорость обработки заставила воспользоваться многопотоком.Ранее,подобных проблем не замечал,а сейчас элементарную задачу не могу уже несколько дней решить.
    Скрипт очень простой и работает без браузера вообще,в скрипте используется только одно взаимодействие с гет запросом.Пример скрипта я приложил в этой теме(но без запросов),он точно почти такой же,как и основа.
    Логика такова:
    1)Запускается скрипт (без всяких ресурсов изначально и данных) и создаются два ресурса.
    2)Делается запрос на сайт,который обрабатывается в отдельной функции,т.е. обрабатывает полученные строки и записывает в ресурс.
    3)Вызывается функция в несколько потоков,которая работает (должна работать) с каждой строкой из созданного ранее ресурса(уникальной)в отдельном потоке.Данные обрабатываются и записываются во второй ранее созданный ресурс.
    4)Как только данные обработаны,ресурс переводится в список и список записывается в файл.Более ничего не делается.
    -Сперва я думал,что проблема в создаваемых в ходе работы ресурсах,но нет.Создавал изначально ресурсы и то же самое было.
    -Потом пробовал брать из файлов значения\потом создавать файлы по ходу и из них брать данные\сохранять напрямую пытался и.т.д
    -Возможно думал стоят какие то ограничения из за слабого пк с 4 гб оперативы и взял сервер с 64 гб,но как обрабатывалась строка за 5 минут на моем пк,так же по скорости и на серваке.Ладно, с этим я уже ничего не поделаю из за регулярок в проекте,согласен.Но вот перевести на поток и хотя бы по 10 строк одновременно обрабатывать,очень бы помогло.А сейчас в любом случае,у меня,сколько бы потоков не выставил - работает все равно как один,просто по очереди разный поток берет свои данные(

  • M

    Как экранировать символы []при записи в файл?

    Поддержка
    0 Votes
    8 Posts
    1200 Views
    llimonixL

    Я вроде отправил вверху готовое решение, зачем изобретать велосипед

  • alex-graA

    Скрипт при запуске (Не отвечает), но процесс идет и после завершения появляется лог, в чем может быть причина скрипт обрабатывает изображения, может быть причина что структура скрипта цикл в цикле?

    Поддержка
    0 Votes
    13 Posts
    1542 Views
    alex-graA

    @UserTrue Дело в том что может быть дело совсем в другом, потому что еще процесс обработки одного изображения долго происходит больше минуты, а весь шаблон я бы не хотел в общий доступ выкладывать

  • krodaK

    Date.parse не работает в выполнить код, в экшене выдает разный ответ

    Поддержка
    0 Votes
    4 Posts
    1075 Views
    krodaK

    @GhostZ
    да, не подумал сразу о строке в дату
    Все получилось, ура

    понять бы еще как вписать на место "переменную" строку с датой [[переменная]]

    var date = new Date("переменная")