Jump to content

Point Me In The Right Direction


sos
 Share

Recommended Posts

I am trying to automate an install for Lotus SmartSuite -

the script is working to a point that I am confronted with a listbox (Line 37)

with eight items checked - i want to uncheck all items, then check the fifth

The will be a few more ListBoxes during this install - This my be a bit advanced for a newbe

but we all have to learn some how Much thanks for any and all help -- Regards sos

Press CTRL-ALT-F to freeze the display.

>>>>>>>>>>>> Window Details <<<<<<<<<<<<<

Title: Lotus Install

Class: Stuff-Shell

Size: X: -4 Y: -4 W: 1288 H: 1002

>>>>>>>>>>> Mouse Details <<<<<<<<<<<

Client: X: 541 Y: 401

Cursor ID: 2

>>>>>>>>>>> Pixel Color Under Mouse <<<<<<<<<<<

RGB: Hex: 0xFFFFFF Dec: 16777215

>>>>>>>>>>> Control Under Mouse <<<<<<<<<<<

Size: X: 453 Y: 289 W: 372 H: 139

Control ID: 700

ClassNameNN: ListBox1

Text:

Style: 0x50030091

ExStyle: 0x00000204

>>>>>>>>>>> Status Bar Text <<<<<<<<<<<

>>>>>>>>>>> Visible Window Text <<<<<<<<<<<

Select Lotus SmartSuite Applications

&Drive:

C: 64573780 K;3

F&older:

\lotus\smartctr\

&Browse...

&Next >

< &Previous

E&xit Install

&Help

Lotus SmartCenter Release 9.5

Select all the Lotus SmartSuite applications you want to install.

You can change each application's location by selecting a new drive

and typing a new folder in the box below.

Lotus Application

Folder

>>>>>>>>>>> Hidden Window Text <<<<<<<<<<

1204

; Script Start - Add your code below here

WinActive("Approach 9.x","&Continue")

ControlClick("Approach 9.x","&Continue",2001)

Sleep(1000)

ControlClick("Approach 9.x","&Continue",1)

WinActive("Lotus Software Agreement","I &Agree")

ControlClick("Lotus Software Agreement","I &Agree",205)

Sleep(1000)

WinWait("Lotus Install")

WinActivate ( "Lotus Install" , "&Your name:")

Send("{Tab}")

WinActivate ( "Lotus Install" , "&Company name:")

Send("{Tab}")

WinActivate ( "Lotus Install" , "&Install to a file server")

Send("{Tab}")

WinActivate ( "Lotus Install" , "&Next >")

ControlClick("Lotus Install","Welcome to the Lotus SmartSuite Install Program","Button2")

Sleep(500)

WinActive("Lotus Install","Confirm Names")

Sleep(500)

ControlClick("Lotus Install","Confirm Names",205)

WinActive("Lotus Install","Specify Lotus SmartSuite Folder")

Sleep(500)

ControlClick("Lotus Install","Specify Lotus SmartSuite Folder",205)

Sleep(500)

WinActive("Lotus Install","Select Lotus SmartSuite Applications")

ControlCommand ( "Lotus Install", "Select Lotus SmartSuite Applications", 700,"UnCheck" , "" )

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...