WinMenuSelectItem Sample Test

[Laymanball]

SelectRun:WinMenuSelectItem Sample Test. With notepad.

expandcollapse popup

_Menu_File()
Func _Menu_File()
    If Not ProcessExists("Notepad.exe")Then Run(@SystemDir&"\Notepad.exe")
    If WinWait("[CLASS:Notepad]")Then WinMove("[CLASS:Notepad]", "", 252, 228, 518, 292)
    MsgBox(64, "", "WinMenuSelectItem. Run Menu: &File &Open")
    WinMenuSelectItem("[CLASS:Notepad]", "", "&File", "&Open..." )
    If WinActive("Open")Then WinWait("Open")
    Sleep(500)
    If WinClose("Open")Then MsgBox(64, "", "Run Menu: &File Save &As..." )
    WinMenuSelectItem("[CLASS:Notepad]", "", "&File", "Save &As..." )
    If WinActive("Save As")Then WinWait("Save As")
    Sleep(500)
    If WinClose("Save As")Then MsgBox(64, "", "Run Menu: &File E&xit")
    WinMenuSelectItem("[CLASS:Notepad]", "", "&File", "E&xit" )
    Sleep(500)
_Menu_Edit()
EndFunc
Func _Menu_Edit()
If Not ProcessExists("Notepad.exe")Then Run(@SystemDir&"\Notepad.exe")
If WinWait("[CLASS:Notepad]")Then MsgBox(64, "", "Run Menu: &Edit &Go To...")
    WinMenuSelectItem("[CLASS:Notepad]", "", "&Edit", "&Go To..." )
If WinActive("Goto line")Then Sleep(500)
    If WinClose("Goto line")Then MsgBox(64, "", "Run Menu: &Edit &Time/Date")
WinMenuSelectItem("[CLASS:Notepad]", "", "&Edit", "Time/&Date")
Sleep(500)
    If WinClose("[CLASS:Notepad]")Then Send("!n")
Sleep(500)
_Menu_Format_Help()
EndFunc
Func _Menu_Format_Help()
MsgBox(64, "", "Run Menu: F&ormat &Font...")
    If Not ProcessExists("Notepad.exe")Then Run(@SystemDir&"\Notepad.exe")
If WinWait("[CLASS:Notepad]")Then WinMenuSelectItem("[CLASS:Notepad]", "", "F&ormat", "&Font..." )
    If WinActive("Font")Then Sleep(500)
If WinClose("Font")Then MsgBox(64, "", "Run Menu: &Help &About Notepad")
WinMenuSelectItem("[CLASS:Notepad]", "", "&Help", "&About Notepad" )
Sleep(500)
If WinActive("About Notepad")Then WinClose("About Notepad")
    Sleep(500)
WinClose("[CLASS:Notepad]")
Exit
EndFunc
;==>WinMenuSelectItem.

[Jos]

Remember: ?

What changed?

Edit: I see you posted a couple of these kind of examples again...

Next new topic within the next 3 months in this Examples forum will urn you a vacation from these forums.

Tnx,

jos

Edited October 6, 2011 by Jos

[Laymanball]

OK.. JOS

IF I post code again

I will banded?

I must stop post code now?

I must read only?. NO. post everything.

Fellow.

Thanks

[Carlo84]

Perhaps you should review the forum rules, and this is not twitter.

[Laymanball]

Djarlo

Do not block the Idia. For the basic programming.

................................................................................

Thanks.. Your code SplashProgressImage. Nice Cool.

Edited October 7, 2011 by Laymanball