Docfxit

donnyh13:
Thank you for the update.
I have updated SciTE per your links.
I can't run this.
ConsoleWrite(FileGetVersion("msvcp140.dll") & @CRLF) It needs a console.  And of course that's what I can't run.
I'm going to try to take a dump and see if that will shed some light on it.

That works great.  It's been a while since I could see a SciTE editor on this machine.
I don't know what the limitations are with this version.  But it is running.
Thank you very much.
You have been very helpfull!!!

donnyh13: 
Thank you for the reply...
I installed both of the files as Administrator.
I'm still getting the same error.
Would you mind checking to see if you have the same files in:
C:\Windows\System32
msvcp140.dll 4/27/2024 11:20:20 PM A msvcp140_1.dll 4/27/2024 11:20:20 PM A msvcp140_2.dll 4/27/2024 11:20:20 PM A msvcp140_atomic_wait.dll 4/27/2024 11:20:20 PM A msvcp140_clr0400.dll 6/24/2022 2:31:26 PM A msvcp140_codecvt_ids.dll 4/27/2024 11:20:20 PM A Are you running Windows Pro 64bit?  I am.
Maybe I'm not running the latest version of SciTE?
api DIR 9/4/2024 11:04:33 PM - au3Stripper DIR 9/4/2024 11:04:33 PM - AutoIt3Wrapper DIR 9/4/2024 11:04:34 PM - CodeWizard DIR 9/4/2024 11:04:34 PM - Defs DIR 9/4/2024 11:04:35 PM - Koda DIR 9/4/2024 11:04:34 PM - lua DIR 9/4/2024 11:04:33 PM - Properties DIR 9/4/2024 11:04:33 PM - SciTE Jump DIR 9/4/2024 11:04:35 PM - SciTEConfig DIR 9/4/2024 11:04:35 PM - Tidy DIR 9/4/2024 11:04:34 PM - au3.keywords.properties 91599 9/19/2022 11:35:22 AM A install.log 17994 9/4/2024 11:04:35 PM A install_user.log 876 9/4/2024 11:04:35 PM A Lexilla.dll 890368 12/3/2023 3:54:22 AM A License.txt 868 6/20/2011 4:47:06 AM A luaCOPYRIGHT 1562 1/2/2010 2:15:48 PM A Scintilla.dll 646144 12/3/2023 3:54:16 AM A SciTE.exe 1155584 12/3/2023 3:54:28 AM A SciTE4AutoIt3.chm 2484057 12/27/2023 5:32:06 AM A SciTE4AutoIt3.url 67 9/4/2024 11:04:35 PM A SciTEGlobal.properties 22095 10/3/2023 10:37:06 AM A SciTEUser.properties 59 9/4/2024 11:04:35 PM A SciTEVersion.ini 55 9/4/2024 11:04:46 PM A uninst.exe 62478 9/4/2024 11:04:35 PM A Thank you

ConsoleWrite(FileGetVersion("msvcp140.dll") & @CRLF) ; 14.28.29334.0 and that version on my PC is not from "C:\Windows\System32\msvcp140.dll", is from "C:\Windows\System32\DriverStore\FileRepository\iclsclient.inf_amd64_fc84dfa25a6a7727\lib\msvcp140.dll"
Why ?, how?, .. no clue.
( PC with the old SciTE, I forgot what virtual PC I tested the new beta on )

#Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_UseX64=y #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <MsgBoxConstants.au3> Opt("WinWaitDelay", 100) Opt("WinTitleMatchMode", 4) Opt("WinDetectHiddenText", 1) Opt("MouseCoordMode", 0) ; Press Esc to terminate script, Pause/Break to "pause" Opt("TrayIconDebug", 1) ;0-off ; Set so that tray displays current line number Global $g_bPaused = False ;~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~* HotKeySet("+!2", "_Paused") ;If you press Shift-Alt-2, the script will Pause\UnPause HotKeySet("{ESC}", "_Exit") HotKeySet("+!d", "_Msg") ; Shift-Alt-d ;~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~* Global $hDocfxit = WinWait("Docfxit, Inc. - QuickBooks Desktop Pro 2021","Make General Journal") If Not WinActive($hDocfxit) Then WinActivate($hDocfxit) WinWaitActive($hDocfxit) Send("dcu{TAB}") _Paused() WinWait($hDocfxit) If Not WinActive($hDocfxit) Then WinActivate($hDocfxit) WinWaitActive($hDocfxit) Send("{TAB}{TAB}{SHIFTDOWN}i{SHIFTUP}nterest{TAB}digital{TAB}tes{ALTDOWN}n{ALTUP}") ;---------------------------------------------------------------------------------------- Func _Paused() $g_bPaused = Not $g_bPaused While $g_bPaused Sleep(100) ToolTip('Script is "Paused"', 0, 0) WEnd ToolTip("") EndFunc ;==>_HotKey_Paused ;---------------------------------------------------------------------------------------- Func _Exit() Exit EndFunc ;---------------------------------------------------------------------------------------- Func _Msg() MsgBox($MB_SYSTEMMODAL, "", "This is a message.") EndFunc ;----------------------------------------------------------------------------------------  

Yea!!!
This is working:
If WinActivate("Recording Transaction", "Cancel") Then Send("!y") EndIf While WinExists("Recording Transaction", "Cancel") Sleep(100) WEnd If WinActivate($QBVersion, "General Ledger Last Year") Then Send("{UP}") EndIf  
You guys are great.
It's so nice getting your help to resolve issues.
Thanks a bunch...

Yes it was.  You may need to give focus the the right window after this one closes or wait a little longer.  You need to experiment...

Maybe you are running Scite x64 but you compile x86 ?

This question has already been answered by @Nine, see :
There are two versions of the infotool, Au3Info.exe and Au3Info_x64.exe (64-Bit). These files are located in the [installation path]\AutoIt3\ folder. Take these two .exe of version 3.3.16.0 and copy them into the corresponding folder of your 3.3.16.1 installation. 

Right control key is {RCTRL}.

I added:
#RequireAdmin
And it's working.
Thank you very very much.

Instead of 'Button1' for the ControlClick, try one of these:
ControlClick($hWnd, '', 'Button', 'main', 1) ControlClick($hWnd, '', '[CLASS:Button; INSTANCE:1]', 'main', 1) ControlClick($hWnd, '', 1, 'main', 1) Alternatively, if it doesn't matter if you click Continue or Cancel you could try just using WinClose or WinKill, though I imagine Continue makes it skip over the current item and continue processing, so those may not be options for you.

/Dir and or use the /saveinf, /loadinf switches https://jrsoftware.org/ishelp/index.php?topic=setupcmdline

Assume this is for Windows XP or below?  You would need to have #RequireAdmin since ..\All Users\Desktop is a system folder, to make it work with other versions of Windows, I'd recommend using:
#RequireAdmin RunWait(@Comspec & ' /c Copy "C:\Dnload\9xAddons\Shutdown.lnk" "' & @DesktopCommonDir & '"')  

something like this:
$CMD = 'netsh interface ipv4 set address "' & $Networkname & '" static 192.168.2.5 255.255.255.0 192.168.2.254'  

I found an unviewable character after Pictures.  I have removed it and it's working now.
This is my entire script:
#include <WinAPIFiles.au3> #include <File.au3> ; This script will copy all files from many folders in the $sFileFromPath to one folder in the $sFileToPath ; If it finds a duplicate file name it will add a number to the file name ; Global $sFileToPath = "C:\MyPictures" Global $sFileToPathSlash = $sFileToPath ;Global $sFileFromPath = @AppDataDir & "\Corel\Messages\540217727_100001\en\MessageCache1\Workflow\shared\Images" Global $sFileFromPath = @UserProfileDir & "\Pictures" MsgBox(0, "", "From file Path: " & $sFileFromPath & @CRLF & "At Line# = " & @ScriptLineNumber) Global $sExt = "jpg" Local $bStatus = FileSetAttrib($sFileToPath & "\*.*", "-RS") ; Time to start over with a new set of files Local $iFileExists = FileExists($sFileToPath) If Not $iFileExists Then DirCreate($sFileToPath) Else FileDelete($sFileToPath & "\*.*") EndIf If Not StringRegExp($sFileToPath, "\\\z") Then $sFileToPathSlash &= "\" ; Append missing '\' to $sFileToPath if needed MoveFiles($sFileFromPath, $sFileToPathSlash, $sExt) ;Protect the folder making it read only Local $bStatus = FileSetAttrib($sFileToPath & "\*.*", "+RS") Local $bStatus = FileSetAttrib($sFileToPath, "+RS") Exit Func MoveFiles($sFileFromPath, $sFileToPathSlash, $sExt = ".*") If Not StringRegExp($sFileFromPath, "\\\z") Then $sFileFromPath &= "\" ; Append missing '\' to $sFileFromPath if needed FileChangeDir($sFileFromPath) $hSearch = FileFindFirstFile("*.*") $hFile = FileFindNextFile($hSearch) While Not @error If @extended Then ; $hFile is a directory MoveFiles($sFileFromPath & $hFile, $sFileToPathSlash, $sExt) ; Scan the subdirectory Else ; $hFile is a file FileChangeDir($sFileFromPath) Global $sFileFrom = $sFileFromPath & $hFile Global $sFileTo = $sFileToPathSlash & $hFile $vResult = _SecureFileMove($sFileFrom, $sFileTo) ; Folder not created = C:\MyPictures Error pops up here at line 51 If $vResult == 0 Then ; 0 = error MsgBox(0, "", "Error copying file to: " & $sFileTo & @CRLF & "From file: " & $sFileFrom & @CRLF & "At Line# = " & @ScriptLineNumber & @CRLF & "$vResult = " & $vResult) Else ; on success the name of the moved file is returned ; MsgBox(0, "", "File successfully Copied to: " & $vResult) EndIf EndIf $hFile = FileFindNextFile($hSearch) WEnd FileClose($hSearch) EndFunc ;==>MoveFiles Func _SecureFileMove($sFileFrom, $sFileTo) Local $iIndex = 0, $sFileTemp, $iResult Local $sDrive, $sDir, $sFName, $sExt If FileExists($sFileTo) Then _PathSplit($sFileTo, $sDrive, $sDir, $sFName, $sExt) While 1 $iIndex = $iIndex + 1 $sFileTemp = $sDrive & $sDir & $sFName & "_" & $iIndex & $sExt If Not FileExists($sFileTemp) Then ExitLoop WEnd ; MsgBox(0, "", "Duplicate file found: " & $sFileTemp) $sFileTo = $sFileTemp EndIf $iResult = FileCopy($sFileFrom, $sFileTo) If $iResult = 1 Then Return $sFileTo Else Return 0 EndIf EndFunc ;==>_SecureFileMove Thanks for the help.
Docfxit

why not just delete the folders contents and continue to copy data to it? why delete the folder? 

That's a good idea.
I tried this code:
Local $bStatus = FileSetAttrib($sFileToPath & "\*.*", "-R") ; Time to start over with a new set of files Local $iFileExists = FileExists($sFileToPath) If Not $iFileExists Then DirCreate($sFileToPath) Else FileDelete($sFileToPath & "\*.*") MsgBox(0, "", "Check the files in: " & $sFileToPath & @CRLF & "At Line# = " & @ScriptLineNumber) EndIf I have it working with this code.
That solved the problem.
 

You spent a lot of time on it.  I would never know how to do all that.
You must do a lot with AutoIt.

Try this
#include <File.au3> #include <Array.au3> Opt("WinWaitDelay", 100) Opt("WinTitleMatchMode", 4) Opt("WinDetectHiddenText", 1) Opt("MouseCoordMode", 0) TrayTip("clears any tray tip", "", 0) AutoItSetOption("TrayIconDebug", 1) ;0-off Global Const $sFileName = "ACTIC25.AU3" Global Const $sFromFolder = "C:\Dnload\9xAddons\" Global Const $sFixedFolder = "C:\Dnload\9xAddons\Fixed\" Global Const $sStart = "If _OSVersion" Global Const $sTo = "EndIf" ReplaceLines($sFileName, $sFromFolder, $sFixedFolder) Exit Func ReplaceLines($sFileName, $sSrcFolder, $sDestFolder) ;$objErr = ObjEvent("AutoIt.Error", "MyErrFunc") Local $sFinished = 0, $iErr = 0, $aFile Local $sSrcFile = $sSrcFolder & "\" & $sFileName Local $sDestFile = $sDestFolder & "\" & $sFileName If FileExists($sDestFile) Then FileDelete($sDestFile) EndIf _FileReadToArray($sSrcFile, $aFile, $FRTA_NOCOUNT) ;array is 0-based use UBound() to get size $iErr = @error If $iErr Or Not IsArray($aFile) Then MsgBox(0, "Error Occurred", $iErr) Return EndIf _DeleteArrayElement($aFile) $iErr = @error If $iErr Or Not IsArray($aFile) Then MsgBox(0, "Error Occurred", Hex($iErr) & ":" & $iErr) Return EndIf _FileWriteFromArray($sDestFile, $aFile, 0) EndFunc ;==>ReplaceLines Func _DeleteArrayElement(ByRef $_Array) If Not IsArray($_Array) Then Return SetError(0xBAD, 0, 0) Local $iArrayCount = UBound($_Array) Local $iStartPos = -1, $iEndPos = -1 Local $iErr = 0xDEAF ;Returned if no match found For $i = 0 To $iArrayCount If StringInStr($_Array[$i], $sStart) <> 0 Then For $j = ($i + 1) To $iArrayCount ;We Start After $sStartPos If StringInStr($_Array[$j], $sTo) <> 0 Then $iStartPos = $i $iEndPos = $j ExitLoop EndIf Next If $iStartPos >= 0 And $iEndPos > $iStartPos Then ExitLoop EndIf Next If $iStartPos >= 0 And $iEndPos > $iStartPos Then Local $sRange = $iStartPos & "-" & $iEndPos _ArrayDelete($_Array, $sRange) $iErr = @error If $iErr Then Return SetError($iErr, 0, 0) _ArrayInsert($_Array,0,'#include "OSVersion.au3"') EndIf Return SetError($iErr, 0, 0) ;Note $_Array is Byref so it doesn't need returned EndFunc ;==>_DeleteArrayElement  

You moved the Global to the top, but are still declaring it Globally first line in your function....

Maybe it's $ProgramFiles that's the problem?

I've figured it out. You have to be very careful to find the top window directly from the Desktop in this way:
; --- Find HomeSeer HS3 window --- ConsoleWrite( "--- Find HomeSeer HS3 window ---" & @CRLF ) Local $pCondition0 $oUIAutomation.CreateTrueCondition( $pCondition0 ) If Not $pCondition0 Then Return ConsoleWrite( "$pCondition0 ERR" & @CRLF ) ConsoleWrite( "$pCondition0 OK" & @CRLF ) Local $pElements $oDesktop.FindAll( $TreeScope_Children, $pCondition0, $pElements ) ; Top windows only If Not $pElements Then Return ConsoleWrite( "$pElements ERR" & @CRLF ) ConsoleWrite( "$pElements OK" & @CRLF ) Local $oAutomationElementArray, $iLength $oAutomationElementArray = ObjCreateInterFace( $pElements, $sIID_IUIAutomationElementArray, $dtagIUIAutomationElementArray ) $oAutomationElementArray.Length( $iLength ) If Not $iLength Then Return ConsoleWrite( "$iLength ERR" & @CRLF ) ConsoleWrite( "$iLength = " & $iLength & @CRLF ) ConsoleWrite( "$iLength OK" & @CRLF ) Local $pWindow, $oWindow, $sName For $i = 0 To $iLength - 1 $oAutomationElementArray.GetElement( $i, $pWindow ) $oWindow = ObjCreateInterface( $pWindow, $sIID_IUIAutomationElement, $dtagIUIAutomationElement ) $oWindow.GetCurrentPropertyValue( $UIA_NamePropertyId, $sName ) If $sName <> "HomeSeer HS3" Then ContinueLoop ConsoleWrite( "$sName = " & $sName & @CRLF ) ExitLoop Next If $i = $iLength Then Return ConsoleWrite( "$oWindow ERR" & @CRLF ) ConsoleWrite( "$oWindow OK" & @CRLF ) This technique will be included in the next version of UIASpy in a week.
Full code:
#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 -w 7 ;#AutoIt3Wrapper_UseX64=n ; If target application is running as 32 bit code ;#AutoIt3Wrapper_UseX64=y ; If target application is running as 64 bit code #include "CUIAutomation2.au3" Opt( "MustDeclareVars", 1 ) Example() Func Example() ; Open HomeSeer Run( "C:\Program Files (x86)\HomeSeer HS3\HS3.exe" ) ; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Sleep( 1000 ) ; Create UI Automation object Local $oUIAutomation = ObjCreateInterface( $sCLSID_CUIAutomation, $sIID_IUIAutomation, $dtagIUIAutomation ) If Not IsObj( $oUIAutomation ) Then Return ConsoleWrite( "$oUIAutomation ERR" & @CRLF ) ConsoleWrite( "$oUIAutomation OK" & @CRLF ) ; Get Desktop element Local $pDesktop, $oDesktop $oUIAutomation.GetRootElement( $pDesktop ) $oDesktop = ObjCreateInterface( $pDesktop, $sIID_IUIAutomationElement, $dtagIUIAutomationElement ) If Not IsObj( $oDesktop ) Then Return ConsoleWrite( "$oDesktop ERR" & @CRLF ) ConsoleWrite( "$oDesktop OK" & @CRLF ) ; --- Find HomeSeer HS3 window --- ConsoleWrite( "--- Find HomeSeer HS3 window ---" & @CRLF ) Local $pCondition0 $oUIAutomation.CreateTrueCondition( $pCondition0 ) If Not $pCondition0 Then Return ConsoleWrite( "$pCondition0 ERR" & @CRLF ) ConsoleWrite( "$pCondition0 OK" & @CRLF ) Local $pElements $oDesktop.FindAll( $TreeScope_Children, $pCondition0, $pElements ) ; Top windows only If Not $pElements Then Return ConsoleWrite( "$pElements ERR" & @CRLF ) ConsoleWrite( "$pElements OK" & @CRLF ) Local $oAutomationElementArray, $iLength $oAutomationElementArray = ObjCreateInterFace( $pElements, $sIID_IUIAutomationElementArray, $dtagIUIAutomationElementArray ) $oAutomationElementArray.Length( $iLength ) If Not $iLength Then Return ConsoleWrite( "$iLength ERR" & @CRLF ) ConsoleWrite( "$iLength = " & $iLength & @CRLF ) ConsoleWrite( "$iLength OK" & @CRLF ) Local $pWindow, $oWindow, $sName For $i = 0 To $iLength - 1 $oAutomationElementArray.GetElement( $i, $pWindow ) $oWindow = ObjCreateInterface( $pWindow, $sIID_IUIAutomationElement, $dtagIUIAutomationElement ) $oWindow.GetCurrentPropertyValue( $UIA_NamePropertyId, $sName ) If $sName <> "HomeSeer HS3" Then ContinueLoop ConsoleWrite( "$sName = " & $sName & @CRLF ) ExitLoop Next If $i = $iLength Then Return ConsoleWrite( "$oWindow ERR" & @CRLF ) ConsoleWrite( "$oWindow OK" & @CRLF ) ; --- Find Register Now... button --- ConsoleWrite( "--- Find Register Now... button ---" & @CRLF ) Local $pCondition1 $oUIAutomation.CreatePropertyCondition( $UIA_NamePropertyId, "Register Now...", $pCondition1 ) If Not $pCondition1 Then Return ConsoleWrite( "$pCondition1 ERR" & @CRLF ) ConsoleWrite( "$pCondition1 OK" & @CRLF ) Local $pButton1, $oButton1 $oWindow.FindFirst( $TreeScope_Descendants, $pCondition1, $pButton1 ) $oButton1 = ObjCreateInterface( $pButton1, $sIID_IUIAutomationElement, $dtagIUIAutomationElement ) If Not IsObj( $oButton1 ) Then Return ConsoleWrite( "$oButton1 ERR" & @CRLF ) ConsoleWrite( "$oButton1 OK" & @CRLF ) ; --- Invoke Pattern (action) Object --- ConsoleWrite( "--- Invoke Pattern (action) Object ---" & @CRLF ) Local $pInvokePattern, $oInvokePattern $oButton1.GetCurrentPattern( $UIA_InvokePatternId, $pInvokePattern ) $oInvokePattern = ObjCreateInterface( $pInvokePattern, $sIID_IUIAutomationInvokePattern, $dtagIUIAutomationInvokePattern ) If Not IsObj( $oInvokePattern ) Then Return ConsoleWrite( "$oInvokePattern ERR" & @CRLF ) ConsoleWrite( "$oInvokePattern OK" & @CRLF ) ; --- Invoke Pattern (action) Methods --- ConsoleWrite( "--- Invoke Pattern (action) Methods ---" & @CRLF ) ConsoleWrite( "$oInvokePattern.Invoke()" & @CRLF ) $oInvokePattern.Invoke() EndFunc $oUIAutomation OK $oDesktop OK --- Find HomeSeer HS3 window --- $pCondition0 OK $pElements OK $iLength = 8 $iLength OK $sName = HomeSeer HS3 $oWindow OK --- Find Register Now... button --- $pCondition1 OK $oButton1 OK --- Invoke Pattern (action) Object --- $oInvokePattern OK --- Invoke Pattern (action) Methods --- $oInvokePattern.Invoke()  

Docfxit,
They suggested you a better way to accomplish what you want.
But if you insist, try this:
$hWnd = WinGetHandle("Internet Protocol Version 4 (TCP/IPv4) Properties") ControlCommand($hWnd, "", "Button3", "Check", "") ; this will select the radio button "Use the following IP address" Sleep(200) ControlSetText($hWnd, "", "SysIPAddress321", '28.255.28.255') ;this will set the IP address.  

$hWnd = WinGetHandle("Internet Protocol Version 4 (TCP/IPv4) Properties") ControlCommand($hWnd, "", "Button3", "Check", "") ; this will select the radio button "Use the following IP address" Sleep(200) ControlSetText($hWnd, "", "SysIPAddress321", '192.168.168.8') ;this will set the IP address. ControlSetText($hWnd, "", "SysIPAddress322", '255.255.255.0') ;this will set the IP address. ControlSetText($hWnd, "", "SysIPAddress323", '192.168.168.168') ;this will set the IP address. ControlSetText($hWnd, "", "SysIPAddress324", '66.51.205.101') ;this will set the IP address. ControlSetText($hWnd, "", "SysIPAddress325", '66.51.206.101') ;this will set the IP address. ControlClick($hWnd, "", "Button9") Exit