Beiträge von BugFix

Erfasse die Logs mit Delimiter (z.B. "|") in der Form:
DATUM|ABSENDER|EMPFÄNGER|OBJEKT
(wenn die vorhandenen Leerzeichen garantiert nur als Trenner auftauchen, kannst du auch diese verwenden)
Dann kannst du mit StringSplit( ) die Zeile in ein Array auslesen und dann umsortieren.

Fragen zu ListBox?

Guckst du hier: http://autoit.aufwaerts.de/thread.php?postid=5214#post5214

Hi Dustin,
du bist immer etwas geizig mit deinen Angaben. Etwas fiktiv zu erklären ist nicht so toll. Bring doch mal eine Beispielseite (bzw. deren Quellcode), die du ansprechen möchtest (evtl. accountbezogene Angaben einfache x-en).
Mit Beispiel arbeitet sich's viel besser.

Gib doch mal die Adresse der Web-Site an. Dann kann man sich selbst ein Bild machen.

Oder so, schließt auch nach OK-Button.

Eigene Abkürzungen in SciTE

SciTE verfügt über eine Liste von Abkürzungen (zu finden in der Datei "abbrev.properties"), die das Codieren sehr vereinfachen.
Durch Eingabe der Abkürzung + Leertaste wird der hinterlegte Code eingefügt.
In einem vorigen Beitrag hatte ich bereits zur Änderung bestehender Abkürzungen geschrieben. Zu den bestehenden Abkürzungen lassen sich auch ganz einfach eigene hinzufügen.

Die Syntax ist folgende:


Abkürzung=Code
Zeilenumbruch:		\n
Tabulatorschritt:	\t
Cursorposition:		|


Alle Anweisungen müssen innerhalb einer Zeile geschrieben werden.


Um z.B. einen Scriptheader zu erstellen der so aussieht:


#cs ----------------------------------------------------------------------------


 AutoIt Version:	        3.2.1.14 (beta)
 Author:			Dein Name
 Script Function:		hier soll der Cursor stehen


#ce ----------------------------------------------------------------------------


mußt du diese Zeile erstellen:
scriptheader=#cs ----------------------------------------------------------------------------\n\n AutoIt Version:		3.2.1.14 (beta)\n Author:				Dein Name\n Script Function:		|\n\n#ce ----------------------------------------------------------------------------\n

Die Datei "abbrev.properties" kannst du direkt über SciTE -> Optionen -> Abkürzungsdatei öffnen.
Füge einfach die neue Zeile in die Dateie ein (Position ist eigentlich egal - Hauptsache vor der Markierung [#-#-#-#..]) - aber für eine bessere Übersicht macht es vielleicht Sinn, eine eigene Sektion (#; -- Eigene Abkürzungen --) einzufügen.
Damit das Kürzel auch aktiv wird, mußt du es in der "au3.keywords.properties" (SciTE -> Optionen -> Öffnen au3.keywords.properties) eintragen.
Füge das Kürzel an das Ende der Sektion: ".keywords.abbrev=..." an. Hier aufpassen, dass als letztes immer ein Zeilenumbruch in der Datei bleibt - gibt sonst 'nen Fehler.
Ab sofort steht die neue Abkürzung zur Verfügung.

Habs grad mal bei mir getestet, "FileDelete(@DesktopDir & "\blabla.lnk")" funktioniert 100 %.
Mit

MsgBox(0, '', FileDelete(@DesktopDir & "\blabla.lnk"))

kannst du dir gleich den Rückgabewert ausgeben lassen. 1-Erfolg, 0-Pech gehabt.

Wenn es also bei dir nicht funzt, liegt es nicht an Autoit.

$arNoMoveCustom = IniReadSection(@Scriptdir & "\modmove.ini", "NoMoveCustom")
$arNoMove = IniReadSection($INIPfad, "NoMove")

Wenn ich das richtig verstehe, beziehst du dich auf dieselbe INI. Dann verwende besser auch gleichen Code:

$arNoMoveCustom = IniReadSection($INIPfad, "NoMoveCustom")
$arNoMove = IniReadSection($INIPfad, "NoMove")

Und wenn

$AllCustomModFiles = _FileListToArray($QuellPfad, "*.iwd")
; ==
$AllModFiles = _FileListToArray($QuellPfad, "*.iwd")

dann verwende besser nur "$AllModFiles", das ist eindeutig und erspart dir eine Variable.

EDIT:
So, habs mal geändert und vereinfacht:

Nun noch zu deiner "Func _nomovelist()".
Ist

$werteanzahl = IniReadSection($INIPfad, "NoMoveCustom")

nicht dieselbe Sektion derselben INI, wie hier:

$arNoMoveCustom = IniReadSection(@Scriptdir & "\modmove.ini", "NoMoveCustom")

?
Und das Sortieren brauchst du nur einmal ausführen, nicht in einer Schleife. Somit wird die ganze Funktion hinfällig. Du solltest aber angeben, welche Dimension du sortieren möchtest.

So, ich denke das wars erst mal.

Ja, stimmt,. Mit _ArraySort( ) war ich auf dem falschen Dampfer - sorry. Werde wohl doch langsam senil

Das andere schau ich mir nochmal an. Für schnelle Zwischenfragen, wärs nicht schlecht, falls du per Messsenger erreichbar wärst. Falls ja kannst du mich ja anklingeln. Steht alles in meinem Profil

$AllCustomModFiles = _FileListToArray($QuellPfad, "*.iwd")
; identisch mit:
$AllModFiles = _FileListToArray($QuellPfad, "*.iwd")

Ist das Absicht?

For $icustom = 1 To $AllCustomModFiles[0]
For $kcustom = 1 To $arNoMoveCustom[0][0]

Macht den Code etwas unübersichtlich, verwende lieber $i , $k usw. für einfache Zählvariablen.

EDIT:
nochwas entdeckt:

For $i = 1 To $AllModFiles[0]
; nicht markierte Dateien verschieben
If StringRight($AllModFiles[$i], 1) <> "|" OR StringRight($AllCustomModFiles[$icustom], 1) <> "|" Then FileMove($QuellPfad & $AllModFiles[$i], $ZielPfad) AND FileMove($QuellPfad & $AllCustomModFiles[$icustom], $ZielPfad)
Next

geht nicht

ich denke, du meinst sowas:

For $i = 1 To $AllModFiles[0]
; nicht markierte Dateien verschieben
If StringRight($AllModFiles[$i], 1) <> "|" Then
FileMove($QuellPfad & $AllModFiles[$i], $ZielPfad)
ElseIf StringRight($AllCustomModFiles[$icustom], 1) <> "|" Then
FileMove($QuellPfad & $AllCustomModFiles[$icustom], $ZielPfad)
EndIf
Next

IniReadSection gibt ein Array das im Index $array[0][0] die Anzahl der Elemente führt.

Einiges kannst du mit ControlClick( ) oder ControlCommand( ) ausführen. Wie du die Controls ansprichst, erfährst du mit dem Tool: AutoIt Window Info.
Es gibt auch die Möglichkeit mit WinApi zu arbeiten, aber da hab ich wenig Erfahrung mit.
Eine gute Infoquelle ist auf jeden Fall das englische Forum. Die haben schon fast alles mal gemacht.

Guckst du hier:

Zitat aus der Hilfe:

#include <Inet.au3>
$PublicIP = _GetIP()
MsgBox(0, "IP Address", "Your IP Address is: " & $PublicIP)

Bringt dir deine öffentliche IP

Erstelle das kleine Fenster mit Style: $WS_EX_TOPMOST
Aufruf großes Fenster, dann Aufruf kleines Fenster ( GUISetState(@SW_SHOW, $Fensterhandle) ) - nun bleibt das kleine Fenster immer im Vordergrund.

Habe gerade die Ermittlung der Position der TrayBar benötigt und das ganze gleich in eine Funktion gepackt.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Funktion _GetTrayBarPos()
;
; Beschreibung gibt die Position der TrayBar zurück
; 1 = rechts
; 2 = unten
; 3 = links
; 4 = oben
;
; Autor BugFix ( [email='bugfix@autoit.de'][/email] )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Func _GetTrayBarPos()
$TrayBarPos = WinGetPos("", "Notification Area" )
Select
Case $TrayBarPos[0] = -4
If $TrayBarPos[1] = -4 And $TrayBarPos[2] = (@DesktopWidth +8) Then
; Position = "unten"
Return 2
ElseIf $TrayBarPos[1] = -4 And $TrayBarPos[3] = (@DesktopHeight +8) Then
; Position = "rechts"
Return 1
Else
; Position = "oben"
Return 4
EndIf
Case Else
; Position = "links"
Return 3
EndSelect
EndFunc ; ==> _GetTrayBarPos()

Zitat

Wenn sie aber nicht angehakt war, dann hake ich sie damit auch noch an

Ja, das stimmt leider. Momentan sehe ich aber keine Möglichkeit abzufragen, ob die Symbolleiste aktiviert oder deaktiviert ist. Vielleicht geht sowas durch Verwendung der WinAPI. Aber da bin ich nicht firm.

Edit:
Ich habe dir mal eine Möglichkeit mit Ermittlung der Taskbar-Position erstellt. Dann bist du zumindest dabei unabhängig.

Ja Bernd, da hast du natürlich recht.
ich habe noch etwas rumprobiert. Sollte aber die Taskbar unten sein, ist folgende Variante schneller und darüber lässt sich auch die FreeLaunchBar aktivieren.

Dim $x = 0, $y = @DesktopHeight
MouseClick("right", $x, $y, 1, 0)
Send("y") ; Aufruf Menü Symbolleisten
Sleep(100)
Send("c") ; deaktiviert Schnellstart
MouseClick("right", $x, $y, 1, 0)
Send("y") ; Aufruf Menü Symbolleisten
Sleep(100)
Send("f") ; aktiviert FreeLaunchBar

Ideal wäre natürlich, wenn per RunDLL32 auch dieses Menü direkt aufgerufen werden könnte. Hab aber k.P. ob das geht.

Hier eine Lösung, die funktioniert. Leider dauert das Eintragen der Änderung bei Windows recht lang, sodass das Eigenschaftsfenster noch 4-5 Sekunden sichtbar ist.

AutoItSetOption("WinTitleMatchMode", 4)
Dim $x = 0, $y = @DesktopHeight
MouseClick("right", $x, $y, 1, 0) ; Rechtsklick in unterste linke Ecke
Send("i") ; Aufruf Kontextmenü Eigenschaften
WinWaitActive("Eigenschaften von Taskleiste und Startmenü")
ControlClick("Eigenschaften von Taskleiste und Startmenü", "", 1107) ; egal welcher Tab gerade sichtbar, das Control wird direkt angesprochen
Send("{ENTER}") ; dauert etwas

Die Einstellungen für die Taskbar findest du im Registry-Schlüssel: HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Streams\Desktop\

Im Schlüssel "TaskbarWinXP" sind alle Informationen als Binärwert abgelegt. Du kannst also nicht gezielt einzelne Einstellungen verändern, sondern müsstest vorher wissen, wie sich dabei der Binärwert ändert.
Ist also z.B. für unattended installation interessant, dass gleich die Voreinstellungen für die Taskbar wieder installiert werden.

Bleibt also nur der Mausklick in den Taskbareigenschaften zum Deaktivieren der Schnellstartleiste.