January 1, 2005

WinTask - GetHelpText

'
' GetHelpText
'
' Author: Joe Strazzere
'

UseWindow("NOTEPAD.EXE|Notepad|Untitled - Notepad",1)
 ChooseMenu(Normal,"&Search|&Find...")

UseWindow("NOTEPAD.EXE|#32770|Find",1)
    ClickMouse(Left,Down,325,10)         ' coordinates of the ?
    ClickMouse(Left,Up,325,10)
 Click(Button,"Direction")
'or
    'Sendkeys("<Tab><F1>")
 'pause 1 secs
   
UseWindow("WINHLP32.EXE|MS_WINNOTE",1)
 ClickMouse(Right,Down,233,19)
 ClickMouse(Right,Up,233,19)
 ChooseMenu(Context,"C&opy")
 ClickMouse(Left,Down,375,31)
 ClickMouse(Left,Up,375,31)
UseWindow("NOTEPAD.EXE|#32770|Find",1)
 Click(Button,"Cancel")
pause 1 secs
msgbox(getclipboard$())