formatting updates

main
Yuriy 2 years ago
parent de5b8afdf0
commit 2286c13ceb

@ -14,8 +14,7 @@ global CurrentTabURL
; #Include %A_ScriptDir%\ChromeAutomationFunctions.ahk ; #Include %A_ScriptDir%\ChromeAutomationFunctions.ahk
; #Include %A_ScriptDir%\RunCMD.ahk ; #Include %A_ScriptDir%\RunCMD.ahk
#Include C:\Users\%A_username%\Syncthing\Freedomain\Uploaders\Lib\ChromeAutomationFunctions.ahk
#Include C:\Users\%A_username%\Syncthing\Freedomain\Uploaders\Lib\RunCMD.ahk
DevModeMsgBox(Message){ DevModeMsgBox(Message){
@ -35,8 +34,6 @@ CheckForUpdates(){
data := URLDownloadToVar(GitReleasesAPIURL) data := URLDownloadToVar(GitReleasesAPIURL)
; Msgbox % "data: " data ; Msgbox % "data: " data
; [{"id":3,"tag_name":"v2.71","target_commitish":"main","name":"2.71","body":"- Fixed and expanded Parler login check\r\n- Fixed long time bug where a newly created website tab would not get connected to properly\r\n- Temporarily removed Auto Update Support until I can integrate with gitea API","url":"https://git.zinchuk.xyz/api/v1/repos/yuriy/Freedomain_Social_Media_Poster/releases/3","html_url":"https://git.zinchuk.xyz/yuriy/Freedomain_Social_Media_Poster/releases/tag/v2.71","tarball_url":"https://git.zinchuk.xyz/yuriy/Freedomain_Social_Media_Poster/archive/v2.71.tar.gz","zipball_url":"https://git.zinchuk.xyz/yuriy/Freedomain_Social_Media_Poster/archive/v2.71.zip","draft":false,"prerelease":true,"created_at":"2023-01-26T23:45:25-05:00","published_at":"2023-01-26T23:45:25-05:00","author":{"id":1,"login":"yuriy","login_name":"","full_name":"Yuriy Zinchuk","email":"yuriy@noreply.localhost","avatar_url":"https://secure.gravatar.com/avatar/82acf184352c9232da15222248417df0?d=identicon","language":"","is_admin":false,"last_login":"0001-01-01T00:00:00Z","created":"2023-01-02T16:40:09-05:00","restricted":false,"active":false,"prohibit_login":false,"location":"","website":"","description":"","visibility":"public","followers_count":0,"following_count":0,"starred_repos_count":0,"username":"yuriy"},"assets":[{"id":4,"name":"Freedomain Social Media Poster.exe","size":1708544,"download_count":0,"created_at":"2023-01-26T23:45:19-05:00","uuid":"2ee05d49-a314-4079-bcc8-b6857dc29e98","browser_download_url":"https://git.zinchuk.xyz/attachments/2ee05d49-a314-4079-bcc8-b6857dc29e98"}]},{"id":2,"tag_name":"v2.70","target_commitish":"main","name":"2.70","body":"* Initial commit of V2.7 to git\r\n* Pushed codebase to personal [git instance](https://git.zinchuk.xyz/yuriy/Freedomain_Social_Media_Poster/)\r\n* Fixed Locals Posting\r\n* Fixed Gettr Posting\r\n* Fixed Flote Posting\r\n* Fixed MeWe Posting\r\n* Fixed Minds Posting\r\n* Fixed Steemit Posting\r\n* Fixed LinkedIn Image Posting\r\n* Removed Tumblr Support\r\n* Removed Pintrest support","url":"https://git.zinchuk.xyz/api/v1/repos/yuriy/Freedomain_Social_Media_Poster/releases/2","html_url":"https://git.zinchuk.xyz/yuriy/Freedomain_Social_Media_Poster/releases/tag/v2.70","tarball_url":"https://git.zinchuk.xyz/yuriy/Freedomain_Social_Media_Poster/archive/v2.70.tar.gz","zipball_url":"https://git.zinchuk.xyz/yuriy/Freedomain_Social_Media_Poster/archive/v2.70.zip","draft":false,"prerelease":true,"created_at":"2023-01-25T22:38:24-05:00","published_at":"2023-01-25T22:38:24-05:00","author":{"id":1,"login":"yuriy","login_name":"","full_name":"Yuriy Zinchuk","email":"yuriy@noreply.localhost","avatar_url":"https://secure.gravatar.com/avatar/82acf184352c9232da15222248417df0?d=identicon","language":"","is_admin":false,"last_login":"0001-01-01T00:00:00Z","created":"2023-01-02T16:40:09-05:00","restricted":false,"active":false,"prohibit_login":false,"location":"","website":"","description":"","visibility":"public","followers_count":0,"following_count":0,"starred_repos_count":0,"username":"yuriy"},"assets":[{"id":2,"name":"Freedomain Social Media Poster.exe","size":1707520,"download_count":1,"created_at":"2023-01-25T22:36:17-05:00","uuid":"d91a4ab0-b1fb-4c2f-adfa-e986e587cf0a","browser_download_url":"https://git.zinchuk.xyz/attachments/d91a4ab0-b1fb-4c2f-adfa-e986e587cf0a"}]}]
parsed := JSON.Load(data) parsed := JSON.Load(data)
UpdateVersionNumber := parsed.1.name UpdateVersionNumber := parsed.1.name
@ -58,8 +55,6 @@ CheckForUpdates(){
} }
UpdateScript(){ UpdateScript(){
data := URLDownloadToVar(GitReleasesAPIURL) data := URLDownloadToVar(GitReleasesAPIURL)
@ -95,81 +90,82 @@ UpdateScript(){
IfMsgBox Yes, { IfMsgBox Yes, {
Return Return
} Else IfMsgBox No, { }
SaveOrPostProgress(Message:="Downloading Update",PostType:="Tooltip,ErrorLoggingTextFile,ErrorSummaryVar,DiscordErrorLogging") Else IfMsgBox No, {
; Msgbox, downloading to: %A_ScriptDir%\%UpdateExeName% SaveOrPostProgress(Message:="Downloading Update",PostType:="Tooltip,ErrorLoggingTextFile")
UrlDownloadToFile, %exeURL%, %UpdateExeFilepath% ; Msgbox, downloading to: %A_ScriptDir%\%UpdateExeName%
run, "%UpdateExeFilepath%" "%A_ScriptFullPath%" UrlDownloadToFile, %exeURL%, %UpdateExeFilepath%
ExitApp run, "%UpdateExeFilepath%" "%A_ScriptFullPath%"
} ExitApp
return
} }
return
}
; -------------------------------SaveOrPostProgress------------------------------- ; -------------------------------SaveOrPostProgress-------------------------------
; PostType:="Tooltip,ErrorLoggingTextFile,ErrorSummaryVar,DiscordErrorLogging,DiscordVideos" ; PostType:="Tooltip,ErrorLoggingTextFile,ErrorSummaryVar,DiscordErrorLogging,DiscordVideos"
SaveOrPostProgress(Message:="",PostType:=""){ SaveOrPostProgress(Message:="",PostType:=""){
MessageBU := Message MessageBU := Message
; Msgbox % "PostType: " PostType ; Msgbox % "PostType: " PostType
; Msgbox % "CurrentSite: " CurrentSite ; Msgbox % "CurrentSite: " CurrentSite
if(CurrentSite != "") if(CurrentSite != "")
Message := CurrentSite . ": " . Message Message := CurrentSite . ": " . Message
if(InStr(PostType, "Tooltip")){ if(InStr(PostType, "Tooltip")){
TooltipThis(Message) TooltipThis(Message)
} }
if(InStr(PostType, "ErrorLoggingTextFile")){ if(InStr(PostType, "ErrorLoggingTextFile")){
Func_LogErrorsToTextFile(Message) Func_LogErrorsToTextFile(Message)
} }
if(InStr(PostType, "ErrorSummaryVar")){ if(InStr(PostType, "ErrorSummaryVar")){
Func_LogErrorsToVar(Message) Func_LogErrorsToVar(Message)
} }
if(InStr(PostType, "DiscordErrorLogging")){ if(InStr(PostType, "DiscordErrorLogging")){
PostToDiscordChannel(Message,DiscordErrorLoggingWebhookBotURL) PostToDiscordChannel(Message,DiscordErrorLoggingWebhookBotURL)
} }
if(InStr(PostType, "DiscordVideos")){ if(InStr(PostType, "DiscordVideos")){
Message := MessageBU Message := MessageBU
PostToDiscordChannel(Message,DiscordVideosWebhookURL) PostToDiscordChannel(Message,DiscordVideosWebhookURL)
} }
if(InStr(PostType, "DiscordParler")){ if(InStr(PostType, "DiscordParler")){
Message := MessageBU Message := MessageBU
PostToDiscordChannel(Message,DiscordParlerWebhookURL) PostToDiscordChannel(Message,DiscordParlerWebhookURL)
} }
} }
; -------------------------------/SaveOrPostProgress------------------------------- ; -------------------------------/SaveOrPostProgress-------------------------------
TakeScreenshotOfPage(SaveFilepath := ""){ TakeScreenshotOfPage(SaveFilepath := ""){
if(!ScreenshotResult) if(!ScreenshotResult)
return return
TooltipThis("Sleeping 5 Seconds Before Taking Screenshot") TooltipThis("Sleeping 5 Seconds Before Taking Screenshot")
; 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.
FormatTime, TodayDate , YYYYMMDDHH24MISS, yyyyMMdd_hhmmss
; Msgbox % "ErrorLoggingDirectory: " ErrorLoggingDirectory ; Take a screenshot of the page and save it.
savepath = %SaveFilepath%\%TodayDate%.jpg FormatTime, TodayDate , YYYYMMDDHH24MISS, yyyyMMdd_hhmmss
; Msgbox % "savepath: " savepath
try driver.TakeScreenshot().SaveAs(savepath)
; ScreenshotsTaken := 1 ; Msgbox % "ErrorLoggingDirectory: " ErrorLoggingDirectory
savepath = %SaveFilepath%\%TodayDate%.jpg
; Msgbox % "savepath: " savepath
try driver.TakeScreenshot().SaveAs(savepath)
; ScreenshotsTaken := 1
} }
@ -896,448 +892,448 @@ if(TotalTabsFound = 1){
; Msgbox % "A_index: " A_index ; Msgbox % "A_index: " A_index
; DevModeMsgBox("breaking early on loop 1?") ; DevModeMsgBox("breaking early on loop 1?")
break break
} ; if there is only 1 tab, then break out of loop and don't bother looping through same tab ; if there is only 1 tab, then break out of loop and don't bother looping through same tab
}
*/ */
try driver.SwitchToNextWindow ;Focuses Selenium on the newly opened/next window. try driver.SwitchToNextWindow ;Focuses Selenium on the newly opened/next window.
} ; end of loop ; end of loop
}
; Iterate from 1 to the end of the array:
Loop % DriverURLArray.Length()
{
ARRAYNAMEList .= DriverURLArray[A_Index] . "`n"
; ArrayItem := DriverURLArray[A_Index]
; MsgBox % DriverURLArray[A_Index]
}
; Msgbox % "ARRAYNAMEList: " ARRAYNAMEList
TimeToLoopThroughAllTabs := A_TickCount - StartTime
Message = Time to Loop through all tabs: %TimeToLoopThroughAllTabs%
SaveOrPostProgress(Message:=Message,PostType:="ErrorLoggingTextFile,DiscordErrorLogging")
; DevModeMsgBox(Message)
return
} ; /FUNC
InputFilePathIntoOpenWindow(Filepath){
; Msgbox % "Filepath: " Filepath
Message = Waiting for "Open" window to appear to input filepath into
SaveOrPostProgress(Message:=Message,PostType:="Tooltip,ErrorLoggingTextFile")
; Tooltip,Waiting for "Open" window to appear to input filepath into,850,0
; WinWait, Open
WinWait,Open,,5 ; Wait for 10 seconds for window
if(ErrorLevel)
{
; msgbox, failed to find window.
Return "Failed"
}
WinActivate, Open
sleep, 1000
ControlSetText, Edit1, %Filepath%, Open
sleep, 1000
ControlSend, Edit1, {Enter}, Open
sleep, 1000
; Do an extra check in case the Open window is still open.
OpenWindowExist := WinExist("Open")
if(OpenWindowExist)
ControlSend, Edit1, {Enter}, Open
ToolTip,
}
; -------------------------------NavigateFromBaseURLTo-------------------------------
NavigateFromBaseURLTo(URL){
if(!DriverStatus){ ; if not connected to selenium chrome, then re-connect
Status := CheckSeleniumDriver()
if(Status)
Return "Failed"
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
URLBase := StrReplace(URL,"https://","")
URLBase := StrSplit(URLBase, "/")
URLBase := URLBase[1]
URLBase := StrReplace(URLBase, "www.","")
}
if(!HasSubstringVal(DriverURLArray, URLBase)) ; if base url is not in tab array, create new tab and push url to array ; Iterate from 1 to the end of the array:
{ Loop % DriverURLArray.Length()
try, run "%ChromeFilepath%" "%URL%" {
DriverURLArray.Push(URL) ; Append an item to the array ARRAYNAMEList .= DriverURLArray[A_Index] . "`n"
NewTabCreated := 1 ; ArrayItem := DriverURLArray[A_Index]
sleep, 2000 ; MsgBox % DriverURLArray[A_Index]
}
; msgbox,
Message = Finding Tab }
SaveOrPostProgress(Message:=Message,PostType:="Tooltip,ErrorLoggingTextFile") ; Msgbox % "ARRAYNAMEList: " ARRAYNAMEList
TimeToLoopThroughAllTabs := A_TickCount - StartTime
Message = Time to Loop through all tabs: %TimeToLoopThroughAllTabs%
SaveOrPostProgress(Message:=Message,PostType:="ErrorLoggingTextFile,DiscordErrorLogging")
; DevModeMsgBox(Message)
return
; / END OF FUNC
}
TabFoundSuccessfully := InputFilePathIntoOpenWindow(Filepath){
; Msgbox % "Filepath: " Filepath
Message = Waiting for "Open" window to appear to input filepath into
SaveOrPostProgress(Message:=Message,PostType:="Tooltip,ErrorLoggingTextFile")
; Tooltip,Waiting for "Open" window to appear to input filepath into,850,0
; WinWait, Open
WinWait,Open,,5 ; Wait for 10 seconds for window
if(ErrorLevel)
{
; msgbox, failed to find window.
Return "Failed"
}
WinActivate, Open
sleep, 1000
ControlSetText, Edit1, %Filepath%, Open
sleep, 1000
ControlSend, Edit1, {Enter}, Open
sleep, 1000
; Do an extra check in case the Open window is still open.
OpenWindowExist := WinExist("Open")
if(OpenWindowExist)
ControlSend, Edit1, {Enter}, Open
ToolTip,
}
NumberOfTabLoops := DriverURLArray.Length() ; -------------------------------NavigateFromBaseURLTo-------------------------------
NavigateFromBaseURLTo(URL){
if(!DriverStatus){ ; if not connected to selenium chrome, then re-connect
Status := CheckSeleniumDriver()
if(Status)
Return "Failed"
; NumberOfTabLoops := Driver.Windows.Count + 2 CreateArrayOfTabs() ; store all open tabs to memory for later usage
loop % NumberOfTabLoops { ; loop through tabs to find matching tab }
try driver.SwitchToNextWindow()
; sleep, 1000
; msgbox, looping through tabs
try CurrentTabTitle := driver.window.title
; caused by tab being manually closed. Not sure if this is the only cause though. if(ReuseTabs){ ; pull out base of URL and check if it's within the array of tabs
if(CurrentTabTitle = "") { URLBase := StrReplace(URL,"https://","")
Message = CurrentTabTitle: %CurrentTabTitle% URLBase := StrSplit(URLBase, "/")
DevModeMsgBox(Message) URLBase := URLBase[1]
URLBase := StrReplace(URLBase, "www.","")
}
Message = CurrenttabURL: %CurrentTabURL% if(!HasSubstringVal(DriverURLArray, URLBase)) ; if base url is not in tab array, create new tab and push url to array
DevModeMsgBox(Message) {
try, run "%ChromeFilepath%" "%URL%"
DriverURLArray.Push(URL) ; Append an item to the array
NewTabCreated := 1
sleep, 2000
}
; msgbox,
; try driver.SwitchToNextWindow Message = Finding Tab
Continue SaveOrPostProgress(Message:=Message,PostType:="Tooltip,ErrorLoggingTextFile")
}
TabFoundSuccessfully :=
try CurrentTabURL := driver.Url NumberOfTabLoops := DriverURLArray.Length()
if(InStr(CurrentTabURL, URLBase)){ ; NumberOfTabLoops := Driver.Windows.Count + 2
; msgbox, found it.`n%CurrentTabTitle% = %PageTitle%`n%CurrentTabURL% = %URLBase% loop % NumberOfTabLoops { ; loop through tabs to find matching tab
TabFoundSuccessfully := 1 try driver.SwitchToNextWindow()
; msgbox %CurrentTabTitle% = %PageTitle%
; msgbox %CurrentTabURL% = %URL%
Break
}
}
if(!NewTabCreated){ ; if re-using a tab then we want to re-navigate to URL because it might be the wrong page ; sleep, 1000
try driver.Get(URL) ;Open selected URL ; msgbox, looping through tabs
try driver.executeScript("return document.readyState").equals("complete") ; wait until page loads completely before proceeding try CurrentTabTitle := driver.window.title
catch e {
; msgbox, error caught. trying something
try driver.switchToalert().accept()
try driver.Get(URL) ;Open selected URL
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
; }
; caused by tab being manually closed. Not sure if this is the only cause though.
if(CurrentTabTitle = "") {
Message = CurrentTabTitle: %CurrentTabTitle%
DevModeMsgBox(Message)
Return Message = CurrenttabURL: %CurrentTabURL%
} DevModeMsgBox(Message)
; End of Function
; -------------------------------/NavigateFromBaseURL-------------------------------
SaveDriverURL(){ ; save the url of the result page. That way if a tab is not found for a site, we can open up a tab from this tab instead of middle of nowhere. That way we can keep the tabs together ; try driver.SwitchToNextWindow
try LastWebsitePostURL := driver.URL Continue
} }
; -------------------------------SChrome_Get------------------------------- try CurrentTabURL := driver.Url
SChrome_Get(URL := "", Profile := "Profile 1", 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,ErrorLoggingTextFile,DiscordErrorLogging")
While(WinExist("ahk_exe chrome.exe")) { if(InStr(CurrentTabURL, URLBase)){
WinClose, ahk_exe chrome.exe ; msgbox, found it.`n%CurrentTabTitle% = %PageTitle%`n%CurrentTabURL% = %URLBase%
} TabFoundSuccessfully := 1
Process, WaitClose, chrome.exe ; msgbox %CurrentTabTitle% = %PageTitle%
} ; msgbox %CurrentTabURL% = %URL%
Else{ Break
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
} 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
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
; }
; ; yuriy's settings
; IniRead, ChromeFilepath, C:\Users\%A_username%\Documents\Autohotkey\Lib\ScriptSettings.ini, Selenium, %A_Computername%, %A_Space%
; ; Establish Variable with Filepath to be used throughout the script Return
; if(ChromeFilepath = ""){ }
if(FileExist("C:\Program Files\Google\Chrome\Application\chrome.exe")){ ; End of Function
ChromeFilepath = C:\Program Files\Google\Chrome\Application\chrome.exe ; -------------------------------/NavigateFromBaseURL-------------------------------
}
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,ErrorLoggingTextFile,DiscordErrorLogging")
MsgBox 0x30, Error!, Unable to find Chrome.exe in the usual locations. `nScript Exiting.
ExitApp
}
if(!winExist("ahk_exe chrome.exe")){ SaveDriverURL(){ ; save the url of the result page. That way if a tab is not found for a site, we can open up a tab from this tab instead of middle of nowhere. That way we can keep the tabs together
message = %ChromeFilepath% --remote-debugging-port=%IP_Port_Nr% %URL% try LastWebsitePostURL := driver.URL
Clipboard := Message }
DevModeMsgBox(message)
run, %ChromeFilepath% --remote-debugging-port=%IP_Port_Nr% %URL%
}
Driver := ComObjCreate("Selenium.ChromeDriver")
Driver.SetCapability("debuggerAddress", IP_Port)
try Driver.Start()
catch e {
ShowSeleniumErrorMsgbox() ; -------------------------------SChrome_Get-------------------------------
SChrome_Get(URL := "", Profile := "Profile 1", 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
}
}
} ; end of catch 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,ErrorLoggingTextFile,DiscordErrorLogging")
; Save current chrome version to ini file While(WinExist("ahk_exe chrome.exe")) {
return Driver WinClose, ahk_exe chrome.exe
} }
; -------------------------------/SChrome_Get------------------------------- Process, WaitClose, chrome.exe
}
ShowSeleniumErrorMsgbox(){ Else{
GetChromeVersionCommand = powershell (Get-Item '%ChromeFilepath%').VersionInfo.ProductVersion Msgbox, 4096, Error, Cannot connect to Chrome profile if it is Not running in debug mode. Script Terminating
Chromeversion := RunCMD(GetChromeVersionCommand) ExitApp
ChromeVersion := StrReplace(ChromeVersion, "`n", "") ; @todo: Make this error out to the script result screen
}
; Clipboard := ChromeVersion }
; Msgbox % "Chromeversion: " Chromeversion }
IniRead, PreviousWorkingChromeVersion, Settings.ini, Misc, ChromeVersion, %A_Space%
; IniWrite, %ChromeVersion%, Settings.ini, Misc, ChromeVersion
; msgbox, failed to connect to Chrome for some reason.
; Message = Failed to Connect to Chrome. Most likely problem is either Chrome has some sort of dialogue box open or ChromeDriver needs to be updated.
; SaveOrPostProgress(Message:=Message,PostType:="Tooltip,ErrorLoggingTextFile,ErrorSummaryVar,DiscordErrorLogging")
OnMessage(0x44, "OnMsgBoxChromeDriverFailed")
MsgBox 0x40043, Error, Failed to Connect to Chrome. `nMost likely issue is either Chrome has some sort of dialogue box open or ChromeDriver needs to be updated.`n`nClick "Reload" to reload the script to try again`nClick "ChromeDriver" to open up the ChromeDriver download page. `n`nClick "Instructions" to open up .pdf file with instructions for updating chromedriver.exe`n`nPossibly Helpful Info:`nCurrent Chrome Version: %Chromeversion%Chrome Version of Last Successfull Upload: %PreviousWorkingChromeVersion%
OnMessage(0x44, "")
IfMsgBox Yes, {
; Reload script
Reload
} Else IfMsgBox No, {
run, https://chromedriver.chromium.org/downloads
ExitApp
; open chromedriver site
} Else IfMsgBox Cancel, {
URL = https://freedomainplaylists.com/wp-content/FreedomainScripts/Update`%20Selenium`%20ChromeDriver.pdf
Filepath = %A_ScriptDir%\Lib\Update Selenium ChromeDriver.pdf
if(!FileExist(Filepath)){
UrlDownloadToFile, %URL%, %Filepath%
run, %Filepath%
}
ExitApp
}
}
; ; 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
}
; -------------------------------HasVal-------------------------------
; Function needed for finding a value in an array
HasVal(haystack, needle)
{
if !(IsObject(haystack)) || (haystack.Length() = 0)
return 0
for index, value in haystack
if (value = needle)
return index
return 0
}
; -------------------------------/HasVal-------------------------------
HasSubstringVal(haystack, needle) if(ChromeFilepath = ""){
{ Message = Failed to find chrome.exe in the usual locations.
if !(IsObject(haystack)) || (haystack.Length() = 0) SaveOrPostProgress(Message:=Message,PostType:="Tooltip,ErrorLoggingTextFile,DiscordErrorLogging")
return 0 MsgBox 0x30, Error!, Unable to find Chrome.exe in the usual locations. `nScript Exiting.
for index, value in haystack ExitApp
if (InStr(value, Needle)) }
return index
return 0
}
; SubStr(String, StartingPos [, Length]) if(!winExist("ahk_exe chrome.exe")){
message = %ChromeFilepath% --remote-debugging-port=%IP_Port_Nr% %URL%
Clipboard := Message
DevModeMsgBox(message)
run, %ChromeFilepath% --remote-debugging-port=%IP_Port_Nr% %URL%
}
; InStr(value, Needle) Driver := ComObjCreate("Selenium.ChromeDriver")
Driver.SetCapability("debuggerAddress", IP_Port)
try Driver.Start()
catch e {
ShowSeleniumErrorMsgbox()
} ; end of catch
; Save current chrome version to ini file
return Driver
}
; -------------------------------/SChrome_Get-------------------------------
ShowSeleniumErrorMsgbox(){
GetChromeVersionCommand = powershell (Get-Item '%ChromeFilepath%').VersionInfo.ProductVersion
Chromeversion := RunCMD(GetChromeVersionCommand)
ChromeVersion := StrReplace(ChromeVersion, "`n", "")
; Clipboard := ChromeVersion
; Msgbox % "Chromeversion: " Chromeversion
IniRead, PreviousWorkingChromeVersion, Settings.ini, Misc, ChromeVersion, %A_Space%
; IniWrite, %ChromeVersion%, Settings.ini, Misc, ChromeVersion
; msgbox, failed to connect to Chrome for some reason.
; Message = Failed to Connect to Chrome. Most likely problem is either Chrome has some sort of dialogue box open or ChromeDriver needs to be updated.
; SaveOrPostProgress(Message:=Message,PostType:="Tooltip,ErrorLoggingTextFile,ErrorSummaryVar,DiscordErrorLogging")
OnMessage(0x44, "OnMsgBoxChromeDriverFailed")
MsgBox 0x40043, Error, Failed to Connect to Chrome. `nMost likely issue is either Chrome has some sort of dialogue box open or ChromeDriver needs to be updated.`n`nClick "Reload" to reload the script to try again`nClick "ChromeDriver" to open up the ChromeDriver download page. `n`nClick "Instructions" to open up .pdf file with instructions for updating chromedriver.exe`n`nPossibly Helpful Info:`nCurrent Chrome Version: %Chromeversion%Chrome Version of Last Successfull Upload: %PreviousWorkingChromeVersion%
OnMessage(0x44, "")
IfMsgBox Yes, {
; Reload script
Reload
} Else IfMsgBox No, {
run, https://chromedriver.chromium.org/downloads
ExitApp
; open chromedriver site
} Else IfMsgBox Cancel, {
URL = https://freedomainplaylists.com/wp-content/FreedomainScripts/Update`%20Selenium`%20ChromeDriver.pdf
Filepath = %A_ScriptDir%\Lib\Update Selenium ChromeDriver.pdf
if(!FileExist(Filepath)){
UrlDownloadToFile, %URL%, %Filepath%
run, %Filepath%
}
ExitApp
}
}
; -------------------------------FileXPro Get File Attributes------------------------------- ; -------------------------------HasVal-------------------------------
;https://www.autohotkey.com/boards/viewtopic.php?t=59882 ; Function needed for finding a value in an array
HasVal(haystack, needle)
{
if !(IsObject(haystack)) || (haystack.Length() = 0)
return 0
for index, value in haystack
if (value = needle)
return index
return 0
}
; -------------------------------/HasVal-------------------------------
Filexpro( sFile := "", Kind := "", P* ) { ; v.90 By SKAN on D1CC @ goo.gl/jyXFo9 HasSubstringVal(haystack, needle)
Local {
Static xDetails if !(IsObject(haystack)) || (haystack.Length() = 0)
return 0
for index, value in haystack
if (InStr(value, Needle))
return index
return 0
}
If ( sFile = "" ) ; SubStr(String, StartingPos [, Length])
{ ; Deinit static variable
xDetails := ""
Return
}
fex := {}, _FileExt := "" ; InStr(value, Needle)
Loop, Files, % RTrim(sfile,"\*/."), DF
{
If not FileExist( sFile:=A_LoopFileLongPath )
{
Return
}
SplitPath, sFile, _FileExt, _Dir, _Ext, _File, _Drv
If ( p[p.length()] = "xInfo" ) ; Last parameter is xInfo
{
p.Pop() ; Delete parameter
fex.SetCapacity(11) ; Make room for Extra info
fex["_Attrib"] := A_LoopFileAttrib
fex["_Dir"] := _Dir
fex["_Drv"] := _Drv
fex["_Ext"] := _Ext
fex["_File"] := _File
fex["_File.Ext"] := _FileExt
fex["_FilePath"] := sFile
fex["_FileSize"] := A_LoopFileSize
fex["_FileTimeA"] := A_LoopFileTimeAccessed
fex["_FileTimeC"] := A_LoopFileTimeCreated
fex["_FileTimeM"] := A_LoopFileTimeModified
}
Break
}
If Not ( _FileExt ) ; Filepath not resolved
{
Return
}
objShl := ComObjCreate("Shell.Application") ; -------------------------------FileXPro Get File Attributes-------------------------------
objDir := objShl.NameSpace(_Dir) ;https://www.autohotkey.com/boards/viewtopic.php?t=59882
objItm := objDir.ParseName(_FileExt)
If ( VarSetCapacity(xDetails) = 0 ) ; Init static variable Filexpro( sFile := "", Kind := "", P* ) { ; v.90 By SKAN on D1CC @ goo.gl/jyXFo9
{ Local
i:=-1, xDetails:={}, xDetails.SetCapacity(309) Static xDetails
While ( i++ < 309 ) If ( sFile = "" )
{ { ; Deinit static variable
xDetails[ objDir.GetDetailsOf(0,i) ] := i xDetails := ""
} Return
}
xDetails.Delete("") fex := {}, _FileExt := ""
}
If ( Kind and Kind <> objDir.GetDetailsOf(objItm,11) ) ; File isn't desired kind Loop, Files, % RTrim(sfile,"\*/."), DF
{
If not FileExist( sFile:=A_LoopFileLongPath )
{ {
Return Return
} }
i:=0, nParams:=p.Count(), fex.SetCapacity(nParams + 11) SplitPath, sFile, _FileExt, _Dir, _Ext, _File, _Drv
While ( i++ < nParams )
{
Prop := p[i]
If ( (Dot:=InStr(Prop,".")) and (Prop:=(Dot=1 ? "System":"") . Prop) ) If ( p[p.length()] = "xInfo" ) ; Last parameter is xInfo
{ {
fex[Prop] := objItm.ExtendedProperty(Prop) p.Pop() ; Delete parameter
Continue fex.SetCapacity(11) ; Make room for Extra info
} fex["_Attrib"] := A_LoopFileAttrib
fex["_Dir"] := _Dir
fex["_Drv"] := _Drv
fex["_Ext"] := _Ext
fex["_File"] := _File
fex["_File.Ext"] := _FileExt
fex["_FilePath"] := sFile
fex["_FileSize"] := A_LoopFileSize
fex["_FileTimeA"] := A_LoopFileTimeAccessed
fex["_FileTimeC"] := A_LoopFileTimeCreated
fex["_FileTimeM"] := A_LoopFileTimeModified
}
Break
}
If Not ( _FileExt ) ; Filepath not resolved
{
Return
}
objShl := ComObjCreate("Shell.Application")
objDir := objShl.NameSpace(_Dir)
objItm := objDir.ParseName(_FileExt)
If ( VarSetCapacity(xDetails) = 0 ) ; Init static variable
{
i:=-1, xDetails:={}, xDetails.SetCapacity(309)
If ( PropNum := xDetails[Prop] ) > -1 While ( i++ < 309 )
{ {
fex[Prop] := ObjDir.GetDetailsOf(objItm,PropNum) xDetails[ objDir.GetDetailsOf(0,i) ] := i
Continue }
}
}
fex.SetCapacity(-1) xDetails.Delete("")
Return fex }
} ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - If ( Kind and Kind <> objDir.GetDetailsOf(objItm,11) ) ; File isn't desired kind
{
Return
}
i:=0, nParams:=p.Count(), fex.SetCapacity(nParams + 11)
While ( i++ < nParams )
{
Prop := p[i]
; GuiButtonIcon If ( (Dot:=InStr(Prop,".")) and (Prop:=(Dot=1 ? "System":"") . Prop) )
;------------------------------------------------ {
GuiButtonIcon(Handle, File, Index := 1, Options := "") fex[Prop] := objItm.ExtendedProperty(Prop)
{ Continue
RegExMatch(Options, "i)w\K\d+", W), (W="") ? W := 16 : }
RegExMatch(Options, "i)h\K\d+", H), (H="") ? H := 16 :
RegExMatch(Options, "i)s\K\d+", S), S ? W := H := S : If ( PropNum := xDetails[Prop] ) > -1
RegExMatch(Options, "i)l\K\d+", L), (L="") ? L := 0 : {
RegExMatch(Options, "i)t\K\d+", T), (T="") ? T := 0 : fex[Prop] := ObjDir.GetDetailsOf(objItm,PropNum)
RegExMatch(Options, "i)r\K\d+", R), (R="") ? R := 0 : Continue
RegExMatch(Options, "i)b\K\d+", B), (B="") ? B := 0 : }
RegExMatch(Options, "i)a\K\d+", A), (A="") ? A := 4 : }
Psz := A_PtrSize = "" ? 4 : A_PtrSize, DW := "UInt", Ptr := A_PtrSize = "" ? DW : "Ptr"
VarSetCapacity( button_il, 20 + Psz, 0 ) fex.SetCapacity(-1)
NumPut( normal_il := DllCall( "ImageList_Create", DW, W, DW, H, DW, 0x21, DW, 1, DW, 1 ), button_il, 0, Ptr ) ; Width & Height Return fex
NumPut( L, button_il, 0 + Psz, DW ) ; Left Margin
NumPut( T, button_il, 4 + Psz, DW ) ; Top Margin } ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
NumPut( R, button_il, 8 + Psz, DW ) ; Right Margin
NumPut( B, button_il, 12 + Psz, DW ) ; Bottom Margin
NumPut( A, button_il, 16 + Psz, DW ) ; Alignment
SendMessage, BCM_SETIMAGELIST := 5634, 0, &button_il,, AHK_ID %Handle% ; GuiButtonIcon
return IL_Add( normal_il, File, Index ) ;------------------------------------------------
} GuiButtonIcon(Handle, File, Index := 1, Options := "")
{
RegExMatch(Options, "i)w\K\d+", W), (W="") ? W := 16 :
RegExMatch(Options, "i)h\K\d+", H), (H="") ? H := 16 :
RegExMatch(Options, "i)s\K\d+", S), S ? W := H := S :
RegExMatch(Options, "i)l\K\d+", L), (L="") ? L := 0 :
RegExMatch(Options, "i)t\K\d+", T), (T="") ? T := 0 :
RegExMatch(Options, "i)r\K\d+", R), (R="") ? R := 0 :
RegExMatch(Options, "i)b\K\d+", B), (B="") ? B := 0 :
RegExMatch(Options, "i)a\K\d+", A), (A="") ? A := 4 :
Psz := A_PtrSize = "" ? 4 : A_PtrSize, DW := "UInt", Ptr := A_PtrSize = "" ? DW : "Ptr"
VarSetCapacity( button_il, 20 + Psz, 0 )
NumPut( normal_il := DllCall( "ImageList_Create", DW, W, DW, H, DW, 0x21, DW, 1, DW, 1 ), button_il, 0, Ptr ) ; Width & Height
NumPut( L, button_il, 0 + Psz, DW ) ; Left Margin
NumPut( T, button_il, 4 + Psz, DW ) ; Top Margin
NumPut( R, button_il, 8 + Psz, DW ) ; Right Margin
NumPut( B, button_il, 12 + Psz, DW ) ; Bottom Margin
NumPut( A, button_il, 16 + Psz, DW ) ; Alignment
SendMessage, BCM_SETIMAGELIST := 5634, 0, &button_il,, AHK_ID %Handle%
return IL_Add( normal_il, File, Index )
}
; \GuiButtonIcon ; \GuiButtonIcon
;------------------------------------------------ ;------------------------------------------------
ToggleTestingMode(){ ToggleTestingMode(){
IniRead, TestingMode, Settings.ini, General, TestingMode, 0 IniRead, TestingMode, Settings.ini, General, TestingMode, 0
; Msgbox % "TestingMode: " TestingMode ; Msgbox % "TestingMode: " TestingMode
if(TestingMode) if(TestingMode)
IniWrite, 0, Settings.ini, General, TestingMode IniWrite, 0, Settings.ini, General, TestingMode
else, else,
IniWrite, 1, Settings.ini, General, TestingMode IniWrite, 1, Settings.ini, General, TestingMode
} }
ToggleManualSubmit(){ ToggleManualSubmit(){
IniRead, ManualSubmit, Settings.ini, General, ManualSubmit, 0 IniRead, ManualSubmit, Settings.ini, General, ManualSubmit, 0
; Msgbox % "TestingMode: " TestingMode ; Msgbox % "TestingMode: " TestingMode
if(ManualSubmit) if(ManualSubmit)
IniWrite, 0, Settings.ini, General, ManualSubmit IniWrite, 0, Settings.ini, General, ManualSubmit
else, else,
IniWrite, 1, Settings.ini, General, ManualSubmit IniWrite, 1, Settings.ini, General, ManualSubmit
} }
ToggleDevMode(){ ToggleDevMode(){
IniRead, DevMode, Settings.ini, General, DevMode, 0 IniRead, DevMode, Settings.ini, General, DevMode, 0
; Msgbox % "TestingMode: " TestingMode ; Msgbox % "TestingMode: " TestingMode
if(DevMode) if(DevMode)
IniWrite, 0, Settings.ini, General, DevMode IniWrite, 0, Settings.ini, General, DevMode
else, else,
IniWrite, 1, Settings.ini, General, DevMode IniWrite, 1, Settings.ini, General, DevMode
} }
FormatTextToJSText(Var){ ; Replaces AHK newline characters with javascript ones FormatTextToJSText(Var){ ; Replaces AHK newline characters with javascript ones
/*\b Backspace /*\b Backspace
\f Form Feed \f Form Feed
\n New Line - done \n New Line - done

@ -33,7 +33,7 @@ Automated posting to the following social media platforms, utilizing either the
- Open Chrome and type in `about::version` into the URL bar. The very first line will tell you what Chrome version you have - Open Chrome and type in `about::version` into the URL bar. The very first line will tell you what Chrome version you have
- After downloading, extract “chromedriver_win32.zip” and move the extracted chromedriver.exe to: `C:\Program Files\SeleniumBasic\chromedriver.exe` - After downloading, extract “chromedriver_win32.zip” and move the extracted chromedriver.exe to: `C:\Program Files\SeleniumBasic\chromedriver.exe`
- NOTE: The chromedriver will need to be re-downloaded whenever Chrome updates to keep up with API changes - NOTE: The chromedriver will need to be re-downloaded whenever Chrome updates to keep up with API changes
4. [Download the latest .exe of the Poster] (https://git.zinchuk.xyz/yuriy/Freedomain-Social-Media-Poster/releases) 4. [Download the latest .exe of the Poster](https://git.zinchuk.xyz/yuriy/Freedomain-Social-Media-Poster/releases)
- When run, the poster will automatically create the folders and files it requires in the directory it's run from. - When run, the poster will automatically create the folders and files it requires in the directory it's run from.
# Settings.ini # Settings.ini
@ -57,3 +57,6 @@ TelegramBotChatID=Public Posts Bot Chat ID
Ive done my best to catch any possible errors that might pop up and write functionality to handle them. But If an error happens that i haven't written resolves for, it will pop up a message box that looks like this. Please send me a screenshot so I can write a patch for the bug. Ive done my best to catch any possible errors that might pop up and write functionality to handle them. But If an error happens that i haven't written resolves for, it will pop up a message box that looks like this. Please send me a screenshot so I can write a patch for the bug.
![Alt text](Assets/Screenshots/Error_Message_Example.png "Error Message") ![Alt text](Assets/Screenshots/Error_Message_Example.png "Error Message")
# Compiling .exe from source
- @todo
Loading…
Cancel
Save