···
Sub Main
dim count
xsh.Screen.Synchronous = True
For count = 0 to 1000
xsh.Screen.Send "y" & VbCr
xsh.Session.Sleep(10)
Next
End Sub
···
···
Sub Main
dim count
xsh.Screen.Synchronous = True
For count = 0 to 1000
xsh.Screen.Send "y" & VbCr
xsh.Session.Sleep(10)
Next
End Sub
···