Bablosoft

Как посмотреть код который создал BAS в процессе моего собирания скрипта?

Moved Поддержка

  • 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
  • M

    Как в BAS работать с документами MS Word ?

    Поддержка
    0 Votes
    2 Posts
    749 Views
    M

    Нашел хороший модуль для ворд документов docxtemplater, который установился в БАС. В документации есть код проверки работы модуля. Запустил это код в БАС, выходит такая ошибка: CUSTOM~LOG[-][red][440454553] [03:47:40] Поток №1 : Error: Cannot find module 'pizzip'
    Require stack:

    F:\BrowserAutomationStudio\apps\25.4.1\e\0f88.K9tW\distr\app\lib\custom\bg2knumc9p.js F:\BrowserAutomationStudio\apps\25.4.1\e\0f88.K9tW\distr\app\lib\internal\custom.js F:\BrowserAutomationStudio\apps\25.4.1\e\0f88.K9tW\distr\app\lib\main.js
    Не может найти модуль pizzip. Скачал архив всего модуля, там этот файл есть. Подскажите, в какую папку в БАС нужно положить файл pizzip, чтобы БАС его увидел?
    Код такой:
    const PizZip = require("pizzip");
    const Docxtemplater = require("docxtemplater");

    const fs = require("fs");
    const path = require("path");

    // Load the docx file as binary content
    const content = fs.readFileSync(
    path.resolve(__dirname, "input.docx"),
    "binary"
    );

    const zip = new PizZip(content);

    const doc = new Docxtemplater(zip, {
    paragraphLoop: true,
    linebreaks: true,
    });

    // Render the document (Replace {first_name} by John, {last_name} by Doe, ...)
    doc.render({
    first_name: "John",
    last_name: "Doe",
    phone: "0652455478",
    description: "New Website",
    });

    const buf = doc.getZip().generate({
    type: "nodebuffer",
    // compression: DEFLATE adds a compression step.
    // For a 50MB output document, expect 500ms additional CPU time
    compression: "DEFLATE",
    });

    // buf is a nodejs Buffer, you can either write it to a
    // file or res.send it with express for example.
    fs.writeFileSync(path.resolve(__dirname, "output.docx"), buf);

  • B

    Как режим BAS использовать?

    Поддержка
    0 Votes
    6 Posts
    1290 Views
    FoxF

    @Beginner said in Как режим BAS использовать?:

    Удивлен, что никто не написал столь простой и удобный скрипт. Может, уже есть готовые решения, которые я не знаю. Кто знает - напишите.

    Думаю проблема в том, что программа называется BrowserAutomationStudio

  • L

    Как в BAS запустить веб камеру?

    Moved Поддержка
    0 Votes
    8 Posts
    1521 Views
    L

    Пересмотрела всю инфу, которую скидывали, нужно просто дать доспуп к камере без подмены на другое видео, на ютубе есть видео самой подмены, но там спокойно открывалась камера в BASе, у меня же она не открывается, не на тестовом сайте проверки камеры ни на том сайте где мне нужно. В настройках браузера если их через BAS открыть стоит блок на использование камеры всеми сайтами которые ее используют... В чем может быть причина?

  • R

    Не работает прокси в BAS

    Поддержка
    0 Votes
    17 Posts
    3536 Views
    C

    Это удивительное дело и у меня в проекте повторилось, долго искал причину ...