Beiträge von BugFix

  • INI Write Read problematik

    Also ich würde dir gern helfen, aber ehrlich gesagt habe ich nicht ansatzweise verstanden, was du möchtest. :huh:
    Du sprichst von ID's - woher stammen diese bzw. was sollen sie darstellen?
    Vielleicht kannst du das mal als Pseudocode darstellen? (Also der Programmablauf in Stichworten)

  • PCTools falsche Trojanermeldung???

    Ich persönlich halte gar nichts von AntiViren-Programmen. Ich verwende ausschließlich Spybot S&D. Sollte sich wirklich mal ein Schadprogramm auf meinen PC verirren (sehr unwahrscheinlich), wird es im Moment, wenn es sich einnisten will von S&D erkannt und ich werde alarmiert.

  • Start Position an Desktop anpassen

    Hier mal ein funktionierendes Bsp.:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #NoTrayIcon

    [/autoit] [autoit][/autoit] [autoit]

    Opt("TrayMenuMode",1) ; Default tray menu items (Script Paused/Exit) will not be shown.

    [/autoit] [autoit][/autoit] [autoit]

    $GUI = GUICreate('Test')

    [/autoit] [autoit][/autoit] [autoit]

    $displayitem = TrayCreateItem("Display")
    TrayCreateItem("")
    $exititem = TrayCreateItem("Exit")

    [/autoit] [autoit][/autoit] [autoit]

    TraySetState()

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $msg = TrayGetMsg()
    Select
    Case $msg = $displayitem
    _moveGUI($GUI)
    GUISetState(@SW_SHOW, $GUI)
    Case $msg = $exititem
    ExitLoop
    EndSelect
    If GUIGetMsg() = $GUI_EVENT_CLOSE Then GUISetState(@SW_HIDE, $GUI)
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Exit

    [/autoit] [autoit][/autoit] [autoit]

    Func _moveGUI($GUI_ID)
    Local $mouse = MouseGetPos(), $win = WinGetPos($GUI_ID)
    WinMove($GUI_ID, '', $mouse[0]-$win[2], $mouse[1]-($win[3]+20))
    EndFunc

    [/autoit]

  • Start Position an Desktop anpassen

    Füg das mal an den Skriptanfang ein. Dann wird deine GUI beim Start so verschoben, dass die rechte untere Ecke sich über dem Mauszeiger befindet, also der Position des Traysymbols beim Klicken.

    [autoit]

    ; Deine GUI-Deklaration
    $GUI_ID = GUICreate('')
    ;...
    GUISetState()

    [/autoit][autoit][/autoit][autoit]

    ;######### Hier die Position setzen #############
    Local $mouse = MouseGetPos(), $win = WinGetPos($GUI_ID)
    WinMove($GUI_ID, '', $mouse[0]-$win[2], $mouse[1]-($win[3]+20))

    [/autoit][autoit][/autoit][autoit]

    While 1
    ;..
    WEnd

    [/autoit]

  • der_doc meine meinung für inkompetenz

    Hi,
    bin gerade erst auf diesen Post gestoßen und empfinde es ehrlich gesagt als bodenlose Frechheit, was Mc.Neal hier so alles von sich gibt.

    Zitat von Mc.Neal

    aber soweit können mache mods leider nicht denken .

    @Mc.Neal:
    Wir zwingen dich nicht, an unserem Forum zu partzipieren!
    Was du hier von dir gibst, ist eine direkte Beleidigung und sowas können und wollen wir hier nicht dulden.

    Ich erteile dir hiermit eine Verwarnung.

    Ich hoffe, du verstehst den Sinn solch einer Maßnahme und wirst durch dein künftiges Verhalten den Willen erkennen lassen, ein Teil unserer Gemeinschaft zu sein.
    Anderenfalls werden wir dir auch keine Träne nachweinen.

    Im Übrigen kann ich dir auch nur empfehlen, wenn du schon Probleme mit der deutschen Sprache hast, verwende doch Rechtschreib- und Grammatikprüfung. Das hilft dir und uns.

  • Array "Umstrukutieren"

    Zitat von nuts

    Deine Variante ändert aber irgendwie die "Datums"


    Sorry, sehe gerade, ich habmich verzählt LOL. Korrektur kommt gleich.

    Hierdrin war der Fehler, jetzt stimmts:

    [autoit]

    ; Datum zurück konvertieren
    For $i = 0 To UBound($arCSV) -1
    $arCSV[$i][1] = StringRight($arCSV[$i][1], 2) & '.' & StringMid($arCSV[$i][1], 5, 2) & '.' & StringLeft($arCSV[$i][1], 4)
    Next

    [/autoit]

  • Array "Umstrukutieren"

    OK, gründliche Problemschilderung hilft meist.. :whistling:

    Da ein Datum enthalten ist, schlage ich eine Lösung mit Datenbank-basierter Sortierfunktion vor.
    Da hatte ich nicht bedacht, dass SQLite keinen Datentyp DATE kennt.
    Also hier eine Array-Variante:

    Spoiler anzeigen
    [autoit]

    #include <Array.au3>
    #include <File.au3>

    [/autoit] [autoit][/autoit] [autoit]

    $file = 'muster_1.csv'

    [/autoit] [autoit][/autoit] [autoit]

    ; 2D-Array erzeugen und Datum sortierfähig einfügen (JJJJ-MM-TT)
    Global $arCSV[_FileCountLines($file)][2], $line, $split, $fh = FileOpen($file, 0), $i = 0
    While 1
    $line = FileReadLine($fh)
    If @error = -1 Then ExitLoop
    If Not StringInStr($line, ';') Then ContinueLoop
    $split = StringSplit($line, ';')
    $arCSV[$i][0] = $split[1]
    $arCSV[$i][1] = StringStripWS($split[2], 3) ; führende und folgende Leerzeichen entfernen
    $arCSV[$i][1] = StringRight($arCSV[$i][1], 4) & StringMid($arCSV[$i][1], 4, 2) & StringLeft($arCSV[$i][1], 2)
    $i += 1
    Wend
    FileClose($fh)

    [/autoit] [autoit][/autoit] [autoit]

    ; Sortieren nach Datum
    _ArraySort($arCSV, 0, 0, 0, 1)

    [/autoit] [autoit][/autoit] [autoit]

    ; Datum zurück konvertieren
    For $i = 0 To UBound($arCSV) -1
    $arCSV[$i][1] = StringRight($arCSV[$i][1], 2) & '.' & StringMid($arCSV[$i][1], 3, 2) & '.' & StringLeft($arCSV[$i][1], 4)
    Next

    [/autoit] [autoit][/autoit] [autoit]

    ; Anzeigen
    _ArrayDisplay($arCSV)

    [/autoit]

  • file Delete geht nicht

    Die Datei ist sicher schreibgeschützt. Also setze das Attribut mit FileSetAttrib() auf '-R'.
    Es kann sein, dass die Datei auch andere, den Löschvorgang unterbindende, Flags hat (SH).
    Laß dir am Besten alle Attribute zurückgeben und setze die störenden zurück.
    z.B. so:

    [autoit]

    $file = 'Dateipfad'
    $attrib = StringSplit(FileGetAttrib($file), '')
    $stringSet = '-'
    For $i = 1 To UBound($attrib) -1
    Switch $attrib[$i]
    Case 'R'
    $stringSet &= 'R'
    Case 'H'
    $stringSet &= 'H'
    Case 'S'
    $stringSet &= 'S'
    EndSwitch
    Next
    FileSetAttrib($file, $stringSet)
    FileDelete($file)

    [/autoit]

  • Problem bei Anzeige der GraKa

    Spoiler anzeigen
    [autoit]

    $strComputer = "."
    $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2")
    $colItems = $objWMIService.ExecQuery ("Select * from Win32_VideoController")

    [/autoit] [autoit][/autoit] [autoit]

    For $objItem in $colItems
    ConsoleWrite( "Adapter Compatibility: " & $objItem.AdapterCompatibility & @LF)
    ConsoleWrite( "Adapter DAC Type: " & $objItem.AdapterDACType & @LF)
    ConsoleWrite( "Adapter RAM: " & $objItem.AdapterRAM & @LF)
    ConsoleWrite( "Availability: " & $objItem.Availability & @LF)
    ConsoleWrite( "Color Table Entries: " & $objItem.ColorTableEntries & @LF)
    ConsoleWrite( "Current Bits Per Pixel: " & $objItem.CurrentBitsPerPixel & @LF)
    ConsoleWrite( "Current Horizontal Resolution: " & _
    $objItem.CurrentHorizontalResolution & @LF)
    ConsoleWrite( "Current Number of Colors: " & $objItem.CurrentNumberOfColors & @LF)
    ConsoleWrite( "Current Number of Columns: " & $objItem.CurrentNumberOfColumns & @LF)
    ConsoleWrite( "Current Number of Rows: " & $objItem.CurrentNumberOfRows & @LF)
    ConsoleWrite( "Current Refresh Rate: " & $objItem.CurrentRefreshRate & @LF)
    ConsoleWrite( "Current Scan Mode: " & $objItem.CurrentScanMode & @LF)
    ConsoleWrite( "Current Vertical Resolution: " & _
    $objItem.CurrentVerticalResolution & @LF)
    ConsoleWrite( "Description: " & $objItem.Description & @LF)
    ConsoleWrite( "Device ID: " & $objItem.DeviceID & @LF)
    ConsoleWrite( "Device Specific Pens: " & $objItem.DeviceSpecificPens & @LF)
    ConsoleWrite( "Dither Type: " & $objItem.DitherType & @LF)
    ConsoleWrite( "Driver Date: " & $objItem.DriverDate & @LF)
    ConsoleWrite( "Driver Version: " & $objItem.DriverVersion & @LF)
    ConsoleWrite( "ICM Intent: " & $objItem.ICMIntent & @LF)
    ConsoleWrite( "ICM Method: " & $objItem.ICMMethod & @LF)
    ConsoleWrite( "INF Filename: " & $objItem.InfFilename & @LF)
    ConsoleWrite( "INF Section: " & $objItem.InfSection & @LF)
    ConsoleWrite( "Installed Display Drivers: " & _
    $objItem.InstalledDisplayDrivers & @LF)
    ConsoleWrite( "Maximum Memory Supported: " & $objItem.MaxMemorySupported & @LF)
    ConsoleWrite( "Maximum Number Controlled: " & $objItem.MaxNumberControlled & @LF)
    ConsoleWrite( "Maximum Refresh Rate: " & $objItem.MaxRefreshRate & @LF)
    ConsoleWrite( "Minimum Refresh Rate: " & $objItem.MinRefreshRate & @LF)
    ConsoleWrite( "Monochrome: " & $objItem.Monochrome & @LF)
    ConsoleWrite( "Name: " & $objItem.Name & @LF)
    ConsoleWrite( "Number of Color Planes: " & $objItem.NumberOfColorPlanes & @LF)
    ConsoleWrite( "Number of Video Pages: " & $objItem.NumberOfVideoPages & @LF)
    ConsoleWrite( "PNP Device ID: " & $objItem.PNPDeviceID & @LF)
    ConsoleWrite( "Reserved System Palette Entries: " & _
    $objItem.ReservedSystemPaletteEntries & @LF)
    ConsoleWrite( "Specification Version: " & $objItem.SpecificationVersion & @LF)
    ConsoleWrite( "System Palette Entries: " & $objItem.SystemPaletteEntries & @LF)
    ConsoleWrite( "Video Architecture: " & $objItem.VideoArchitecture & @LF)
    ConsoleWrite( "Video Memory Type: " & $objItem.VideoMemoryType & @LF)
    ConsoleWrite( "Video Mode: " & $objItem.VideoMode & @LF)
    ConsoleWrite( "Video Mode Description: " & $objItem.VideoModeDescription & @LF)
    ConsoleWrite( "Video Processor: " & $objItem.VideoProcessor & @LF)
    ConsoleWrite( "====================================================================" & @CRLF)
    Next

    [/autoit]

  • Array "Umstrukutieren"

    z.B. so:

    [autoit]

    Local $array[4] = ['beispiel;100','beispiel2; 200','beispiel3; 300','beispiel4; 400']

    [/autoit][autoit][/autoit][autoit]

    For $i = 0 To UBound($array) -1 ; aufpassen auf deinen Startindex
    $array[$i] = StringRegExpReplace($array[$i], '(?:.*;\s?)(\d*)', '$1')
    ConsoleWrite('$array[' & $i & ']: ' & $array[$i] & @CRLF)
    Next

    [/autoit]

  • TreeView Funktionszuweisung (OnEventMode) schlägt fehl

    Zitat von eukalyptus

    Wie war das jetzt mit dem Dummy? Das kapier ich irgendwie nicht...


    Hier mal die Lösung mit Dummy:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <GuiTreeView.au3>
    #include <TreeViewConstants.au3>
    #include <WindowsConstants.au3>

    [/autoit] [autoit][/autoit] [autoit]

    Opt("MustDeclareVars", 1)
    Opt("GuiOnEventMode", 1)

    [/autoit] [autoit][/autoit] [autoit]

    Global $gui, $hImage, $hTV, $aID_Sub[5], $ID_Table

    [/autoit] [autoit][/autoit] [autoit]

    $gui = GUICreate('Test TreeView')
    GUISetOnEvent($GUI_EVENT_CLOSE, '_end')
    $hTV = GUICtrlCreateTreeView(10,10,300,350,BitOR($TVS_HASBUTTONS, $TVS_HASLINES, $TVS_LINESATROOT, _
    $TVS_DISABLEDRAGDROP, $TVS_SHOWSELALWAYS), $WS_EX_CLIENTEDGE)
    Global $WM_NOTIFY_DUMMY = GUICtrlCreateDummy()
    GUICtrlSetOnEvent($WM_NOTIFY_DUMMY, "TreeViewClick")

    [/autoit] [autoit][/autoit] [autoit]

    $hImage = _GUIImageList_Create(16, 16, 5, 3)
    _GUIImageList_AddIcon($hImage, "shell32.dll", 98)
    _GUIImageList_AddIcon($hImage, "shell32.dll", 96)
    _GUIImageList_AddIcon($hImage, "shell32.dll", 36)
    _GUICtrlTreeView_SetNormalImageList($hTV, $hImage)

    [/autoit] [autoit][/autoit] [autoit]

    _GUICtrlTreeView_BeginUpdate($hTV)
    $ID_Table = _GUICtrlTreeView_Add($hTV, 0, 'Table', 0, 0)
    For $i = 1 To 5
    $aID_Sub[$i-1] = _GUICtrlTreeView_AddChild($hTV, $ID_Table, 'Sub' & $i, 1, 1)
    For $j = 1 To 3
    _GUICtrlTreeView_AddChild($hTV, $aID_Sub[$i-1], 'Sub_Sub' & $j, 2, 2)
    Next
    Next
    _GUICtrlTreeView_EndUpdate($hTV)
    _GUICtrlTreeView_Expand($hTV, $ID_Table)

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState()
    GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    Sleep(100)
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Func _end()
    Exit
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func TreeViewClick()
    Local $hTVItem = _GUICtrlTreeView_GetSelection($hTV)
    MsgBox(0, 'Item - Text', _GUICtrlTreeView_GetText($hTV, $hTVItem) )
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
    #forceref $hWnd, $iMsg, $iwParam
    Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndTreeview
    $hWndTreeview = $hTV
    If Not IsHWnd($hWndTreeview) Then $hWndTreeview = GUICtrlGetHandle($hTV)

    [/autoit] [autoit][/autoit] [autoit]

    $tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
    $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
    $iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
    $iCode = DllStructGetData($tNMHDR, "Code")
    If ($hWndFrom = $hWndTreeview) And ($iCode = $NM_CLICK) Then GUICtrlSendToDummy($WM_NOTIFY_DUMMY)
    Return $GUI_RUNDEFMSG
    EndFunc ;==>WM_NOTIFY

    [/autoit]