hola,
also dies ist vllt nicht ein projekt, was man nacher einfach so auf jeden beliebigen rechner nutzen kann (da auf meinen arbeitsplatz zurechtgeschnitten), aber mit einigen änderungen, oder einfach zum lernen, könnte es den ein oder anderen neuen später auch helfen.
aber im moment brauch ich erstmal wieder eure hilfe. ich bin zwar schon weitergekommen, durch einige hilfe hier im forum, aber es kommt problem nach problem, deswegen wollte ich nicht immer nen neuen thread aufmachen, sondern hier alles zu meinem projekt auffangen und am besten nacheinander besprechen.
ich weiss jetzt schon von mehreren probs die auf mich zukommen. habe mich auch schon mit allen beschäftigt, aber auf vielen partys gleichzeitig tanzen bringt mich nur mehr durcheinander als so schon.
ich hab mein script in billig schon fertig, bin aber dabei es umzuschreiben, da ich viele sachen z.B. durch _IE-Functions ersetzen kann/soll.
leider klappt das aber nicht soooo gut, weil die sachen nicht in der dt. doku stehen, mein engl. echt nicht so prall ist, und ich mich mit html, java usw. auch nur einsteiger taufen kann.
also folgendes soll das script bewirken:
nach eingabe von User/PW wird eine ie-seite geladen, wo user/pw eingegeben werden.
danach läd sich eine neue site, in der verschiedene links geladen werden müssen, die anschließend teilweise gedruckt, bzw alle nach excel exportiert werden sollen.
diese 5 exportdateien werden über ein makro in excel zu 1 file zusammengefasst und per mail verschickt.
ich werde zum einem meinen kompletten alten code hier posten (bissel abgeändert) und auch immer den aktuellen. danach wollte ich dann ein thema nach dem anderen abarbeiten und hoffentlich auf eure hilfe hoffen und das ich euch nicht zu sehr nerve =/
Altes Script
Spoiler anzeigen
run("C:\Program Files\Internet Explorer\IEXPLORE.EXE", "", @SW_MAXIMIZE)
WinWaitActive("Portal")
;Eingabe MARS URL
MouseClick("left", 190, 90)
send("http://*")
send("{enter}")
sleep(1000)
;Passworteingabe (optional mit User und Language)
WinWaitActive("Anmeldung")
send("ichbineinpasswort")
send("{ENTER}")
;Öffne Rollmenü
sleep(6000)
MouseClick("left", 10, 269)
sleep(500)
MouseClick("left", 40, 299)
sleep(500)
MouseClick("left", 70, 315)
;lade Produkte
sleep(500)
MouseClick("left", 170, 362)
;Excel export
sleep(11000)
MouseClick("left", 1240, 188)
sleep(500)
MouseClick("left", 448, 420)
WinWaitActive("Dateidownload")
MouseClick("left", 689, 511)
sleep(500)
send("C:\temp\Produkte.xls")
send("{ENTER}")
WinWaitActive("Speichern unter")
send("j")
WinWaitClose("Dateidownload")
;lade Kunden
MouseClick("left", 170, 380)
;Excel export
sleep(16000)
MouseClick("left", 1240, 188)
sleep(500)
MouseClick("left", 448, 420)
WinWaitActive("Dateidownload")
MouseClick("left", 689, 511)
sleep(500)
send("C:\temp\Kunden.xls")
send("{ENTER}")
WinWaitActive("Speichern unter")
send("j")
WinWaitClose("Dateidownload")
;lade Gebiete
MouseClick("left", 170, 391)
;Excel export
sleep(11000)
MouseClick("left", 1240, 188)
sleep(500)
MouseClick("left", 448, 420)
WinWaitActive("Dateidownload")
MouseClick("left", 689, 511)
sleep(500)
send("C:\temp\Gebiete.xls")
send("{ENTER}")
WinWaitActive("Speichern unter")
send("j")
WinWaitClose("Dateidownload")
;lade Top Kunden
MouseClick("left", 170, 408)
;drucken
sleep(17000)
MouseClick("left", 1157, 191)
sleep(4000)
send("{Space}")
WinWaitActive("Drucken")
send("!e")
WinWaitActive("Druckeinstellungen")
send("!u")
sleep(1000)
send("{enter}")
sleep(1000)
send("!d")
sleep(1000)
WinWaitClose("Drucken")
send("!{F4}")
;Excel export
MouseClick("left", 1240, 188)
sleep(500)
MouseClick("left", 448, 420)
WinWaitActive("Dateidownload")
MouseClick("left", 689, 511)
sleep(500)
send("C:\temp\Top Kunden.xls")
send("{ENTER}")
WinWaitActive("Speichern unter")
send("j")
WinWaitClose("Dateidownload")
;lade Marken
MouseClick("left", 170, 426)
;drucken
sleep(20000)
MouseClick("left", 1157, 191)
sleep(4000)
send("{Space}")
WinWaitActive("Drucken")
send("!e")
WinWaitActive("Druckeinstellungen")
send("!u")
sleep(1000)
send("{enter}")
sleep(1000)
send("!d")
sleep(1000)
WinWaitClose("Drucken")
send("!{F4}")
;Excel export
MouseClick("left", 1240, 188)
sleep(500)
MouseClick("left", 448, 420)
WinWaitActive("Dateidownload")
MouseClick("left", 689, 511)
sleep(500)
send("C:\temp\Marken.xls")
send("{ENTER}")
WinWaitActive("Speichern unter")
send("j")
WinWaitClose("Dateidownload")
;fasse exportiere Daten mit Makro zusammen
#include <date.au3>
;starte Excel
run("C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE", "", @SW_MAXIMIZE)
WinWaitActive("Microsoft Excel")
sleep(4000)
;starte Makro
mouseclick("left", 19, 109)
WinWaitActive("cundus Download Formatting Manager")
MouseClick("left", 435, 653)
MouseClick("left", 830, 658)
;lade Dateien in Makro
send("C:\temp\Gebiete.xls")
send("{Enter}")
sleep(6000)
;speichern der generierten Tabelle
MouseClick("left", 722, 659)
MouseClick("left", 7, 938)
MouseClick("left", 121, 939)
send("!du")
Winwaitactive("Speichern unter")
$Datum = @MDAY & "." & @MON & "." & @YEAR
send("C:\Tagesumsätze ")
send($datum)
send(".xls")
send("!s")
winwaitclose("Speichern unter")
WinClose("Microsoft Excel")
WinWaitNotActive("Microsoft Excel")
;verschicke generierte Tabelle per Mail
;öffne Lotus Notes
WinActivate("Lotus Notes")
WinSetState("Lotus Notes", "", @SW_MAXIMIZE)
sleep(2000)
;öffne Kachel
MouseClick("left", 15, 523)
sleep(4000)
;öffne "neue Mail"
send("!1")
;Eingabe Empfänger
send("ichbineinemailaddi")
send("{Enter}")
send("{Tab}")
send("{Tab}")
send("{Tab}")
;Eingabe Betreff
$Datum = @MDAY & "." & @MON & "." & @YEAR
send("Tagesumsätze " & $datum)
send("{Tab}")
sleep(1000)
;lade Anhang
send("!dh")
send("C:\Tagesumsätze ")
send($datum)
send(".xls")
send("{Enter}")
sleep(1000)
;verschicke Mail
send("!1")
sleep(2000)
;verschiebe Mails aus gesendet in Wochenabschlüsse
MouseClick("left", 105, 232)
sleep(1000)
MouseClickDrag("left", 269, 202, 120, 387)
send("{ESC}")
Neues Script
um Missverständniss auszuschließen, werde ich das neue Script immer erweitern, da ich dort schon jede menge rumgebastelt habe, aber die funktionen noch nicht perfektioniert und/oder getestet habe, da ich jetzt die probs nacheinander abarbeiten will.
Spoiler anzeigen
;Starte neue IE-Instanz
#include <IE.au3>
$sUsername = InputBox("UserID", "Bitte geben Sie Ihre UserID ein", "", "", 10, 10 )
$sPassword = InputBox("Passwort", "Bitte geben Sie Ihr Passwort ein", "", "*", 10, 10)
$sUrl = "http://*"
;öffne
$oIE = _IECreate ($sUrl,0,1,1,0)
$oHWND = _IEPropertyGet($oIE, "hwnd")
WinSetState ($oHWND, "", @SW_MAXIMIZE )
;lese Objecte aus
$oForm = _IEFormGetCollection ($oIE, 0)
$oUsername = _IEFormElementGetObjByName ($oForm, "sap-user")
$oPassword = _IEFormElementGetObjByName ($oForm, "sap-password")
$oSelect = _IEFormElementGetObjByName ($oForm, "sap-language")
;Eingabe User/PW/Language
_IEFormElementSetValue ($oUsername, $sUsername)
_IEFormElementSetValue ($oPassword, $sPassword)
_IEFormElementOptionSelect ($oSelect, "German", 1, "byText")
;Go
_IEFormSubmit ($oForm)
;lade Produkte
_IELoadWait($oIE)
$link = "http://***"
_IENavigate($oIE, $link)
1. Problem dank th.meger gelöst, weiteres schildere ich in neuen post, THX
