Beiträge von Kloppstock

So? Irgendwie passiert nichts

Local $aGeburtstage = IniReadSection("Geburtstage.ini", "Geburtstage")
	Sleep(50)

	While Sleep(500)
   If UBound($aGeburtstage)>0 Then


   EndIf
   WEnd
	For $i = 1 To $aGeburtstage[0][0]
		$aDate = StringSplit($aGeburtstage[$i][1], " ", 3)
		$aTime = $aDate[1]
		$aDate = StringSplit($aDate[0], ".", 3)
		$aTime = StringSplit($aTime, ":", 3)
		If @MDAY = $aDate[0] and @MON = $aDate[1] and @HOUR = $aTime[0] and @MIN = $aTime[1] Then

Wie mache ich das dann?

Sagt das nciht schon die WEnd aller 50 sek?

Ziemliches gewurschtel eines Anfängers mein Script

Die sleep zeiten sind mit Absicht so hoch, da der Pc teilweise echt lahm ist.

#include <IE.au3>
_IEErrorNotify(False)
Global $S_USERNAME = "Kloppstock"
Global $S_PASSWORD = "123"
Global $Address = "http://intranet.de/user/login"






While Sleep(50 * 1000)


	Local $aGeburtstage = IniReadSection("Geburtstage.ini", "Geburtstage")
	For $i = 1 To $aGeburtstage[0][0]
		$aDate = StringSplit($aGeburtstage[$i][1], " ", 3)
		$aTime = $aDate[1]
		$aDate = StringSplit($aDate[0], ".", 3)
		$aTime = StringSplit($aTime, ":", 3)
		If @MDAY = $aDate[0] and @MON = $aDate[1] and @HOUR = $aTime[0] and @MIN = $aTime[1] Then


Do
Local $login = _IECreate ($Address,1,1,1,1)
sleep(10000)
WinActivate("Anmelden")
sleep(10000)
Until IsObj($login)
Local $oUsername = _IEGetObjById($login, "edit-name")
Local $oPassword = _IEGetObjById($login, "edit-pass")
Local $oSubmit = _IEGetObjById($login, "edit-submit")
_IEFormElementSetValue($oUsername, $S_USERNAME)
_IEFormElementSetValue($oPassword, $S_PASSWORD)
_IEAction($oSubmit, "click")
_IELoadWait($login)




Do
Global $TitelSeite = _IECreate ("http://intranet.com/node/add/news#edit-intranet",0,1,0,1)


sleep(8000)
Until IsObj($TitelSeite)
Sleep(10000)


Send("{Enter}")
sleep(800)
Send("Geburtstag:")
sleep(800)
Send("{Space}")
sleep(800)
Send($aGeburtstage[$i][0])


sleep(800)
Send("{TAB}")
sleep(800)
Send("{TAB}")
sleep(800)
Send("Herzlichen Glückwunsch zum Geburtstag"&"{!}")
sleep(800)
Send("{TAB}")
sleep(800)
Send("{TAB}")
sleep(800)
Send("{TAB}")
sleep(800)
Send("{DOWN}")
sleep(800)
Send("{DOWN}")
sleep(800)
Send("{TAB}")
sleep(800)
Send("{TAB}")
sleep(800)
Send("{TAB}")
sleep(800)
Send("{TAB}")
sleep(800)
Send("{TAB}")
sleep(800)
Send("{TAB}")
sleep(800)
Send("{Enter}")
sleep(800)
Send("{TAB}")
sleep(800)
Send("{DOWN}")
sleep(5000)
Send("{TAB}")
sleep(800)
Send("{TAB}")
sleep(800)
Send("{TAB}")
sleep(800)
Send("{TAB}")
sleep(2000)
Send("{TAB}")
sleep(2000)
Send("{TAB}")
sleep(2000)
Send("{Space}")
sleep(2000)
Send("{TAB}")
sleep(2000)
Send("{ENTER}")


Sleep(10000)
Local $logout = _IECreate ("http://intranet.com/user/logout",0,1,0,1)
Sleep(10000)
Local $aPL = ProcessList("iexplore.exe")
For $iCC = 1 To $aPL[0][0]
    ProcessClose($aPL[$iCC][1])
Next
sleep(2000)
Opt("WinTitleMatchMode", 2)
WinActivate("PowerPoint")


		EndIf


	Next
WEnd

Bin mittlerweile fast fertig, aber manchmal (bei jedem 4. Testdurchlauf oder so) bricht er ab und bringt:

"H:\EDV\Geburtstage - Fertig.au3" (13) : ==> Subscript used on non-accessible variable.:
For $i = 1 To $aGeburtstage[0][0]
For $i = 1 To $aGeburtstage^ ERROR

Woran kann das liegen?

Guten Morgen,

habe es mittlerweile fast geschafft :).

Jetzt habe ich aber beim absenden des Geburtstagsgrußes ein Problem.
Es ist ein Button der standardmäßig auf nicht veröffentlichen steht. Danaben ist ein Pfeil um auszuwählen, dass ich den Eintrag veröffentlichen möchte. Wähle ich den Pfeil und wähle "Veröffentlichen" führt er die Atkion direkt durch. Der Button hat aber keine eindeutige ID oder Namen.
Wie kann ich denk ansprechen?

Nicht schön, aber funktioniert:

#include <IE.au3>


$Address = "http://intranet.com/user/login"
Global Const $S_USERNAME = "Kloppstcok"
Global Const $S_PASSWORD = "123456"
Do
Local $oIE = _IECreate ($Address,1,1,1,1)
Until IsObj($oIE)
sleep(2000)
Do
Local $oIE = _IECreate ($Address,1,1,1,1)
Until IsObj($oIE)
$oUsername = _IEGetObjById($oIE, "edit-name")
$oPassword = _IEGetObjById($oIE, "edit-pass") ;<- Nicht sicher ob die ID stimmt
$oSubmit = _IEGetObjById($oIE, "edit-submit")
_IEFormElementSetValue($oUsername, $S_USERNAME)
_IEFormElementSetValue($oPassword, $S_PASSWORD)
_IEAction($oSubmit, "click")
_IELoadWait($oIE)

Also es geht so:

#include <IE.au3>
$Address = "http://intranet.com/user/login"
$pwd="mypassword"
Do
Local $oIE = _IECreate ($Address,1,1,1,1)
Until IsObj($oIE)
Local $oSubmit = _IEGetObjById($oIE, "edit-submit")
_IEAction($oSubmit, "click")
_IELoadWait($oIE)

Es funktioniert aber auhc nur, wenn ich das Script zum zweiten mal starte (also das IE Fenster schon geöffnet wurde). Workaround hat net so funktioniert.

Hm kommt immer noch "$_IESTATUS_InvalidObjectType"

Sieht gut aus, aber noch nicht ganz.
"
(10) : ==> Error in expression.:
Until

Until^ ERROR
"

Irgendwas mache ich falsch:

#include <IE.au3>


$Address = "http://intranet.com/user/login"


Local $oIE = _IECreate ($Address,1,1,1,1)
_IELoadWait($oIE)
Local $oSubmit = _IEGetObjById($oIE, "edit-submit")
_IEAction($oSubmit, "click")
_IELoadWait($oIE)

Fehlermeldung:

Wenn ich schon eine Instanz vom IE offen habe, kommt die Fehlermendung nicht.

Wie schaffe ich es, dass autoit dann auf den link klickt? (siehe roter Kasten im Anhang)
Scheint für mich als noob ieframe zu sein.

Das hat doch was mit "_IEFormElementGetObjByName" zu tun, wobei hier Name "name" ist wie es mir der Quelltext anzeigt oder?

Funktioniert schonmal super.
Vielen Dank für eure Über-Schnelle-Hilfe

Es soll dann mehrere Mausbegwungen (navigieren im Intranet) und halt die Texteingabe machen.
in dem bsp oben muss ich ja alle nutzer definieren, geht das auch, dass er es als iniread macht?

Hallo,

ich möchte gerne ein Script schreiben, dass 00:01 Uhr im Intranet einen Geburtstagsgruß hinterlässt.

While True
    If @MON = 7 And @MDAY = 13 And @HOUR = 0 And @MIN = 1 Then
        MsgBox(64, "", "It's your birthday !")
        ExitLoop
    EndIf
    Sleep(60000) ;jede Minute
WEnd

So wie hier ungefähr.
Habe aber eine Liste mit den Daten. Wie kann ich autoit sagen, dass er in der Liste jeden Tag suchen soll und ggf auch 2 verschiedene Grüße schickt? Außerdem muss er auch den richtigen Namen in der Zeile mit dem entsprechenden Datum sehen.

Vielen dank für die Hilfe

Dank für die schnelle Antwort.
Bekomme einen Fehler:
"\\192.168.0.2\AuftragsNummerClient.au3" (94) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
$str&="<td>"&$ar[$i+$j]&"</td>"
$str&="<td>"&^ ERROR

Also Langzeittest sehr positiv. Keine Probleme gehabt.
Aber ich hätte noch einen Wunsch um Bäume zu schützen.
Was muss ich einstellen, dass mehrere Nummern nebeneinander auf einem Blatt angezeigt werden? Also praktisch nicht nur eine Liste sondern eher eine Tabelle. Dann könnte man einige Blätter sparen.

Hi, ich bräuchte mal wieder ein kleines Tool um mir die Arbeit in meinem Job zu vereinfachen.
Ist eigentlich echt simpel aber bekomme es nicht hin.
Ich will, dass die Maus an Stelle 400,753 klickt, wenn bei 100,100 ein Text erscheint. Erscheint der Text bei 150,123, soll er bei 400,853 drücken. Das kommt genau aller 5 Minuten. Habe es mit Pixelgetcolor probiert, damit erkennt er zumindest gut, wenn da ein Text kommt.
Kommt der Text nochmal in Folge bei 100,100 soll er nocheinmal bei 400,753 drücken. Kommt der Text nochmal bei 100,100 soll er ab dann aber immer doppelt drücken.
Kommt der Text wider bei 150,123 soll die variable wieder auf 0 gesetzt werden.

Hoffe ich habe es nicht zu kompliziert geschrieben .
LG Kloppstock

Funktioniert super!
Ich habe aber "IniWrite($Settings,"General","lastNumber",$aktAufNr)" direkt nach der Ausgabe gesetzt, damit es sofort gespeichert wird und ich die server exe jede Nacht neustarten kann. Wenn ich über den Aufgabenplaner den Prozess beenden lasse, schreibt er nämlich nicht in die ini.
Aber klappt soweit, alles

Vielen Dank besonders an Kanashius

Werde es morgen mal auf arbeit testen. Danke.