Search the Community
Showing results for tags 'thoughts opinions advice'.
-
I created a script to automate filling in information from our SAN at my company. I have completed what i want it to do but im sure there is an easier way of doing it. for example i have to make the script Sleep to wait for the java windows to load. Any thoughts or advice will be appreciated. ;make active WinActivate("EMC Unisphere - Windows Internet Explorer") ;Move IE window MouseMove (587, 8, 1) MouseDown("Left") MouseMove(1880,181,3) MouseUp("Left") Sleep(3000) ;maximize WinSetState("[ACTIVE]", "", @SW_MAXIMIZE) Sleep(3500) ;Select FTPCNTCS0 MouseMove (1342, 194, 1) MouseClick("Left") Sleep(500) ;Select File Systems MouseMove (1782, 86, 1) Sleep(1700) MouseMove(1816,364,1) MouseClick("Left") Sleep(2400) ;Select Server------------------------------------------------------------ 1 MouseMove(1429,420,1) MouseClick("Left") MouseClick("Left") Sleep(9500) ;Move IE window MouseMove(629,170,1) MouseDown("Left") MouseMove(1880,181,3) MouseUp("Left") Sleep(2000) ;Copy Files Scanned MouseMove(2052,485,1) MouseDown("Left") MouseMove(1994,485,5) MouseUp("Left") MouseMove(2020,485,1) MouseClick("Right") sleep(300) MouseMove(2050,522,1) MouseClick("Left") sleep(1000) ; Create application object Local $oAppl = _Excel_Open() ; Open an existing workbook Local $sWorkbook = @ScriptDir & "\AutoSAN.xlsx" Local $oWorkbook = _Excel_BookOpen($oAppl, $sWorkbook, Default, Default, True) ;make active WinActivate("Microsoft Excel - SAN Monthly Reports.xlsx") Sleep(500) ;maximize WinSetState("[ACTIVE]", "", @SW_MAXIMIZE) Sleep(1000) $oWorkbook.ActiveSheet.Range("D11").Select() ;Paste Files Scanned MouseMove(249,172,1) MouseClick("Left") Send("{CTRLDOWN}v{CTRLUP}") Send("{TAB}") ;Copy Files Deduped MouseMove(2052,502,1) MouseDown("Left") MouseMove(1994,502,5) MouseUp("Left") MouseMove(2020,502,1) MouseClick("Right") sleep(300) MouseMove(2050,539,1) MouseClick("Left") ;Paste Files Deduped MouseMove(249,172,1) MouseClick("Left") Sleep(500) MouseClick("Left") Send("{CTRLDOWN}v{CTRLUP}") Send("{TAB}") Send("{TAB}") ;Copy Oirginal Data Size MouseMove(2052,519,1) MouseDown("Left") MouseMove(1994,519,5) MouseUp("Left") MouseMove(2020,519,1) MouseClick("Right") sleep(300) MouseMove(2050,556,1) MouseClick("Left") ;Paste Oirginal Data Size MouseMove(249,172,1) MouseClick("Left") Sleep(500) MouseClick("Left") Send("{CTRLDOWN}v{CTRLUP}") Send("{ENTER}") ;Close IE Window MouseMove(2319,178,1) MouseClick("Left")