1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. BugFix

Beiträge von BugFix

  • WMI FileSystemWatcher - Methode .NextEvent() kann nicht manuell verlassen werden

    • BugFix
    • 29. Februar 2016 um 15:50

    Hast du irgendwo eine Übersicht für die Events?
    Folgendes habe ich durch Ausprobieren gefunden, aber nichts auf MSDN.

    Code
    Event: 0x00000001   RENAME_FILE
    Event: 0x00000002   NEW_FILE
    Event: 0x00000004   DELETE_FILE
    Event: 0x00000008   NEW_FOLDER
    Event: 0x00000010   DELETE_FOLDER
    Event: 0x00000200   FREIGABE_FOLDER
    Event: 0x00001000   Nach Freigabe (keine Pfadangabe)
    Event: 0x00002000   CHANGE_FILE_OR_FOLDER
    Event: 0x00008000   FOLDER_ICON_CHG (keine Pfadangabe)
    Event: 0x00040000   FILE_ACCESS (keine Pfadangabe)
    Event: 0x00020000   RENAME_FOLDER
    Alles anzeigen
  • WMI FileSystemWatcher - Methode .NextEvent() kann nicht manuell verlassen werden

    • BugFix
    • 29. Februar 2016 um 13:05
    Zitat von Oscar

    aber muss es unbedingt WMI sein?

    Nö, muss es nicht. ;)
    Erschien mir nur recht optimal, weil ich keinerlei extra Zugriffsrechte benötige.
    Werde mal die WinAPI-Version testen.

    Danke.

  • CPU effektiver bei Script Ausführung einsetzten

    • BugFix
    • 29. Februar 2016 um 11:57

    Schreibe die Datei mit 4 (oder mehr) Skripten gleichzeitig. Also jeweils ein Viertel der erforderlichen Zeichen in eine Datei und am Ende fügst du die Dateien zusammen.

  • WMI FileSystemWatcher - Methode .NextEvent() kann nicht manuell verlassen werden

    • BugFix
    • 29. Februar 2016 um 11:29

    Um die Dateien eines Ordner auf Veränderungen zu überwachen (Neu, Löschen, Verändern) habe ich unter Verwendung von WMI ein Skript erstellt. Es funktioniert auch tadellos.
    Einziger Makel: Um es Beenden zu können benötige ich vorher zwingend ein Ereignis. Ursache ist die Methode .NextEvent(). Wird diese aufgerufen verweilt der Programmablauf dort bis zum Eintreten eines Events, welches im festgelegten Intervall dort abgefragt wird.
    Hat jemand von euch eine Idee, wie ich aus der Falle heraus komme?
    Aus dem Skript heraus kann ich keinerlei Aktion ausführen, da ich in der Methode bin. ?(

    AutoIt
    HotKeySet('^!c', '_Close') ;  Ctrl+Alt+C
    
    
    $iInterval = 2 ;  polling in sec
    $sDrive    = "C:"
    $sFolder   = "\\TEST\\"
    $sComputer = "."
    
    
    $objWMIService = ObjGet( _
    	"winmgmts:{impersonationLevel=impersonate}!\\" & _
    	$sComputer & "\root\cimv2" _
    )
    
    
    $sQuery = "Select * From __InstanceOperationEvent" & _
    	" Within " & $iInterval & _
    	" Where Targetinstance Isa 'CIM_DataFile'" & _
    	" And TargetInstance.Drive='" & $sDrive & "'" & _
    	" And TargetInstance.Path='" & $sFolder & "'"
    
    
    $colEvents = $objWMIService.ExecNotificationQuery($sQuery)
    
    
    MsgBox(0, 'Monitoring File Events', 'Close with "Ctrl+Alt+C".')
    
    
    While True
    ConsoleWrite('before .NextEvent()' & @CRLF)   ; Hier bleibt das Skript stehen und wartet auf NextEvent.
                                                  ; Mein Hotkey zum Beenden kommt dadurch erst nach einem Event an.
                                                  ; Somit brauche ich ein vorhergehendes Event um das Skript beenden zu können. :(
        $objEvent = $colEvents.NextEvent()
    ConsoleWrite('after .NextEvent()' & @CRLF)
        $objTargetInst = $objEvent.TargetInstance
        Switch $objEvent.Path_.Class
    		Case "__InstanceCreationEvent"
    			ConsoleWrite(_Time() & "Created: " & $objTargetInst.Name & @CRLF)
            Case "__InstanceDeletionEvent"
    			ConsoleWrite(_Time() & "Deleted: " & $objTargetInst.Name & @CRLF)
            Case "__InstanceModificationEvent"
    			ConsoleWrite(_Time() & "Modified: " & $objTargetInst.Name & @CRLF)
    	EndSwitch
    WEnd
    
    
    
    
    Func _Time()
    	Return StringFormat('[%s:%s:%s.%s] ', @HOUR, @MIN, @SEC, @MSEC)
    EndFunc
    
    
    Func _Close()
    	Exit
    EndFunc
    Alles anzeigen
  • SQLite Hilfe benötigt

    • BugFix
    • 26. Februar 2016 um 21:52

    Mal noch als Tipp für mehr Übersicht beim Arbeiten mit SQLite ein Auszug aus einem Projekt, in dem ich SQLite eingesetzt habe. So kann man sich immer sofort einlesen:

    AutoIt
    Func _DB_Init()
    	; Erstellen Tabellen:
    	$sSQL = _
    		"CREATE TABLE IF NOT EXISTS [kunden] (" & _
    			"[kdnr]    INTEGER PRIMARY KEY AUTOINCREMENT," & _
    			"[titel]   TEXT," & _
    			"[firma]   TEXT," & _
    			"[name]    TEXT NOT NULL," & _
    			"[vorname] TEXT," & _
    			"[strasse] TEXT," & _
    			"[nr]      TEXT," & _
    			"[plz]     TEXT," & _
    			"[ort]     TEXT," & _
    			"[telefon] TEXT," & _
    			"[gebdat]  TEXT," & _
    			"[re_strasse] TEXT," & _
    			"[re_nr]      TEXT," & _
    			"[re_plz]     TEXT," & _
    			"[re_ort]     TEXT);" & _
    		"CREATE TABLE IF NOT EXISTS [rechnungen] (" & _
    			"[renr]         INTEGER PRIMARY KEY AUTOINCREMENT," & _
    			"[kdnr]         INTEGER NOT NULL," & _
    			"[datum]        TEXT NOT NULL," & _
    			"[datum_an]     TEXT," & _
    			"[datum_ab]     TEXT," & _
    			"[zahlweise]    TEXT," & _   ; 'bar' oder 'überw.'
    			"[netto_voll]   REAL," & _
    			"[netto_erm]    REAL," & _
    			"[ustsatz_voll] REAL," & _
    			"[ustsatz_erm]  REAL);" & _
    		"CREATE TABLE IF NOT EXISTS [positionen] (" & _
    			"[posnr]       INTEGER PRIMARY KEY AUTOINCREMENT," & _
    			"[renr]        INTEGER NOT NULL," & _
    			"[anzahl]      INTEGER NOT NULL," & _
    			"[artnr]       INTEGER NOT NULL," & _
    			"[arttext]     TEXT NOT NULL," & _
    			"[einzelnetto] REAL NOT NULL," & _
    			"[usttyp]      TEXT NOT NULL);" & _   ; 'erm' oder 'voll'
    		"CREATE TABLE IF NOT EXISTS [stammdaten] (" & _
    			'[voll] REAL,' & _  ; == Steuersatz voll
    			'[erm]  REAL,' & _  ; == Steuersatz ermäßigt
    			'[firma] TEXT,' & _
    			'[inhaber] TEXT,' & _
    			'[strasse] TEXT,' & _
    			'[nr] TEXT,' & _
    			'[plz] TEXT,' & _
    			'[ort] TEXT,' & _
    			'[tel] TEXT,' & _
    			'[fax] TEXT,' & _
    			'[email] TEXT,' & _
    			'[bank] TEXT,' & _
    			'[bic] TEXT,' & _
    			'[iban] TEXT,' & _
    			'[ustid] TEXT);' & _
    		"CREATE TABLE IF NOT EXISTS [artikel] (" & _
    			'[artnr]   INTEGER NOT NULL,' & _
    			'[arttext] TEXT NOT NULL,' & _
    			'[netto]   REAL NOT NULL,' & _
    			'[usttyp]  TEXT NOT NULL);'
    	_SQLite_Exec($hSQL, $sSQL)
    	_SQLErr()
    	; == Tabellen KU & RE: Index auf Startwert setzen, wenn bei Stammdaten Startwert gesetzt und Tabelle noch nicht aktualisiert
    	_SetSequences()
    
    
    	; == USt-Sätze Ersteintrag
    	If _CountRows('stammdaten') = 0 Then
    		_SQLite_Exec($hSQL, "INSERT INTO stammdaten VALUES (19,7,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL);")
    		_SQLErr()
    	EndIf
    EndFunc
    
    
    Func _SetSequences()
    	If _Table_GetSequence('kunden') = -1 Then
    		If $iKDNR_Start > 0 Then
    			_SQLite_Exec($hSQL, "INSERT INTO sqlite_sequence VALUES ('kunden', " & $iKDNR_Start-1 & ");")
    			_SQLErr()
    		EndIf
    	EndIf
    	If _Table_GetSequence('rechnungen') = -1 Then
    		If $iRENR_Start > 0 Then
    			_SQLite_Exec($hSQL, "INSERT INTO sqlite_sequence VALUES ('rechnungen', " & $iRENR_Start-1 & ");")
    			_SQLErr()
    		EndIf
    	EndIf
    EndFunc
    
    
    Func _Table_GetSequence($_sTable)
    	If Not _TableExists($_sTable) Then Return SetError(1,0,-2)
    	Local $iRet = -1
    	_SQLite_Query($hSQL, "SELECT seq FROM sqlite_sequence WHERE name = '" & $_sTable & "'", $hQuery)
    	_SQLErr()
    	While _SQLite_FetchData($hQuery, $aQuery) = $SQLITE_OK
    		$iRet = $aQuery[0]
    	WEnd
    	_SQLite_QueryFinalize($hQuery)
    	_SQLErr()
    	Return $iRet
    EndFunc
    
    
    Func _TableExists($_sTable)
    	Local $fRet = False
    	_SQLite_Query($hSQL, "SELECT name FROM sqlite_master WHERE type='table'", $hQuery)
    	_SQLErr()
    	While _SQLite_FetchData($hQuery, $aQuery) = $SQLITE_OK
    		If $aQuery[0] = $_sTable Then
    			$fRet = True
    			ExitLoop
    		EndIf
    	WEnd
    	_SQLite_QueryFinalize($hQuery)
    	_SQLErr()
    	Return $fRet
    EndFunc
    Alles anzeigen
  • SQLite Hilfe benötigt

    • BugFix
    • 26. Februar 2016 um 21:33
    Zitat
    • Local $sSQLiteDatabase = FileWrite($sEncryptXDatabase,"")
    • Local $a = _SQLite_Open($sSQLiteDatabase)

    Welchen Wert hat jetzt $sSQLiteDatabase  ? RICHTIG: den Rückgabewert der Funktion Filewrite! Und der ist... - Problem erkannt?

  • Während Suche Splashtext anzeigen, Splashtext geht nicht mehr zu

    • BugFix
    • 26. Februar 2016 um 19:40
    Zitat von Fintan

    eine IF.. Then.. Else Schleife.

    :Face::Face::Face:

  • 2-D Array syntax error/nesting problem

    • BugFix
    • 26. Februar 2016 um 16:57

    Hier mal noch zwei flexiblere Funktionen zum Erstellen von 1D / 2D-Arrays:

    AutoIt
    ;===================================================================================================
    ; Function Name....: _ar1D
    ; Description......: Erstellt ein 1D-Array mit bis zu 10 Elementen
    ; Parameter(s).....: $_1       Das erste Element
    ; ......optional...: $_2 .. 10 Die weiteren Elemente
    ; Return Value(s)..: 1D-Array mit den übergebenen Werten
    ;===================================================================================================
    Func _ar1D($_1, $_2=Null, $_3=Null, $_4=Null, $_5=Null, $_6=Null, $_7=Null, $_8=Null, $_9=Null, $_10=Null)
    	Local $j, $aOut[] = [$_1, $_2, $_3, $_4, $_5, $_6, $_7, $_8, $_9, $_10]
    	For $i = 0 To 9
    		If $aOut[$i] = Null Then ExitLoop
    		$j = $i +1
    	Next
    	If $j < 10 Then ReDim $aOut[$j]
    	Return $aOut
    EndFunc
    
    
    ;===================================================================================================
    ; Function Name....: _ar2D
    ; Description......: Erstellt ein 2D-Array mit bis zu 10 Elementen
    ; Parameter(s).....: $_iUB2    UBound der 2.ten Dimension
    ; .................: $_sDelim  Trennzeichen zwischen den Werten eines Elements
    ; .................: $_1       Das erste Element
    ; ......optional...: $_2 .. 10 Die weiteren Elemente
    ; Note.............: Enthält ein Element mehr Werte, als in $_iUB2 angegeben, werden diese ignoriert
    ; Return Value(s)..: 2D-Array mit den übergebenen Werten
    ;===================================================================================================
    Func _ar2D($_iUB2, $_sDelim, $_1, $_2=Null, $_3=Null, $_4=Null, $_5=Null, $_6=Null, $_7=Null, $_8=Null, $_9=Null, $_10=Null)
    	Local $j, $aTmp[] = [$_1, $_2, $_3, $_4, $_5, $_6, $_7, $_8, $_9, $_10], $aOut[10][$_iUB2], $aSplit
    	For $i = 0 To 9
    		If $aTmp[$i] = Null Then ExitLoop
    		$aSplit = StringSplit($aTmp[$i], $_sDelim, 1)
    		For $k = 1 To ($aSplit[0] > $_iUB2 ? $_iUB2 : $aSplit[0])
    			$aOut[$i][$k-1] = $aSplit[$k]
    		Next
    		$j = $i +1
    	Next
    	If $j < 10 Then ReDim $aOut[$j][$_iUB2]
    	Return $aOut
    EndFunc
    Alles anzeigen
  • Passwort über Script automatisch ändern

    • BugFix
    • 26. Februar 2016 um 15:52

    Als ich den Thread-Titel gelesen habe Passwort über Script automatisch ändern, dachte ich das ist ein Fun-Post.

    Sorry, aber wie kann man ernsthaft auf die Idee kommen PASSWÖRTER automatisch zu ändern?! Wer das tut, dem traue ich auch zu, während der Fahrt sein Auto zu putzen.
    Ich denke alles sicherheitsrelevante hat @Bioshade bereits erwähnt.

    Mal als Tipp zum Gestalten von Passwörtern. Weil sich gute Passwörter schlecht merken lassen, werden oft nur schwache genutzt. Dummerweise wird das von vielen Anbietern im Netz auch noch gefördert, weil diese keine Sonderzeichen im Pw zulassen!! Da bleibt dann nur ein schöner Mix aus Ziffern, Klein- u. Großbuchstaben.
    Um sich auch starke Pw merken zu können kann man, wie die Gedächtnisakrobaten, mit einem Bilderpalast arbeiten oder sich ein ähnliches Gedankenmodell erstellen. Nur statt der Bilder ordnet man Sonderzeichen zu die man über die Assoziation bekannter Gegenstände dann in kleinen Geschichten mit Ziffern und Buchstaben erweitert zum Pw kombiniert. Auf diese Weise verwende ich z.B. 20-stellige Pw die wirklich kryptisch sind. Und diese Pw brauchst du nicht alle Nase lang ändern.

  • Skript beenden, wenn schon ein anderes mit seinem Namen läuft

    • BugFix
    • 26. Februar 2016 um 15:31
    Zitat von Lottich

    Alternativ geht das hier auch noch.

    Nein, diese Variante würde zur Bedingung haben, dass eine Fensteranwendung ausgeführt wird.
    Ich finde es irgendwie seltsam, dass trotz der ersten Antwort, die die einzig korrekte ist, noch munter weiter gepostet wird. Das irritiert den geneigten Leser dann doch. :huh:

  • 2-D Array syntax error/nesting problem

    • BugFix
    • 26. Februar 2016 um 15:18

    Array erzeugen nur durch die Klammern ist nicht möglich.
    Du musst diesen Weg wählen:

    AutoIt
    Local $aIn1['a','b']
    Local $aIn2['c','d']
    Local $aIn3['e','f']
    Local $aIn4['g','h']
    
    
    Local $a[][4] = [ _
    [1,2,3,4], _
    [1,2,3,4], _
    [$aIn1,$aIn2,$aIn3,$aIn4]]


    Wenn du mehrere dieser Einträge erstellen musst, ist es sinnvoll dazu eine Funktion zu verwenden:

    AutoIt
    Local $a[][4] = [ _
    [1,2,3,4], _
    [1,2,3,4], _
    [_Array('a','b'),_Array('c','d'),_Array('e','f'),_Array('g','h')]]
    
    
    Func _Array($_a, $_b)
    	Local $a[] = [$_a, $_b]
    	Return $a
    EndFunc
  • @comspec - unsichtbar ausführen?

    • BugFix
    • 26. Februar 2016 um 15:08
    Zitat von AutoIt Hilfe

    To run DOS (console) commands, try
    Run(@ComSpec &" /c " & 'commandName', "", @SW_HIDE) ; don't forget " " before "/c"

    Lesen bildet :rolleyes:

  • Prüfe welche Maustaste die Primäre ist

    • BugFix
    • 22. Februar 2016 um 08:36
    AutoIt
    #include <WinAPI.au3>
    If _WinAPI_GetSystemMetrics($SM_SWAPBUTTON) Then
    	ConsoleWrite('Default: RIGHT' & @CRLF)
    Else
    	ConsoleWrite('Default: LEFT' & @CRLF)
    EndIf

    Eine andere Möglichkeit zum Verhindern des Kontextmenüs:
    Windows-Message für Kontextmenüaufruf hooken und verwerfen wenn es für dein Ctrl ist.

  • _FileWriteLog kann keine Logfiles schreiben ohne Datei zu öffnen

    • BugFix
    • 19. Februar 2016 um 21:52

    Ich würde ganz klar die bereits angesprochene "Abholversion" favorisieren.
    Die Logs werden lokal gespeichert.
    Auf dem Server legst du einen administrativen Dienst an, der in Intervallen die Logs bei den Usern checkt. Gibts was Neues, wird das abgeholt und auf den Server übernommen.
    Nach dem Muster sammle ich zum Bsp. als PDF gedruckte Dokumente bei meinen Usern ein und archiviere diese auf dem Server. So bleibt der User immer nur in seinem lokalen Space, Rechteprobleme gibt es nicht.

  • _GDIPlus raubt Arbeitsspeicher

    • BugFix
    • 18. Februar 2016 um 10:00

    Ich bin nicht der GDIplus-Experte, kann mich aber erinnern, dass es da ein Problem gab - die Ursache ist mir leider entfallen. Aber warte bis die Auskenner sich hier melden.
    Nur eines vorweg:
    _GDIPlus_Startup() und _GDIPlus_Shutdown() haben in der Schleife nichts verloren.
    Startup machst du beim Skriptstart und Shutdown legst du in eine Ende-Funktion, die du mit OnAutoItExitRegister festlegst.

  • StringSplit Problem

    • BugFix
    • 18. Februar 2016 um 09:54
    Zitat von shakoon

    das wenn ich nur 4 Zahlen eingebe, das er mir alle 5 Zahlen danach als 0 wiedergibt?

    Ja, das ist recht simpel:

    AutoIt
    $Input = InputBox('Bla', 'Blub')
    ; sicherstellen, dass $Input 9 Stellen hat und fehlende Stellen mit 0 belegt werden
    $Input = StringLeft($Input & '000000000', 9)

    Aber die Array-Variante, wie von Micha_he gezeigt, ist eindeutig zu bevorzugen.
    Solltest du auf jeden Fall 9 Schritte abarbeiten wollen, kombiniere beides.

  • Notification von PC an IOS - Gerät senden

    • BugFix
    • 17. Februar 2016 um 19:32

    Was hältst du von Telegram Messenger?
    Beliebige Anzahl Endgeräte (egal ob PC oder mobiles Gerät) über einen Account nutzbar. Umfangreiche API.
    Wesentlich grösser im Funktionsumfang als WhatsApp und dazu auch noch Ende-zu-Ende verschlüsselt.

  • Dllcall geht nur teilweise

    • BugFix
    • 17. Februar 2016 um 13:20
    Zitat von loady2

    Nur anschalten lässt er sich nicht.

    Also die Parameter hast du m. M. richtig übergeben.
    Vielleicht unterstützt dein Tablet diesen Befehl nicht vollständig. Kannst du das vergleichsweise mit einer anderen Hardware testen?

  • Datei Tagging portable

    • BugFix
    • 17. Februar 2016 um 08:59

    Nach einem Jahr mal noch ein Abschlußbericht:

    Wir haben uns dann entschlossen für alle neuen Dokumente mit ELO-office zu arbeiten und dieses Mitte des Jahres dann eingeführt. Die alten Dokumente verbleiben bis zum Ende der Aufbewahrungsfrist in Papierform.
    Der Aufwand alte Dokumente zu digitalisieren steht in keinem Verhältnis zum Nutzen, da Zugriffe auf alte Dokumente keine hohe Häufigkeit haben.

  • Nach Resizing: Listviewspaltenbreite anpassen

    • BugFix
    • 16. Februar 2016 um 15:38

    Hi,
    Ich habe in einem resizeable Window ein Listview mit zwei Spalten. Die zweite Spalte soll immer den gesamten restlichen Platz im Listview einnehmen.
    Wenn ich jedoch die Größe ändere, passt sich die Spaltenbreite nicht an. Erst wenn ich danach auf den Fensterrand klicke passiert es, wie gewünscht.
    Hat jemand eine Idee?

    AutoIt
    #include <WindowsConstants.au3>
    #include <GuiListView.au3>
    
    
    Global $hGui = GUICreate('Test', 600, 400, -1, -1, $WS_OVERLAPPEDWINDOW)
    Global $cLV = GuiCtrlCreateListView('A|B', 0, 30, 600, 370, -1, BitOR($LVS_EX_GRIDLINES, $LVS_EX_DOUBLEBUFFER))
    GUICtrlSetResizing(-1, 102) ; $GUI_DOCKBOTTOM=64, $GUI_DOCKTOP=32, $GUI_DOCKRIGHT=4, $GUI_DOCKLEFT=2
    Global $hLV = GUICtrlGetHandle($cLV)
    _GUICtrlListView_SetColumnWidth($hLV, 0, 80)
    _GUICtrlListView_SetColumnWidth($hLV, 1, $LVSCW_AUTOSIZE_USEHEADER)
    
    
    GUISetState()
    GuiRegisterMsg($WM_ENTERSIZEMOVE, '_WM_ENTERSIZEMOVE')
    
    
    Do
    Until GUIGetMsg() = -3
    
    
    Func _WM_ENTERSIZEMOVE($_hWnd, $_iMsg, $_wParam, $_lParam)
    	Local Static $aWin = WinGetPos($_hWnd)
    	Local $aWinCurrent = WinGetPos($_hWnd)
    	If $aWinCurrent[2] = $aWin[2] Then Return
            $aWin = $aWinCurrent
    	_GUICtrlListView_SetColumnWidth($hLV, 1, $LVSCW_AUTOSIZE_USEHEADER)
    EndFunc
    Alles anzeigen

    EDIT:
    Saublöd - ich hatte die falsche Message ausgewertet. Für Größenänderung ist WM_MINMAXINFO zuständig. So klappt es:

    AutoIt
    #include <WindowsConstants.au3>
    #include <GuiListView.au3>
    
    
    Global $hGui = GUICreate('Test', 600, 400, -1, -1, $WS_OVERLAPPEDWINDOW)
    Global $cLV = GuiCtrlCreateListView('A|B', 0, 30, 600, 370, -1, BitOR($LVS_EX_GRIDLINES, $LVS_EX_DOUBLEBUFFER))
    GUICtrlSetResizing(-1, 102) ; $GUI_DOCKBOTTOM=64, $GUI_DOCKTOP=32, $GUI_DOCKRIGHT=4, $GUI_DOCKLEFT=2
    Global $hLV = GUICtrlGetHandle($cLV)
    _GUICtrlListView_SetColumnWidth($hLV, 0, 80)
    _GUICtrlListView_SetColumnWidth($hLV, 1, $LVSCW_AUTOSIZE_USEHEADER)
    
    
    GUISetState()
    GuiRegisterMsg($WM_GETMINMAXINFO, '_WM_GETMINMAXINFO')
    
    
    Do
    Until GUIGetMsg() = -3
    
    
    Func _WM_GETMINMAXINFO($_hWnd, $_iMsg, $_wParam, $_lParam)
    	Local Static $aWin = WinGetPos($_hWnd)
    	Local $aWinCurrent = WinGetPos($_hWnd)
    	If $aWinCurrent[2] = $aWin[2] Then Return
    	$aWin = $aWinCurrent
    	_GUICtrlListView_SetColumnWidth($hLV, 1, $LVSCW_AUTOSIZE_USEHEADER)
    EndFunc
    Alles anzeigen

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™