' Rapid-Q by William Yu (c)1999-2000                                             .
' ================================================================================
' Upload_il_tuo_script_su_Rapidq.it

' Trova_Finestra_2

DECLARE FUNCTION FindWindowAPI LIB "user32" ALIAS "FindWindowA" _

(ByVal lpClassName AS LONG, ByVal lpWindowName AS STRING) AS LONG



pid = Shell("calc.exe")

DIM n AS SINGLE

n = TIMER



WHILE ABS(TIMER - n) < 2

DoEvents

WEND



ShowMessage(STR$(FindWindowAPI(0, "Calculator")))

' The second param must be the window title of calc.exe

' Note: The window title is often language dependent!


' ===============================================================================
'                      2003 Holyguard.net - 2007_Abruzzoweb