From 7d1ea5b2b32971bf743506e31cb23a9e44ec397d Mon Sep 17 00:00:00 2001
From: yuriy <yuriyz@disroot.org>
Date: Sat, 29 Jul 2023 18:55:58 -0400
Subject: [PATCH] Added Testing Tool template

---
 Tools/ConnectToActiveChromeTab.ahk | 148 +++++++++++++++++++++++++++++
 1 file changed, 148 insertions(+)
 create mode 100644 Tools/ConnectToActiveChromeTab.ahk

diff --git a/Tools/ConnectToActiveChromeTab.ahk b/Tools/ConnectToActiveChromeTab.ahk
new file mode 100644
index 0000000..10f1c6f
--- /dev/null
+++ b/Tools/ConnectToActiveChromeTab.ahk
@@ -0,0 +1,148 @@
+; Information
+;----------------------------------------------------------------------------------
+; This script can be used to connect to your currently active Chrome tab and for quick debugging purposes
+;---ENVIRONMENT---------------------------------------------------------------------
+#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
+#SingleInstance, Force
+SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
+SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
+CoordMode, ToolTip, Screen
+CoordMode, Mouse, Screen
+FileEncoding, UTF-8-RAW ; Needed for special symbols that are used in video descritions
+;---VARIABLES-----------------------------------------------------------------------
+global driver
+global DevMode
+DevMode := 1
+
+; Get Title of current chrome window so Selenium can find and connect to it
+WinActivate, ahk_class Chrome_WidgetWin_1
+WinGetTitle, Chrome_Window_Title, A
+Chrome_Window_Title := StrSplit(Chrome_Window_Title, " - Chromium")
+Chrome_Window_Title := Chrome_Window_Title[1]
+Driver := ConnectToChromeTab("", ConnectActiveTab := 1, ActiveTabTitle := Chrome_Window_Title)  ; open new tab page with with specified profile
+;---MAIN SCRIPT---------------------------------------------------------------------
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ExitApp
+Escape::ExitApp
+
+
+; Libraries - All are included because they call on functions from each other
+;-----------------------------------------------------------------------------------
+#include %A_ScriptDir%\..\Lib\Freedomain-Posters-Shared-Functions\StdOutToVar.ahk
+#Include %A_ScriptDir%\..\Lib\Freedomain-Posters-Shared-Functions\General-Functions.ahk
+#Include %A_ScriptDir%\..\Lib\Freedomain-Posters-Shared-Functions\Chrome-Functions.ahk
+#Include %A_ScriptDir%\..\Lib\Freedomain-Posters-Shared-Functions\Selenium-Functions.ahk
+#Include %A_ScriptDir%\..\Lib\Freedomain-Posters-Shared-Functions\Gitea-Functions.ahk
+#Include %A_ScriptDir%\..\Lib\Freedomain-Posters-Shared-Functions\API-Functions.ahk
+#Include %A_ScriptDir%\..\Lib\Freedomain-Posters-Shared-Functions\JSON.ahk
+#Include %A_ScriptDir%\..\Lib\Freedomain-Posters-Shared-Functions\RunCMD.ahk
+
+
+
+ConnectToChromeTab(URL := "", ConnectActiveTab := 0, WinGetActiveChromeTabTitle := ""){
+    ; Msgbox % "WinGetActiveChromeTabTitle: " WinGetActiveChromeTabTitle
+    IP_Port := "127.0.0.1:9222"
+    IP_Port_Nr := RegExReplace(IP_Port, ".*:(\d*)", "$1")
+    if WinExist("ahk_exe Chrome.exe"){
+        WinGet, pid, PID, ahk_exe chrome.exe
+        for item in ComObjGet("winmgmts:").ExecQuery("SELECT * FROM Win32_Process WHERE ProcessId='" pid "'"){
+            if RegExMatch(item.CommandLine, "i)--remote-debugging-port=\K\d+", port){
+                break
+            }
+        }
+
+        if (Port=""){
+            MsgBox, 36, ,Chrome Needs to be started in debugging mode in order for Autohotkey to connect to it.`nIs it ok to restart Chrome in debugmode to enable a connection?
+            IfMsgBox, Yes
+            {
+                Message = Restarting Chrome in Debug Mode
+                SaveOrPostProgress(Message:=Message,PostType:="Tooltip")
+
+                While(WinExist("ahk_exe chrome.exe")) {
+                    WinClose, ahk_exe chrome.exe
+                }
+                Process, WaitClose, chrome.exe
+            }
+            Else{
+                Msgbox, 4096, Error, Cannot connect to Chrome profile if it is Not running in debug mode. Script Terminating
+                ExitApp
+                ; @todo: Make this error out to the script result screen
+            }
+        }
+    }
+
+    ; Establish Variable with Filepath to be used throughout the script
+    if(ChromeFilepath = ""){
+        if(FileExist("C:\Program Files\Google\Chrome\Application\chrome.exe")){
+            ChromeFilepath = C:\Program Files\Google\Chrome\Application\chrome.exe
+        }
+        else if (FileExist("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe")){
+            ChromeFilepath = C:\Program Files (x86)\Google\Chrome\Application\chrome.exe
+        }
+    }
+
+    if(ChromeFilepath = ""){
+        Message = Failed to find chrome.exe in the usual locations.
+        SaveOrPostProgress(Message:=Message,PostType:="Tooltip")
+        MsgBox 0x30, Error!, Unable to find Chrome.exe in the usual locations. `nScript Exiting. 
+        ExitApp
+    }
+
+    if(!winExist("ahk_exe chrome.exe")){
+        run, %ChromeFilepath% --remote-debugging-port=%IP_Port_Nr% %URL%
+    }
+
+    Driver := ComObjCreate("Selenium.ChromeDriver")
+    Driver.SetCapability("debuggerAddress", IP_Port)
+    try Driver.Start()
+    catch e {
+
+        ShowSeleniumErrorMsgbox()
+
+        } ; end of catch
+
+        if(ConnectActiveTab){
+            try TotalTabsFound := Driver.Windows.Count
+            loop, %TotalTabsFound% {
+                try SeleniumActiveTabTitle := Driver.Title
+
+                ; Msgbox % "Title: " Title
+
+                if(InStr(WinGetActiveChromeTabTitle, SeleniumActiveTabTitle)){
+                    ; msgbox, window match found
+                    break
+                }
+                try driver.SwitchToNextWindow               ;Focuses Selenium on the newly opened/next window. 
+
+
+            }
+
+        }
+
+        ; Save current chrome version to ini file
+        return Driver
+    }
+    ; -------------------------------/SChrome_Get-------------------------------