Hallo Brauche mal Profie Hilfe
Im script: möchte ich das der name des fensters ( Marcel Siefert NL - Microsoft Word ) selbst bestimmt werden kann
der gewählte name soll fürs ganze scrit gelten ( also alle " Marcel Siefert NL - Microsoft Word" im script.
also so das man es nur einmal am anfang angeben muss.
Des weiteren soll am ende die anzahl Wiederholungen ( Jetzt 12 ) ebenfals bestimmt werden können
über die eingabe in einem text feld.
Kann mir das jemand ein bauen?
Script:
$passwort = InputBox( "login", "passwordt")
If $passwort = "xxxxx" Then
MsgBox( 0, "login", "Richtigt")
Else
if MsgBox ( 0, "login", "VERSAGT") 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