Hi im Newbie...Its so basic..

[MarcoCastro]

Sorry, my english is excrement, but i try...

script:

Opt("WinWaitDelay",100)

Opt("WinTitleMatchMode",4)

Opt("WinDetectHiddenText",1)

Opt("MouseCoordMode",0)

WinWait("WMSp.rsf - WRQ Reflection - IBM 5250 Terminal","Standard")

If Not WinActive("WMSp.rsf - WRQ Reflection - IBM 5250 Terminal","Standard") Then WinActivate("WMSp.rsf - WRQ Reflection - IBM 5250 Terminal","Standard")

WinWaitActive("WMSp.rsf - WRQ Reflection - IBM 5250 Terminal","Standard")

Send("3{ENTER}20{ENTER}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{SPACE

}{ENTER}")

MsgBox(4096, "Test", "Enviando a Correo, espere y no digite ni cambie a otra ventana de windows", 5)

sleep(2700)

Send("{F3}{F3}96{ENTER}s{ENTER}")

sleep(7000)

Send("{ENTER}")

Send("1{ENTER}marco_castro@apl.com{TAB}marco_castro@apl.com{ENTER}y{F3}{F3}")

WinWait("WMSp.rsf - WRQ Reflection - IBM 5250 Terminal","")

If Not WinActive("WMSp.rsf - WRQ Reflection - IBM 5250 Terminal","") Then WinActivate("WMSp.rsf - WRQ Reflection - IBM 5250 Terminal","")

WinWaitActive("WMSp.rsf - WRQ Reflection - IBM 5250 Terminal","")

Send("{SHIFTDOWN}{F2}{SHIFTUP}4{ENTER}{ENTER}{ENTER}")

WinWait("WMSp.rsf - WRQ Reflection - IBM 5250 Terminal","Standard")

If Not WinActive("WMSp.rsf - WRQ Reflection - IBM 5250 Terminal","Standard") Then WinActivate("WMSp.rsf - WRQ Reflection - IBM 5250 Terminal","Standard")

WinWaitActive("WMSp.rsf - WRQ Reflection - IBM 5250 Terminal","Standard")

Send("{SHIFTDOWN}{F3}{SHIFTUP}8{ENTER}4{ENTER}{ENTER}{ENTER}{F3}")

sleep(8000)

SoundPlay(@WindowsDir & "\media\tada.wav",1)

MsgBox(4096, "Test", "Proceso Terminado, espere que la X se oculte en la parte baja del Tls", 5)

I need lastat the same time

...thanks, experts

[jvanegmond]

SoundPlay(@WindowsDir & "\media\tada.wav",0)

[MarcoCastro]

This program its wonderful..... thanks experts....

[jvanegmond]

No problem. I wouldn't say I'm an expert though..

This is my 1500st Post.