Was ist das für eine Programmiersprache?

[Shibosha]

Hallo.

Kenne mich nicht aus.

In was für einer Sprache ist das geschrieben? (gespeichert als Script.xvs)



TNVTPlus (Telnet Terminal Emulation) - FTP Software, Inc. / Sax. Software Corp.

'FTP Software, Inc. - TNVTPlus: Telnet Terminal Emulation Version: 5,0,0,116
'Date: 08-01-2012

'wait for string waitString until waitTil seconds
Function WaitForString(sess, waitString, waitTil)
waitRet = 0
waitRet = sess.WaitUntilString(waitString, waitTil)
If waitRet = 0 Then
'waitString not found, terminate script
Beep
End
End If
End Function

Dim dlg As UserDialog dlg.PWName = ""

' show dialog
Dialog dlg
GetPassword = dlg.PWName
End Function

Sub Main
Const TIME_OUT = 12

'Create all objects and init
Dim Password As String
Dim Session1 As Object
Set Session1 = GetSession

Dim Display1 As Object
Set Display1 = Session1.Display
Dim Keyboard1 As Object
Set Keyboard1 = Session1.Keyboard
Dim Printer1 As Object
Set Printer1 = Session1.Printer
Dim Serial1 As Object
Set Serial1 = Session1.Serial
Dim Telnet1 As Object
Set Telnet1 = Session1.Telnet
Dim VT1 As Object
Set VT1 = Session1.VT
Dim WYSE1 As Object
Set WYSE1 = Session1.WYSE
Dim Xfer1 As Object
Set Xfer1 = Session1.Xfer

BufferKeystrokes(True)
Session1.Sendkeys("BDI")
WaitForString(Session1,"BDI",TIME_OUT)
Session1.Sendkeys("<CR><LF>")
Session1.Sendkeys("Versand")
WaitForString(Session1,"Versand",TIME_OUT)
Session1.Sendkeys("<CR><LF>")
Session1.Sendkeys("ZA052027")
WaitForString(Session1,"ZA052027",TIME_OUT)
Session1.Sendkeys("OP")
WaitForString(Session1,"-Puf",TIME_OUT)
Session1.Sendkeys("OP")
WaitForString(Session1,"-Puf",TIME_OUT)
Session1.Sendkeys("OP")
WaitForString(Session1,"-Puf",TIME_OUT)
Session1.Sendkeys("OP")
WaitForString(Session1,"-Puf",TIME_OUT)
Session1.Sendkeys("OP")
WaitForString(Session1,"end.",TIME_OUT)
Session1.Sendkeys("OP")
WaitForString(Session1,"-Puf",TIME_OUT)
Session1.Sendkeys("OP")
WaitForString(Session1,"end.",TIME_OUT)
Session1.Sendkeys("OP")
WaitForString(Session1,"-Puf",TIME_OUT)
Session1.Sendkeys("OP")
WaitForString(Session1,"-Puf",TIME_OUT)
Session1.SessionModified = False
FlushKeystrokeBuffer
End Sub

 

[DasHörnchen]

Hallo Shibosha,

du hast ja deine Frage auch schon hier gestellt:

Du hast keine Berechtigung, den Link zu sehen, bitte Anmelden oder Registrieren

Warum wartest du nicht einfach ab?

Die von dir gesuchte Sprache ist "VB" bzw. "VBA".

Visual Basic Skript eben.

 

[Shibosha]

Hey woher weißt du, dass ich auf Cosmiq gefragt habe? 😀

Ich stelle meistens immer zusätzlich auf Cosmiq die Frage, da man in Foren oft gar Keine Antwort bekommt...