# $language = "VBScript"
# $interface = "1.0"

' Example script that starts SecureNetTerm, connects to the active profile,
' then waits for a $ prompt.  When it is received, its sends the command "mc"
' which starts the Unix Midnight Commander program.  It thens sends an F10
' via the QuickButton command.  Note that the value required for F10 will depend
' upon the emulation type. 

' This assumes an SSH style connection in which no userid or password is 
' required to be entered on the command line.

Sub Main()
 snt.WindowState = 1 'Normal (SW_SHOW)
If snt.Connect("Active") <> TRUE Then
     Exit Sub
End If
If snt.WaitForString("$",15) <> TRUE Then
     Exit Sub
End if
snt.Send "mc" + Chr(10)
snt.QuickButton "^[[21~"
End Sub