Beiträge von Tweaky

  • AutoIt Windows Screenshooter v1.87 Build 2026-09-01

    Danke UEZ,
    das mit der Breite vom Webseitenscreenshot funktioniert.

    Hätte da noch 2 Verbesserungen.
    1. Das beenden mit der ESC-Taste sollte auch funktionieren, wenn man eine bestimmte Länge eingestellt hat.
    2. Wäre es möglich nach dem Webseitenscreenshot eine Art Autobeschneiden einzubauen. Es sollte der unnötigte gleichfarbige Rand rechts und links abgeschnitten werden. Geht dies mit den Pixel...-Funktionen?
    Dann wäre es nicht ganz so tragisch, wenn eine Breite von 1920 ausgewählt würde und die Webseite nur auf 1024 optimiert ist.

  • AutoIt Windows Screenshooter v1.87 Build 2026-09-01

    Hi UEZ,
    ich habe eben bemerkt, dass der Webseitenscreenshot von deinem Tool anders aussieht als im Firefox bzw. IE.

    Firefox 11 (erstellt mit Fireshot, so siehts auch in Wirklichkeit aus)
    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    dein Tool
    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    Bei deinem Tool ist das ganze in der Breite gequetscht.
    Woran kann dies liegen?

    Nutze Win 7 Pro SP1 64bit.
    Monitorauflösung 1920x1200

  • Transparenz bei MouseOver switchen

    Danke,
    jedoch funktioniert es nicht zu 100%.
    Gibt mal bei dir als Zeit 2000 ein.
    Dann funktionierts nicht mehr.

    Habs mal umgebaut

    Spoiler anzeigen
    [autoit]

    #region - TimeStamp
    ; 2012-05-21 19:02:36
    #endregion - TimeStamp

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

    #include <WinAPI.au3>

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

    ;~ Opt("TrayIconDebug", 1) ; 0=keine Info, 1=Debug Zeileninfo

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

    $hGUI = GUICreate('TEST')
    WinSetTrans($hGUI, '', 150)
    GUISetState()

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

    While True
    _TransOffByMouseOver($hGUI, -1, -1, 2000) ; == letzter Parameter ist Zeit in ms für den Übergang der Transparenz
    Switch GUIGetMsg()
    Case -3
    Exit
    EndSwitch
    WEnd

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

    ;===============================================================================
    ; Function Name....: _TransOffByMouseOver
    ; Description......: Verändert Transparenz eines Fensters bei Maus über/nicht über Fenster
    ; Parameter(s).....: $_hGui Fensterhandle
    ; .................: $_iTrans Transparenz bei Maus nicht über Fenster (Standard 150)
    ; .................: $_iTransOff Transparenz bei Maus über Fenster (Standard 255, undurchsichtig)
    ; ........optional.: $_iTimeSmooth Zeit für den weichen Übergang der Transparenz in ms, Standard=0
    ; Requirement(s)...: #include <WinAPI.au3>
    ; Return Value(s)..: nichts
    ; Author(s)........: BugFix ( [email='bugfix@autoit.de'][/email] )
    ;===============================================================================

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

    Func _TransOffByMouseOver($_hGui, $_iTrans = -1, $_iTransOff = -1, $_iTimeSmooth = 0)
    If $_iTrans = -1 Then $_iTrans = 150
    If $_iTrans < 0 Then $_iTrans = 0
    If $_iTransOff = -1 Then $_iTransOff = 255
    If $_iTransOff > 255 Then $_iTransOff = 255
    If $_iTimeSmooth < 0 Then $_iTimeSmooth = 0
    Local $tGui = _WinAPI_GetWindowRect($_hGui)
    Local $posMouse = MouseGetPos(), $iStep, $ret, $iCurr = $_iTrans, $timer
    Local Static $fTrans = True
    $ret = DllCall("user32", "long", "PtInRect", "ptr", DllStructGetPtr($tGui), "long", $posMouse[0], "long", $posMouse[1])
    If $ret[0] Then
    If $fTrans Then
    $fTrans = False
    If $_iTimeSmooth > 0 Then
    $zeit = $_iTimeSmooth / ($_iTransOff - $_iTrans)
    $iCurr = $_iTrans
    While $iCurr < $_iTransOff
    $iCurr += 1
    WinSetTrans($_hGui, '', $iCurr)
    $timer = TimerInit()
    Do
    Until TimerDiff($timer) >= $zeit
    WEnd
    Else
    WinSetTrans($_hGui, '', $_iTransOff)
    EndIf
    EndIf
    Else
    If Not $fTrans Then
    $fTrans = True
    If $_iTimeSmooth > 0 Then
    $zeit = $_iTimeSmooth / ($_iTransOff - $_iTrans)
    $iCurr = $_iTransOff
    While $iCurr > $_iTrans
    $iCurr -= 1
    WinSetTrans($_hGui, '', $iCurr)
    $timer = TimerInit()
    Do
    Until TimerDiff($timer) >= $zeit
    WEnd
    Else
    WinSetTrans($_hGui, '', $_iTrans)
    EndIf
    EndIf
    EndIf
    EndFunc ;==>_TransOffByMouseOver

    [/autoit]

    Willst du es so übernehmen?

  • ManageIncludes - Includeorganisation in SciTE mit Lua-Skript

    Test der 0.17

    OK, das mit dem einfügen einer Leerzeile funktioniert nun.
    Aber:
    Nun wird bei jedem starten deines Tools immer die oberste Zeile gelöscht (egal ob diese leer oder mit Inhalt ist)
    Testen kannst du es mit dem vorherigen Beispiel.

    Bei folgendem Bsp klappt auch was nicht:

    Spoiler anzeigen
    [autoit]

    Global $iMemo

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

    _Main()

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

    Func _Main()
    Local $tTime

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

    ; Erstellt die GUI
    GUICreate("Zeit", 400, 300)
    $iMemo = GUICtrlCreateEdit("", 2, 2, 396, 296, $WS_VSCROLL)
    GUICtrlSetFont($iMemo, 9, 400, 0, "Courier New")
    GUISetState()

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

    ; Zeigt Systemdatum und -zeit
    $tTime = _Date_Time_GetSystemTime()
    MemoWrite("Systemdatum/-zeit : " & _Date_Time_SystemTimeToDateTimeStr($tTime))
    MemoWrite("Systemdatum/-zeit : " & _Date_Time_SystemTimeToDateTimeStr($tTime, 1))

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

    ; Die Schleife wiederholt sich, bis der Benutzer die Beenden-Aktion der GUI auslöst
    Do
    Until GUIGetMsg() = $GUI_EVENT_CLOSE

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

    EndFunc ;==>_Main

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

    ; Schreibt eine Zeile in das Memo Control
    Func MemoWrite($sMessage)
    GUICtrlSetData($iMemo, $sMessage & @CRLF, 1)
    EndFunc ;==>MemoWrite

    [/autoit]


    Nach einmal starten deines Tools sieht das Skript so aus

    Spoiler anzeigen
    [autoit]

    #Include <Date.au3>
    #Include <GUIConstantsEx.au3>
    #Include <WindowsConstants.au3>Global $iMemo

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

    _Main()

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

    Func _Main()
    Local $tTime

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

    ; Erstellt die GUI
    GUICreate("Zeit", 400, 300)
    $iMemo = GUICtrlCreateEdit("", 2, 2, 396, 296, $WS_VSCROLL)
    GUICtrlSetFont($iMemo, 9, 400, 0, "Courier New")
    GUISetState()

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

    ; Zeigt Systemdatum und -zeit
    $tTime = _Date_Time_GetSystemTime()
    MemoWrite("Systemdatum/-zeit : " & _Date_Time_SystemTimeToDateTimeStr($tTime))
    MemoWrite("Systemdatum/-zeit : " & _Date_Time_SystemTimeToDateTimeStr($tTime, 1))

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

    ; Die Schleife wiederholt sich, bis der Benutzer die Beenden-Aktion der GUI auslöst
    Do
    Until GUIGetMsg() = $GUI_EVENT_CLOSE

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

    EndFunc ;==>_Main

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

    ; Schreibt eine Zeile in das Memo Control
    Func MemoWrite($sMessage)
    GUICtrlSetData($iMemo, $sMessage & @CRLF, 1)
    EndFunc ;==>MemoWrite

    [/autoit]

    Folgendes Bsp funktioniert auch nicht (Am Anfang 3 Leerzeilen einfügen)

    Spoiler anzeigen
    [autoit]

    Dim $a[10][2]

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

    _Array2DAdd($a, "X|Y")

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

    _ArrayDisplay($a)

    [/autoit]


    Nach dem 1. Start siehts so aus (funktioniert)

    Spoiler anzeigen
    [autoit]

    #Include <ArrayMore.au3>

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

    Dim $a[10][2]

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

    _Array2DAdd($a, "X|Y")

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

    _ArrayDisplay($a)

    [/autoit]


    Nach dem 2. Start siehts so aus (funktioniert, jedoch ist array.au3 unnötig)

    Spoiler anzeigen
    [autoit]

    #Include <Array.au3>
    #Include <ArrayMore.au3>

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

    Dim $a[10][2]

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

    _Array2DAdd($a, "X|Y")

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

    _ArrayDisplay($a)

    [/autoit]

  • ManageIncludes - Includeorganisation in SciTE mit Lua-Skript

    Schäm Dich BugFix :rofl:

    Mein vorheriges Bsp funktioniert nun.

    Habe allerdings nun noch was anderes entdeckt.

    Stehen die Includes nicht in der ersten Zeile, so wird immer beim starten deines Tools nach dem letzten Include eine Leerzeile eingefügt (zum testen am Anfang eine Leerzeile einfügen)
    Bsp:

    Spoiler anzeigen
    [autoit]


    #Include <Date.au3>
    #Include <GUIConstantsEx.au3>
    #Include <WindowsConstants.au3>

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

    Global $iMemo

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

    _Main()

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

    Func _Main()
    Local $tTime

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

    ; Erstellt die GUI
    GUICreate("Zeit", 400, 300)
    $iMemo = GUICtrlCreateEdit("", 2, 2, 396, 296, $WS_VSCROLL)
    GUICtrlSetFont($iMemo, 9, 400, 0, "Courier New")
    GUISetState()

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

    ; Zeigt Systemdatum und -zeit
    $tTime = _Date_Time_GetSystemTime()
    MemoWrite("Systemdatum/-zeit : " & _Date_Time_SystemTimeToDateTimeStr($tTime))
    MemoWrite("Systemdatum/-zeit : " & _Date_Time_SystemTimeToDateTimeStr($tTime, 1))

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

    ; Die Schleife wiederholt sich, bis der Benutzer die Beenden-Aktion der GUI auslöst
    Do
    Until GUIGetMsg() = $GUI_EVENT_CLOSE

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

    EndFunc ;==>_Main

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

    ; Schreibt eine Zeile in das Memo Control
    Func MemoWrite($sMessage)
    GUICtrlSetData($iMemo, $sMessage & @CRLF, 1)
    EndFunc ;==>MemoWrite

    [/autoit]

  • ManageIncludes - Includeorganisation in SciTE mit Lua-Skript

    Alle Fehler die du als fixed beschrieben hast, sind gefixt :thumbup:

    Zwecks dem Fehler mit dem löschen:
    Bsp:

    Spoiler anzeigen
    [autoit]

    Dim $a[10]
    _ArrayDisplay($a)

    [/autoit]


    Durch den Tool lautet das Bsp:

    Spoiler anzeigen
    [autoit]

    #Include <Array.au3>
    Dim $a[10]
    _ArrayDisplay($a)

    [/autoit]


    In der Console steht

    Spoiler anzeigen


    Wieder starte ich dein Tool:

    Spoiler anzeigen
    [autoit]

    Dim $a[10]
    _ArrayDisplay($a)

    [/autoit]


    In der Console steht

    Spoiler anzeigen

    Ich habe Win 7 pro 64bit SP1.
    Ja es appiert bei jedem Skript.

  • ManageIncludes - Includeorganisation in SciTE mit Lua-Skript

    Hab die 0.14 getestet.

    Der Installer funktioniert soweit.
    Allerdings wird die "ManageIncludes.lua" nicht überschrieben wenn sie bereits existiert.
    Wäre es nicht sinnvoller die Datei die in "...\AppData\Roaming" geschrieben werden in ein Unterordner zu packen, damit man die Dateien später besser zuordnen kann?

    Die Includes werden immer in die 3. Zeile geschrieben auch wenn in der ersten Zeile Code steht. Ist dies so gewollt?

    Die Beispiele die ich gepostet habe funktionieren nun :thumbup:

    Dieser Fehler existiert noch:
    Wenn ich die Tastenkombination erneut drücke verschwinden die Zeilen mit dem include wieder.
    Ich poste es nur noch einmal, da ich nicht weiß ob du schon versucht hast ihn zu beheben ;)

    Sonst passts :thumbup:

  • ManageIncludes - Includeorganisation in SciTE mit Lua-Skript

    Super Arbeit :thumbup:
    Habe sehr lange OrganizeIncludes von Xeno benutzt.
    Bin dann vor einem Jahr auf "IncludesHelper" aus dem englischen Forum gestoßen.
    Ist etwas besser als OI.
    Einzig das einlesen der includes dauert sehr lange wenn sich daran was geändert hat.

    Deshalb habe ich deine Version mal getestet. (V0.13)
    Teilweise fehlt ein Include.
    Ich hoffe ich habe alle Datei korrekt geändert.
    Ich habe alles durchgeführt außer den Abschnitt "Soll hinter einem bestimmten Textstring eingefügt werden ..."
    Du kannst die Beispiele bei dir mal gegentesten :rolleyes:

    Bsp 1:

    Spoiler anzeigen
    [autoit]


    $Debug_LV = False ; Prüft den Klassennamen (ClassName), der an die ListView-Funktion übergeben wird. Setze dies versuchsweise auf True und verwende dann ein Handle zu einem anderen Control, um die Funktionsweise zu verstehen.

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

    Example_UDF_Created()

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

    Func Example_UDF_Created()
    Local $GUI, $hImage, $aImage, $hListView

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

    $GUI = GUICreate("ListView: Setzt das Hintergrundbild (UDF)", 600, 550)
    ;=========================================================================================================
    $hListView = _GUICtrlListView_Create($GUI, "", 2, 2, 596, 500, -1, -1, True) ; Der letzte Parameter führt zum Aufruf von CoInitializeEx
    ;=========================================================================================================
    _GUICtrlListView_SetExtendedListViewStyle($hListView, BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_DOUBLEBUFFER))

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

    ; Lädt die Bilder
    $hImage = _GUIImageList_Create()
    _GUIImageList_Add($hImage, _GUICtrlListView_CreateSolidBitMap($hListView, 0xFF0000, 16, 16))
    _GUIImageList_Add($hImage, _GUICtrlListView_CreateSolidBitMap($hListView, 0x00FF00, 16, 16))
    _GUIImageList_Add($hImage, _GUICtrlListView_CreateSolidBitMap($hListView, 0x0000FF, 16, 16))
    _GUICtrlListView_SetImageList($hListView, $hImage, 1)

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

    ; Fügt die Spalten hinzu
    _GUICtrlListView_InsertColumn($hListView, 0, "Spalte 1", 120)
    _GUICtrlListView_InsertColumn($hListView, 1, "Spalte 2", 120)
    _GUICtrlListView_InsertColumn($hListView, 2, "Spalte 3", 120)

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

    ; Fügt die Items hinzu
    _GUICtrlListView_AddItem($hListView, "Zeile 1: Spalte 1", 0)
    _GUICtrlListView_AddSubItem($hListView, 0, "Zeile 1: Spalte 2", 1)
    _GUICtrlListView_AddSubItem($hListView, 0, "Zeile 1: Spalte 3", 2)
    _GUICtrlListView_AddItem($hListView, "Zeile 2: Spalte 1", 1)
    _GUICtrlListView_AddSubItem($hListView, 1, "Zeile 2: Spalte 2", 1)
    _GUICtrlListView_AddItem($hListView, "Zeile 3: Spalte 1", 2)

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

    ; Bildet Gruppen
    _GUICtrlListView_EnableGroupView($hListView)
    _GUICtrlListView_InsertGroup($hListView, -1, 1, "Gruppe 1")
    _GUICtrlListView_InsertGroup($hListView, -1, 2, "Gruppe 2")
    _GUICtrlListView_SetItemGroupID($hListView, 0, 1)
    _GUICtrlListView_SetItemGroupID($hListView, 1, 2)
    _GUICtrlListView_SetItemGroupID($hListView, 2, 2)

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

    ; Lädt ein Bild herunter
    Local $sURL = "http://www.autoitscript.com/autoit3/files/graphics/autoit9_wall_grey_800x600.jpg"
    Local $sFilePath = @ScriptDir & "\AutoIt.jpg"
    InetGet($sURL, $sFilePath)

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

    ; Setzt das Hintergrundbild
    _GUICtrlListView_SetBkImage($hListView, $sFilePath)
    $aImage = _GUICtrlListView_GetBkImage($hListView)

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

    GUISetState()
    MsgBox(4160, "Information", "Hintergrundbild: " & @CRLF & $aImage[1])

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

    ; Die Schleife wiederholt sich, bis der Benutzer die Beenden-Aktion der GUI auslöst
    Do
    Until GUIGetMsg() = $GUI_EVENT_CLOSE
    ;=========================================================================================================
    DllCall('ole32.dll', 'long', 'CoUinitialize') ; Muss für jeden Aufruf von CoInitializeEx ausgeführt werden
    ;=========================================================================================================

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

    GUIDelete()
    FileDelete($sFilePath)
    EndFunc ;==>Example_UDF_Created

    [/autoit]


    Es werden nur folgende Includes eingetragen

    Spoiler anzeigen
    [autoit]

    #Include <GUIConstantsEx.au3>
    #Include <ListViewConstants.au3>

    [/autoit]

    Richtig wäre jedoch

    Spoiler anzeigen
    [autoit]

    #Include <GuiListView.au3>
    #Include <GuiImageList.au3>
    #Include <GUIConstantsEx.au3>

    [/autoit]

    Bsp 2:

    Spoiler anzeigen
    [autoit]

    Dim $a[10]
    _ArrayDisplay($a)

    [/autoit]


    Hier wird gar kein Include eingetragen

    Richitg wäre eigentlich

    Spoiler anzeigen
    [autoit]

    #Include <Array.au3>

    [/autoit]

    Verbesserungen:
    1. Wenn ich die Tastenkombination erneut drücke verschwinden die Zeilen mit dem include wieder. Ist dies so gewollt :?:
    2. Du hast geschrieben, dass man bei Änderung der includes die Datei löschen soll, damit diese neu angelegt werden kann. Geht dies nicht automatisch? Beim IncludesHelper geht dies. Ich denke es wird einfach das Änderungsdatum geprüft und dann nach bedarf die Datei automatisch neu erzeugt.
    3. Könntest du bei deiner Anleitung noch ergänzen in welchen Ordner die Datei liegen die geändert werden müssen. Sonst ist das immer so eine Sucherei.