Beiträge von hipfzwirgel

Hallo Zusammen,

bitte entschuldigt die späte Rückmeldung und vielen lieben Dank für eure Denkanstöße und Mühen.

Ich werde den Vorschlag von Schnuffel und Solve Smart morgen mal testen.

@ water: das hatte ich auf Vorschlag von ChatGpt auch versucht aber leider nicht hinbekommen. I-wie wurde entweder der Ballontip nicht angezeigt oder an falscher Stelle.

Hallo Gemeinde,

ist es möglich, einen BallonTooltipp unmittelbar nach dem Start einer Gui, an einer bestimmten Stelle für 10 Sekunden anzeigen zu lassen?

Beispielcode:

#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>
#include <ListBoxConstants.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>

Example()

Func Example()
	Local $sMESSAGE = "||"

	GUICreate("My GUI list") ; will create a dialog box that when displayed is centered

	Local $idMylist = GUICtrlCreateList("", 64, 32, 121, 97, BitOR($WS_VSCROLL, $LBS_USETABSTOPS))
	GUICtrlSetLimit(-1, 200) ; to limit horizontal scrolling
	GUICtrlSetData(-1, "||")
	GUICtrlSetData(-1, "1. Item")
	Local $idButton_Close = GUICtrlCreateButton("my closing button", 64, 160, 175, 25)

	GUISetState(@SW_SHOW)

	; Loop until the user exits.
	While 1
		Switch GUIGetMsg()
			Case $GUI_EVENT_CLOSE
				ExitLoop
			Case $idButton_Close
				MsgBox($MB_SYSTEMMODAL, "", "the closing button has been clicked", 2)
				Exit
		EndSwitch
	WEnd
EndFunc   ;==>Example

Der Beispielcode zeigt eine Gui mit einer Listbox an, welche zwei Einträge hat.
Ich möchte, dass wenn die Gui gestartet wird, der BallontoolTip direkt angezeigt wird und auf den zweiten Eintrag (hier: 1. Item) zeigt, für
10 Sekunden.

; ich habe es mit:

ToolTip("Beispieltext", x, n, "INFO", 1, 1)
Sleep(10000)
ToolTip("")

; versucht. Leider sind die Koordinaten x und n aber immer auf den Desktop bezogen und nicht auf das Control, bzw. die Stelle
wo ich den Tip gerne hätte. Gerade auch wenn die GUI an anderer Stelle erscheint.

Hallo Aspirinjunkie,

werde ich gleich testen. By the way: mein Pattern funktioniert doch! Ich hatte nur vergessen, die Schleife die durch das Array geht, an der Fundstelle zu beenden.
So ist sie komplett durch und hat den Status des letzten Index ausgegeben. # vordenKopfhau # man wie doof....

Damit ist der Thread erledigt Achja: vielen herzlichen Dank für deine Unterstützung

Hallo Aspirinjunkie,

zunächst vielen lieben Dank für deinen Beitrag. Aber so ganz stimmt deine Auslegung nicht.

Erklärung:

Ist die Bios-Option nicht aktiv, dann ist der Wert: MinimumPasswordLength, Disable.
Wenn er aber aktiviert ist, dann ist der Wert: MinimumPasswordLength,n (Wobei n eine voreingestellt Zahl größer als 4 sein kann).

Um also herauszufinden ob die Option gesetzt ist, muss ich eben nach dem Wert MinimumPasswordLength,n suchen!
Des Pudels Kern ist, dass wenn ich nach MinimumPasswordLength,4 per Arraysearch suche(sofern 4 eingestellt ist!), wird der Index gefunden.
Mit dem Pattern von StrgRegExp aber nicht.

Kann es sein, dass ich damit a) im Array gar nicht suchen kann, oder b) ob nur Strings gefunden werden und der Eintrag im Index gar kein String ist?

Hallo Gemeinde,

ich versuche die nachfolgende Bios-Option mittels StringRegExp zu finden:

# 34|Active: True - CurrentSetting: MinimumPasswordLength,4

Es ist das Ergebnis aus _DebugArrayDisplay($aBiosArray).

Local $wbemFlagReturnImmediately = 0x10
	Local $wbemFlagForwardOnly = 0x20
	Local $colItems = ""
	Local $strComputer = "localhost"
	Local $aBiosArray[1]
	Local $sindex2 = ""
	Local $pattern = ".*MinimumPasswordLength\s*,\s*[1-9][0-9]*.*"
	
	$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\WMI")
	$colItems = $objWMIService.ExecQuery("SELECT * FROM Lenovo_BiosSetting", "WQL", _
			$wbemFlagReturnImmediately + $wbemFlagForwardOnly)
	If IsObj($colItems) Then
		For $objItem In $colItems
			ReDim $aBiosArray[UBound($aBiosArray) + 1]
			$aBiosArray[UBound($aBiosArray) - 1] = "Active: " & $objItem.Active & " - CurrentSetting: " & $objItem.CurrentSetting
			; If MsgBox(1, "WMI-Ausgabe", $Output) = 2 Then ExitLoop
			; $Output = ""
		Next
		_DebugArrayDisplay($aBiosArray)
	Else
		MsgBox(0, "WMI-Ausgabe", "Keine WMI-Objekte gefunden für Klasse: " & "Lenovo_BiosSetting")
	EndIf

	For $i = 0 To UBound($aBiosArray) - 1
		If StringRegExp($aBiosArray[$i], $pattern) Then
			MsgBox(0, "Gefunden", "Passende Zeichenkette für " & $pattern & " gefunden!" & " - " & @error & " - " & $aBiosArray[$i])
		Else
			MsgBox(0, "Nicht gefunden", "Kein passendes Muster für " & $pattern & " gefunden." & " - " & @error)
			ExitLoop
		EndIf
	Next

Das sich die Zahl hinter MinimumPasswordLength aber durchaus eine andere sein kann, wollte ich mit "$pattern" und StringRegExp nach dem Eintrag suchen.
Leider wird aber der String nicht gefunden.
Suche ich mit <$sindex2 = _ArraySearch($aBiosArray, "MinimumPasswordLength,4", 0, 0, 0, 1) ; Zahl 1 = Teilsuche > wird der Index 34 ausgegeben.

Hat jemand eine Idee warum StringRegExp den String nicht findet?

ohhhh Mann, wer lesen kann ist klar im Vorteil.

Die Lösung: $shVar = _ExtMsgBox(128, "READY", "Cursorsetting!", "set the cursor now...", "", $x, $y, False)

Zitat: ...$bMain -> True (default) = Adjust dialog position to ensure dialog positioned on main screen
                                     False = Dialog positioned at user-defined coords, which can be on other screens...

Hallo Gemeinde,

ich benutze öfters die ExtMsgBox mit der gleichnamigen UDF.
Wie erreiche ich, das die ExtMsgBox immer dort angezeigt wird, wo auch das Hauptprogramm läuft.

_ExtMsgBoxSet(8, 1, 0xFFFFAB, Default, 14, "Bosch Sans Bold") ; Definiert aussehen der EXTMSGBOX => siehe auch _ExtMsgBox_Edit.au3

; Beispiel-Aufruf der Ext MsgBox im Programm:

$shVar = _ExtMsgBox(128, "READY", "Cursorsetting!", "set the cursor now...", "", $x, $y) ; für x und y wurden die Werte vom Hauptproggi berechnet, gehen aber nicht
If $shVar = 1 Then																		 ; die ExtMsgBox geht immer auf dem Hauptmonitor auf
	Pictinsert()
Else
	MsgBox(0, "Error", "Cursor is not at the right position. Program is terminating in 5 sec...", 5)
	Exit
EndIf

Hallo Kanashius,

vielen lieben Dank für deinen Denkanstoß...

FEHLER GEFUNDEN:

Die Abfrage geht durch alle im Namespace aufgeführten Netzwerkadapter durch und der letzte Adapter ist eben KEIN WWAN-Modul.
Daher ergibt die If in letzter iteration immer false = else = "WWAN No"

Lösung(Exitloop):

If $objItem.InterfaceType = 243 Then ; InterfaceType 243 ist für WWAN-Adapter
				
				Local $s_OutputWWAN = "WWAN Yes"
				Exitloop
			Else

				Local $s_OutputWWAN = "WWAN No"

			EndIf

Hallo Bugfix,

hatte ich schon weil ich vermutete. dass die If den Datentyp nicht erkennt. Leider erfolglos.

Hallo Gemeinde,

mit der nachfolgenden Funktion versuche ich auszulesen ob ein WWAN-Modul verbaut ist oder nicht:

Func _CI_GetNetwork()

	$wbemFlagReturnImmediately = 0x10
	$wbemFlagForwardOnly = 0x20
	$colItems = ""
	$strComputer = "localhost"

	$objWMIService = ObjGet("winmgmts:\\.\root\StandardCimv2")
	Local $colItems = $objWMIService.ExecQuery("SELECT * FROM MSFT_NetAdapter")

	If IsObj($colItems) Then
		For $objItem In $colItems

			If $objItem.InterfaceType = 243 Then ; InterfaceType 243 ist für WWAN-Adapter
				
				Local $s_OutputWWAN = "WWAN Yes"

			Else

				Local $s_OutputWWAN = "WWAN No"

			EndIf

		Next
	Else

		MsgBox(0, "Error", "No network adapters found or query failed.")

	EndIf

	Return $s_OutputWWAN


EndFunc   ;==>_CI_GetNetwork

Kann mir jemand den Fehler aufzeigen warum Die If-Verzweigung immer "WWAN No" zurückgibt obwohl ein WWAN-Modul verbeut ist. Debug von $objItem.InterfaceType ergibt 243

Hallo Gemeinde,

bedingt durch die Denkanstöße habe ich die Sache mit der ini-Datei gelöscht (war eine Altlast aus dem aller ersten Entwurf).
Stattdessen habe ich die Funktion jetzt so erstellt:

Func CreateListBox()
	
	GUICtrlSetData($QrCodeList, "||") ; eine LeerZeile am Anfang einblenden
	$aFileList = _FileListToArray("E:\Arbeit\Batchdateien\Scripte\QR-CodeGenerator\data", "QR_*")
	; Einträge durchlaufen und zur Listbox hinzufügen
	For $i = 1 To $aFileList[0]
		$sHelp = GUICtrlSetData($QrCodeList, $aFileList[$i])
	Next

EndFunc   ;==>CreateListBox

Was soll ich sagen. So wird die Listbox richtig angezeigt.

Vielen lieben aller herzlichsten Dank an Mojoeb und Kanashius. ihr habt mir mit den ideen geholfen

Jetzt bin ich total verwirrt. ich habe ein TestScript erstellt.
Wenn ich es starte, wird die Listbox richtig dargestellt.

#include <Array.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <File.au3>
#include <GDIPlus.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>

#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("KVM-Auswahl", 767, 613, 205, 134)
$List1 = GUICtrlCreateList("", 10, 304, 308, 110, $LBS_USETABSTOPS)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$Beenden4 = GUICtrlCreateButton("Beenden", 578, 544, 161, 41)
GUICtrlSetFont(-1, 12, 800, 0, "Arial")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
CreateListBox()

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Beenden4
			Exit

	EndSwitch
WEnd


	Func CreateListBox()

	Local $sINIFile = ".\Testini.ini"
    Local $aItems = IniReadSection($sINIFile, "items")

	If Not @error Then
        ; Einträge durchlaufen und zur Listbox hinzufügen
        For $i = 1 To $aItems[0][0]
            GUICtrlSetData($List1, $aItems[$i][1])
        Next

    Else
        MsgBox(16, "Fehler", "Die INI-Datei konnte nicht gelesen werden.")
    EndIf

EndFunc ;==> CreateListBox()

Hallo Mojoeb,
hallo Kanasius,

ich glaube meine Fragestellung war wohl genauso unperfekt wie der Code.

Es geht mir nicht ums Einlesen der Dateinamen als Einträge für eine ini-datei! Das funzt ja schon. Das eigentliche Problem:

Beim Erstellen der Listbox beim Programmstart ist diese dann ganz nach unten gescrollt und der letzte Eintrag ist blau hinterlegt.
Ich hätte gerne aber das die Listbox so angezeigt wird, dass der erste Eintrag da steht. also nicht herunter gescrollt.

Hallo Gemeinde,

mit der folgenden Funktion erzeuge ich dynamisch beim Programmstart eine ListBox deren Einträge aus der ini-Datei ausgelesen werden.
Diese wiederum bestehen aus den Dateinamen des definierten Ordners. Alles funzt soweit prima.
Nur beim Programmstart wird die Listbox immer mit dem letzten Eintrag angezeigt, anstatt mit dem ersten.
Wie kann ich erreichen, das die Listbox immer mit dem ersten Eintrag angezeigt wird?

Func CreateListBox()

	Local $sSection = "items"
	Local $sKeyPrefix = "item"
	Local $sINIFile = "PfadzurInidatei\listbox.ini"
	Local $aItems = IniReadSection($sINIFile, "items")

	$aFileList = _FileListToArray("Pfad zum Ordner für die Dateinamen", "QR_*")
	For $i = 1 To $aFileList[0] ; Array[0] enthält die Anzahl der Elemente im Array
		IniWrite($sINIFile, $sSection, $sKeyPrefix & $i, $aFileList[$i])
	Next
	If @error = 1 Then
		MsgBox($MB_SYSTEMMODAL, "", "Pfad ungültig.")
		Exit
	EndIf
	If @error = 4 Then
		MsgBox($MB_SYSTEMMODAL, "", "Keine Dateien gefunden.")
		Exit
	EndIf
	Sleep(200)

	If Not @error Then
		; Einträge durchlaufen und zur Listbox hinzufügen
		For $i = 1 To $aItems[0][0]
			GUICtrlSetData($QrCodeList, $aItems[$i][1])
		Next

	Else
		MsgBox(16, "Fehler", "Die INI-Datei konnte nicht gelesen werden.")
	EndIf

EndFunc   ;==>CreateListBox

Hm, ich glaube das ist doch nicht das richtige für mich.

ich habe das Proggi nochmals gestartet mit Local $aList = WinList("[REGEXPTITLE:(?i)(.*HWiNFO.* - System*|Zusammenfassung|Übersicht)]").

Dieses Mal hat er mir im Array sowohl die HWinfo-Seite als auch die Exceldatei angezeigt.
Um zu testen wenn HWiNFO in englisch aus geführt wird(d.h. Zusammenfassung und Übersicht kommen nicht vor!),
zeigt er mir aufgrund des Suchstrings *HWiNFO.* - System* trotzdem im Array den Titel an.
Ich dachte zunächst das er nur dann den Fenstertitel anzeigt, wenn der Titel entweder in Verbindung mit Zusammenfassung oder Übersicht gefunden wird.

Dann bleibe ich bei der Methode mit den Suchbegriffen als Array und suche mit der For-Schleife:

	Local $a_Titel[2]
	$a_Titel[0] = "Zusammenfassung"
	$a_Titel[1] = "Überblick"
	.
	.
	.
	Local $aList = WinList("[REGEXPTITLE:(?i)(.*HWiNFO.* - System*)]")
	Local $sTitel = $aList[1][0]

		For $i = 0 To UBound($a_Titel) - 1 Step 1 ; durchsuchen des Titels nach den Items des Arrays. 

 			$s_TitelText = StringInStr($sTitel, $a_Titel[$i], 0)
			If $s_TitelText = 1 Then

				ExitLoop

			EndIf

		Next

Hallo Aspirinjunkie,

vielen lieben Dank für den Tipp.

ich habe es getestet und es funzt super. Allerdings muss ich anführen, dass es nur dann zuverlässig funzt, wenn man
folgenden Suchstring verwendet:

Local $aList = WinList("[REGEXPTITLE:(?i)(.*HWiNFO.* - System*|Zusammenfassung|Übersicht)]")

Verwendet man nur: Local $aList = WinList("[REGEXPTITLE:(?i)(Zusammenfassung|Übersicht)]")

hat DebugArraydisplay mir als Seitentitel die geöffnete Exceldatei angezeigt,
die ebenfalls das Wort Übersicht im Titel hat(Zufall das die gerade auch geöffnet war ), nicht aber die HWinFo-Seite

Hallo Gemeinde,

ich stehe mir gerade selbst total im Weg Mit

Local $aList = WinList("[REGEXPTITLE:(?i)(.*HWiNFO.* - System*)]")
Local $sTitel = $aList[1][0]
$s_TitelText = StringInStr($sTitel, "Zusammenfassung", 0)

lese ich den Titel des HWiNFO-Fensters aus und suche das Wort Zusammenfassung.
Damit weiss ich, ob das Fenster in deutscher Sprache dargestellt wird oder eben nicht.

Das Problem dabei : Bei annähernd jeder neuen Version heisst der Titel anders.
In neuster Version heisst es nicht mehr System - Zusammenfassung sondern System-Überblick.
Es gab auch in der Vergangenheit die Begriffe mit und ohne Satzzeichen.

Ich suche eine elegante Möglichkeit den Seiten_Titel nach den möglichen deutschen Begriffen zu durchsuchen.
Vielleicht so etwas wie die Begriffe in ein Array zu codieren und dann mittels Schleife
den Seiten-Titel mit den Items des Arrays zu durchsuchen.

Hat jemand eine bessere/andere Idee?

Hallo Aspirinjunkie,

ich schaue mir das mal übers WE an. Auf jeden Fall bedanke ich mich bei dir für deinen Beitrag.
Ich kann die SSH Session zwar mit send Strg C beenden. dann bekomme ich aber keine Ausgabe.
Die bekomme ich nur wenn ich die While-Schleife benutze. Da fehlt mir aber die Fantasie wie ich dann
den Strg-Befehl feuern kann...

Hallo Kanashius,

danke für den Tipp. Mir war aber schon beim Lesen klar, das das eher nicht funzt.
Auch in einer manuell aufgesetzten ssh-console zum KVM-Switch hat Exit keine Auswirkung. Ich versuche es aber noch mit pskill...

p.s.: Die ssh-console die dieser KVM-Switch anbietet ist eine Katastrophe!!!!