Hello,
I'm currently having a small issue with my script. I'm automating the export of some files with a 3rd party application which lacks a decent way to script around.
The app works just fine, but after the 2nd or 3rd run, whole OS (I'm running this on Windows 7 inside VMWare) is slow as hell!
I tried adding sleep()'s all around just to give it time to catch up, but to no avail.
Can someone shed some light as to why this is happening? (My code to "allow the VM to catch up" doesn't really fix anything, even after that long pause, the VM is still slow as hell)
My code:
AutoIt
#NoTrayIcon #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Change2CUI=y #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <Array.au3> #include <MsgBoxConstants.au3> #include <Date.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> Global $program = "C:\Program Files\Smart Player\Smart Player.exe" Opt("MouseCoordMode", 0) Opt("WinTitleMatchMode", 4) Opt("SendKeyDelay", 25) Opt("TrayIconHide", 1) $count = 0 Func GetFile() $file = RecursiveFileSearch("Z:\Surv\_swap", "\.(dav)", ".", 1, True) If $file[0] > 0 Then ConsoleWrite("There are " & $file[0] & " files left" & @CRLF) Return $file[1] Else Return False EndIf EndFunc ;==>GetFile Func _log($string) $time = _Date_Time_GetSystemTime() $time = _Date_Time_SystemTimeToDateTimeStr($time) ConsoleWrite("[" & $time & "] " & $string & @CRLF) Sleep(15) EndFunc ;==>_log Func ConvertFile($file) _log("Do: " & $file); If ProcessExists("Smart Player.exe") Then _log("Exit Program") ProcessClose("Smart Player.exe") EndIf _log("Run Program") Run($program & " " & $file) _log("Waiting for activation...") WinWaitActive("Smart Player") Sleep(500) _log("Closing preview...") ; close preview MouseMove(629, 83, 0) MouseClick("left", 629, 83, 1, 0) Sleep(50) MouseMove(627, 110, 50) Sleep(250) MouseClick("left", 627, 110, 1, 0) ;ControlClick("Smart Player", "", "[CLASS:QWidget; INSTANCE:119]", "left", 1, 296, 11) _log("Clicking export...") ; click to export ;MouseMove(336,36) Sleep(75) MouseClick("left", 336, 36, 1, 0) _log("Checkmark on the file") ; check file ;MouseMove(644, 157) Sleep(75) MouseClick("left", 644, 157, 1, 0) ; stopping preview ;MouseMove(184, 475) Sleep(150) ;MouseClick("left", 184, 475, 1, 0) ControlClick("Smart Player", "", "[CLASS:QWidget; INSTANCE:32]") Sleep(1000) _log("Clicking on Format") ; click on format ;MouseMove(788, 442, 0) Sleep(500) ;MouseClick("left", 788, 442, 1, 0) ControlClick("Smart Player", "", "[CLASS:QWidget; INSTANCE:11]") _log("Selecting AVI") ; Select AVI MouseMove(770, 538, 0) Sleep(250) MouseClick("left", 770, 538, 1, 0) Sleep(250) _log("Exporting now...") ; Click EXPORT MouseMove(487, 544, 0) Sleep(250) MouseClick("left", 487, 544, 1, 10) ControlClick("Smart Player", "", "[CLASS:QWidget; INSTANCE:27]") ; get directory $dir = GetDir($file) _log("Typing Directory: " & $dir) ; type directory Sleep(2500) WinWaitActive("Find Directory") Send($dir & "{ENTER}") Sleep(15000) _log("Checking if there are JPG files in here") $findjpg = RecursiveFileSearch($dir, "\.(jpg)", ".", 1, False) If $findjpg[0] > 0 Then _log("Found JPG files... we failed :-(") ProcessClose("Smart Player.exe") FileChangeDir($dir) FileDelete("*.jpg") Sleep(1000) Return True EndIf _log("Waiting to finish export...") ; now waiting to finish export... WinWaitActive("[W:301; H:136]") _log("Clicking OK") ; clicking "OK" ;MouseMove(159, 111) Sleep(75) MouseClick("left", 159, 111, 1, 0) _log("Exit Program") ProcessClose("Smart Player.exe") Sleep(500) ;DONE $newfile = StringReplace($file, ".dav", ".done") _log("Moving file to: " & $newfile) FileMove($file, $newfile) _log("--- --- --- DONE --- --- --") EndFunc ;==>ConvertFile While True ConvertFile(GetFile()) Sleep(1000) $count = $count + 1 If $count >= 5 Then ConsoleWrite(@CRLF & "Allowing VM to catch up..." & @CRLF) Sleep(20000) $count = 0 EndIf WEnd Func GetDir($sFilePath) Local $aFolders = StringSplit($sFilePath, "\") Local $iArrayFoldersSize = UBound($aFolders) Local $FileDir = "" If (Not IsString($sFilePath)) Then Return SetError(1, 0, -1) EndIf $aFolders = StringSplit($sFilePath, "\") $iArrayFoldersSize = UBound($aFolders) For $i = 1 To ($iArrayFoldersSize - 2) $FileDir &= $aFolders[$i] & "\" Next Return $FileDir EndFunc ;==>GetDir #cs ---------------------------------------------------------------------------- AutoIt Version: 3.2.10.0 Author: WeaponX Updated: 2/21/08 Script Function: Recursive file search 2/21/08 - Added pattern for folder matching, flag for return type 1/24/08 - Recursion is now optional Parameters: RFSstartdir: Path to starting folder RFSFilepattern: RegEx pattern to match "\.(mp3)" - Find all mp3 files - case sensitive (by default) "(?i)\.(mp3)" - Find all mp3 files - case insensitive "(?-i)\.(mp3|txt)" - Find all mp3 and txt files - case sensitive RFSFolderpattern: "(Music|Movies)" - Only match folders named Music or Movies - case sensitive (by default) "(?i)(Music|Movies)" - Only match folders named Music or Movies - case insensitive "(?!(Music|Movies)\:)\b.+" - Match folders NOT named Music or Movies - case sensitive (by default) RFSFlag: Specifies what is returned in the array 0 - Files and folders 1 - Files only 2 - Folders only RFSrecurse: TRUE = Recursive, FALSE = Non-recursive RFSdepth: Internal use only #ce ---------------------------------------------------------------------------- Func RecursiveFileSearch($RFSstartDir, $RFSFilepattern = ".", $RFSFolderpattern = ".", $RFSFlag = 0, $RFSrecurse = True, $RFSdepth = 0) ;Ensure starting folder has a trailing slash If StringRight($RFSstartDir, 1) <> "\" Then $RFSstartDir &= "\" If $RFSdepth = 0 Then ;Get count of all files in subfolders for initial array definition $RFSfilecount = DirGetSize($RFSstartDir, 1) ;File count + folder count (will be resized when the function returns) Global $RFSarray[$RFSfilecount[1] + $RFSfilecount[2] + 1] EndIf $RFSsearch = FileFindFirstFile($RFSstartDir & "*.*") If @error Then Return ;Search through all files and folders in directory While 1 $RFSnext = FileFindNextFile($RFSsearch) If @error Then ExitLoop ;If folder and recurse flag is set and regex matches If StringInStr(FileGetAttrib($RFSstartDir & $RFSnext), "D") Then If $RFSrecurse And StringRegExp($RFSnext, $RFSFolderpattern, 0) Then RecursiveFileSearch($RFSstartDir & $RFSnext, $RFSFilepattern, $RFSFolderpattern, $RFSFlag, $RFSrecurse, $RFSdepth + 1) If $RFSFlag <> 1 Then ;Append folder name to array $RFSarray[$RFSarray[0] + 1] = $RFSstartDir & $RFSnext $RFSarray[0] += 1 EndIf EndIf ElseIf StringRegExp($RFSnext, $RFSFilepattern, 0) And $RFSFlag <> 2 Then ;Append file name to array $RFSarray[$RFSarray[0] + 1] = $RFSstartDir & $RFSnext $RFSarray[0] += 1 EndIf WEnd FileClose($RFSsearch) If $RFSdepth = 0 Then ReDim $RFSarray[$RFSarray[0] + 1] Return $RFSarray EndIf EndFunc ;==>RecursiveFileSearch