Beiträge von BugFix

**BugFix**

Zitat von alpines

Events für fremde Fenster direkt kann man glaube ich nicht registrieren.

Aber ja doch. _WinAPI_SetWindowsHookEx ersetzt die Standard-Fenster-Prozedur und ein Callback wertet die WM_Messages aus oder verwirft diese oder läßt sie mit _WinAPI_CallNextHookEx an das System durch. Das geht mit allen Windows-Fenstern, die ihre Nachrichten in Windows-üblicher Weise abarbeiten.

**BugFix**

@AutoItler Ich habe das Bsp. nochmal etwas abgeändert und kommentiert.

**BugFix**

Wenn HotKey nicht hilft, musst du in der Messageverarbeitung systemnah ansetzen und <Alt+F4> nicht an das System durchreichen. Das macht man mit einem Hook.
Wichtig ist, die Hookfunktion zu verlassen, wenn das gewünschte Fenster nicht aktiv ist. Auch die Systembereinigung beim Beenden ist ein absolutes Muss!

AutoIt

#include <WinAPI.au3>
#include <WindowsConstants.au3>
#include <StructureConstants.au3>


Opt("GUIOnEventMode", 1)
OnAutoItExitRegister('OnAutoItExit')


Global $hStub_KeyProc = DllCallbackRegister("_KeyProc", "long", "int;wparam;lparam")
Global $hmod = _WinAPI_GetModuleHandle(0)
Global $hHook = _WinAPI_SetWindowsHookEx($WH_KEYBOARD_LL, DllCallbackGetPtr($hStub_KeyProc), $hmod)


Global $hWin   ; = Handle des AcrobatReader
Global $fActive = False  ; <== to allow hook only on this gui
;~ Global $isAlt = False   -- besser als Static in der Callbackfunktion


;==== DEMO
$hWin = GUICreate('None <Alt>+<F4>')
GUISetOnEvent(-3, '_end')


$dummy = GUICtrlCreateDummy()
GUICtrlSetOnEvent(-1, '_dummy')


GUISetState()




Global $a[1][2] = [['{F4}',$dummy]]
GUISetAccelerators($a)




While 1 ; bei dir sinnvoll: While ProcessExists($PID_AcrobatReader)
	_checkWinState()
	Sleep(100)
WEnd


Func _checkWinState() ; Hook wird somit auf das gewählte Fenster begrenzt
	If Not $fActive And BitAND(WinGetState($hWin), 8) Then
		$fActive = True
	ElseIf $fActive And Not BitAND(WinGetState($hWin), 8) Then
		$fActive = False
	EndIf
EndFunc


Func _dummy()
	ConsoleWrite('F4 clicked!' & @CRLF)
EndFunc

Alles anzeigen

EDIT:

Ich habe den Code nochmal abgeändert. In der ersten Version wäre <F4> immer "verschluckt" worden.
Sind auch noch ein paar Kommentare bei.

**BugFix**

Zitat von Oscar

Aber da dürfte das genauso sein.

Nein, Chrome bietet diese Einstellung nicht extra an. Aber ich habe noch nie erlebt, dass ein Link in neuem Fenster geöffnet wird, wenn ich das nicht explizit (per Kontextmenü oder Maus-Tatstatur-Kombination) festlege.
Also scheint <Öffnen in neuem Tab> die Standardeinstellung zu sein.

**BugFix**

Bei mir wird jeder Link, den ich mit ShellExecute aufrufe, in einem neuen Tab geöffnet. Version 58.0.3029.110 (64-bit)

**BugFix**

Zitat von Hingo

Also gibt $_.PSisContainer an ob es sich um ein Ordnerverzeichniss handelt oder nicht.

PSIsCointainer kannst du vergleichen mit der AutoIt-Abfrage StringInStr(FileGetAttrib($sPath), "D"), es wird also die Ordnereigenschaft geprüft.

Du kannst einige Standardbefehle auch beim Bearbeiten der Registry nutzen, musst diese halt nur vorher mounten und dann ist sie ähnlich bearbeitbar, wie ein normales Datenlaufwerk.
Für PS gibt es Unmengen Tuts und Bsp. - da findest du eigentlich immer eine Lösung.

**BugFix**

Zitat von Hingo

Kann es sein das dein Code nur bei Ordnern funktioniert.

Zitat von BugFix

? { $_.PSisContainer -eq $true

Aber da du an die Registry willst: Die Registry ist KEINE Ordner-Dateistruktur! Die kannst du natürlich nicht mit den Standardbefehlen bearbeiten (in AutoIt nimmst du ja auch RegRead/RegWrite).

Registry mit PowerShell bearbeiten

**BugFix**

Bash

$exclude = "Administrator", "Default", "Public"
gci "c:\users" -filter * | ? { $_.PSisContainer -eq $true -and $exclude -notcontains $_.Name } | SELECT FullName, Name

**BugFix**

@horphi

AutoIt

$s = "eins;zwei;drei;vier;fünf;sechs"
$aMatch = StringRegExp($s, "(?:[^;]+;){4}([^;]+)", 1)
If Not @error Then
	ConsoleWrite('Eintrag nach 4. Semikolon: ' & $aMatch[0] & @CRLF)
EndIf

**BugFix**

Wenn noch keines vorhanden ist, ist auch der Registry- Eintrag für Kontextmenü (neue au3-Datei) nicht vorhanden. Somit ist die Erstellung eines Templates funktionslos.

**BugFix**

Personalisierungs-Skript für das Template - Post #1

**BugFix**

Das Thema ist inzwischen gelöst.

Ich habe aktive PC-Lautsprecher über den Kopfhörerausgang angeschlossen. Lautstärke lässt sich normal über Fernbedienung regeln und meine Mama versteht endlich wieder, was in ihrer Soap abgeht.

**BugFix**

Ja, das ist es - ich gucke mal.

Die Datei habe ich gar nicht, wird wohl nur installiert, wenn man das anwählt. - Stell die bitte mal ein.

**BugFix**

Zitat von autoiter

Weißt du vllt. auch eine Möglichkeit, wie man auch über "Explorer-Kontextmenü->Neu->AutoIt v3 Script" Dateien mit UTF8+BOM Kodierung erstellt.

Ich habe das bei mir gar nicht aktiviert. Schau mal bitte in der Registry, welches Skript dabei aufgerufen wird. Dann schaue ich mir das mal an.

**BugFix**

Es kann sein, dass das Thema mit der neuesten Version von SciTE gar nicht mehr aktuell ist.
Ich benutze noch die Version 3.4.4 - und in dieser ist keine Möglichkeit per Voreinstellung Dateien immer mit Kodierung "UTF8+BOM" zu erstellen.

Das läßt sich mit einem Lua-Skript beheben.

EDIT 2021-04-15

Da ich nicht nur AutoIt-Skript in SciTE bearbeite/erstelle, fand ich es nun lästig immer das BOM, wenn nicht erforderlich, zu entfernen.

Darum hier eine neue Version, die ausschliesslich au3-Dateien (Standard) und ggf. per Property festlegbare weiter Dateitypen mit dem BOM versieht.

Falls ihr die "new_as_utf8bom.lua" in der SciTEStartup.lua eingetragen habt, einfach mit der "CheckBOM.lua" ersetzen.

Code: CheckBOM.lua

-- TIME_STAMP   2021-04-15 14:02:19


--[[
After a file was saved, the event OnSave will fired.
Now will checked:
- needs this file typ the BOM?
- If Yes: Has this file already the BOM?
-          If No: Write the BOM sequence at the beginning of the file


If you want register other types as "au3" for set BOM use this property in SciTEUser.properties:

#~ File types, that needs byte order mark
#~ "au3" is predefined and does not need to be set here
BOM.File.Types=extension_1 extension_2
]]


CheckBOM = EventClass:new(Common)

CheckBOM.OnSave = function(self, _file)
    if not self:NeedsBOM(props['FileExt']) then return nil end
    if not self:StartsWithBOM(_file) then scite.MenuCommand(153) end
    return nil
end

CheckBOM.StartsWithBOM = function(self, _file)
    local ToHex = function(_s)
        if _s == nil then return "DEAD" end
        return (_s:gsub('.', function(_c) return ('%02X'):format(_c:byte()) end))
    end
    local fh = io.open(_file, "rb")
    local read = fh:read(3)
    fh:close()
    return (ToHex(read) == "EFBBBF")
end

CheckBOM.NeedsBOM = function(self, _ext)
    local extensions = props['BOM.File.Types']:lower()..' au3'
    if extensions:find(_ext:lower()) then return true else return false end
end

Alles anzeigen

Code

-- TIME_STAMP   2017-05-26 11:19:55


NewFile = EventClass:new(Common)


function NewFile:OnUpdateUI(filename)
    if props["FileName"] == "" then
        -- set to UTF-8 with BOM
        scite.MenuCommand(153) -- 153 = IDM_ENCODING_UTF8
    end
    return nil  -- default processing
end

Alles anzeigen

Als new_as_utf8bom.lua abspeichern und im Lua-Startup-Skript mit LoadLuaFile("new_as_utf8bom.lua", "..PFAD\\mit\\abschliessendem\\Doppelbackslash\\") eintragen.
Nach Neustart von SciTE, wird jede neue Datei als UTF8+BOM kodiert.

EDIT:
Dasselbe Problem besteht bei Erstellen einer au3-Datei über das Kontextmenü des Explorers.
Lösung
- Editor (SciTE oder NPP) als Administrator starten
- Datei öffnen: C:\Windows\ShellNew\Template.au3
- Kodierung ändern zu "UTF-8 mit BOM"
- Datei abspeichern (nochmal prüfen ob Kodierung auch übernommen wurde)

Jetzt werden auch über das Kontextmenü erstellte Dateien in der UTF-8+BOM Kodierung erzeugt.

EDIT2: PERSONAILISIERTES TEMPLATE
Mit dem folgenden Skript wird die Template-Datei personalisiert erstellt.
Die AutoItversion wird ausgelesen und im Template verwendet. (bisher fix)
Der User-Name wird aus der Property "UDFCreator" ausgelesen. Ist dort kein Wert gesetzt, wird der PC-Username verwendet.
Das Standard-Template wird dann überschrieben.

Wer mag, kann natürlich den Inhalt des Templates noch weiter nach eigenem Geschmack gestalten.
Dann einfach das Skript starten - fertig.

AutoIt

;-- TIME_STAMP   2017-05-27 13:57:52   v 0.1


#RequireAdmin


_FileCreateTemplate()




Func _FileCreateTemplate()
    Local $sCreator = _GetAU3Property('UDFCreator', @UserName)
    Local $sWrite = _
    "#cs ----------------------------------------------------------------------------" & @CRLF & @CRLF & _
    " AutoIt Version:  " & @AutoItVersion & @CRLF & _
    " Author:          " & ($sCreator = "Your Name" ? @UserName : $sCreator) & @CRLF & @CRLF & _
    " Script Function: AutoIt script." & @CRLF & @CRLF & _
    "#ce ----------------------------------------------------------------------------" & @CRLF & @CRLF & _
    "; Script Start - Add your code below here" & @CRLF
    Local $sFileName = @WindowsDir & "\ShellNew\Template.au3"
    If Not FileExists($sFileName) Then Exit MsgBox(262192, 'Fehler', 'Es ist keine Datei "Template.au3" installiert!')
    Local $fH = FileOpen($sFileName, 2+128)
    Local $iSucc = FileWrite($fH, $sWrite)
    FileClose($fH)
    Exit MsgBox(($iSucc = 1 ? 262208 : 262192), ($iSucc = 1 ? 'Fertig!' : 'Fehler!'), ($iSucc = 1 ? _
        'Das personalisierte Template wurde erfolgreich geschrieben.' : 'Das Template konnte nicht geschrieben werden.'))
EndFunc




; #FUNCTION# ====================================================================================================================
; Name ..........: _GetAU3Property
; Description ...: Gets a property value (one-line entry only!). Ask order: 1. SciTEUser.properties 2. au3.properties
; Syntax ........: _GetAU3Property($sProperty[, $sDefault = ''])
; Parameters ....: $sProperty           - The property name
;                  $sDefault            - [optional] A value to use, if none property set. Default is ''.
; Return values .: The value of the property (or the default value)
; Author ........: BugFix
; ===============================================================================================================================
Func _GetAU3Property($sProperty, $sDefault='')
    Local $sPathUserProp = @LocalAppDataDir & "\AutoIt v3\SciTE\SciTEUser.properties"         ; C:\Users\[USER]\AppData\Local\AutoIt v3\SciTE\SciTEUser.properties
    Local $sPathAU3Prop = StringTrimRight(@AutoItExe, 11) & "SciTE\properties\au3.properties" ; C:\Program Files (x86)\AutoIt3\SciTE\properties\au3.properties
    Local $sRead = '', $sValueReturn = $sDefault, $aMatch
    Local $sPattern = $sProperty & "=([^\r\n]+)"
    If FileExists($sPathUserProp) Then $sRead = FileRead($sPathUserProp)
    $aMatch = StringRegExp($sRead, $sPattern, 1)
    If @error Then
        If FileExists($sPathAU3Prop) Then $sRead = FileRead($sPathAU3Prop)
        $aMatch = StringRegExp($sRead, $sPattern, 1)
        If Not @error Then $sValueReturn = $aMatch[0]
    Else
        $sValueReturn = $aMatch[0]
    EndIf
    Return $sValueReturn
EndFunc

Alles anzeigen

**BugFix**

Code

Dateikodierung          Outputkodierung    korrekte Unicodeausgabe mit
-----------------------------------------------------------------
  Systemkodierung (= Wert von code.page)


  UTF8 (code.page=65001)     65001          ConsoleWrite()
  UTF8+BOM                   65001          ConsoleWrite(BinaryToString(StringToBinary($sStr, 4), 1))

In beiden Einstellungen (code.page und output.code.page) UTF8 gesetzt (65001) - dann klappt es normal mit ConsoleWrite.
UTF8+BOM läßt sich (zumindest in ScITE 3.4.4, gibt eine neuere Version) gar nicht explizit als Voreinstellung für neue Datei wählen.

**BugFix**

@Crusoe: Ich denke, das Problem liegt darin, dass du dich gedanklich auf ein Select-Case als Lösung eingeschossen hast. Aber letztlich ist die Iteration durch ein Array doch gar nichts Anderes. In jedem Schritt wird ein "Case" abgearbeitet, trifft der Fall zu, wird die erforderliche Aktion ausgeführt, wenn nicht, gehts weiter.

**BugFix**

OK, leider ist die Codepage-Einstellung in SciTE nicht wirklich nachvollziehbar. Ich habe code.page=65001 und output.code.page=65001 gesetzt, neu erstellte Dateien sollten also UTF8+BOM sein. Sind sie das aber? Schaue ich mir über das Menü <Datei> die Kodierung an, steht dort "Systemkodierung", statt "UTF-8 mit Markierung".

Und nun das verwirrende Spiel:
Schreibe ich jetzt in der Datei mit "Systemkodierung" Consolewrite("美好的一天"), wird es korrekt ausgegeben.
Setze ich die Datei aber über das Menü Kodierung auf UTF8+BOM, erhalte ich nur Fragezeichen und muß die Konsolenausgabe über eine extra Funktion leiten, um die Korrekte Ausgabe zu erhalten.

AutoIt

Func _ConsoleWriteBin($sStr)
    Return ConsoleWrite(BinaryToString(StringToBinary($sStr, 4), 1))
EndFunc

Früher war das alles egal, weil AutoIt-Skripte auch mit beliebiger Kodierung ausgeführt wurden. Nach dem letzten Update ist aber explizit UTF8+BOM erforderlich.

**BugFix**

Wenn man denn wirklich Globale Variablen vermeiden will, kann man das über ein Variablenmanagement tun.

**BugFix**

Schreibe in die SciTEUser.properties den Eintrag output.code.page=65001 - dann klappt's auch mit den Chinesen.

Beiträge von BugFix

Eigene GUI an ein gestartetes Programm "anheften" ...

Schließen einer "ge - run() - ten" Anwendung deaktivieren

Schließen einer "ge - run() - ten" Anwendung deaktivieren

Neuer Tab in Chrome

Neuer Tab in Chrome

Bestimmte Unterordner auslesen Powershell

Bestimmte Unterordner auslesen Powershell

Bestimmte Unterordner auslesen Powershell

Teilstring einer Variable ab letztem Zeichen

SciTE - Neue AU3-Datei immer mit Kodierung "UTF-8 mit BOM" erstellen

SciTE - Neue AU3-Datei immer mit Kodierung "UTF-8 mit BOM" erstellen

TV-Ton auf Boxen/Minianlage o.ä. - regelbar über Fernbedienung

SciTE - Neue AU3-Datei immer mit Kodierung "UTF-8 mit BOM" erstellen

SciTE - Neue AU3-Datei immer mit Kodierung "UTF-8 mit BOM" erstellen

SciTE - Neue AU3-Datei immer mit Kodierung "UTF-8 mit BOM" erstellen

Chinesiche Zeichen

Select...EndSelect: Case-Fälle aus *.ini-Datei auslesen

Chinesiche Zeichen

Globale Variable vermeiden. Methoden?

Chinesiche Zeichen