Cacher is the code snippet organizer for pro developers

Sub main  
    xsh.Screen.Synchronous = True
    xsh.Session.Sleep 50
    xsh.Screen.Send 0
    xsh.Session.Sleep 50
    xsh.Screen.Send VbCr
    xsh.Session.Sleep 50
    xsh.Screen.Send 0
    xsh.Session.Sleep 50
    xsh.Screen.Send VbCr
    xsh.Session.Sleep 1000
    xsh.Screen.Send "ssh shbx-app019.a.pa.com"
    xsh.Session.Sleep 50
    xsh.Screen.Send VbCr
    xsh.Session.Sleep 50
    xsh.Screen.Send "cd /data1/logs/java_release/xf-trade-api/logs"
    xsh.Screen.Send VbCr
    xsh.Session.Sleep 50
    xsh.Screen.Send "less catalina.out"
    xsh.Screen.Send VbCr
    xsh.Session.Sleep 200
    set WshShell = CreateObject("WScript.Shell")
    WshShell.SendKeys "+G"
    xsh.Session.Sleep 500
    WshShell.SendKeys "^c"
End Sub