Beiträge von monkey

monkey

so geht das wohl^^

[autoit]

run("notepad")
WinWait("Unbenannt - Editor")
WinSetState("Unbenannt - Editor", "", @SW_MINIMIZE)
ControlSend("Unbenannt - Editor", "", "[Class:Edit]", "This is a line of text in the notepad window")

[/autoit]

€: du startest das Programm ja auch maximiert^^

[autoit]

run("notepad", "", @SW_MAXIMIZE)

[/autoit]

monkey

versuchs mal mit shellexecute und dann setz den parameter workingdir auf den pfad der .exe die du aufführen möchtest

[autoit]

ShellExecute ( "filename" [, "parameters" [, "workingdir" [, "verb" [, showflag]]]] )

[/autoit]

monkey

Bekommt man das auch für Autoit hin... ich hab in der liste nur basic gefunden .... autoit is zwar basic ähnlich aber ich glaube nich das das reicht^^

monkey

Ich habe das gerade getestet...
hab das fenster minimiert..und wollte danach das fenster wiederherstellen aber dann würde mein Miranda Fenster minimiert...mit deiner Fade-animation(Sehr schick btw)

monkey

Ich denke mal dein Sleep is zu hoch jetzt überürft er nur jede 0,25 sekunden deine tastatur eingaben...

Versuch es mal so oder lass die sleep ganz raus... falls es die CPU nich zu sehr belastet

[autoit]

#include <Misc.au3>

[/autoit][autoit][/autoit][autoit]

$dll = DllOpen("user32.dll")

[/autoit][autoit][/autoit][autoit]

While 1
Sleep ( 10 )
If _IsPressed("23", $dll) Then
MsgBox(0,"_IsPressed", "End Key Pressed")
ExitLoop
EndIf
WEnd
DllClose($dll)

[/autoit]

monkey

Benutzer herrausfinden kannst du mit dem Macro @UserName

monkey

Ich habe eine frage zu den Funktionen.

ich würde gerne ein Funktion verlassen wenn ein Wert zu klein ist.

Beispiel:

[autoit]

Func Test($zahl)
if $zahl < 100 then
;Funktion verlassen
endif
msgbox(0, "Zahl", "Zahl ist grösser als 100")
endfunc

[/autoit]

Ich habs schon mit Exitloop versucht aber Funktionen werdn nich als schlefen angesehen.

monkey

Ich hab da ein Kleines Problem mit dem Internet Explorer ... Ich hwollte ein paar Funktionen schreiben zum beispiel zum wechseln der Seiten oder zu Einloggen bei E-Mail Seiten Nur das aufrufen der Funktionen klappt nicht.

Hier mal ein Beispiel

Spoiler anzeigen

[autoit]

#include <IE.au3>

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

IE_1()
IE_3()
IE_2()

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

func IE_1()
$oIE = _IECreate ("www.autoitscript.com")
EndFunc

[/autoit] [autoit][/autoit] [autoit]

func IE_2()
_IENavigate ($oIE, "http://www.autoitscript.com/forum/index.php?")
EndFunc

[/autoit] [autoit][/autoit] [autoit]

func IE_3()
_IENavigate ($oIE, "http://www.autoitscript.com/forum/index.php?showforum=9")
EndFunc

[/autoit]

Ich habs auch schon so probiert aber das klappt auch nicht

[autoit]

Global $oIE = _IECreate ("www.autoitscript.com")

[/autoit]

monkey

Wenn der rest des Fensters gleich ist könnte man en ja mal mit pixelchecksum versuchen

monkey

Vieleicht hilft dir das ja weiter?

http://www.autoitscript.com/forum/index.php?showtopic=7112

monkey

Ich m hab da mal was ausm Forum rausgesucht en alter Thread von mir^^

https://autoit.de/index.php?page=Thread&threadID=4428

monkey

Das wichtigste ist eigentlich das der Parameter "Flag" in der Msgbox Funktion auf 4 steht damit stelt man ein das die Ja Nein Buttons erscheinen.

Und dann kann man mit einer If Abfrage überprüfen welcher Button gedrückt wurde, wenn Ja gedrückt wurde dann gibt die Funktion 6 zurück und wenn Nein edrückt wurde dann wird 7 ausgegeben.

Edit:
Hab letztens erst so en script geschrieben.
http://monkey666.mo.funpic.de/Autoit/Shutdow…own%20timer.au3

monkey

Bei mir funktioniert Beep aber auch nich obwohl in den Speaker auf dem Mainboard habe...

monkey

Ich hab mein Problem fast gelöst...

ich hab nur noch den Fehler das wenn er den Bildschirmschoner zum 2.mal startet das er die GUI öffnet und dann wieder schließt

Spoiler anzeigen

[autoit]

$gui=GUICreate("Bildschirmschoner", @DesktopWidth, @DesktopHeight, -1, -1)
$pic=GUICtrlCreatePic("1.jpg", 0, 0, @DesktopWidth, @DesktopHeight)
$t=0

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

while 1
GUIGetMsg()
while $t=0
$timer= TimerInit()
$pos1=MouseGetPos()
Do
$pos_check=MouseGetPos()
if $pos_check[0] <> $pos1[0] or $pos_check[0] <>$pos1[0] Then ExitLoop
if TimerDiff($timer)>4900 then $t=1
Until TimerDiff($timer)>5000
WEnd

while 1
for $i=1 to 5
GUISetState(@SW_SHOW, $gui)
GUICtrlSetImage($pic, $i&".jpg")
$timer2=TimerInit()
Do
$pos=MouseGetPos()
if $pos[0] <>$pos1[0] or $pos[1] <> $pos1[1] Then
GUISetState(@sw_hide, $gui)
$t=0
ExitLoop(3)
EndIf
until TimerDiff($timer2)>5000
Next
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

WEnd

[/autoit]

monkey

Och joa^^ Eltern nich so oft aber Großeltern hehe xD (Die sind beide auch schon über 85)

monkey

dann setz ich hier doch auch mal noch einen rein :-p

Spoiler anzeigen

[Blockierte Grafik: http://monkey666.mo.funpic.de/Pics/Foto-0012.jpg]

monkey

Ich hab mir selber mal sowas geschrieben...

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

#include<Funktionen.au3>

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$gui = GUICreate("TestPfeil", 450, 450, @DesktopWidth / 2 - 225, @DesktopHeight / 2 - 225)
$01 = GUICtrlCreateCheckbox("Firefox", 25, 25)
$02 = GUICtrlCreateCheckbox("Autoit", 25, 45)
$03 = GUICtrlCreateCheckbox("Scite Editor", 25, 65)
$04 = GUICtrlCreateCheckbox("ICQ 6.0", 25, 85)
$05 = GUICtrlCreateCheckbox("Teamspeak", 25, 105)
$06 = GUICtrlCreateCheckbox("Xfire", 25, 125)
$07 = GUICtrlCreateCheckbox("WinRar", 25, 145)
$08 = GUICtrlCreateCheckbox("7Zip", 25, 165)
$09 = GUICtrlCreateCheckbox("VLC Player", 25, 185)
$10 = GUICtrlCreateCheckbox("Xchat", 25, 205)
$11 = GUICtrlCreateCheckbox("Thunderbird", 25, 225)

[/autoit] [autoit][/autoit] [autoit]

$pfad = GUICtrlCreateInput("", 25, 275, 225)

[/autoit] [autoit][/autoit] [autoit]

$B_install = GUICtrlCreateButton("Installieren", 75, 350, 75, 50)
$B_abort = GUICtrlCreateButton("Abbrechen", 300, 350, 75, 50)
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
If $msg = $B_install Then
$path = GUICtrlRead($pfad)
If $path = "" Then
$path = "C:\Programme\"
EndIf

If GUICtrlRead($01) = 1 Then
Call("firefox", $path)
EndIf

If GUICtrlRead($02) = 1 Then
call("Autoit", $path)
EndIf

If GUICtrlRead($03) = 1 Then
Call("Scite", $path)
EndIf

If GUICtrlRead($04) = 1 Then
Call("icq", $path)
EndIf

If GUICtrlRead($05) = 1 Then
Call("teamspeak", $path)
EndIf

If GUICtrlRead($06) = 1 Then
Call("xfire", $path)
EndIf

If GUICtrlRead($07) = 1 Then
Call("winrar", $path)
EndIf

If GUICtrlRead($08) = 1 Then
Call("_7zip", $path)
EndIf

If GUICtrlRead($09) = 1 Then
Call("vlc", $path)
EndIf

If GUICtrlRead($10) = 1 Then
;Call("xchat", $path)
EndIf

If GUICtrlRead($11) = 1 Then
Call("thunderbird", $path)
EndIf
ElseIf $msg = $B_abort Then
ExitLoop
ElseIf $msg = $GUI_EVENT_CLOSE Then
ExitLoop
EndIf
WEnd

[/autoit]

Die ganzen Funktionen für die Installationen hab ich in ner extra .au3 File und rufe in dem Script nur die Funktionen auf. z.B sieht die Funktion für den Firefox so aus:

[autoit]

func firefox($Path="C:\Programme")
run(@ScriptDir&"\Installer\Firefox_Setup_2.0.0.12de.exe")
sleep(100)
winwait("Mozilla Firefox-Installation")
controlclick("Mozilla Firefox-Installation", "", 1)
ControlSend("Mozilla Firefox-Installation", "","", "!a")
controlclick("Mozilla Firefox-Installation", "", 1)
controlclick("Mozilla Firefox-Installation", "", 1202)
controlclick("Mozilla Firefox-Installation", "", 1)
controlclick("Mozilla Firefox-Installation", "", 1)
ControlSend("Mozilla Firefox-Installation", "", 1019, $Path&"\Firefox")
controlclick("Mozilla Firefox-Installation", "", 1)
controlcommand("Mozilla Firefox-Installation", "", 1203, "Uncheck")
controlclick("Mozilla Firefox-Installation", "", 1)
controlclick("Mozilla Firefox-Installation", "", 1)
winwait("Mozilla Firefox-Installation", "Klicken Sie auf Fertig stellen, um den Installations-Assistenten zu schließen.")
controlclick("Mozilla Firefox-Installation", "", 1203)
controlclick("Mozilla Firefox-Installation", "", 1)
EndFunc

[/autoit]

In das InputFelpd kann man nen Alternativen Installations-Pfad angeben.

Ich hoffe ich konnte Helfen...

monkey

Das mit dem Bilder wechsel hab ich jetzt auch umgeändert aber ich habe momentan noch das Problem das wenn ich die Maus bewege das ich nicht weiss wie ich den Timer neustarten soll.

Spoiler anzeigen

[autoit]

$gui=GUICreate("Bildschirmschoner", @DesktopWidth, @DesktopHeight, -1, -1)
$pic=GUICtrlCreatePic("1.jpg", 0, 0, @DesktopWidth, @DesktopHeight)
GUISetState()

[/autoit] [autoit][/autoit] [autoit]

$timer=TimerInit()

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

while 1
GUIGetMsg()
$pos1=MouseGetPos()

if TimerDiff ($timer)>5000 Then
GUISetState(@SW_SHOW, $gui)

while 1
for $i=1 to 5
GUICtrlSetImage($pic, $i&".jpg")
$timer2=TimerInit()
Do
$pos=MouseGetPos()
if $pos[0] <>0 or $pos[1] <> 0 Then
ExitLoop(4)
GUISetState(@SW_HIDE, $gui)
EndIf
until TimerDiff($timer2)>5000
Next
WEnd
EndIf
WEnd

[/autoit]

Leider is das script nur auf die positionen 0, 0 bezogen....

Vieleicht weiss einer von euch wie ich den Timer neustarten kann...würde mich sehr freuen.

monkey

Entschuldigung aber ich hab immer noch Probleme mit dem Script ..
1. er zeigt die Bilder erst an wenn ich z.b nach 10 Sek. die maus bewege
2. wenn er die gui anzeigt dann zeigt er immer nur einbild an und wechselt nicht
3. normalerweise sollte er die gui verstecken wenn die maus wieder bewegt wurde... tut er aber nicht...

Spoiler anzeigen

[autoit]

$gui=GUICreate("Bildschirmschoner", @DesktopWidth, @DesktopHeight, -1, -1)
GUISetState()
$timer=TimerInit()
while 1
GUIGetMsg()

$timerdiff=TimerDiff($timer)
$pos=MouseGetPos()
while 1
$pos2=MouseGetPos()
if $pos2[0] <> $pos[0]Then
ExitLoop
EndIf
if $timerdiff>10000 Then
GUISetState(@sw_show, $gui)
for $i=1 to 5
$pic=GUICtrlCreatePic($i&".jpg", -1, -1, @DesktopWidth, @DesktopHeight)
while 1

$timer2=TimerInit()
$pos3=mousegetpos()
$timer2diif=TimerDiff($timer2)
if $pos3[0]<> $pos Then
ExitLoop(2)
ElseIf $timer2diif>5000 Then
GUICtrlDelete($pic)
ExitLoop(2)
EndIf
WEnd
Next
EndIf
WEnd
WEnd

[/autoit]

ich denke die probleme fangen schon in zeile 3 an weil er da ja den timer startet aber wenn der Bildschirmschoner deaktiviert wird dann läuft der timer ja weiter

danke im vorraus

monkey

Hi,

ich wollte mir selber einen Bildschirmschoner schreiben der alle 5 Sekunden das Bild wechselt aber irgendwie zeigt er mir die Gui nicht an.

Spoiler anzeigen

[autoit]

$gui=GUICreate("Bildschirmschoner", @DesktopWidth, @DesktopHeight, -1, -1)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

while 1
GUIGetMsg()
$timer=TimerInit()
$timerdiff=TimerDiff($timer)
$pos=MouseGetPos()
while 1
$pos2=MouseGetPos()
if $pos2[0] <> $pos[0]Then
ExitLoop
EndIf
if $timerdiff>10000 Then
GUISetState(@sw_show, $gui)
for $i=1 to 5
$pic=GUICtrlCreatePic($i&".jpg", -1, -1, @DesktopWidth, @DesktopHeight)
while 1

$timer2=TimerInit()
$pos3=mousegetpos()
$timer2diif=TimerDiff($timer2)
if $pos3[0]<> $pos Then
ExitLoop
ElseIf $timer2diif>5000 Then
GUICtrlDelete($pic)
ExitLoop
EndIf
WEnd
Next
EndIf
WEnd
WEnd

[/autoit]

Aber ich finde meine Fehler gerade nich und wäre schon glücklich wenigstens mein Ansatz richtig is^^

Ich hoffe ihr seir nicht so blind wie ich^^

Beiträge von monkey

Hilfe beim Senden in minimiertes Fenster [alle Versuche fehlgeschlagen]

Exe Starten (problem)

Gobby - Dateien gemeinsam bearbeiten

Bildschirmfotos speichern

Random Zufällige Kombination aus Zahlen

anfänger fragen und Ordner umbenennen

Funktion beenden.

IE Funktionen

Text lesen lassen und einbinden

ControlClick/Send ohne ID?

DLL Hilfe

Script, Auschalten

Beep

Bildschirmschoner

Userpics von euch :)

Userpics von euch :)

help pls script geht viel zu oft auf :(

Bildschirmschoner

Bildschirmschoner

Bildschirmschoner