<< Click to Display Table of Contents >> Navigation:  Macro Samples > Simple logon script

HostSettleTime = 3000 ; milliseconds
Result = WaitForCursor(19, 64)
SendKeys "logon<Enter>"
Result = WaitForCursor(5, 40)
SetWindowTitle "Macro" + " Quick3270"
sPassword = PasswordBox("Enter Password", "Logon" )
SendKeys "USERNAME"
b = MoveTo(6,40)
SendKeys sPassword
SendKeys "<Enter>"
End