Beiträge von BugFix

Verwende anstelle von:

$test = GUICtrlCreateTreeViewItem($archivename, $archivetree)

ein Array.

$arItem[$i] = GUICtrlCreateTreeViewItem($archivename, $archivetree)

Das Array definierst du vorher mit einer max. Anzahl von Elementen, z.B. Dim $arItem[200], oder du mußt es in der Schleife immer mit ReDim anpassen.

EDIT

Hurra, Beförderung zum Haudegen ==> mein 500. Post

Sicher geht das auch noch kürzer mit Regulären Ausdrücken.
So ist es aber auch ganz praktikabel.

$string = "admin:99:*user:1:*user:2:*user:3:*user:4:*user:5:*"
$arUser = StringSplit($string, "*")
$OutString = ""
For $i = 1 To $arUser[0]-1 ; da auch am Ende des Strings ein Trennzeichen ist, folgt noch ein leerer String - deshalb '-1'
$var = StringTrimRight($arUser[$i], 1) & ")"
$OutString &= StringReplace($var, ":", "(") & @LF
Next
MsgBox(0, '', $OutString)

Also TrayTip hat keinen Rückgabewert. TraySetToolTip gibt zumindest bei Erfolg '1' zurück.
Soweit ich sehen kann, wird aber durch ein Klick auf den Tip kein Ereignis ausgelöst.
Etwas um die Ecke: Du kannst doch ermitteln, in welchem Sektor des Monitors der TrayTip erscheint. Frage ab, ob Übereinstimmung mit Mausposition und Klick ==> dann hast du dein Ereignis.

Holger hat mal ein schönes Tristate-Treeview erstellt. Das häng ich mal an.
Damit hatte ich auch schon mal ein Installationsscript begonnen. Ein bischen farbig gestaltet.

110 x 110 pixel (BildInfo)
oder was willst du wissen?

Keine weiteren Infos mit AutoIt Window Info - Tool ?

- Programmname "xyz.exe" läuft
- Fenster existiert und ist aktiv/inaktiv
- welches Control soll betätigt werden

Zitat

Dürfte ich erfahren, warum du die Übernahme in die Zwischenablage nicht mit der Funktion "GUICtrlCreateContextMenu" realisiert hast. Dann hättest du auch die Probleme mit der Farbe nicht gehabt (ich habe es gerade bei mir ausprobiert).

Ja, du darfst.
1. Weil der Mensch ein Gewohnheitstier und grundsätzlich faul ist.
Ich hatte in einer anderen Anwendung ein ähnliches Kontextmenü bereits verwendet - hab es jetzt nur etwas angepaßt.
2. Das Standard-Kontextmenü kann ich nicht (ohne weiteres) so gestalten, wie mein jetziges (Label mit Farbanzeige, Hintergrundfarbe)

EDIT

Noch eine optische Korrektur. Wenn ihr Gridlines angezeigt haben möchtet, muß die ListView Definition, wie folgt aussehen:

$ListView1 = GUICtrlCreateListView("Farbe|Name|HEX-Code", 0, 40, 420, 642, $LVS_SINGLESEL)
_GUICtrlListViewSetColumnWidth(-1, 0, 135)
_GUICtrlListViewSetColumnWidth(-1, 1, 135)
_GUICtrlListViewSetColumnWidth(-1, 2, 128)
GUICtrlSendMsg($ListView1, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_GRIDLINES, $LVS_EX_GRIDLINES)

Ist aber Geschmackssache.

Ja, danke snoozer.
Das ist der korrekte Weg. Der Teufel steckt,wie üblich, im Detail.

Bitte auch in der Esc-Funktion ergänzen:

Hi,
ich habe
hier meine HEX-Code Tabelle eingestellt.
Dabei besteht noch folgendes Problem:
Die Liste kann in drei verschiedenen Sortierfolgen angezeigt werden. Da kann ich auch beliebig zwischen wechseln - funktioniert.
Wurde aber das Ereignis "$GUI_EVENT_SECONDARYDOWN" ausgewertet (Kontextmenü zum Kopieren) und ich will anschließend erneut eine andere Sortierung wählen, wird zwar die richtige Reihenfolge aufgelistet aber die Befehle für Setzen der Hintergrund- und Fontfarbe der Items werden nicht ausgeführt.

:hm:

EDIT

So, hab nun auch versucht mit "WM_NOTIFY event handler" über SingleClick, DoubleClick oder RightClick auszuwerten.
Es ist völlig Banane, welches Ereignis ich auswerte - hinterher funktioniert die Farbsetzung nicht mehr. :weinen:

EDIT2

Ha, ich habs gefunden.
Ist zwar für mich nicht erklärbar warum es so ist, aber hier liegt der Fehler:

$arItem[$i] = GUICtrlCreateListViewItem( "|" &$arColors[$i][0] & "|0x" & Hex($arColors[$i][1],6), $ListView1)
If $arColors[$i][4] = 1 Then GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1,$arColors[$i][1])

Mit -1 beziehe ich mich auf das zuvor erstellte ListViewItem.
Aber das versagt nach einem Event. Setze ich dafür $arItem[$i] ein, dann funktioniert es!

Hi,
da heute meine Lieblingswebsite mit Farbcodes down war, habe ich mir jetzt selbst eine Tabelle erstellt.
Farbe in der Liste markieren, per Rechtsklick Kontextmenü aufrufen. Es wird dann der String "$farbname = hexcode" in die Zwischenablage kopiert.

EDIT

Ich hab die Tabelle noch etwas umgestaltet, die Farben werden jetzt wahlweise sortiert nach:
- Name
- Sättigung oder
- Helligkeit

Das vereinfacht etwas die Auswahl.

EDIT 14.01.08

Der Code ist jetzt der AutoIt-Version 3.2.10.0 angepaßt.

Edit 10.07.2008
Anpassung an Version 3.2.12.0 erfolgt.

Edit 11.07.2008
Habe Oscars Anregung aufgegriffen (wegen Flackern).
RGB wird mit angezeigt.
Außerdem meinen Farbmixer, den ich in einem anderen Programm hatte, mit integriert. Dieser hat auch einen ColorPicker, heißt hierdrin: Snap Color.

Edit 13.07.2008
Jetzt ist auch ein ordentliches "Zielkreuz" vorhanden um eine Farbe aus irgendeinem Fenster aufzugreifen.

Noch was schönes: Das Script_Center

Sieht aus, wie die AutoIt-Hilfe. Thema anklicken und das fertige (WMI)-Script steht zur Verfügung. Da braucht man nicht erst suchen, was ich denn mit welcher Methode machen kann.

EDIT
Hab noch ein Tool gefunden, vergleichbar mit WMICreator: Scriptomatic 2.0 .
Welches Tool man verwendet ist sicher Geschmackssache, aber lest mal die ReadMe bei Scriptomatic. Ein echter Brüller.

EDIT2
Manchmal kann man sich nur selber prügeln :hammer:
Ich habe grad in Scriptomatic noch eine Sektion für AutoIt eingebunden (funzt auch prima). Die Arbeit hätte ich mir sparen können - Es gibt auch eine AutoIt-Version davon.
Den Link hatte übrigens ytwinky schon mal eingestellt.
Also hier die direkte Umsetzung für und mit AutoIt: AutoIt Script-o-matic von Jon

So gehts, du mußt das Tab neu erstellen:

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUICtrlDelete($Avi1)
GUICtrlDelete($TabSheet2)
$TabSheet2 = GUICtrlCreateTabItem("Tab 2")
$Avi1 = GUICtrlCreateAvi("shell32.dll", 170, 16, 36, 272, 60, BitOR($ACS_TRANSPARENT,$ACS_AUTOPLAY))
EndSwitch
WEnd

Hi,
nach langem Zögern habe ich mich nun doch mal überwunden und mich etwas intensiver mit der Nutzung von Objekten unter AutoIt befasst.
Und ich war angenehm überrascht, wie simpel damit etliche Probleme zu lösen sind. Der große Vorteil auch für alle jene, die bisher recht wenig mit Objekten-Klassen-Methoden am Hut haben: MS bietet mit dem Gratistool "WMI Code Generator" eine top Unterstützung. Man kann damit den WMI-Code generieren und dann fast 1:1 in AutoIt umsetzen.

Mal ein Bsp., Überwachen ob "Notepad.exe" gestartet wird und dann eine Meldung ausgeben:

WMI Code

strComputer = "."
Set objSWbemServices = GetObject("winmgmts:" & _
    "{impersonationLevel=impersonate}!" & _
    "\\" & strComputer & "\root\cimv2")


Set objEventSource = objSWbemServices.ExecNotificationQuery( _
    "SELECT * FROM __InstanceCreationEvent " & _
    "WITHIN 10 " & _
    "WHERE TargetInstance " & _
    "ISA 'Win32_Process' " & _
    "AND TargetInstance.Name = 'notepad.exe'")


Set objEventObject = objEventSource.NextEvent()
Wscript.Echo "Notepad.exe wurde soeben gestartet."

und dasselbe in AutoIt

$strComputer = "."
$objSWbemServices = ObjGet("winmgmts:" & _
"{impersonationLevel=impersonate}!" & _
"\\" & $strComputer & "\root\cimv2")
$objEventSource = $objSWbemServices.ExecNotificationQuery( _
"SELECT * FROM __InstanceCreationEvent " & _
"WITHIN 10 " & _
"WHERE TargetInstance " & _
"ISA 'Win32_Process' " & _
"AND TargetInstance.Name = 'Notepad.exe'")
$objEventObject = $objEventSource.NextEvent()
MsgBox(0, '', "Notepad wurde soeben gestartet.")

Der WMICodeCreator listet alle auf dem PC zu findenden Klassen auf, mit den zur Verfügung stehenden Eigenschaften. Ein Mausklick und der Code ist generiert. Und mit wenigen Änderungen ist er dann in AutoIt verfügbar.

Der Vorteil, den ich hier sehe ist, dass man somit wesentlich tiefer in die Systemereignisse "eintauchen" kann bzw. einige Aufgaben sich einfacher lösen lassen als mit anderen AutoIt-Mitteln.
Ich bin mal so frei und häng den WMICodeCreator mit an - das erspart euch den GenuineCheck.
Übrigens - das Proggi bedarf keiner Installation. Entpacken und ausführen.

Dann löse es mit Shell-Object:

$oShell = ObjCreate("shell.application") ; Explorer als Shell-Object
$oShellWindows = $oShell.windows ; Auflistung aller offenen Shell-Windows

If Isobj($oShellWindows) Then
$string = ""
For $Window In $oShellWindows
$String &= $Window.LocationName & @CRLF
Next
Msgbox(0,"Shell Windows","Es existieren folgende Explorer-Fenster:" & @CRLF & @CRLF & $String)
Endif
Exit

Hallo,
ich möchte für ein Editcontrol ein eigenes Kontextmenü erstellen - soweit auch kein Problem.
Leider hat das Editcontrol standardmäßig ein Kontextmenü:
[Blockierte Grafik: http://img-up.net/img/EditKontex-gPq.PNG]

Weiß jemand, wie ich das deaktivieren kann?

EDIT

OK, geht leider nicht. *traurig-bin*

WinGetClassList ( "title" [, "text"] )

Nutze doch das Flag STDOUT der Funktion Run und lies die Rückgabewerte mit StdoutRead() aus.
Bsp. ungetestet

Geht doch problemlos, ohne dass das Label beim Erstellen sichtbar wird:

Func _LabelCreate()
$label = GUICtrlCreateLabel("LABEL", 100, 100)
GUICtrlSetState(-1,$GUI_HIDE)
EndFunc

Falls du das sehen kannst bist du Supermann.

Und seit wann ist es unsaubere Programmierung, wenn ich ein Control erstelle und im nächste Schritt dessen Eigenschaften definiere ?
Dieser Logik kann ich nicht folgen.

Wenn du deine GUI definierst kannst du doch sofort nach der Ctrl-Erstellung den Status setzen:

GUICreate()
GuiCtrlCreate....
GUICtrlSetState(-1, $GUI_HIDE)

Edit Schon wieder wer schneller :weinen:

Hier mal ein einfaches Beispiel. Voraussetzung ist, dass hier das Array1 die fixen Werte enthält und die variablen Werte im Array2 sind.