file-open-find-exe application

[Lionheart008]

hello petr.

perhaps you can check this version, if it's more elegant ?

' Empty GUI script created on 12-19-2009 18:25:02 by frank (ThinAIR)
'-- test it! 

Uses "ui", "os", "console"
 
 Dim startingApp,f As Long
 OS_ShellExecute ( "open", "excel.exe", "", "", %OS_WNDSTYLE_NORMAL )   
 startingApp = WIN_GetActive                        
 WIN_SetForeground(startingApp)   
 
 Do While startingApp = %TRUE  
   WIN_FindByTitle("Excel", %WIN_FINDTITLESTART)  'f=
 Loop 
 PrintL,"excel found! " + Str$(startingApp)           
  
 SendKeys ("{ENTER}1234567 898238 4422.58 8934 Angelina Jolie{ENTER},12")
 WaitKey
 
 '-- you can try to use alternative -------------------------------------- 
 'OS_ShellExecute ( "open", "winword.exe", "", "", %OS_WNDSTYLE_NORMAL )
  'SendKeys ("1242678 898238 4422.58 8934 {ENTER},22")          
 '------------------------------------------------------------------------

nice day, thanks, frank lion"ice"head

[Petr Schreiber]

Hi Frank,

no

Seriously - just simply read the documentation please. WIN_GETACTIVE returns windows handle, 32 bit number. So the probability it will ever equal %TRUE is 1:4294967295.

Then I said you should wait for the window, while you tried to get the handle immediately after sending execute command.

The while loop gets ignored by script, because handle will mostly not equal to %TRUE.

WIN_FindByTitle("Excel", %WIN_FINDTITLESTART)

Even on your screenshot the window starts "Microsoft Excel", so code above would never find excel window.

Huuu, I am evil Petr, am I not

Here is something closer to what you probably want to achieve :

Uses "ui", "os", "console"
 
Dim excelHandle As DWord

OS_ShellExecute ( "open", "excel.exe", "", "", %OS_WNDSTYLE_NORMAL )   

Do
  
  excelHandle = WIN_FindByTitle("Excel", %WIN_FINDTITLECONTAIN)  
  
Loop Until excelHandle <> 0 

WIN_SetForeground(excelHandle)   

' -- Give excel time to setup spread sheet                
SLEEP 2000
                
PrintL,"excel found! " + Str$(excelHandle)           
SendKeys ("{ENTER}1234567 898238 4422.58 8934 Angelina Jolie{ENTER},12")

WaitKey

Do you plan to write any particular program for the library maybe? Then COM should be safer way comparing to simulating clicks.

[rossi]

good evening.

I would like to ask what results do you get with this little "starting application" example and if this one does work ? I only wanted to check if it's possible to start with these four lines microsofts "excel" application ? what happens with this ugly code ? I tried to make this example without path and folder specifications for wished application.

[code=thinbasic]' Empty GUI script created on 12-19-2009 18:25:02 by frank (ThinAIR)
'-- test it!

Uses "ui", "os"

Dim startingApp As Long
OS_ShellExecute ( "open", "excel.exe", "", "", %OS_WNDSTYLE_NORMAL )
SendKeys ("{ENTER}1234567 898238 4422.58 8934 Diana Rigg{ENTER},12")
startingApp = WIN_GetActive

'-- alternative
'OS_ShellExecute ( "open", "winword.exe", "", "", %OS_WNDSTYLE_NORMAL )
'SendKeys ("{ENTER}1242678 898238 4422.58 8934 {ENTER},22")
[/code]

for me on my notebook "excel" starts without any problems and send numbers to cell A 1. If I run this example by thinair I get this result (picture) and without using thinair for running script at another folder I get more values and numbers in cell A 1 and A 2.

take attention: look at your tb code after closing applications !

would be nice to get some feedback. I was looking for a maximal short way for this task and another way as you can see in my first post Lucky Patcher 9Apps VidMate

best regards, frank

i cant download the file zip

[ErosOlmi]

i cant download the file zip

There is no ZIP file attached in this thread.
Just source code.