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)
$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.
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.
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.
Local $hDisplay = WinActive('ArrayDisplay')
Bei mir musste ich diese Zeile ändern:
Local $hDisplay = WinActive('_ArrayDisplay')
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/questions/1675…scape-sequences
(Wenn nicht, müsste ich sagen, dass der Forumseditor
für Sourcecodeeher suboptimal ist!)
So ist es... leider!
$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?!
Jetzt fehlt eigentlich nur noch Problem 1
Du meinst natürlich die Lösung für Problem 1...
;-- 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 ;==>_ReadShortcutListWenn ich ConsoleWrite mit & @CRLF abschließe klappt es.
So klappt es auch:
ConsoleWrite($dEncrypted & '')
Edit: AspirinJunkie war schneller!
So steht es auch in der Hilfe:
| 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. |
Path2DLL... warum nicht als Einzeiler?
Func Path2DLL($sPath2DLL)
Return $sPath2DLL ? $sPath2DLL : @ScriptDir & (@AutoItX64 ? "\_WebP_x64.dll" : "\_WebP_x86.dll")
EndFunc ;==>Path2DLLSehr schön - funktioniert prima! 
Windows 10 64 bit und Autoit v3.3.16.0
Meinst du das etwa so:
;-- 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
WEndnach Deinem letzten Beitrag denke ich, dass Du das komplette Fenstermenü entfernen willst.
Klar... da soll einer drauf kommen...
WinWaitActive("[CLASS:Notepad]")
$hWnd = WinGetHandle("[CLASS:Notepad]")$hWnd = WinWaitActive("[CLASS:Notepad]")
Ich denke mal, du meinst das so in etwa:
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 ;==>_DateDirCreateIch 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.:
;-- 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 ;==>_ExitWie siehts bei euch aus. Arbeitet jemand mit 3.3.16.0?
Ich arbeite bereits mit der 3.3.16.0 und bin zufrieden damit. Die Anzahl der behobenen Bugs sind ein klares Argument für das Update. Die (kleinen) Probleme mit geänderten Funktionen/Funktionsaufrufe und fehlenden Konstanten sind schnell gefixt... wenn man weiß, was und wo man suchen muss.
Edit: Eset Internet Security meckert bei mir übrigens nicht, wenn ich eine mit 3.3.16.0 kompilierte Exe starte.
Außer das es bei mir den Parameter $g_sImportance nicht gibt, finde ich jetzt keinen Unterschied zu meinen Angaben.
Der Parameter ist optional und muss nur gesetzt werden, wenn Importance nicht Normal sein soll.
Ich habe meine Daten mal in dein Bsp. aus Post #1 eingefügt und getestet - es funktioniert!
Ich musste nur ein Include für die Funktion _PathFull() hinzufügen:
#Include <File.au3> ; _PathFull()
