Bablosoft

Оптимизация скрипта

Поддержка

  • NikolasN

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

    Поддержка
    0 Votes
    3 Posts
    557 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
  • N

    Остановка скрипта при краше одного из потоков!

    Поддержка
    0 Votes
    8 Posts
    834 Views
    N

    @Fox said in Остановка скрипта при краше одного из потоков!:

    @n1k0la said in Остановка скрипта при краше одного из потоков!:

    @Fox said in Остановка скрипта при краше одного из потоков!:

    @n1k0la said in Остановка скрипта при краше одного из потоков!:

    @Fox said in Остановка скрипта при краше одного из потоков!:

    Прервать Скрипт

    Здравствуйте! Скажите пожалуйста, а можно ли как-то подравнивать потоки? Т.е. потоки завершаются в разное время, соответственно и стартовать будут в разное, а необходимо, чтобы запускались одновременно!

    Используйте действие "Вызов функции в несколько потоков"

    Здравствуйте!Подскажите пожалуйста, а как именно решить мою задачу при помощи "Вызов функции в несколько потоков"? у меня есть скрипт работает в 10 потоков, потоки в скрипте заканчиваются в разное время, мне нужно чтобы они всегда начинались в одно и тоже время. Я создал новую функцию"post", в нее скопировал из main свой скрипт, в "main" добавил блок "Вызов функции в несколько потоков", в которой указал 10 потоков, в самой "main" установил 1 поток. У меня запустился скрипт, потоки сьехали в нумерации на один, т..е начали отображатся со второго браузера, а не с первого, я зашел в функцию "post" и тоже все там поправил сдвинув нумерацию потоков в скрипте на один, т.к. подумал что теперь первым потоком стал называться "main". Все запустилось, но по отработке первого потока он сразу идет на повторный запуск не дожидаясь остальных потоков. Я понимаю что делаю не верно, подскажите пожалуйста мне правильное решение.

    Чегось? Количество повторений в действии "Вызов функции в несколько потоков" поставьте 1, а само действие поместите в цикл. Тогда потоки по завершении работы не будут запускаться, а как завершится последний поток - завершится и действие "Вызов функции в несколько потоков", но так как оно в цикле, оно будет снова запущено

    )))понял, спасибо

  • ?

    Как не запускать браузер при старте скрипта ?

    Поддержка
    0 Votes
    10 Posts
    937 Views
    ?

    @Fox да, проверил, так и есть, путь к профилю присваивает, а папки не создает.

  • O

    Здравствуйте. Как решать капчу , если она входе работы скрипта при добавлении в друзья в контакте выпадает множество раз?

    Поддержка
    0 Votes
    2 Posts
    590 Views
    mt.NATSM

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

    как-то так, а дальше уже вызываем функцию решения капчи в бас или пишем/ищем на js

    // раз в секунду ищем элемент let i = setInterval(function() { if (document.querySelector("#onesignal-popover-dialog")){ // если нашли останавливаем таймер и вызываем алерт clearInterval(i); alert("element found") } }, 1000); // эмуляция асинхронного добавления, через 2 секунды добавим элемент setTimeout(function(){ document.write("<div id='onesignal-popover-dialog'>hello</div>") },1000)

    первый блок кода отслеживает появление элемента с id #onesignal-popover-dialog, как только находит показывает alert
    соответственно вместо alert нужно выполнить необходимое в вашем случае действие (запустить функцию бас, например, для решения капчи)

    второй кусок эмулирует динамическое появление этого блока на стр

    единственное, тут нужно будет скорей всего делать не под id а под class, хотя зависит от целевого ресурса...
    подробнее тут - https://learn.javascript.ru/searching-elements-dom

  • N

    Приостановка скрипта и продолжение в определенное время

    Поддержка
    0 Votes
    2 Posts
    799 Views
    0
    Функции не подойдут?
    [функция старое тело скрипта]
    [проверить время]
    если время 00:11 делать тото

    или
    [запускфункции в несколько потоков]
    [проверить время]
    если время 00:11 делать тото

    использовать xStarter с silent режимом