SecureCRT-vbs (2)

例1

#$language = "VBScript"

#$interface = "1.0"

crt.Screen.Synchronous = True

' This automatically generated script may need to be
' edited in order to work correctly.

Sub Main
do
    crt.Screen.WaitForString("Download mode ...")
    crt.Screen.Send chr(3)

loop
End Sub

例2

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

crt.Screen.Synchronous = True

' This automatically generated script may need to be
' edited in order to work correctly.

Sub Main
do
    crt.Screen.Send "iwpriv ra0 set ResetCounter=1"&VbCr
    crt.Sleep "1000"
    crt.Screen.Send "iwpriv ra0 stat"&VbCr
    crt.Screen.WaitForString ("Enrollee PinCode(ra1)")
loop
End Sub