Beiträge von Oscar

  • Desktopsperre per USB-Stick

    Ich habe das Script mal etwas angepasst, damit es auch mit der aktuellen AutoIt-Version läuft.
    Jetzt auch besserer Schutz unter Windows7. Auch mit [STRG] + [ALT] + [ENTF] kann man den Schutz nicht mehr umgehen.
    Alles weitere in Post #1.

  • Hilfe beim Übertragen von einem Array in einen Listview

    Nun, da Du kein lauffähiges Scriptbeispiel mitlieferst kann man nur raten.
    In Zeile 14 addierst Du zwei "Spalten" (Trenner "|" vorhanden) in das Array $treffer_arry.
    Beim erstellen des Listview benutzt Du eine Variable ($texts[$language][70]), dessen Inhalt ich nicht kenne. Wird hier ebenfalls ein Listview mit zwei Spalten erzeugt?
    Wenn nein, dann hast Du Deinen Fehler gefunden. ;)

  • !! Bildschirm !!

    Hier mal ein Beispiel:

    Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    Opt('GUIOnEventMode', 1)

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

    Global $hGUI = GUICreate('Test', 600, 600, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU, $WS_SIZEBOX))
    GUISetOnEvent($GUI_EVENT_CLOSE, '_End')

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

    GUISetState()
    GUIRegisterMsg($WM_GETMINMAXINFO, "MY_WM_GETMINMAXINFO")

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

    While True
    Sleep(100)
    WEnd

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

    Func _End()
    Exit
    EndFunc ;==>_End

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

    Func MY_WM_GETMINMAXINFO($hWnd, $msg, $wParam, $lParam)
    If $hWnd = $hGUI Then
    Local $minmaxinfo = DllStructCreate("int;int;int;int;int;int;int;int;int;int", $lParam)
    DllStructSetData($minmaxinfo, 7, 200) ; min X
    DllStructSetData($minmaxinfo, 8, 200) ; min Y
    DllStructSetData($minmaxinfo, 9, 800) ; max X
    DllStructSetData($minmaxinfo, 10, 800) ; max Y
    EndIf
    EndFunc ;==>MY_WM_GETMINMAXINFO

    [/autoit]

  • Kompiliertes Script soll "sich selbst" löschen können.

    Möglicherweise gibt es Probleme, weil in der Funktion die Backslashes nach dem Pfad fehlen. Probiere es mal so:

    Spoiler anzeigen
    [autoit]


    _SelfDelete()

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

    Func _SelfDelete()
    Local $cmdfile
    FileDelete(@TempDir & "\scratch.cmd")
    $cmdfile = ':loop' & @CRLF _
    & 'del "' & @ScriptFullPath & '"' & @CRLF _
    & 'if exist "' & @ScriptFullPath & '" goto loop' & @CRLF _
    & 'del ' & @TempDir & '\scratch.cmd'
    FileWrite(@TempDir & "\scratch.cmd", $cmdfile)
    Run(@TempDir & "\scratch.cmd", @TempDir, @SW_HIDE)
    EndFunc

    [/autoit]

  • GUI TreeView: Eine hoffentlich leichte Frage

    Ich würde es so machen:

    Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>
    #include <TreeViewConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 253, 342, 192, 124)
    $TreeView1 = GUICtrlCreateTreeView(12, 12, 229, 219)
    $TreeView1_0 = GUICtrlCreateTreeViewItem("1", $TreeView1)
    $TreeView1_1 = GUICtrlCreateTreeViewItem("1a", $TreeView1_0)
    $TreeView1_2 = GUICtrlCreateTreeViewItem("1b", $TreeView1_0)
    $TreeView1_3 = GUICtrlCreateTreeViewItem("2", $TreeView1)
    $TreeView1_4 = GUICtrlCreateTreeViewItem("2a", $TreeView1_3)
    $TreeView1_5 = GUICtrlCreateTreeViewItem("2b", $TreeView1_3)
    $TreeView1_6 = GUICtrlCreateTreeViewItem("3", $TreeView1)
    $TreeView1_7 = GUICtrlCreateTreeViewItem("3a", $TreeView1_6)
    $TreeView1_8 = GUICtrlCreateTreeViewItem("3b", $TreeView1_6)
    $Edit = GUICtrlCreateEdit("", 12, 230, 229, 109)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    Global $iDblClkTimer = TimerInit(), $iDoubleClickSpeed = RegRead('HKCU\Control Panel\Mouse', 'DoubleClickSpeed')
    Global $aText[3][3] = [['Text1', 'Text1a', 'Text1b'],['Text2', 'Text2a', 'Text2b'],['Text3', 'Text3a', 'Text3b']] ; <- hier den zugeordneten Text eintragen
    Global $iSelItem, $aSelItem, $aCursorInfo

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $GUI_EVENT_PRIMARYUP ; Linke Maustaste losgelassen
    $aCursorInfo = GUIGetCursorInfo($Form1) ; GUI-Element ermitteln, damit nur beim Klick auf das Treeview reagiert wird
    If $aCursorInfo[4] = $TreeView1 Then ; wenn auf's Treeview geklickt wurde, dann...
    $iSelItem = StringReplace(ControlTreeView($Form1, '', $TreeView1, 'GetSelected', 1), '#', '') & '|-1' ; Index vom Treeview holen und # entfernen
    $aSelItem = StringSplit($iSelItem, '|', 2) ; Index trennen
    ;~ ConsoleWrite($aSelItem[0] & ' ' & $aSelItem[1] & @CR)
    GUICtrlSetData($Edit, $aText[$aSelItem[0]][$aSelItem[1] + 1]) ; Text in Edit-Control eintragen
    If TimerDiff($iDblClkTimer) < $iDoubleClickSpeed Then ; Zeitdifferenz kleiner als Doppelklick-Geschwindigkeit, dann...
    MsgBox(0, 'Test', 'Doppelklick' & @CRLF & $aText[$aSelItem[0]][$aSelItem[1] + 1]) ; <- Doppelklick-Event
    EndIf
    $iDblClkTimer = TimerInit()
    EndIf
    EndSwitch
    WEnd

    [/autoit]

    Edit: Wenn Dir die Doppelklickgeschwindigkeit nicht schnell genug ist, dann im System anpassen oder den Wert von $iDoubleClickSpeed auf die entsprechenden Millisekunden setzen.

  • Bug _FTP_FileTimeLoHiToStr

    Wenn ich (mit Version 3.3.10.2) den Wert (letzte Ziffer) ändere, dann erhalte ich auch einen anderen Wert für die Sekunden. An der 3.3.10.2 kann das nicht liegen.
    Eventuell bereits vorher (FTP-Server liefert "falsche" Werte)?

  • GUI TreeView: Eine hoffentlich leichte Frage

    Ich weiß nicht so recht, ob ich das vielleicht falsch verstehe, aber suchst Du nicht einfach sowas:

    Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>
    #include <TreeViewConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 253, 342, 192, 124)
    $TreeView1 = GUICtrlCreateTreeView(12, 12, 229, 219)
    $TreeView1_0 = GUICtrlCreateTreeViewItem("1", $TreeView1)
    $TreeView1_1 = GUICtrlCreateTreeViewItem("1a", $TreeView1_0)
    $TreeView1_2 = GUICtrlCreateTreeViewItem("1b", $TreeView1_0)
    $TreeView1_3 = GUICtrlCreateTreeViewItem("2", $TreeView1)
    $TreeView1_4 = GUICtrlCreateTreeViewItem("2a", $TreeView1_3)
    $TreeView1_5 = GUICtrlCreateTreeViewItem("2b", $TreeView1_3)
    $TreeView1_6 = GUICtrlCreateTreeViewItem("3", $TreeView1)
    $TreeView1_7 = GUICtrlCreateTreeViewItem("3a", $TreeView1_6)
    $TreeView1_8 = GUICtrlCreateTreeViewItem("3b", $TreeView1_6)
    $Edit = GUICtrlCreateEdit("", 12, 230, 229, 109)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    Global $iDblClkTimer = TimerInit(), $iDoubleClickSpeed = RegRead('HKCU\Control Panel\Mouse', 'DoubleClickSpeed')
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $GUI_EVENT_PRIMARYUP ; Linke Maustaste losgelassen
    $iSelItem = ControlTreeView($Form1, '', $TreeView1, 'GetSelected')
    $sItemText = ControlTreeView($Form1, '', $TreeView1, 'GetText', $iSelItem)
    GUICtrlSetData($Edit, $sItemText)
    If TimerDiff($iDblClkTimer) < $iDoubleClickSpeed Then ; Zeitdifferenz kleiner als Doppelklick-Geschwindigkeit, dann...
    MsgBox(0, 'Test', 'Doppelklick' & @CRLF & $sItemText)
    EndIf
    $iDblClkTimer = TimerInit()
    EndSwitch
    WEnd

    [/autoit]