12-22-2006, 04:06 AM
public sub input tickets()
g_hostsettletim=100
set system=createObject("extra.system")
If(system is nothing)Then
Msgbox"could not create the Extra System object. stopping macro playback."
stop
End if
'Get the necessary session object
Dim sess0 As object
set sesso=system.activesession
if (sesso is nothing) Then
msgbox "could not create the session object. stopping macro playback"
stop
End if
If not sesso. visible Then sess o visible =true
sesso screen.waithostquiet (g hostsettletime)
set IMMSscreen =Sess.0.sreen
This section of code contains the recorded events
with IMMS Screen
.sendkeys ("<clear><clear>")
.sendkeys ("mvtm<enter>")
.waithostquiet (g hostsettletime)
.sendkeys ("1<Enter>")
.waithostqiet (g_hostsettletime)
End with
g_hostsettletim=100
set system=createObject("extra.system")
If(system is nothing)Then
Msgbox"could not create the Extra System object. stopping macro playback."
stop
End if
'Get the necessary session object
Dim sess0 As object
set sesso=system.activesession
if (sesso is nothing) Then
msgbox "could not create the session object. stopping macro playback"
stop
End if
If not sesso. visible Then sess o visible =true
sesso screen.waithostquiet (g hostsettletime)
set IMMSscreen =Sess.0.sreen
This section of code contains the recorded events
with IMMS Screen
.sendkeys ("<clear><clear>")
.sendkeys ("mvtm<enter>")
.waithostquiet (g hostsettletime)
.sendkeys ("1<Enter>")
.waithostqiet (g_hostsettletime)
End with