Beiträge von funkey

Das was ich im englischen Forum gefunden habe, gefiel mir nicht so gut, deswegen hab ich eine Funktion geschrieben, die aufgrund der Pid die Fenstertitel ausgibt. Die Fenstertitel, weil ein Prozess mehrere Fenster besitzen kann (explorer.exe, iexplore.exe). Hier der Link Funktion PID2WinTitle

Gibt's zwar sicher schon, aber ich hab's mal neu erfunden, da mir alles was ich gefunden habe nicht gefiel.

Hab da was gefunden:

Ging bei mir einwandfrei, musste es nur zum Testen anpassen

$search = FileFindFirstFile(@ScriptDir & "\Screenshot???.jpg")
If $search = -1 Then
MsgBox(0,"Fehler","Es konnte kein Screenshot gefunden werden!")
Else
While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
$datei = @ScriptDir & "\Progdat\" & "Bild" & ".jpg" ;@scriptdir = j:\Au3 Datei
FileMove ( @ScriptDir & "\" & $file, $datei, 8 )
WEnd
FileClose($search)
MsgBox(0,"",$datei)
EndIf

Bei dir fehlt das Endif am Schluss!

Freut mich Alina, dass es dir gefällt und dass es bei dir funktioniert.

Ich bin mir bewusst, dass das nicht die Non-Plus-Ultra-Lösung ist, ich weiß nicht mal ob es auf W2K oder Vista funktioniert (wegen der festen Klasse [Class:#32770]). Man kann manchmal auch ganz kurz den Originaltext sehen, aber auf alle Fälle ist es die einfachste Lösung!

EDIT: Franz ich habe es jetzt auf mehreren Rechnern getestet, und wirklich, auf einem ging es nicht, keine Ahnung wieso. Aber mit den Variablen und nicht mit der Class (wie Progandy es schon hatte) ging's auch auf dem:

Func _MsgBoxIndividual($flag, $title, $text, $btn_text1, $btn_text2, $btn_text3)
Local $str = "Local $x = Opt('WinWaitDelay',50)+WinWait('[Class:#32770]','')+" & _
"ControlSetText('"&$title&"','"&$text&"','Button1','"&$btn_text1&"')+" & _
"ControlSetText('"&$title&"','"&$text&"','Button2','"&$btn_text2&"')+" & _
"ControlSetText('"&$title&"','"&$text&"','Button3','"&$btn_text3&"')"
Run('"' & @AutoItExe & '" /AutoIt3ExecuteLine "' & $str & '"')
Sleep(100)
Return MsgBox($flag, $title, $text)
EndFunc

Außerdem musste ich bei einem Rechner die Option WinWaitDelay auf 80 stellen, damit es zuverlässig funktioniert, aber auf den meisten geht's auch mit 0.

Es ist schwierig jemandem eine Aufgabe zu geben, aber wie wäre es wenn du uns einen schönen Bilschirmschoner bastelst mit einer GUI wo man ein paar Parameter verstellen kann, natürlich soll er mit dem Schalter den Standard-Schaltern http://www.bcb-box.de/Informationen/SCR/scr.html ausgestatet sein und es soll sich was bewegen, vllt so eine wandernde Polylinie oder ein Schriftzug, der auf der einen Bildschirmseite rauskommt und auf der anderen verschwindet. Und nicht vergessen: Ich habe 2 Bildschirme, ich will auch beide schonen

Ach ja, sorry. Hab den Return vergessen, also einfach so:

$Antwort = _MsgBoxIndividual(34, "Frage", "Gehst du heute mit mir aus?", "Ja", "Nein", "Vielleicht")
MsgBox(0,"",$Antwort)

Func _MsgBoxIndividual($flag, $title, $text, $btn_text1, $btn_text2, $btn_text3)
Local $str = "Local $x = Opt('WinWaitDelay',50)+WinWait('[Class:#32770]','')+" & _
"ControlSetText('[Class:#32770]','','Button1','"&$btn_text1&"')+" & _
"ControlSetText('[Class:#32770]','','Button2','"&$btn_text2&"')+" & _
"ControlSetText('[Class:#32770]','','Button3','"&$btn_text3&"')"
Run('"' & @AutoItExe & '" /AutoIt3ExecuteLine "' & $str & '"')
Sleep(100)
Return MsgBox($flag, $title, $text)
EndFunc

Danke Progandy für deine Verbesserungsvorschlag! Ich kannte den Schalter '/AutoIt3ExecuteLine ' noch nicht. Das ist genau das was mir noch gefehlt hat. Jetzt dürfte das Skript auch auf Computern laufen ,auf dene kein Autoit installiert ist. Ich kenne deine Messagebox, aber ich finde diese Version reicht im Normalfall aus und ist auch ca. 230 Zeilen kürzer.

So werde ich das Skript in Zukunft verwenden, wenn keiner mehr einen Verbesserungsvorschlag hat:

_MsgBoxIndividual(34, "Frage", "Gehst du heute mit mir aus?", "Ja", "Nein", "Vielleicht")

Func _MsgBoxIndividual($flag, $title, $text, $btn_text1, $btn_text2, $btn_text3)
Local $str = "Local $x = Opt('WinWaitDelay',50)+WinWait('[Class:#32770]','')+" & _
"ControlSetText('[Class:#32770]','','Button1','"&$btn_text1&"')+" & _
"ControlSetText('[Class:#32770]','','Button2','"&$btn_text2&"')+" & _
"ControlSetText('[Class:#32770]','','Button3','"&$btn_text3&"')"
Run('"' & @AutoItExe & '" /AutoIt3ExecuteLine "' & $str & '"')
Sleep(100)
MsgBox($flag, $title, $text)
EndFunc

In der Hilfe steht: The object will be destroyed when its parent GUI is destroyed.
Also kannst du es meiner Meinung nach nur verstecken.

$OIE = _IECREATEEMBEDDED()
$GUIACTIVEX = GUICtrlCreateObj($OIE, $FENSTER_X / 2 - $LOGO_X / 2 - 10, $FENSTER_Y / 2 - $LOGO_Y / 2, $LOGO_X + 20, $LOGO_Y + 30)
GUICtrlSetState($GUIACTIVEX, $GUI_HIDE)

Weiß nicht ob ich das richtig verstanden habe, aber ich probier's trotzdem

$Refreshtime = 100000
AdlibEnable("_Refresh", $Refreshtime)
$Start = TimerInit()

While 1
$Diff = StringFormat("%.0f",TimerDiff($Start))
ToolTip($Refreshtime - $Diff)
Sleep(200)
;mach etwas
WEnd

Func _Refresh()
;blablabla
$Start = TimerInit()
EndFunc

Nein geht nicht.

Danke für die Erklärung. Ich habe nur mit _Arraydisplay getestet und die Variablen so nicht ausgewertet. Schon wieder was dazugelernt.

Ich hab mir eine ganz einfache Variante überlegt, wie ich meinen MsgBox-Buttons eine andere Beschriftung zukommen lassen kann. Das ist dabei herausgekommen:

Dank an progandy für den Aufrufparameter /AutoIt3ExecuteLine

Das Problem mit der Pipe ('|') scheint ein Bug von Stringsplit zu sein. Die Umgehung dieses Problems mit Stringreplace wird wohl die beste Lösung dafür sein.

Also bei mir geht's

#Include <Array.au3>
#include "_Array2DEmptyDel.au3"

$String = "asdf asdf2 asdf3 asdf4 asdf5"

$aa = StringSplit($String," ")
_Array2DEmptyDel($aa)
_ArrayDisplay($aa)

Bugfix hat da was

_Array2DEmptyDel

Wieso bei allen Dateien einzeln die Größen adieren, wenn du sowieso die Summe benötigst?

$Speicherbedarf = DriveSpaceTotal($Laufwerk) - DriveSpaceFree($Laufwerk)

Diese Ausgabe ist in MB, also wenn du es in Byte brauchst einfach *1024*1024

Schau dir mal hier [ offen ] Programm.exe in einem AutoIt fenster ausführen den 12. Post an von eukalyptus. Es bettet Controls von einem anderen, versteckten Programm in seine eigene Gui mit ein. Vielleicht geht das auch mit deiner Progressbar.
Sonst kannst du vllt, wenn neben der Progressbar die Prozent stehen, diese auslesen und deinen Balken mittels AdlibEnable aktualisieren.

Zitat

MsgBox(0,"1 Kühlschrank 2 Fach 7 Flasche",$Bier[1][2][7])

Eigentlich sollte es $Bier[0][1][6] heißen, oder?

[OT]
Zillertal Bier ist das Beste
[/OT]

Ich weiß zwar nicht mal was der Befehl macht, aber in englischen Forum (http://www.autoitscript.com/forum/lofivers…php?t71806.html) glaube ich zu erkennen, dass sie das Array nicht so deklariert haben, also ohne die 500:

DIM $Array
_ADGetObjectsInOU($Array,"OU=TESTOU,DC=MeineDomain,DC=local")