yuriy
/
social-media-poster
1
0
Fork 0
Code Issues 19 Pull Requests Packages Projects Releases 9 Wiki Activity

Added functions from Social Media Poster Shared Functions file so SharedFunctions.ahk can be replaced by this submodule

Browse Source
main
Yuriy 2 years ago
parent b21b92da87
commit ad4565bdc7
3 changed files with 165 additions and 157 deletions
Show Stats Download Patch File Download Diff File

3
.gitmodules vendored
Unescape Escape View File

@ -0,0 +1,3 @@
[submodule "Lib/Freedomain-Posters-Shared-Functions"]
path = Lib/Freedomain-Posters-Shared-Functions
url = https://git.freedomainplaylists.com/yuriy/Freedomain-Posters-Shared-Functions.git

1
Lib/Freedomain-Posters-Shared-Functions

@ -0,0 +1 @@
Subproject commit 694c440a6a89b0b84fee0c49370d95150667c7a9

318
Lib/SharedFunctions.ahk
Unescape Escape View File

@ -15,6 +15,7 @@ global CurrentTabURL
; #Include %A_ScriptDir%\RunCMD.ahk ; #Include %A_ScriptDir%\RunCMD.ahk
; @todo: add error checks for all winhttp requests.
DevModeMsgBox(Message){ DevModeMsgBox(Message){
@ -26,7 +27,7 @@ DevModeMsgBox(Message){
} }
CheckForUpdates(){ CheckForUpdates(GitReleasesAPIURL){
; msgbox, checking for updates ; msgbox, checking for updates
Message = Checking For Updates Message = Checking For Updates
SaveOrPostProgress(Message,PostType:="ErrorLoggingTextFile") SaveOrPostProgress(Message,PostType:="ErrorLoggingTextFile")
@ -39,10 +40,10 @@ CheckForUpdates(){
UpdateVersionNumber := parsed.1.name UpdateVersionNumber := parsed.1.name
if(ScriptVersion = UpdateVersionNumber OR ScriptVersion > UpdateVersionNumber){ if(ScriptVersion = UpdateVersionNumber OR ScriptVersion > UpdateVersionNumber){
ToolTip ToolTip
return return
} }
else, { else, {
UpdateAvailable := 1 UpdateAvailable := 1
; msgbox, update found! ; msgbox, update found!
Message = Program Update Found Message = Program Update Found
@ -148,24 +149,24 @@ TakeScreenshotOfPage(SaveFilepath := ""){
; sleep, 5000 ; sleep, 5000
if(SaveFilepath = ""){ if(SaveFilepath = ""){
SaveFilepath := ErrorLoggingDirectory SaveFilepath := ErrorLoggingDirectory
} }
; if(!FileExist(SaveFilepath)) ; if(!FileExist(SaveFilepath))
FileCreateDir, %SaveFilepath% FileCreateDir, %SaveFilepath%
if(!TakeScreenshotsOfErrors) if(!TakeScreenshotsOfErrors)
Return Return
; Take a screenshot of the page and save it. ; Take a screenshot of the page and save it.
FormatTime, TodayDate , YYYYMMDDHH24MISS, yyyyMMdd_hhmmss FormatTime, TodayDate , YYYYMMDDHH24MISS, yyyyMMdd_hhmmss
; Msgbox % "ErrorLoggingDirectory: " ErrorLoggingDirectory ; Msgbox % "ErrorLoggingDirectory: " ErrorLoggingDirectory
savepath = %SaveFilepath%\%TodayDate%.jpg savepath = %SaveFilepath%\%TodayDate%.jpg
; Msgbox % "savepath: " savepath ; Msgbox % "savepath: " savepath
try driver.TakeScreenshot().SaveAs(savepath) try driver.TakeScreenshot().SaveAs(savepath)
; ScreenshotsTaken := 1 ; ScreenshotsTaken := 1
} }
@ -174,6 +175,7 @@ TakeScreenshotOfPage(SaveFilepath := ""){
; -------------------------------TooltipThis------------------------------- ; -------------------------------TooltipThis-------------------------------
TooltipThis(String){ TooltipThis(String){
; msgbox
; Xposition := StrLen(String) ; Xposition := StrLen(String)
StringFirstLine := StrSplit(String, "`n") StringFirstLine := StrSplit(String, "`n")
StringFirstLine := StringFirstLine[1] StringFirstLine := StringFirstLine[1]
@ -922,173 +924,175 @@ if(TotalTabsFound = 1){
; / END OF FUNC ; / END OF FUNC
} }
InputFilePathIntoOpenWindow(Filepath){ /*
; Msgbox % "Filepath: " Filepath */
Message = Waiting for "Open" window to appear to input filepath into InputFilePathIntoOpenWindow(Filepath){
SaveOrPostProgress(Message:=Message,PostType:="Tooltip,ErrorLoggingTextFile") ; Msgbox % "Filepath: " Filepath
; Tooltip,Waiting for "Open" window to appear to input filepath into,850,0 Message = Waiting for "Open" window to appear to input filepath into
; WinWait, Open SaveOrPostProgress(Message:=Message,PostType:="Tooltip,ErrorLoggingTextFile")
WinWait,Open,,5 ; Wait for 10 seconds for window ; Tooltip,Waiting for "Open" window to appear to input filepath into,850,0
if(ErrorLevel) ; WinWait, Open
{ WinWait,Open,,5 ; Wait for 10 seconds for window
; msgbox, failed to find window. if(ErrorLevel)
Return "Failed" {
} ; msgbox, failed to find window.
WinActivate, Open Return "Failed"
sleep, 1000 }
ControlSetText, Edit1, %Filepath%, Open WinActivate, Open
sleep, 1000 sleep, 1000
ControlSend, Edit1, {Enter}, Open ControlSetText, Edit1, %Filepath%, Open
sleep, 1000 sleep, 1000
ControlSend, Edit1, {Enter}, Open
; Do an extra check in case the Open window is still open. sleep, 1000
OpenWindowExist := WinExist("Open")
if(OpenWindowExist) ; Do an extra check in case the Open window is still open.
ControlSend, Edit1, {Enter}, Open OpenWindowExist := WinExist("Open")
ToolTip, if(OpenWindowExist)
} ControlSend, Edit1, {Enter}, Open
ToolTip,
}
CheckCurrentTabForCurrentSite(){ CheckCurrentTabForCurrentSite(){
try CurrentTabURL := driver.url try CurrentTabURL := driver.url
if(!InStr(CurrentTabURL, CurrentSite)){ if(!InStr(CurrentTabURL, CurrentSite)){
Message = Chromedriver failed to switch to %CurrentSite%. Please see errorlog for website it got stuck on. Message = Chromedriver failed to switch to %CurrentSite%. Please see errorlog for website it got stuck on.
SaveOrPostProgress(Message:=Message,PostType:="Tooltip,ErrorLoggingTextFile,ErrorSummaryVar,DiscordErrorLogging") SaveOrPostProgress(Message:=Message,PostType:="Tooltip,ErrorLoggingTextFile,ErrorSummaryVar,DiscordErrorLogging")
return "Failed" return "Failed"
} }
; msgbox % InStr(CurrentTabURL,CurrentSite) ; msgbox % InStr(CurrentTabURL,CurrentSite)
} }
; -------------------------------NavigateFromBaseURLTo------------------------------- ; -------------------------------NavigateFromBaseURLTo-------------------------------
NavigateFromBaseURLTo(URL){ NavigateFromBaseURLTo(URL, Title:="REmoveMe"){
if(!DriverStatus){ ; if not connected to selenium chrome, then re-connect if(!DriverStatus){ ; if not connected to selenium chrome, then re-connect
Status := CheckSeleniumDriver() Status := CheckSeleniumDriver()
if(Status) if(Status)
Return "Failed" Return "Failed"
CreateArrayOfTabs() ; store all open tabs to memory for later usage CreateArrayOfTabs() ; store all open tabs to memory for later usage
} }
if(ReuseTabs){ ; pull out base of URL and check if it's within the array of tabs if(ReuseTabs){ ; pull out base of URL and check if it's within the array of tabs
URLBase := StrReplace(URL,"https://","") URLBase := StrReplace(URL,"https://","")
URLBase := StrSplit(URLBase, "/") URLBase := StrSplit(URLBase, "/")
URLBase := URLBase[1] URLBase := URLBase[1]
URLBase := StrReplace(URLBase, "www.","") URLBase := StrReplace(URLBase, "www.","")
} }
; if base url is not in tab array, create new tab and push url to array ; if base url is not in tab array, create new tab and push url to array
if(!HasSubstringVal(DriverURLArray, URLBase)) if(!HasSubstringVal(DriverURLArray, URLBase))
{ {
try CurrentTabTitle := driver.window.title try CurrentTabTitle := driver.window.title
; if currently in new tab navigate to the site in the current tab ; if currently in new tab navigate to the site in the current tab
if(CurrentTabTitle = "New Tab"){ if(CurrentTabTitle = "New Tab"){
try driver.Get(URL) ;Open selected URL try driver.Get(URL) ;Open selected URL
try driver.executeScript("return document.readyState").equals("complete") ; wait until page loads completely before proceeding try driver.executeScript("return document.readyState").equals("complete") ; wait until page loads completely before proceeding
catch e { catch e {
; msgbox, error caught. trying something ; msgbox, error caught. trying something
try driver.switchToalert().accept() try driver.switchToalert().accept()
try driver.Get(URL) ;Open selected URL try driver.Get(URL) ;Open selected URL
catch e { catch e {
Message = Failed to Navigate to %URL%: Please Check for Any Open Dialogue Boxes Message = Failed to Navigate to %URL%: Please Check for Any Open Dialogue Boxes
SaveOrPostProgress(Message:=Message,PostType:="Tooltip,ErrorLoggingTextFile,ErrorSummaryVar,DiscordErrorLogging") SaveOrPostProgress(Message:=Message,PostType:="Tooltip,ErrorLoggingTextFile,ErrorSummaryVar,DiscordErrorLogging")
Return "Failed" Return "Failed"
}
}
return
}
else, {
try, run "%ChromeFilepath%" "%URL%"
DriverURLArray.Push(URL) ; Append an item to the array
NewTabCreated := 1
; sleep, 2000
} }
}
return
}
else, {
try, run "%ChromeFilepath%" "%URL%"
DriverURLArray.Push(URL) ; Append an item to the array
NewTabCreated := 1
; sleep, 2000
}
} }
Message = Finding Tab Message = Finding Tab
SaveOrPostProgress(Message:=Message,PostType:="Tooltip,ErrorLoggingTextFile") SaveOrPostProgress(Message:=Message,PostType:="Tooltip,ErrorLoggingTextFile")
TabFoundSuccessfully := TabFoundSuccessfully :=
NumberOfTabLoops := DriverURLArray.Length() NumberOfTabLoops := DriverURLArray.Length()
; loop through tabs to find matching tab ; loop through tabs to find matching tab
loop % NumberOfTabLoops { loop % NumberOfTabLoops {
try driver.SwitchToNextWindow() try driver.SwitchToNextWindow()
; sleep, 1000 ; sleep, 1000
; msgbox, looping through tabs ; msgbox, looping through tabs
try CurrentTabTitle := driver.window.title try CurrentTabTitle := driver.window.title
try CurrentTabURL := driver.Url try CurrentTabURL := driver.Url
; DevModeMsgBox(CurrentTabURL) ; DevModeMsgBox(CurrentTabURL)
; DevModeMsgBox(CurrentTabTitle) ; DevModeMsgBox(CurrentTabTitle)
; caused by tab being manually closed. Not sure if this is the only cause though. ; caused by tab being manually closed. Not sure if this is the only cause though.
if(CurrentTabTitle = "") { if(CurrentTabTitle = "") {
Message = CurrentTabTitle: %CurrentTabTitle% Message = CurrentTabTitle: %CurrentTabTitle%
; DevModeMsgBox(Message) ; DevModeMsgBox(Message)
Message = CurrenttabURL: %CurrentTabURL% Message = CurrenttabURL: %CurrentTabURL%
; DevModeMsgBox(Message) ; DevModeMsgBox(Message)
; try driver.SwitchToNextWindow ; try driver.SwitchToNextWindow
Continue Continue
} }
if(InStr(CurrentTabURL, URLBase)){ if(InStr(CurrentTabURL, URLBase)){
Message = CurrentTabURL is %CurrentTabURL% and it contains %URLBase% Message = CurrentTabURL is %CurrentTabURL% and it contains %URLBase%
SaveOrPostProgress(Message:=Message,PostType:="ErrorLoggingTextFile") SaveOrPostProgress(Message:=Message,PostType:="ErrorLoggingTextFile")
; msgbox, found it.`n%CurrentTabTitle% = %PageTitle%`n%CurrentTabURL% = %URLBase% ; msgbox, found it.`n%CurrentTabTitle% = %PageTitle%`n%CurrentTabURL% = %URLBase%
TabFoundSuccessfully := 1 TabFoundSuccessfully := 1
; message = %CurrentTabTitle%: %PageTitle% ; message = %CurrentTabTitle%: %PageTitle%
; DevModeMsgBox(message) ; DevModeMsgBox(message)
; msgbox %CurrentTabURL% = %URL% ; msgbox %CurrentTabURL% = %URL%
Break Break
} }
} }
; if failed to switch to tab and a new tab was not created, then chrome failed to switch to the tab ; if failed to switch to tab and a new tab was not created, then chrome failed to switch to the tab
; this happens sometimes. most likely to a chromedriver bug or maybe tab being offloaded? ; this happens sometimes. most likely to a chromedriver bug or maybe tab being offloaded?
if(!TabFoundSuccessfully AND !NewTabCreated){ if(!TabFoundSuccessfully AND !NewTabCreated){
; @todo : not sure how to best solve this problem currently. It doesn't happen very often. ; @todo : not sure how to best solve this problem currently. It doesn't happen very often.
; last time it happened was when there were only 2 chrome tabs open, gab + subscribestar. chrome was stuck on subscribestar page and wouldn't nextwindow() to gab ; last time it happened was when there were only 2 chrome tabs open, gab + subscribestar. chrome was stuck on subscribestar page and wouldn't nextwindow() to gab
} }
; Message = TabFoundSuccessfully: %TabFoundSuccessfully% ; Message = TabFoundSuccessfully: %TabFoundSuccessfully%
; DevModeMsgBox(Message) ; DevModeMsgBox(Message)
if(!NewTabCreated){ ; if re-using a tab then we want to re-navigate to URL because it might be the wrong page if(!NewTabCreated){ ; if re-using a tab then we want to re-navigate to URL because it might be the wrong page
try driver.Get(URL) ;Open selected URL
try driver.executeScript("return document.readyState").equals("complete") ; wait until page loads completely before proceeding
catch e {
; msgbox, error caught. trying something
try driver.switchToalert().accept()
try driver.Get(URL) ;Open selected URL try driver.Get(URL) ;Open selected URL
try driver.executeScript("return document.readyState").equals("complete") ; wait until page loads completely before proceeding
catch e { catch e {
; msgbox, error caught. trying something Message = Failed to Navigate to %URL%: Please Check for Any Open Dialogue Boxes
try driver.switchToalert().accept() SaveOrPostProgress(Message:=Message,PostType:="Tooltip,ErrorLoggingTextFile,ErrorSummaryVar,DiscordErrorLogging")
try driver.Get(URL) ;Open selected URL Return "Failed"
catch e {
Message = Failed to Navigate to %URL%: Please Check for Any Open Dialogue Boxes
SaveOrPostProgress(Message:=Message,PostType:="Tooltip,ErrorLoggingTextFile,ErrorSummaryVar,DiscordErrorLogging")
Return "Failed"
}
} }
} }
; msgbox, no error caught }
; } ; msgbox, no error caught
; }
Return Return
} }
; End of Function ; End of Function
; -------------------------------/NavigateFromBaseURL------------------------------- ; -------------------------------/NavigateFromBaseURL-------------------------------
@ -1165,19 +1169,19 @@ SChrome_Get(URL := "", Profile := "Profile 1", IP_Port := "127.0.0.1:9222"){
try Driver.Start() try Driver.Start()
catch e { catch e {
ShowSeleniumErrorMsgbox() ShowSeleniumErrorMsgbox()
} }
return Driver return Driver
} }
; -------------------------------/SChrome_Get------------------------------- ; -------------------------------/SChrome_Get-------------------------------
ShowSeleniumErrorMsgbox(){ ShowSeleniumErrorMsgbox(){
GetChromeVersionCommand = powershell (Get-Item '%ChromeFilepath%').VersionInfo.ProductVersion GetChromeVersionCommand = powershell (Get-Item '%ChromeFilepath%').VersionInfo.ProductVersion
Chromeversion := RunCMD(GetChromeVersionCommand) Chromeversion := RunCMD(GetChromeVersionCommand)
ChromeVersion := StrReplace(ChromeVersion, "`n", "") ChromeVersion := StrReplace(ChromeVersion, "`n", "")
Message = Failed to connect to Chrome Message = Failed to connect to Chrome
SaveOrPostProgress(Message:=Message,PostType:="Tooltip,ErrorLoggingTextFile,ErrorSummaryVar,DiscordErrorLogging") SaveOrPostProgress(Message:=Message,PostType:="Tooltip,ErrorLoggingTextFile,ErrorSummaryVar,DiscordErrorLogging")
/* /*
; check for alert popup ; check for alert popup

Write Preview
Loading…
Cancel
Save