I am extremely new to AutoIT and not barely 'experienced' in scripting.
I am trying to make a simply scritp to:
Change this IE Setting:
Local Intranet > Custom Level > "Init & script Active X not safe...":
-change to "Emable"
Change these Excel Settings:
Excel Options > Trust Center > 'Trust Settings' > Macro Settings:
-Check "Trust access to Visual Basic Project"
-Select "Trust access to the VBA project onject model"
I would like to be able to code the script to:
(1) open IE regardless of version or home page.
(2) run verbosely and,
(3) automatically pause after each command;
(5) on a keystroke, run the next line.
For testing & evaluation.
My thanx in advance for any help and understanding...
The Script so far: (how bad is it?)
Run("C:\Program Files (x86)\Internet Explorer\iexplore.exe")
Opt("WinTitleMatchMode", 4)
WinWait("Windows Internet Explorer","Navigation Bar")
WinWait("Command Bar","")
$Tabhdl = ControlGetHandle("Command Bar","","SysTabControl321")
ControlCommand("","",$Tabhdl,"TabRight","")
WinWait("Internet Options","Select a web content zone to s")
WinWait("Internet Options","Select a web content zone to s")
$CLVItem = ControlListView("Internet Options","Select a web content zone to s","SysListView321","FindItem","Local intranet")
ControlListView("Internet Options","Select a web content zone to s","SysListView321","SelectClear")
ControlListView("Internet Options","Select a web content zone to s","SysListView321","Select",$CLVItem)
ControlClick("Internet Options","Select a web content zone to s","Button2")
WinWait("Security Settings - Local Intranet Zone","*Takes effect after you restar")
ControlClick("Security Settings - Local Intranet Zone","*Takes effect after you restar","SysTreeView321")
ControlClick("Security Settings - Local Intranet Zone","*Takes effect after you restar","Button4")
WinWait("Internet Options","Select a web content zone to s")
ControlClick("Internet Options","Select a web content zone to s","Button7")
WinClose("[CLASS:IEFrame]")
Run("C:Program Files (x86)Microsoft OfficeOffice15EXCEL.EXE")
Opt("WinTitleMatchMode", 4)
WinWait("Book1 - Excel","Status Bar")
ControlClick("Book1 - Excel","Status Bar","MsoCommandBar2")
WinWait("Book1 - Excel","")
ControlClick("Book1 - Excel","","NetUIHWND1")
WinWait("Excel Options","")
ControlClick("Excel Options","","NetUIHWND1")
WinWait("Trust Center","")
ControlClick("Trust Center","","NetUIHWND1")
WinWait("Excel Options","")
ControlClick("Excel Options","","NetUIHWND1")
WinWait("Book1 - Excel","Status Bar")
ControlClick("Book1 - Excel","Status Bar","MsoCommandBar2")