; Basis mit bestimmbarenwiederholungen und fenstern  pw



; Passwordabfrage

$passwort = InputBox( "login", "passwordt")
If $passwort = "marcel" Then
    MsgBox( 0, "login", "Richtig danken sie Marcel Siefert")

Else

if MsgBox ( 0, "login", "VERSAGT HULDIGE MARCEL SIEFERT UND BETTEL UM VERGEBUNG") Then = $passwort = InputBox( "login", "passwordt")
EndIf

; Ende der abfrage

; bestimmung für wiedrholungen und abfrage

$anzahl = InputBox( "Anzahl", "Hier angeben wie viele Briefe benötigt werden:")
$fenster = InputBox ("bestimmung Fenstername", "Name Ihres Briefes")

Global $Wieoft=0
    Do
WinActivate ( "QWS3270")
WinWaitActive("QWS3270")
Sleep (1000)
send ("01")
Send("{ENTER}")
sleep (1000)
Send("{F7}")
Sleep (1000)

; Namen
send ("{left 74}")
Sleep (1000)
Send ("{up 14}")
Send("{LSHIFT down}")
Send("{RIGHT 30}")
Send("{LSHIFT up}")
Send ("^c")
WinActivate ($fenster)
Send ("^v")
Send ("{Tab}")
Send ("{Tab}")

; Name sollte eingefügt sein

; -------------------------------------------------------------------

; Adresse

WinActivate ( "QWS3270")
WinWaitActive("QWS3270")
Send("{ENTER}")
Sleep (1000)
send ("{left 74}")
Sleep (1000)
Send ("{up 13}")
Send("{LSHIFT down}")
Send("{RIGHT 28}")
Send("{LSHIFT up}")
Send ("^c")
WinActivate ($fenster)
Send ("^v")
Send ("{Tab}")
Send ("{Tab}")

; Adresse sollte eingefügt sein

; ---------------------------------------------------------------------


; Postleitzahl


WinActivate ( "QWS3270")
WinWaitActive("QWS3270")
Send("{ENTER}")
Sleep (1000)
send ("{left 74}")
Sleep (1000)
Send ("{up 11}")
Sleep (1000)
Send ("{RIGHT 22}")
Send("{LSHIFT down}")
Send("{RIGHT 7}")
Send("{LSHIFT up}")
Send ("^c")
WinActivate ($fenster)
Send ("^v")
Send ("{Tab}")

; Plz sollte eingefügt sein

; ---------------------------------------------------------------------

; Ort

WinActivate ( "QWS3270")
WinWaitActive("QWS3270")
Send("{ENTER}")
Sleep (1000)
send ("{left 74}")
Sleep (1000)
Send ("{up 11}")
Sleep (1000)
Send("{LSHIFT down}")
Send("{RIGHT 12}")
Send("{LSHIFT up}")
Send ("^c")
WinActivate ($fenster)
Send ("^v")
Send ("{Tab}")


; Ort sollte eingefügt sein

; ---------------------------------------------------------------------

; Land

WinActivate ( "QWS3270")
WinWaitActive("QWS3270")
Send("{ENTER}")
Sleep (1000)
send ("{left 74}")
Sleep (1000)
Send ("{up 11}")
Sleep (1000)
Send ("{RIGHT 33}")
Send("{LSHIFT down}")
Send("{RIGHT 3}")
Send("{LSHIFT up}")
Send ("^c")
WinActivate ($fenster)
Send ("^v")
Send ("{Tab}")


; Land sollte eingefügt sein

; ---------------------------------------------------------------------

; Trackingnummer

WinActivate ( "QWS3270")
WinWaitActive("QWS3270")
Send("{ENTER}")
Sleep (1000)
send ("{left 74}")
Sleep (1000)
Send ("{up 18}")
Sleep (1000)
Send ("{RIGHT 9}")
Send("{LSHIFT down}")
Send("{RIGHT 19}")
Send("{LSHIFT up}")
Send ("^c")
WinActivate ($fenster)
Send ("^v")
Send ("{Tab}")


; Trackingnummer sollte eingefügt sein

; ---------------------------------------------------------------------

; Empfänger daten

; ---------------------------------------------------------------------

; Empfänger name

WinActivate ( "QWS3270")
WinWaitActive("QWS3270")
Send("{ENTER}")
Sleep (1000)
send ("{left 34}")
Sleep (1000)
Send ("{up 14}")
Sleep (1000)
Send("{LSHIFT down}")
Send("{RIGHT 28}")
Send("{LSHIFT up}")
Send ("^c")
WinActivate ($fenster)
Send ("^v")
Send ("{Tab}")

;Empfängername sollte eingefügt sein

; ---------------------------------------------------------------------

; Empfänger strasse

WinActivate ( "QWS3270")
WinWaitActive("QWS3270")
Send("{ENTER}")
Sleep (1000)
send ("{left 34}")
Sleep (1000)
Send ("{up 13}")
Sleep (1000)
Send("{LSHIFT down}")
Send("{RIGHT 28}")
Send("{LSHIFT up}")
Send ("^c")
WinActivate ($fenster)
Send ("^v")
Send ("{Tab 2}")
Sleep (500)

;Empfängerstrasse sollte eingefügt sein

; ---------------------------------------------------------------------


; Empfänger plz

WinActivate ( "QWS3270")
WinWaitActive("QWS3270")
Send("{ENTER}")
Sleep (1000)
send ("{left 12}")
Sleep (1000)
Send ("{up 11}")
Sleep (1000)
Send("{LSHIFT down}")
Send("{RIGHT 7}")
Send("{LSHIFT up}")
Send ("^c")
WinActivate ($fenster)
Send ("^v")
Send ("{Tab}")


;Empfänger PLZ sollte eingefügt sein

; ---------------------------------------------------------------------

; empf ort

WinActivate ( "QWS3270")
WinWaitActive("QWS3270")
Send("{ENTER}")
Sleep (1000)
send ("{left 34}")
Sleep (1000)
Send ("{up 11}")
Sleep (1000)
Send("{LSHIFT down}")
Send("{RIGHT 15}")
Send("{LSHIFT up}")
Send ("^c")
WinActivate ($fenster)
Send ("^v")
Send ("{Tab}")


; empf ort sollte eingefügt sein

; ---------------------------------------------------------------------


; Empfänger land

WinActivate ( "QWS3270")
WinWaitActive("QWS3270")
Send("{ENTER}")
Sleep (1000)
send ("{left}")
Sleep (1000)
Send ("{up 11}")
Sleep (1000)
Send("{LSHIFT down}")
Send("{RIGHT 3}")
Send("{LSHIFT up}")
Send ("^c")
WinActivate ($fenster)
Send ("^v")
Send ("{Tab}")


; empf land sollte eingefügt sein


; ---------------------------------------------------------------------

; Kundennummer

WinActivate ( "QWS3270")
WinWaitActive("QWS3270")
Send("{ENTER}")
Sleep (1000)
send ("{left 54}")
Sleep (1000)
Send ("{up 15}")
Sleep (1000)
Send("{LSHIFT down}")
Send("{RIGHT 5}")
Send("{LSHIFT up}")
Send ("^c")
WinActivate ($fenster)
Send ("^v")

; Kundennummer sollte eingefügt sein
Send ("{Tab 3}")
Sleep (500)
Send ("{Tab 4}")
Send ("{Enter}")
Sleep (500)
WinActivate ( "QWS3270")
WinWaitActive("QWS3270")
Sleep (500)
Send ("{F2}")
send ("{TAB 4}")
Sleep (500)
Send ( "send letter to sender")
Send ("{Enter}")
Send ("{o}")
Send ("{Enter}")
Send ("{F2}")

    $Wieoft+=1
    Until $Wieoft=$anzahl