$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

Global $Wieoft=0
Do
WinWaitActive("QWS3270")
send ("2")
Send("{ENTER}")
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 ("Marcel Siefert NL - Microsoft Word")
Send ("^v")
Send ("{Tab}")
Send ("{Tab}")

; Name sollte eingefügt sein
;-------------------------------------------------------------------
; Adresse

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 ("Marcel Siefert NL - Microsoft Word")
Send ("^v")
Send ("{Tab}")
Send ("{Tab}")

; Adresse sollte eingefügt sein

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


; Postleitzahl

WinWaitActive("QWS3270")
Send("{ENTER}")
Sleep (1000)
Send ("{left 74}")
Sleep (1000)
Send ("{up 11}")
Sleep (1000)
Send ("{RIGHT 21}")
Send("{LSHIFT down}")
Send("{RIGHT 7}")
Send("{LSHIFT up}")
Send ("^c")
WinActivate ("Marcel Siefert NL - Microsoft Word")
Send ("^v")
Send ("{Tab}")

; Plz sollte eingefügt sein

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

; Ort


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 ("Marcel Siefert NL - Microsoft Word")
Send ("^v")
Send ("{Tab}")


; Ort sollte eingefügt sein

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

; Land

WinWaitActive("QWS3270")
Send("{ENTER}")
Sleep (1000)
send ("{left 74}")
Sleep (1000)
Send ("{up 11}")
Sleep (1000)
Send ("{RIGHT 32}")
Send("{LSHIFT down}")
Send("{RIGHT 7}")
Send("{LSHIFT up}")
Send ("^c")
WinActivate ("Marcel Siefert NL - Microsoft Word")
Send ("^v")
Send ("{Tab}")


; Land sollte eingefügt sein

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

; Trackingnummer


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 ("Marcel Siefert NL - Microsoft Word")
Send ("^v")
Send ("{Tab}")


; Trackingnummer sollte eingefügt sein

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

; Empfänger daten

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


; Empfänger name


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 ("Marcel Siefert NL - Microsoft Word")
Send ("^v")
Send ("{Tab}")
;Empfängername sollte eingefügt sein
; ---------------------------------------------------------------------
; Empfänger strasse
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 ("Marcel Siefert NL - Microsoft Word")
Send ("^v")
Send ("{Tab}")
Send ("{Tab}")
;Empfängerstrasse sollte eingefügt sein
; ---------------------------------------------------------------------
; Empfänger plz
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 ("Marcel Siefert NL - Microsoft Word")
Send ("^v")
Send ("{Tab}")


;Empfänger PLZ sollte eingefügt sein
; ---------------------------------------------------------------------
; empf ort
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 ("Marcel Siefert NL - Microsoft Word")
Send ("^v")
Send ("{Tab}")
; empf ort sollte eingefügt sein
; ---------------------------------------------------------------------
; Empfänger land
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 ("Marcel Siefert NL - Microsoft Word")
Send ("^v")
Send ("{Tab}")
; empf land sollte eingefügt sein
; ---------------------------------------------------------------------
; Kundennummer
WinWaitActive("QWS3270")
Send("{ENTER}")
Sleep (1000)
send ("{left 54}")
Sleep (1000)
Send ("{up 115}")
Sleep (1000)
Send("{LSHIFT down}")
Send("{RIGHT 3}")
Send("{LSHIFT up}")
Send ("^c")
WinActivate ("Marcel Siefert NL - Microsoft Word")
Send ("^v")
Send ("{Tab}")
Send ("{Tab}")
Send ("{Tab}")
Send ("{Tab}")
Send ("{Tab}")
Send ("{Tab}")
Send ("{Tab}")
Send ("{enter}")
    $Wieoft+=1
Until $Wieoft=12