Bablosoft

Окончание работы скрипта

Поддержка

  • NikolasN

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

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

    Пустое окно редактора скрипта

    Поддержка
    0 Votes
    14 Posts
    1362 Views
    B

    Подключение через удаленный непрерывное - ноут закрыт, ошибка есть - открываю - ошибка пропадает. Ну точнее - пропадает если поводить мышкой в области вот этой белой. Или нажать "оставновить", далее "запись"

    Понимаю, что чесать надо в сторону "удаленного рабочего стола хром"

    Также, ноут открыт, запущена запись - все работает, закрываем крышку - перестает

  • N

    После завершения скрипта BAS удаляет из ресурса не одну строку а несколько(прокси, юзер агенты и т.д)?

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

    @fox said in После завершения скрипта BAS удаляет из ресурса не одну строку а несколько(прокси, юзер агенты и т.д)?:

    @nonamemartin said in После завершения скрипта BAS удаляет из ресурса не одну строку а несколько(прокси, юзер агенты и т.д)?:

    @fox said in После завершения скрипта BAS удаляет из ресурса не одну строку а несколько(прокси, юзер агенты и т.д)?:

    @martinluther1483 said in После завершении скрипта BAS удаляет из ресурса не одну строку а несколько(прокси, юзер агенты и т.д)?:

    @fox said in После завершении скрипта BAS удаляет из ресурса не одну строку а несколько(прокси, юзер агенты и т.д)?:

    добавить в строку любые идентификационные данные.

    Есть ли возможность отключить то чтобы BAS удалял повтор значение в файле? Как добавить идентификационные данные(можно примеров показать) а то я не могу понять? Если я соединяю все эти данные одной строкой и пытаюсь их спарсить, то разделители , . : ; не дают мне их нормально спарсить так как в тексте юзер и api используются именно эти все разделители и юзер прописывается не так ( Macintosh; Intel Mac OS X 10_14_3) AppleWebKit/537.36 (KHTML, like Gecko) Chrome;72.0.3626.119 Safari/537;36 ) а по отдельности ( Macintosh ПОТОМ Intel Mac OS X 10_14_3) AppleWebKit/537.36 (KHTML, like Gecko) Chrome ПОТОМ 72.0.3626.119 Safari/537) - это я написал к примеру!!!!
    Может подскажете как можно это обойти?
    Нет Добавить логин, пароль, и прочие данные через разделитель в одну строку login|password|127.0.0.1:888 Можете использовать свой разделитель который точно не попадётся в данных, например |. Парсить через модуль "список" действием "парсить строку"

    Теперь возникла проблема в том, что когда я запускаю через многопоток скрипт с парсингом строки, то каждый поток берет те же самые данные, например http://prntscr.com/ngy7t7 !!! Как сделать так чтобы поток брал разные данные по строке в файле с разделителем(через "парсить строку")?????

    Используйте ресурс, в настройке ресурса установите, например, такие настройки:
    0_1556246957020_422aab63-2022-46d5-a301-1571106d46b4-изображение.png

    вы ведь не все данные в одну строку соединили? :D

    Всё))) Разобрался!!!!

  • brotokB

    Как игнорировать ошибки при выполнении скрипта?

    Поддержка
    0 Votes
    10 Posts
    2400 Views
    artihorrorA

    @brotok 1_1512459419312_1512455229233-kufar-парсерV2.xml 0_1512459419297_1512455229233-kufar-парсер.xml вот тебе пара вариантов. один с циклом, второй без. Оба отрабатывают весь файл со сылками. количество потоков, ошибок и успехов редактируются через ресурсы, так же в ресурсах указываешь путь к файлу (писать ручками) дл вывода результата

  • GermangoG

    Неполная загрузка страницы и продолжение скрипта

    Поддержка
    0 Votes
    3 Posts
    1251 Views
    C

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