Beiträge von Bitnugger

**Bitnugger** · 16. Juni 2022

Zitat von casi4712

Die Funktion ifWinActivated von Oscar liefert bei mir in hjedem Falle True auch wenn ich per slmgr windows deaktiviert habe.

Zum Verständnis:

Code

M:\>WMIC /NAMESPACE:\\root\CIMV2 PATH SoftwareLicensingProduct WHERE LicenseStatus=1 GET Description, LicenseStatus
Description                                  LicenseStatus
Windows(R) Operating System, RETAIL channel  1
Office 16, RETAIL channel                    1

Ändere die Funktion mal so, dann klappt es sicher auch bei dir:

AutoIt: _IfWinActivated.au3

;-- TIME_STAMP   2022-06-16 14:52:23   v 0.1

#include <StringConstants.au3>

ConsoleWrite('Windows is activated: ' & _IfWinActivated() & @CRLF)

Func _IfWinActivated()
    Local $sCommand, $iPID, $sData
    $sCommand = @ComSpec & ' /c WMIC /NAMESPACE:\\root\CIMV2 PATH SoftwareLicensingProduct WHERE LicenseStatus=1 GET Description, LicenseStatus|findstr "Operating System"'
    $iPID = Run($sCommand, @ScriptDir, @SW_HIDE, 0x2)
    ProcessWaitClose($iPID)
    $sData = StringStripWS(StdoutRead($iPID), $STR_STRIPTRAILING)
;~     ConsoleWrite("@@_Debug_line" & @TAB & @TAB & @ScriptLineNumber & "   var: $sData --> " & $sData & @LF)
    Return StringRight($sData, 1) == '1'
EndFunc   ;==>_IfWinActivated

Alles anzeigen

**Bitnugger** · 14. Juni 2022

Zitat von BugFix

_PS_GetActiveAdapterShortInfo()

Wenn IPv4 und IPv6 aktiviert ist, arbeitet die Funktion (StringRegExpReplace) nicht korrekt.

Schau selbst:

**Bitnugger** · 31. Mai 2022

Zitat von PSblnkd

Trotz Sperre von PopUp-Fenstern im FF poppen beim Laden vieler Webseiten neuerdings immer mehr dieser nervigen Cookie-Einverständniserklärung-Fenster auf. Vielfach kommt man ohne Bestätigung gar nicht mehr weiter,

Schau dir das mal an...

Suchergebnisse für „I don't care about cookies“ – Add-ons für Firefox (de)

**Bitnugger** · 28. Mai 2022

Zitat von robbytobi

$sString = _WinAPI_WideCharToMultiByte($sString,65001)

AutoIt stürzt ab, wenn der Funktion kein Datentyp "String" übergeben wird.

Besser so:

$sString = _WinAPI_WideCharToMultiByte(String($sString),65001)

So habe ich es anfangs auch gemacht... seit längerem aber so wie Velvet in Post #25.

**Bitnugger** · 21. Mai 2022

Zitat von BugFix

Kann sein, dass in der Reihenfolge der Properties das später von dir ungewollt überschrieben wird.

Dann würde ich den Tastencode aber doch nicht im Menü an der gewünschten Stelle sehen.

Hier Ctrl+Shift+Alt+B... wird angezeigt und funktioniert auch... Ctrl+Alt+L und Ctrl+Shift+Alt+L werden da auch angezeigt, funktionieren aber nicht - und das wundert mich.

**Bitnugger** · 21. Mai 2022

Zitat von BugFix

command.shortcut.49.$(file.patterns.lua)=Strg+Alt+L

Strg+Alt+L funktioniert zumindest bei mir nicht... Ctrl+Alt+L, Ctrl+Shift+Alt+L auch nicht, obwohl die beide frei sind. Ctrl+Shift+Alt+B funktioniert aber.

**Bitnugger** · 19. Mai 2022

Zitat von Oscar

Local $hDisplay = WinActive('ArrayDisplay')

Bei mir musste ich diese Zeile ändern:

Local $hDisplay = WinActive('_ArrayDisplay')

**Bitnugger** · 19. Mai 2022

Zitat von BugFix

Und da Windows von Haus aus diese Esc-Sequenzen nicht erkennt (außer in der Terminal-Umgebung), werden diese als reiner Text behandelt.

Hier eine Erklärung dazu: https://stackoverflow.com/ques…si-vt100-escape-sequences

ANSICON: http://adoxa.altervista.org/ansicon/index.html

**Bitnugger** · 1. Mai 2022

Zitat von Velted

(Wenn nicht, müsste ich sagen, dass der Forumseditor ~~für Sourcecode~~ eher suboptimal ist!)

So ist es... leider!

**Bitnugger** · 1. Mai 2022

Zitat von Velted

$Line = StringReplace(StringReplace($Line, @TAB, "|"), "/", "|")

In deinen Testdaten ist kein TAB vorhanden, kann somit also auch keiner ersetzt werden. Dadurch wird das Ergebnis natürlich verfälscht.

Ich vermute mal, dass die Tabs durch den Forumseditor zu Leerzeichen konvertiert wurden?!

**Bitnugger** · 1. Mai 2022

Zitat von ruby

Jetzt fehlt eigentlich nur noch Problem 1

Du meinst natürlich die Lösung für Problem 1...

AutoIt

;-- TIME_STAMP   2022-05-01 01:09:09

#include <GuiConstantsEx.au3>
;~ #include <Array.au3>
#include <File.au3>
#include <GuiListView.au3>

Opt('MustDeclareVars', 1)

Global $g_hGUI, $g_idListview, $g_hListView
Global $g_aListview = _ReadShortcutList()

_Main()

Func _Main()
    #Region GUI ###
    _ArraySort($g_aListview)
    ConsoleWrite(_ArrayToString($g_aListview, '|') & @LF)
;~     _ArrayDisplay($g_aListview, '$g_aListview')

    $g_hGUI = GUICreate("meine " & UBound($g_aListview) & " Shortcuts für Sketchup", 1100, 700, -1, -1)
    $g_idListview = GUICtrlCreateListView("Shortcut|Menüname|Menü Item|Sub Menü|Befehl", 20, 20, 1060, 660)
    $g_hListView = GUICtrlGetHandle($g_idListview)
    _GUICtrlListView_SetExtendedListViewStyle($g_idListview, $LVS_EX_GRIDLINES)

    ; Changes the width of a columns
    Local $aLVWidth = [200, 200, 200, 200, 200]
    For $i = 0 To UBound($aLVWidth) -1 Step 1
        _GUICtrlListView_SetColumnWidth(-1, $i, $aLVWidth[$i])
    Next

    ; Adds items from an array to the control
    _GUICtrlListView_AddArray($g_hListView, $g_aListview)

    ; Register the Simple Sort callback function
    _GUICtrlListView_RegisterSortCallBack($g_hListView)

    ; Starts the sort call back, also sets the Arrow in the Header
    _GUICtrlListView_SortItems($g_hListView, 0)

    GUISetState(@SW_SHOW)
    #EndRegion GUI ###

    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                Exit
            Case $g_idListview
                _SortListview()
        EndSwitch
    WEnd
EndFunc   ;==>_Main

Func _SortListview()
    ConsoleWrite('! _sortlistview()' & @CRLF)
    _GUICtrlListView_SortItems($g_hListView, GUICtrlGetState($g_idListview))
EndFunc   ;==>_SortListview

Func _ReadShortcutList()
    Local $aArray = FileReadToArray('meine-shortcut-liste-ori.txt')
;~ _ArrayDisplay($aArray, '$aArray')

    Local $aLV[UBound($aArray)][5], $aSplit

    For $i = 0 To UBound($aArray) - 1 Step 1
        $aSplit = StringSplit($aArray[$i], @TAB & '/|', $STR_NOCOUNT)
        For $j = 0 To UBound($aSplit) -2 Step 1
            $aLV[$i][$j] = $aSplit[$j]
        Next
        $aLV[$i][4] = $aSplit[UBound($aSplit) - 1]
    Next
    Return $aLV
EndFunc   ;==>_ReadShortcutList

Alles anzeigen

**Bitnugger** · 29. April 2022

Zitat von Musashi

Wenn ich ConsoleWrite mit & @CRLF abschließe klappt es.

So klappt es auch:

ConsoleWrite($dEncrypted & '')

**Bitnugger** · 25. April 2022

Edit: AspirinJunkie war schneller!

**Bitnugger** · 23. April 2022

So steht es auch in der Hilfe:

Limits Defaults

AutoIt3 Limits/defaults

MAX_BINARYSIZE	2,147,483,647	Maximum bytes of binary data.
MAX_ENVSIZE	32767	Maximum size for an ENV variable.
MAX_LINESIZE	4095	Maximum size for a line of script.
MAX_STRINGLEN	2,147,483,647	Maximum string length.

**Bitnugger** · 22. April 2022

Path2DLL... warum nicht als Einzeiler?

AutoIt

Func Path2DLL($sPath2DLL)
    Return $sPath2DLL ? $sPath2DLL : @ScriptDir & (@AutoItX64 ? "\_WebP_x64.dll" : "\_WebP_x86.dll")
EndFunc   ;==>Path2DLL

**Bitnugger** · 20. April 2022

Sehr schön - funktioniert prima!

Windows 10 64 bit und Autoit v3.3.16.0

**Bitnugger** · 19. April 2022

Meinst du das etwa so:

AutoIt

;-- TIME_STAMP   2022-04-19 21:36:34   

#include <GUIConstantsEx.au3>
#include <Array.au3>

GUICreate("", 240, 85, 190, 125)
$Input1 = GUICtrlCreateInput("Klartext", 5, 5, 225, 20)
$Input2 = GUICtrlCreateInput("Zahlen", 5, 30, 225, 20)
$Button1 = GUICtrlCreateButton("Button1", 5, 55, 225, 20)

GUISetState(@SW_SHOW)

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit

        Case $Button1
            $s_String = GUICtrlRead($Input1)
            $s_DecString = ""

;~             For $i In StringToASCIIArray($s_String)
;~                 $s_DecString &= Dec($i, 2)
;~             Next
;~             GUICtrlSetData($Input2, $s_DecString)
            GUICtrlSetData($Input2, _ArrayToString(StringToASCIIArray($s_String), '|'))
    EndSwitch
WEnd

Alles anzeigen

**Bitnugger** · 18. April 2022

Zitat von Velted

nach Deinem letzten Beitrag denke ich, dass Du das komplette Fenstermenü entfernen willst.

Klar... da soll einer drauf kommen...

Code

WinWaitActive("[CLASS:Notepad]")
$hWnd = WinGetHandle("[CLASS:Notepad]")

$hWnd = WinWaitActive("[CLASS:Notepad]")

**Bitnugger** · 16. April 2022

Ich denke mal, du meinst das so in etwa:

AutoIt

Global $sTestDir = @TempDir
ConsoleWrite("@@_Debug_line" & @TAB & @TAB & @ScriptLineNumber & "   var: $sTestDir --> " & $sTestDir & @CRLF & @CRLF)

_DateDirCreate($sTestDir & '\Test1')
_DateDirCreate($sTestDir & '\Test2')
_DateDirCreate($sTestDir & '\Test2')  ; Verzeichnis existiert bereits
_DateDirCreate($sTestDir & '\Test3')
_DateDirCreate($sTestDir & '\Test4>') ; Verzeichnis konnte nicht erstellt werden
Exit

; DateDir Example: $sTestDir & '\Test1' -->> "C:\Users\ghost\AppData\Local\Temp\Test1_2022.04.16"
Func _DateDirCreate($sPath)
    $sPath &= '_' & @YEAR & "." & @MON & "." & @MDAY
    If StringInStr(FileGetAttrib($sPath), 'D') Then
        ConsoleWrite('+ DateDir = ' & $sPath & @CRLF & '! Error code: 1 - Verzeichnis existiert bereits' & @CRLF & @CRLF)
        Return SetError(1)
    ElseIf DirCreate($sPath) Then
        ConsoleWrite('> DateDir = ' & $sPath & @CRLF & '! Error code: 0 - Verzeichnis wurde erstellt' & @CRLF & @CRLF)
        FileSetAttrib($sPath, "A")
        Return $sPath
    Else
        ConsoleWrite('! DateDir = ' & $sPath & @CRLF & '! Error code: 2 - Verzeichnis konnte nicht erstellt werden' & @CRLF & @CRLF)
        Return SetError(2)
    EndIf
EndFunc   ;==>_DateDirCreate

Alles anzeigen

**Bitnugger** · 16. April 2022

Zitat von ruby

Ich möchte gerne von einem externen Program das Menü Item komplett verstecken und nach einem Tastendruck wieder hervorholen.

Wenn du sagst komplett, dann meinst du wohl kein Item, sondern ein SubMenu, zB. das "Help Menu" komplett verstecken...

Hier ein Bsp.:

AutoIt: _GUICtrlMenu_RemoveRestoreMenu_Example.au3

;-- TIME_STAMP   2022-04-16 21:12:25   

Opt('MustDeclareVars', 1)

#include <GUIConstantsEx.au3>
#include <GuiMenu.au3>

Global $iPID, $hWnd, $hMain, $hHelp

HotKeySet('{F2}', '_SwitchMenu')
HotKeySet('{ESC}', '_Exit')

Example()

Func Example()
    ; Open Notepad
    $iPID = Run("notepad.exe")
    $hWnd = WinWaitActive("[CLASS:Notepad]")

    ; Main menu
    $hMain = _GUICtrlMenu_GetMenu($hWnd)

    ; Help menu
    $hHelp = _GUICtrlMenu_GetItemSubMenu($hMain, 4)

    Writeln('\n\tPress F2 to show/hide Help menu')
    Writeln('\n\tPress ESC for Exit')

    While Sleep(100)
    WEnd
EndFunc   ;==>Example

Func _SwitchMenu()
    Local Static $bRemove = True
    If $bRemove Then
        ; Remove Help menu
        $bRemove = False
        _GUICtrlMenu_RemoveMenu($hMain, 4)
    Else
        ; Restore Help menu
        $bRemove = True
        _GUICtrlMenu_InsertMenuItem($hMain, 4, "&Hilfe", 0, $hHelp)
        _GUICtrlMenu_SetMenu($hWnd, $hMain)
    EndIf
EndFunc   ;==>_SwitchMenu

; Write a line of text to Notepad
Func Writeln($sText)
    ControlSetText("[CLASS:Notepad]", "", "Edit1", StringFormat(ControlGetText("[CLASS:Notepad]", "", "Edit1") & $sText), 0)
EndFunc   ;==>Writeln

Func _Exit()
    HotKeySet('{F2}')
    HotKeySet('{ESC}')
    ProcessClose($iPID)
    Exit
EndFunc   ;==>_Exit

Alles anzeigen

Beiträge von Bitnugger

Windows Aktivierung

Ip Aktualsierung funktionieert nicht

Internet-Kommunikation - Nervige PopUp-Fenster

Zeichensatz-Probleme beim Schreiben in MariaDB

LuaRunner

LuaRunner

_ArrayDisplay(): bestimmte nicht nebeneinanderliegende Spalten anzeigen mit $sArrayRange

Color - Output (ANSI Escape Sequenzen): Ursache gefunden - leider keine Lösung

String > StringReplace > Listview

String > StringReplace > Listview

String > StringReplace > Listview

String mit _Crypt_EncryptData() verschlüsseln

Suche Ordner

Gibts es eine Begrenzung bei der Stringlängen ?

AutoIt3 Limits/defaults

WebP v0.3.1 build 2022-06-18 beta

WebP v0.3.1 build 2022-06-18 beta

Leerzeichen zwischen Zahlen

Menu Item wieder zurückholen

Ordner mit Datum und Attribute erstellen

Menu Item wieder zurückholen