Beiträge von Moombas

Alternativ: (Ich habe den Link oben mal entfernt, da mein 2. Ansatz doch aufwändiger ist als erst gedacht):

Opt('MustDeclareVars', 1)
#include <Array.au3>

SetFocus('ftel.exe')

Func SetFocus($sAppName)
Local $aWindows, $handle, $list
Local Const $aProcesses = ProcessList($sAppName)

    For $i = 1 To $aProcesses[0][0]
        $aWindows = _ProcessGetWinEx($aProcesses[$i][1])
        For $Row = 1 to $aWindows[0]
            $handle = $aWindows[$Row]
            $list = WinList()
            For $i = 0 To UBound($list)-1
                If $handle=$list[$i][1] Then
                    WinActivate($list[$i][0])
                    ExitLoop
                EndIf
            Next
        Next
    Next
EndFunc

;Source: https://www.autoitscript.com/forum/topic/80830-how-to-activate-window-by-pid/#comment-581721
Func _ProcessGetWinEx($ivPid, $svClass = "", $svTitle = "", $svText = "", $ivReturnOnlyFirstMatch = False)
Local $avClass
    $ivPid = ProcessExists($ivPid)
    If Not $ivPid Then Return(SetError(1, 0, 0))
    Local $avwArray = WinList()
    Local $avRet[1] = [0]
    For $i = 1 To $avwArray[0][0]
        $avClass = DllCall("User32.dll", "int", "GetClassName", "hwnd", $avwArray[$i][1], "str", "", "int", 4096)
        If WinGetProcess($avwArray[$i][1]) = $ivPid Then
            If $svClass = "" Or (IsArray($avClass) And $avClass[2] = $svClass) Then
                If ($svTitle = "" Or StringInStr($avwArray[$i][0], $svTitle)) And ($svText = "" Or StringInStr(WinGetText($avwArray[$i][1]), $svText)) Then
                    $avRet[0] += 1
                    ReDim $avRet[$avRet[0]+1]
                    $avRet[$avRet[0]] = $avwArray[$i][1]
                    If $ivReturnOnlyFirstMatch Then
                        $avRet = $avret[1]
                        ExitLoop
                    EndIf
                EndIf
            EndIf
        EndIf
    Next
    Return $avRet
EndFunc

Wenn du natürlich das Programm immer über dein Skript startest, würde der Teil mit dem finden der PID hier weg fallen.

Da du die Klasse hast, versuch Zeile 22 mal so: WinActivate("[CLASS:TfrmGUI]", "")

Meinst du so?

Opt('MustDeclareVars', 1)
#include <GUIConstantsEx.au3>

Global Const $hGUI = GUICreate("Test", 500, 500)

Global Const $mM1 = GUICtrlCreateMenu("Menü1")

Global Const $mM2 = GUICtrlCreateMenuItem("Menü2", $mM1)
Global Const $mExit = GUICtrlCreateMenuItem("Exit", $mM1)

GUISetState()

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE, $mExit
            Exit
        Case $mM1
            MsgBox(0, "1", "I can be actioned!")
        Case $mM2
            MsgBox(0, "2", "I can be actioned!")
    EndSwitch
WEnd

Mist BananaJoe war schneller

hipfzwirgel: Dann gehe ich davon aus das die Daten vom NFC-Chip gelesen werden und vorher von dir darauf programmiert werden. Richtig? Dann gebe den programmierten Daten das @ (oder was auch immer) direkt als letztes Zeichen mit (ich weiß QuD aber simpel)!?

Oder du versuchst es mit BugFix's Methode

Da Stimme ich dir voll zu.

Es bliebe nur die Möglichkeit eine andere Navi-App zu nutzen, wobei ich keine kenne, die nicht 3D macht (ich selbst finde das durchaus besser aber das ist Geschmacks- und Gewöhnungssache).

Ich nutze Maps nur zur Notfallnavigation als Fußgänger im Urlaub XD im Auto immer namhafte (teilw. fest verbaute) Navis wie TomTom oder Garmin, die mittlwerweile halt alle nur in 3D anzeigen. Die geben zusätzliche Orientierungshilfen an (egal ob's die Pfeile bei mehreren Spuren sind oder z.B. der optische als auch akustische Hinweis nach der Kirche abzubiegen), bin ich mit denen bestens gefahren.

Wegen Stau habe ich auch eher selten Probleme, kann daher dahingehend deren zuverlässigkeit nicht 100% einschätzen aber wenn es vorgeschlagen hat deswegen woanders längs zu fahren, gemacht und klappte prima.

Ich denke im Grunde, da du sonst mit MAps zufrieden bist, musst du dich an 3D gewöhnen.

Ich glaibe das geht nur, wenn du den Kompass dauerhaft auf Nordausrichtung (in maps) stellst.

Zitat von hipfzwirgel

leider kann ich den Scanner nicht dazu bewegen ein alternatives Zeichen zu senden als Suffix...

Ist es ein Zebra scanner?

Ganz blöde Frage: Du kannst bei Scannerknofigurationen ja auch selbst definierte Zeichen anhängen (z.B. ein @ ).

Wäre das nicht für dich abfangbar, da dies ein normales String-Zeichen ist?

Pack mal an den Anfang des Skriptes Opt('MustDeclareVars', 1) und danach #AutoIt3Wrapper_Au3Check_Parameters=-q -d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 -w 7

Dann arbeitest du die Fehlermeldungen mal durch.

Ich hoffe die fehlende Formatierung /Einrückung ist beim copy/paste passiert? Der Code ist so nicht lesbar.

Ja, ich kenne das. Da stimme ich dir zu 100% zu.

Auch ich immernoch über Sachen wie WhatsApp in W11. Ich habe eine Tastatur mit frei zuteilbaren Tasten, denen ich gerne z.B. Whatsapp als schnellzugriff zuweisen würde aber W11 installiert das in einem ominösen (versteckten) Ordner, auf den ich auch als Admin nicht zugreifen darf, was wiederum verhindert das die Logitech G-Suite dies der Taste zuweisen kann (wenn man das mal alles heruasgefunden hat wann/wo/wie das liegt). Selbst wenn ich den Pfad per C&P einfüge: Zugriff verweigert.

Unter W10 war das noch Problemlos möglich...

Das mit der Datei, kommt bei mir nicht vor, läuft alles übers NAS (an der Fritzbox) und da hatte ich solche Meldungen bisher noch nicht.

Ok, das mit der Gruppierung:

Zitat

Gruppierung im Datei Explorer aufheben

Als Beispiel der Ordner Downloads:

Hier im Datei Explorer unter C:\Users\Dein Name\Downloads aufrufen. (Oder den von euch eingestellten Ordner)

• Rechtsklick in den Ordner -> "Gruppieren nach" -> (Keine anklicken)

• Danach ein weiterer Rechtsklick -> Eigenschaften -> Reiter Anpassen
• Ordnertyp einstellen und den Haken setzen bei Vorlage für alle Unterordner übernehmen und mit Übernehmen / OK bestätigen.

Das war es eigentlich auch schon. Dadurch wird verhindert, dass auch die Unterordner wieder gruppiert dargestellt werden. Sollte das nicht ausreichen, dann versucht den Trick, den wir darunter aufgeführt haben.

https://www.deskmodder.de/wiki…tei_Explorer_deaktivieren

Mit der Höhe der Elemente habe ich noch nicht rumgespielt/gesucht, da mich das nicht gestört hat bisher.

Hast du mal probiert ob du mit der Skalierung das ggf. kleiner bekommst, wobei das ja auch Auswirkungen auf alles andere hat und daher wohl keine wirkliche Lösung wäre.

Zu deinem markierten Bereich: Ich habs gerade nicht vor Augen, da ich nur zuhause W11 habe. Aber im Explorer müsstest du diese "Favoriten" ausblenden können.

Und das Problem mit nicht ausführbaren Dateien habe ich noch nicht gehabt bisher.

Und welche Gruppierung meinst du? Ich habe mit W11 aufgehört ClassicShell oder so zu nutzen und habe das "neue Startmenü" nur bedingt angepasst (keine Voschläge, news etc.) ohne "Fremdsoftware" dafür zu nutzen.

Ich gehe davin aus, das dudas wie oben beschrieben die Strucktur C:\Program Files\Eigene\Dart_App\Include\Avg.au3 hast und deine main au3 im Dart_App Ordner liegt.

Dann mache es bitte so:

#include "\Include\Avg.au3"

Entweder

#include "...\Include\Avg.au3" ;Relativ zum Script

oder

#include <...\Include\Avg.au3> ; Relativ zum Include-Ordner

Naja, wenn man generell ' anstatt " nutzt, finde ich ist es wesentlich einfacher:

$sPrintServer = 'PRINT:SERVER'
$sText = 'TEXT'

ConsoleWrite(@SystemDir & "\RUNDLL32 PRINTUI.DLL,PrintUIEntry /q /y /n " & '"' & "\\" & $sPrintServer & "\" & $sText & '"' & @CRLF)

; mit Stringformat muss "\" maskiert werden, also immer doppelt 
ConsoleWrite(StringFormat('%s\\RUNDLL32 PRINTUI.DLL,PrintUIEntry /q /y /n "\\\\%s\\%s"', @SystemDir, $sPrintServer, $sText) & @CRLF)

; generell ' nutzen ansatt ", das man ' in einem Pfad-String braucht ist eher unwahrscheinlich und man braucht kaum wechseln und auch keine Maskierung
ConsoleWrite(@SystemDir & '\RUNDLL32 PRINTUI.DLL,PrintUIEntry /q /y /n "\\' & $sPrintServer & '\' & $sText & '"' & @CRLF)

Ich fahre seit dem Wechsel von ' auf " wesentlich besser aber das ist ein wenig Geschmackssache.

Auch wenn ich Lernenden das gerne selber überlasse Alina und später dann bei Problemen aushelfe (á lá learning by doing) , ja das Prinzip past würde das aber meinerseits etwas anders anpacken (Achtung: Das ist kein Anspruch an einen Neuling was nun kommt (!), da ist die pragmatische Lösung von Alina eher die Aufzeigt wie es geht):

Opt('MustDeclareVars', 1)
#include <MsgBoxConstants.au3>

Global $iNumber

$iNumber = Show_Random_Numbers(1, 1000)
$iNumber = Show_Random_Numbers($iNumber, 1000)

Func Show_Random_Numbers($iMin, $iMax)
Local Const $f_Integer = 1
Local $iRandom_Number

    $iRandom_Number = Random($iMin, $iMax, $f_Integer)
    MsgBox($IDOK, "Zufallszahl", "Eine Zufallszahl zwischen " & $iMin & " und " & $iMax & ": " & $iRandom_Number)

    Return $iRandom_Number
EndFunc

Hi Skriptboomer,

Zu deinen Fragen:

1. Schau mal hier rein: https://www.autoitscript.com/a…docs/functions/Random.htm

Für den 2. Part speicherst du dir die generierte Zahl und nimmst sie halt als neuen Min Wert.

2. Ja das geht. Die Umsetzung (und Möglichkeit) hängt aber davon ab was genau du wovon haben willst. Dann muss man schauen was geht und was nicht und wie.

Freut mich das ich helfen konnte.

Ich denke, das hier nichts anderes gemacht wird, als der WinAPI Berechtigungen zum Lesen der entsprechenden Informationen gegeben und am Ende wieder genommen werden.

Ich hoffe natürlich das ich das richtig verstanden habe aber ich gebe keine Garantie

Racer : Steht das nicht schon in der Hilfe?

Ich würde sagen, folgendes muss vor deinem _WinAPI_GetProcessUser einmalig aufgerufen werden:

; Enable "SeDebugPrivilege" privilege for obtain full access rights to another processes
Local $hToken = _WinAPI_OpenProcessToken(BitOR($TOKEN_ADJUST_PRIVILEGES, $TOKEN_QUERY))
_WinAPI_AdjustTokenPrivileges($hToken, $SE_DEBUG_NAME, $SE_PRIVILEGE_ENABLED, $aAdjust)

und folgendes, wenn du damit fertig bist:

; Enable SeDebugPrivilege privilege by default
_WinAPI_AdjustTokenPrivileges($hToken, $aAdjust, 0, $aAdjust)
_WinAPI_CloseHandle($hToken)

Achso,sorry.