Jump to content

Clipper - Clipboard manager

CaptainSparky

By CaptainSparky,
in AutoIt Example Scripts

 Share

Recommended Posts

CaptainSparky Seeker

CaptainSparky

Posted
Posted (edited)

Hello.

I have designed and created a simple Clipboard manager in AutoIt. The project is open for any ideas, I hope you found it useful (and if you did please like my post so I can continue making software).

Features

[Done] Can store data in up to 5 slots.

[Done] Options form.

[Done] System Tray menu.

[Done] Supports Hot-keys when pasting/copying data.

[Done] Ability to copy and store text.

[Done] Clipper theme.

[Coming soon] Ability to copy and store files and folders.

[Coming soon] Clipboard history form. ( currently logs history into a text file )

And Much Much More!

Source

; Clipper - Clipboard manager
; Created by TheNewHunter/TheNewGuy
; Version 0.3553
; PLEASE leave a like on the post and I will make more software!

;@#############################################################@
;# Configuration # Configuration # Configuration # Configurati #
;#                                                             #
$FormName = "Clipper" ;The form's name                        ;#
$FormNameOptions = "Options" ; The options form name          ;#
;#                                                             #
;# Configuration # Configuration # Configuration # Configurati #
;@#############################################################@

Opt("TrayMenuMode", 3) ;Don't touch unless you understand. [Function: Hides the default AutoIt system tray menu.]

$tbOptions = TrayCreateItem("Options")
TrayCreateItem("")
$tbExit = TrayCreateItem("Exit " & $FormName)
$ClipboardLogging = "true"

#include <GUIConstantsEx.au3>;Don't touch unless you understand. [Function: Include the required library(s).]
#include <WindowsConstants.au3>;Don't touch unless you understand. [Function: Include the required library(s).]
#include <TrayConstants.au3>;Don't touch unless you understand. [Function: Include the required library(s).]
#include <ButtonConstants.au3>;Don't touch unless you understand. [Function: Include the required library(s).]
#include <ComboConstants.au3>;Don't touch unless you understand. [Function: Include the required library(s).]
#include <EditConstants.au3>;Don't touch unless you understand. [Function: Include the required library(s).]
#include <StaticConstants.au3>;Don't touch unless you understand. [Function: Include the required library(s).]
#include <file.au3>;Don't touch unless you understand. [Function: Include the required library(s).]

If Not FileExists(@ScriptDir & "\Clipboard Logging.txt") Then
    _FileCreate(@ScriptDir & "\Clipboard Logging.txt")
EndIf

HotKeySet("^c", "ClipperActivateCopy")
HotKeySet("^v", "ClipperActivatePaste")
$Form = GUICreate($FormName, 170, 170, 192, 146, BitOR($WS_POPUP, $WS_CAPTION))
$bClipper1 = GUICtrlCreateButton("Save", 16, 8, 137, 25)
$bClipper2 = GUICtrlCreateButton("Save", 16, 40, 137, 25)
$bClipper3 = GUICtrlCreateButton("Save", 16, 72, 137, 25)
$bClipper4 = GUICtrlCreateButton("Save", 16, 104, 137, 25)
$bClipper5 = GUICtrlCreateButton("Save", 16, 136, 137, 25)
GUISetState(@SW_HIDE)

Global $GottenClipboard
Global $ClipperData[5]
Global $ClipperPopulation[5]
Global $LoopLock = "false"
Global $ClipboardLogging

$ClipperPopulation[0] = "empty"
$ClipperPopulation[1] = "empty"
$ClipperPopulation[2] = "empty"
$ClipperPopulation[3] = "empty"
$ClipperPopulation[4] = "empty"

Main()

Func Main()
    While 1
        Switch TrayGetMsg()
            Case $tbExit
                Exit
            Case $tbOptions
                tbOptions()
        EndSwitch
    WEnd
EndFunc   ;==>Main

Func ClipperActivateCopy()
    HotKeySet("1", "HotKeyCopy1")
    HotKeySet("2", "HotKeyCopy2")
    HotKeySet("3", "HotKeyCopy3")
    HotKeySet("4", "HotKeyCopy4")
    HotKeySet("5", "HotKeyCopy5")
    HotKeySet("^c")
    Send("^c")
    HotKeySet("^c", "ClipperActivateCopy")
    $GottenClipboard = ClipGet()
    $MousePos = MouseGetPos()
    WinMove($FormName, "", $MousePos[0], $MousePos[1])
    WinActivate($FormName)
    ControlEnable($FormName, "", $bClipper1)
    ControlEnable($FormName, "", $bClipper2)
    ControlEnable($FormName, "", $bClipper3)
    ControlEnable($FormName, "", $bClipper4)
    ControlEnable($FormName, "", $bClipper5)

    If $ClipperPopulation[0] = "true" Then
        $StringLenght0 = StringLen($ClipperData[0])
        $TrimedString0 = StringTrimRight($ClipperData[0], $StringLenght0 - 10)
        GUICtrlSetData($bClipper1, "Replace " & $TrimedString0 & "..")
    Else
        GUICtrlSetData($bClipper1, "Save")
    EndIf

    If $ClipperPopulation[1] = "true" Then
        $StringLenght1 = StringLen($ClipperData[1])
        $TrimedString1 = StringTrimRight($ClipperData[1], $StringLenght1 - 10)
        GUICtrlSetData($bClipper2, "Replace " & $TrimedString1 & "..")
    Else
        GUICtrlSetData($bClipper2, "Save")
    EndIf

    If $ClipperPopulation[2] = "true" Then
        $StringLenght2 = StringLen($ClipperData[2])
        $TrimedString2 = StringTrimRight($ClipperData[2], $StringLenght2 - 10)
        GUICtrlSetData($bClipper3, "Replace " & $TrimedString2 & "..")
    Else
        GUICtrlSetData($bClipper3, "Save")
    EndIf

    If $ClipperPopulation[3] = "true" Then
        $StringLenght3 = StringLen($ClipperData[3])
        $TrimedString3 = StringTrimRight($ClipperData[3], $StringLenght3 - 10)
        GUICtrlSetData($bClipper4, "Replace " & $TrimedString3 & "..")
    Else
        GUICtrlSetData($bClipper4, "Save")
    EndIf

    If $ClipperPopulation[4] = "true" Then
        $StringLenght4 = StringLen($ClipperData[4])
        $TrimedString4 = StringTrimRight($ClipperData[4], $StringLenght4 - 10)
        GUICtrlSetData($bClipper5, "Replace " & $TrimedString4 & "..")
    Else
        GUICtrlSetData($bClipper5, "Save")
    EndIf

    GUISetState(@SW_SHOW)

    While 1
        If Not WinActive($FormName) Then
            GUISetState(@SW_HIDE)
            Main()
        EndIf
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                Exit
            Case $bClipper1
                GUISetState(@SW_HIDE)
                $ClipperData[0] = $GottenClipboard
                $ClipperPopulation[0] = "true"
                If $ClipboardLogging = "true" Then
                    $GottenClipboard2 = ClipGet()
                    FileWriteLine(@ScriptDir & "\Clipboard Logging.txt", "[" & @MON & "/" & @MDAY & "/" & @YEAR & "][" & @HOUR & ":" & @MIN & ":" & @SEC & "] [Copied] " & $GottenClipboard2)
                EndIf
                Main()
            Case $bClipper2
                GUISetState(@SW_HIDE)
                $ClipperData[1] = $GottenClipboard
                $ClipperPopulation[1] = "true"
                If $ClipboardLogging = "true" Then
                    $GottenClipboard2 = ClipGet()
                    FileWriteLine(@ScriptDir & "\Clipboard Logging.txt", "[" & @MON & "/" & @MDAY & "/" & @YEAR & "][" & @HOUR & ":" & @MIN & ":" & @SEC & "] [Copied] " & $GottenClipboard2)
                EndIf
                Main()
            Case $bClipper3
                GUISetState(@SW_HIDE)
                $ClipperData[2] = $GottenClipboard
                $ClipperPopulation[2] = "true"
                If $ClipboardLogging = "true" Then
                    $GottenClipboard2 = ClipGet()
                    FileWriteLine(@ScriptDir & "\Clipboard Logging.txt", "[" & @MON & "/" & @MDAY & "/" & @YEAR & "][" & @HOUR & ":" & @MIN & ":" & @SEC & "] [Copied] " & $GottenClipboard2)
                EndIf
                Main()
            Case $bClipper4
                GUISetState(@SW_HIDE)
                $ClipperData[3] = $GottenClipboard
                $ClipperPopulation[3] = "true"
                If $ClipboardLogging = "true" Then
                    $GottenClipboard2 = ClipGet()
                    FileWriteLine(@ScriptDir & "\Clipboard Logging.txt", "[" & @MON & "/" & @MDAY & "/" & @YEAR & "][" & @HOUR & ":" & @MIN & ":" & @SEC & "] [Copied] " & $GottenClipboard2)
                EndIf
                Main()
            Case $bClipper5
                GUISetState(@SW_HIDE)
                $ClipperData[4] = $GottenClipboard
                $ClipperPopulation[4] = "true"
                If $ClipboardLogging = "true" Then
                    $GottenClipboard2 = ClipGet()
                    FileWriteLine(@ScriptDir & "\Clipboard Logging.txt", "[" & @MON & "/" & @MDAY & "/" & @YEAR & "][" & @HOUR & ":" & @MIN & ":" & @SEC & "] [Copied] " & $GottenClipboard2)
                EndIf
                Main()
        EndSwitch
        Switch TrayGetMsg()
            Case $tbExit
                Exit
            Case $tbOptions
                tbOptions()
        EndSwitch
    WEnd
EndFunc   ;==>ClipperActivateCopy

Func HotKeyCopy1()
    HotKeySet("1")
    GUISetState(@SW_HIDE)
    $ClipperData[0] = $GottenClipboard
    $ClipperPopulation[0] = "true"
    If $ClipboardLogging = "true" Then
        $GottenClipboard2 = ClipGet()
        FileWriteLine(@ScriptDir & "\Clipboard Logging.txt", "[" & @MON & "/" & @MDAY & "/" & @YEAR & "][" & @HOUR & ":" & @MIN & ":" & @SEC & "] [Copied] " & $GottenClipboard2)
    EndIf
    Main()
EndFunc   ;==>HotKeyCopy1

Func HotKeyCopy2()
    HotKeySet("2")
    GUISetState(@SW_HIDE)
    $ClipperData[1] = $GottenClipboard
    $ClipperPopulation[1] = "true"
    If $ClipboardLogging = "true" Then
        $GottenClipboard2 = ClipGet()
        FileWriteLine(@ScriptDir & "\Clipboard Logging.txt", "[" & @MON & "/" & @MDAY & "/" & @YEAR & "][" & @HOUR & ":" & @MIN & ":" & @SEC & "] [Copied] " & $GottenClipboard2)
    EndIf
    Main()
EndFunc   ;==>HotKeyCopy2

Func HotKeyCopy3()
    HotKeySet("3")
    GUISetState(@SW_HIDE)
    $ClipperData[2] = $GottenClipboard
    $ClipperPopulation[2] = "true"
    If $ClipboardLogging = "true" Then
        $GottenClipboard2 = ClipGet()
        FileWriteLine(@ScriptDir & "\Clipboard Logging.txt", "[" & @MON & "/" & @MDAY & "/" & @YEAR & "][" & @HOUR & ":" & @MIN & ":" & @SEC & "] [Copied] " & $GottenClipboard2)
    EndIf
    Main()
EndFunc   ;==>HotKeyCopy3

Func HotKeyCopy4()
    HotKeySet("4")
    GUISetState(@SW_HIDE)
    $ClipperData[3] = $GottenClipboard
    $ClipperPopulation[3] = "true"
    If $ClipboardLogging = "true" Then
        $GottenClipboard2 = ClipGet()
        FileWriteLine(@ScriptDir & "\Clipboard Logging.txt", "[" & @MON & "/" & @MDAY & "/" & @YEAR & "][" & @HOUR & ":" & @MIN & ":" & @SEC & "] [Copied] " & $GottenClipboard2)
    EndIf
    Main()
EndFunc   ;==>HotKeyCopy4

Func HotKeyCopy5()
    HotKeySet("5")
    GUISetState(@SW_HIDE)
    $ClipperData[4] = $GottenClipboard
    $ClipperPopulation[4] = "true"
    If $ClipboardLogging = "true" Then
        $GottenClipboard2 = ClipGet()
        FileWriteLine(@ScriptDir & "\Clipboard Logging.txt", "[" & @MON & "/" & @MDAY & "/" & @YEAR & "][" & @HOUR & ":" & @MIN & ":" & @SEC & "] [Copied] " & $GottenClipboard2)
    EndIf
    Main()
EndFunc   ;==>HotKeyCopy5

Func ClipperActivatePaste()
    HotKeySet("1", "HotKeyPaste1")
    HotKeySet("2", "HotKeyPaste2")
    HotKeySet("3", "HotKeyPaste3")
    HotKeySet("4", "HotKeyPaste4")
    HotKeySet("5", "HotKeyPaste5")
    $MousePos = MouseGetPos()
    WinMove($FormName, "", $MousePos[0], $MousePos[1])
    WinActivate($FormName)

    If $ClipperPopulation[0] = "true" Then
        $StringLenght0 = StringLen($ClipperData[0])
        $TrimedString0 = StringTrimRight($ClipperData[0], $StringLenght0 - 10)
        GUICtrlSetData($bClipper1, "Paste " & $TrimedString0 & "..")
    Else
        GUICtrlSetData($bClipper1, "Empty")
        ControlDisable($FormName, "", $bClipper1)
    EndIf
    If $ClipperPopulation[1] = "true" Then
        $StringLenght1 = StringLen($ClipperData[1])
        $TrimedString1 = StringTrimRight($ClipperData[1], $StringLenght1 - 10)
        GUICtrlSetData($bClipper2, "Paste " & $TrimedString1 & "..")
    Else
        GUICtrlSetData($bClipper2, "Empty")
        ControlDisable($FormName, "", $bClipper2)
    EndIf
    If $ClipperPopulation[2] = "true" Then
        $StringLenght2 = StringLen($ClipperData[2])
        $TrimedString2 = StringTrimRight($ClipperData[2], $StringLenght2 - 10)
        GUICtrlSetData($bClipper3, "Paste " & $TrimedString2 & "..")
    Else
        GUICtrlSetData($bClipper3, "Empty")
        ControlDisable($FormName, "", $bClipper3)
    EndIf
    If $ClipperPopulation[3] = "true" Then
        $StringLenght3 = StringLen($ClipperData[3])
        $TrimedString3 = StringTrimRight($ClipperData[3], $StringLenght3 - 10)
        GUICtrlSetData($bClipper4, "Paste " & $TrimedString3 & "..")
    Else
        GUICtrlSetData($bClipper4, "Empty")
        ControlDisable($FormName, "", $bClipper4)
    EndIf
    If $ClipperPopulation[4] = "true" Then
        $StringLenght4 = StringLen($ClipperData[4])
        $TrimedString4 = StringTrimRight($ClipperData[4], $StringLenght4 - 10)
        GUICtrlSetData($bClipper5, "Paste " & $TrimedString4 & "..")
    Else
        GUICtrlSetData($bClipper5, "Empty")
        ControlDisable($FormName, "", $bClipper5)
    EndIf

    GUISetState(@SW_SHOW)

    While 1
        If Not WinActive($FormName) Then
            GUISetState(@SW_HIDE)
            Main()
        EndIf
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                Exit
            Case $bClipper1
                GUISetState(@SW_HIDE)
                ClipPut($ClipperData[0])
                HotKeySet("^v")
                Send("^v")
                HotKeySet("^v", "ClipperActivatePaste")
                If $ClipboardLogging = "true" Then
                    $GottenClipboard2 = ClipGet()
                    FileWriteLine(@ScriptDir & "\Clipboard Logging.txt", "[" & @MON & "/" & @MDAY & "/" & @YEAR & "][" & @HOUR & ":" & @MIN & ":" & @SEC & "] [Pasted] " & $GottenClipboard2)
                EndIf
                Main()
            Case $bClipper2
                GUISetState(@SW_HIDE)
                ClipPut($ClipperData[1])
                HotKeySet("^v")
                Send("^v")
                HotKeySet("^v", "ClipperActivatePaste")
                If $ClipboardLogging = "true" Then
                    $GottenClipboard2 = ClipGet()
                    FileWriteLine(@ScriptDir & "\Clipboard Logging.txt", "[" & @MON & "/" & @MDAY & "/" & @YEAR & "][" & @HOUR & ":" & @MIN & ":" & @SEC & "] [Pasted] " & $GottenClipboard2)
                EndIf
                Main()
            Case $bClipper3
                GUISetState(@SW_HIDE)
                ClipPut($ClipperData[2])
                HotKeySet("^v")
                Send("^v")
                HotKeySet("^v", "ClipperActivatePaste")
                If $ClipboardLogging = "true" Then
                    $GottenClipboard2 = ClipGet()
                    FileWriteLine(@ScriptDir & "\Clipboard Logging.txt", "[" & @MON & "/" & @MDAY & "/" & @YEAR & "][" & @HOUR & ":" & @MIN & ":" & @SEC & "] [Pasted] " & $GottenClipboard2)
                EndIf
                Main()
            Case $bClipper4
                GUISetState(@SW_HIDE)
                ClipPut($ClipperData[3])
                HotKeySet("^v")
                Send("^v")
                HotKeySet("^v", "ClipperActivatePaste")
                If $ClipboardLogging = "true" Then
                    $GottenClipboard2 = ClipGet()
                    FileWriteLine(@ScriptDir & "\Clipboard Logging.txt", "[" & @MON & "/" & @MDAY & "/" & @YEAR & "][" & @HOUR & ":" & @MIN & ":" & @SEC & "] [Pasted] " & $GottenClipboard2)
                EndIf
                Main()
            Case $bClipper5
                GUISetState(@SW_HIDE)
                ClipPut($ClipperData[4])
                HotKeySet("^v")
                Send("^v")
                HotKeySet("^v", "ClipperActivatePaste")
                If $ClipboardLogging = "true" Then
                    $GottenClipboard2 = ClipGet()
                    FileWriteLine(@ScriptDir & "\Clipboard Logging.txt", "[" & @MON & "/" & @MDAY & "/" & @YEAR & "][" & @HOUR & ":" & @MIN & ":" & @SEC & "] [Pasted] " & $GottenClipboard2)
                EndIf
                Main()
        EndSwitch
        Switch TrayGetMsg()
            Case $tbExit
                Exit
            Case $tbOptions
                tbOptions()
        EndSwitch
    WEnd
EndFunc   ;==>ClipperActivatePaste

Func HotKeyPaste1()
    GUISetState(@SW_HIDE)
    ClipPut($ClipperData[0])
    HotKeySet("^v")
    Send("^v")
    HotKeySet("^v", "ClipperActivatePaste")
    If $ClipboardLogging = "true" Then
        $GottenClipboard2 = ClipGet()
        FileWriteLine(@ScriptDir & "\Clipboard Logging.txt", "[" & @MON & "/" & @MDAY & "/" & @YEAR & "][" & @HOUR & ":" & @MIN & ":" & @SEC & "] [Pasted] " & $GottenClipboard2)
    EndIf
    HotKeySet("1")
    Main()
EndFunc   ;==>HotKeyPaste1

Func HotKeyPaste2()
    GUISetState(@SW_HIDE)
    ClipPut($ClipperData[1])
    HotKeySet("^v")
    Send("^v")
    HotKeySet("^v", "ClipperActivatePaste")
    If $ClipboardLogging = "true" Then
        $GottenClipboard2 = ClipGet()
        FileWriteLine(@ScriptDir & "\Clipboard Logging.txt", "[" & @MON & "/" & @MDAY & "/" & @YEAR & "][" & @HOUR & ":" & @MIN & ":" & @SEC & "] [Pasted] " & $GottenClipboard2)
    EndIf
    HotKeySet("2")
    Main()
EndFunc   ;==>HotKeyPaste2

Func HotKeyPaste3()
    GUISetState(@SW_HIDE)
    ClipPut($ClipperData[2])
    HotKeySet("^v")
    Send("^v")
    HotKeySet("^v", "ClipperActivatePaste")
    If $ClipboardLogging = "true" Then
        $GottenClipboard2 = ClipGet()
        FileWriteLine(@ScriptDir & "\Clipboard Logging.txt", "[" & @MON & "/" & @MDAY & "/" & @YEAR & "][" & @HOUR & ":" & @MIN & ":" & @SEC & "] [Pasted] " & $GottenClipboard2)
    EndIf
    HotKeySet("3")
    Main()
EndFunc   ;==>HotKeyPaste3

Func HotKeyPaste4()
    GUISetState(@SW_HIDE)
    ClipPut($ClipperData[3])
    HotKeySet("^v")
    Send("^v")
    HotKeySet("^v", "ClipperActivatePaste")
    If $ClipboardLogging = "true" Then
        $GottenClipboard2 = ClipGet()
        FileWriteLine(@ScriptDir & "\Clipboard Logging.txt", "[" & @MON & "/" & @MDAY & "/" & @YEAR & "][" & @HOUR & ":" & @MIN & ":" & @SEC & "] [Pasted] " & $GottenClipboard2)
    EndIf
    HotKeySet("4")
    Main()
EndFunc   ;==>HotKeyPaste4

Func HotKeyPaste5()
    GUISetState(@SW_HIDE)
    ClipPut($ClipperData[4])
    HotKeySet("^v")
    Send("^v")
    HotKeySet("^v", "ClipperActivatePaste")
    If $ClipboardLogging = "true" Then
        $GottenClipboard2 = ClipGet()
        FileWriteLine(@ScriptDir & "\Clipboard Logging.txt", "[" & @MON & "/" & @MDAY & "/" & @YEAR & "][" & @HOUR & ":" & @MIN & ":" & @SEC & "] [Pasted] " & $GottenClipboard2)
    EndIf
    HotKeySet("4")
    Main()
EndFunc   ;==>HotKeyPaste5

Func tbOptions()
    GUISetState(@SW_DISABLE, $Form)
    $FormOptions = GUICreate($FormNameOptions, 251, 193, 192, 124)
    $_cStartWithWindows = GUICtrlCreateCheckbox("Start with Windows", 8, 8, 113, 17)
    $_cShowSystemTrayIcon = GUICtrlCreateCheckbox("Show System Tray icon", 8, 32, 137, 17)
    $_cLogClipboardEvents = GUICtrlCreateCheckbox("Log Clipboard events", 8, 56, 121, 17)
    $_cDeleteLogsAfter = GUICtrlCreateCheckbox("Delete logs after", 8, 80, 105, 17)
    $_iDeleteLogsAfter = GUICtrlCreateInput("0", 113, 80, 65, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
    $_lDays = GUICtrlCreateLabel("days.", 184, 80, 29, 17)
    $_bSupportDeveloper = GUICtrlCreateButton("Support Developer", 8, 152, 129, 33)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    $_lTheme = GUICtrlCreateLabel("Theme", 8, 104, 37, 17)
    $_coTheme = GUICtrlCreateCombo("Clipper", 48, 104, 129, 25, BitOR($CBS_DROPDOWNLIST, $CBS_AUTOHSCROLL))
    $_bClose = GUICtrlCreateButton("Close", 144, 160, 97, 25)
    GUICtrlSetFont(-1, 9, 400, 0, "Segoe Print")
    GUICtrlSetState($_cShowSystemTrayIcon, 1)
    GUICtrlSetState($_cLogClipboardEvents, 1)
    GUISetState(@SW_SHOW)

    While 1
        $nMsg = GUIGetMsg()
        $_Reat_cStartWithWindows = GUICtrlRead($_cStartWithWindows)
        $_Reat_cShowSystemTrayIcon = GUICtrlRead($_cShowSystemTrayIcon)
        $_Reat_cLogClipboardEvents = GUICtrlRead($_cLogClipboardEvents)
        $_Reat_cDeleteLogsAfter = GUICtrlRead($_cDeleteLogsAfter)
        If $_Reat_cStartWithWindows = 1 Then
            If $LoopLock <> "true" Then
                MsgBox(64, $FormName, "Drag " & @ScriptName & " into the Startup folder to create the Startup entry.")
                Run("explorer.exe " & @HomeDrive & "\users\" & @UserName & "\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\")
                Run("explorer.exe " & @ScriptDir)
            EndIf
            $LoopLock = "true"
        EndIf
        If $_Reat_cStartWithWindows = 4 Then
            If $LoopLock <> "false" Then
                MsgBox(64, $FormName, "Delete " & @ScriptName & " from the Startup folder to delete the Startup entry.")
                Run("explorer.exe " & @HomeDrive & "\users\" & @UserName & "\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\")
            EndIf
            $LoopLock = "false"
        EndIf

        If $_Reat_cShowSystemTrayIcon = 1 Then
            TraySetState($TRAY_ICONSTATE_SHOW)
        EndIf
        If $_Reat_cShowSystemTrayIcon = 4 Then
            TraySetState($TRAY_ICONSTATE_HIDE)
        EndIf

        If $_Reat_cLogClipboardEvents = 1 Then
            $ClipboardLogging = "true"
            ControlEnable($FormNameOptions, "", $_iDeleteLogsAfter)
            ControlEnable($FormNameOptions, "", $_cDeleteLogsAfter)
        EndIf
        If $_Reat_cLogClipboardEvents = 4 Then
            $ClipboardLogging = "false"
            GUICtrlSetState($_cDeleteLogsAfter, 4)
            ControlDisable($FormNameOptions, "", $_iDeleteLogsAfter)
            ControlDisable($FormNameOptions, "", $_cDeleteLogsAfter)
        EndIf

        If $_Reat_cDeleteLogsAfter = 1 Then
            $ClipboardLoggingDeleteAfter = "true"
            $ClipboardLoggingDeleteAfterDays = GUICtrlRead($_iDeleteLogsAfter)
        EndIf
        If $_Reat_cLogClipboardEvents = 4 Then
            $ClipboardLoggingDeleteAfter = "false"
        EndIf
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                GUISetState(@SW_HIDE)
                GUISetState(@SW_ENABLE, $Form)
                Main()
            Case $_bSupportDeveloper
                MsgBox(64,$FormNameOptions,"Leave a like on the developer's (TheNewHunter/TheNewGuy) post to support him!")
                ShellExecute("www.autoitscript.com/forum/topic/173264-clipper-clipboard-manager/")
        EndSwitch
        Switch TrayGetMsg()
            Case $tbExit
                Exit
            Case $tbOptions
                tbOptions()
        EndSwitch
    WEnd

EndFunc   ;==>tbOptions

Conclusion

If you find any bugs or you have any ideas you are free to leave them here.

Please give this script a try because it took time. If you enjoyed this script PLEASE smash the like button, Thanks! :)

ALSO: Have any script ideas? Please share them with me because I will make them!

 

Clipper.au3

Edited by TheNewHunter

Hello.

If in someway I have helped, please consider liking my post(s).

The formula for the right answer: You + Right Question = Answer

(Think) BEFORE you post.

Link to comment
Share on other sites
  • 5 years later...
ptrex Universalist

ptrex

Posted
Posted

Most of these features are standard available in Win10 ?

Press Win + V button ...

Contributions :Firewall Log Analyzer for XP - Creating COM objects without a need of DLL's - UPnP support in AU3Crystal Reports Viewer - PDFCreator in AutoIT - Duplicate File FinderSQLite3 Database functionality - USB Monitoring - Reading Excel using SQLRun Au3 as a Windows Service - File Monitor - Embedded Flash PlayerDynamic Functions - Control Panel Applets - Digital Signing Code - Excel Grid In AutoIT - Constants for Special Folders in WindowsRead data from Any Windows Edit Control - SOAP and Web Services in AutoIT - Barcode Printing Using PS - AU3 on LightTD WebserverMS LogParser SQL Engine in AutoIT - ImageMagick Image Processing - Converter @ Dec - Hex - Bin -Email Address Encoder - MSI Editor - SNMP - MIB ProtocolFinancial Functions UDF - Set ACL Permissions - Syntax HighLighter for AU3ADOR.RecordSet approach - Real OCR - HTTP Disk - PDF Reader Personal Worldclock - MS Indexing Engine - Printing ControlsGuiListView - Navigation (break the 4000 Limit barrier) - Registration Free COM DLL Distribution - Update - WinRM SMART Analysis - COM Object Browser - Excel PivotTable Object - VLC Media Player - Windows LogOnOff Gui -Extract Data from Outlook to Word & Excel - Analyze Event ID 4226 - DotNet Compiler Wrapper - Powershell_COM  - New

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing
×
×
  • Create New...