#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.6.1
 Author:         myName

 Script Function:
	Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

#Include <Misc.au3>
#Include <Clipboard.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>

MsgBox(0,"MultiClipboard","Programm wurde gestartet !")
HotKeySet("{ESC}", "_exit")

Func _exit()
    Exit
EndFunc   ;==>_exit

If not FileExists (@ScriptDir & "/cliptemp.ini") then ;script wird das erste mal ausgefuehrt.
	
	#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Dialog", 316, 235, 346, 262)
$GroupBox1 = GUICtrlCreateGroup("", 8, 1, 305, 193)
$text = GUICtrlCreateLabel("Herzlich Willkommen zum MultiClipboard Tool von Florian ", 24, 16, 275, 17)
$Label1 = GUICtrlCreateLabel("Jonas. Mir diesem Tool koennen sie ihre Zwischenablage", 24, 32, 274, 17)
$Label2 = GUICtrlCreateLabel("erweitern. Anstatt wie bei der normalen Zwischenablage ", 24, 48, 270, 17)
$Label3 = GUICtrlCreateLabel("nur ein Sache gleichzeitig kopieren zu koennen koennen ", 24, 64, 276, 17)
$Label4 = GUICtrlCreateLabel("sie waehrend dieses Tool im Hintergrund laeuft in bis zu", 24, 80, 265, 17)
$Label5 = GUICtrlCreateLabel("9 Slots speichern. Druecken sie hierzu einfach anstatt wie ", 24, 96, 280, 17)
$Label6 = GUICtrlCreateLabel("normalerweise CTRL + C, ALT + C + SLOTNUMMER (1-9)", 24, 112, 279, 17)
$Label7 = GUICtrlCreateLabel("um etwas zu kopieren und ALT + V + SLOTNUMMER UM", 25, 129, 279, 17)
$Label8 = GUICtrlCreateLabel("etwas einzufuegen. Moechten sie eine Meldung bekommen", 25, 145, 285, 17)
$Label9 = GUICtrlCreateLabel("wenn sie etwas kopieren ?", 25, 161, 130, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$ja = GUICtrlCreateButton("Ja", 65, 203, 75, 25)
$nein = GUICtrlCreateButton("Nein", 162, 203, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			GUIDelete()
			ExitLoop
		Case $ja
			
			iniwrite(@ScriptDir & "/cliptemp.ini", "option", "1","1")
			GUIDelete()
			ExitLoop
		Case $nein
			
			iniwrite(@ScriptDir & "/cliptemp.ini", "option", "1","0")
			GUIDelete()
			ExitLoop
		EndSwitch
		
	WEnd
	MsgBox(0,"MultiClipboard","Sie koennen auch jeder zeit anzeigen lassen was sich gerade ein der Zwischenablage befindet. Druecken sie hierzu einfach ALT+I")
	MsgBox(0,"MultiClipboard","Um das Programm zu beende druecken sie einfach ALT+E oder unten in der Taskleiste ein rechtsklick und dann auf EXIT.")
	MsgBox(0,"MultiClipboard","Wenn sie dieses Einstellungsfenster spaeter nocheinmal aufrufen wollen, druecken sie einfach ALT+O.")
	MsgBox(0,"MultiClipboard","Mulitclipboard wurde erfolgreich konfiguriert ! Viel Spass !")
	EndiF 

	
	

While 1
	
    Select
        Case _IsPressed("A4") And _IsPressed("43") And _IsPressed("31")
            Sleep(100)
            Send("^c")
            $clipboarddata = _ClipBoard_GetData()
            IniWrite(@ScriptDir & "/cliptemp.ini", "slot", "1", $clipboarddata)
			If iniread(@ScriptDir & "/cliptemp.ini","option","1","error") = 1 then 
            MsgBox(0, "MultiClipboard", " Daten wurden in Slot 1 gespeichert !")
			EndIf

        Case _IsPressed("A4") And _IsPressed("43") And _IsPressed("32")
            Sleep(100)
            Send("^c")
            $clipboarddata = _ClipBoard_GetData()
            IniWrite(@ScriptDir & "/cliptemp.ini", "slot", "2", $clipboarddata)
			If iniread(@ScriptDir & "/cliptemp.ini","option","1","error") = "1" then 
            MsgBox(0, "MultiClipboard", " Daten wurden in Slot 2 gespeichert !")
			EndiF

        Case _IsPressed("A4") And _IsPressed("43") And _IsPressed("33")
            Sleep(100)
            Send("^c")
            $clipboarddata = _ClipBoard_GetData()
            IniWrite(@ScriptDir & "/cliptemp.ini", "slot", "3", $clipboarddata)
			If iniread(@ScriptDir & "/cliptemp.ini","option","1","error") = "1" then 
            MsgBox(0, "MultiClipboard", " Daten wurden in Slot 3 gespeichert !")
			EndIf

        Case _IsPressed("A4") And _IsPressed("43") And _IsPressed("34")
            Sleep(100)
            Send("^c")
            $clipboarddata = _ClipBoard_GetData()
            IniWrite(@ScriptDir & "/cliptemp.ini", "slot", "4", $clipboarddata)
			If iniread(@ScriptDir & "/cliptemp.ini","option","1","error") = "1" then 
            MsgBox(0, "MultiClipboard", " Daten wurden in Slot 4 gespeichert !")
			EndIF

        Case _IsPressed("A4") And _IsPressed("43") And _IsPressed("35")
            Sleep(100)
            Send("^c")
            $clipboarddata = _ClipBoard_GetData()
            IniWrite(@ScriptDir & "/cliptemp.ini", "slot", "5", $clipboarddata)
			If iniread(@ScriptDir & "/cliptemp.ini","option","1","error") = "1" then 
            MsgBox(0, "MultiClipboard", " Daten wurden in Slot 5 gespeichert !")
			EndIF

        Case _IsPressed("A4") And _IsPressed("43") And _IsPressed("36")
            Sleep(100)
            Send("^c")
            $clipboarddata = _ClipBoard_GetData()
            IniWrite(@ScriptDir & "/cliptemp.ini", "slot", "6", $clipboarddata)
			If iniread(@ScriptDir & "/cliptemp.ini","option","1","error") = "1" then 
            MsgBox(0, "MultiClipboard", " Daten wurden in Slot 6 gespeichert !")
			Endif

        Case _IsPressed("A4") And _IsPressed("43") And _IsPressed("37")
            Sleep(100)
            Send("^c")
            $clipboarddata = _ClipBoard_GetData()
            IniWrite(@ScriptDir & "/cliptemp.ini", "slot", "7", $clipboarddata)
			If iniread(@ScriptDir & "/cliptemp.ini","option","1","error") = "1" then 
            MsgBox(0, "MultiClipboard", " Daten wurden in Slot 7 gespeichert !")
			EndIF

        Case _IsPressed("A4") And _IsPressed("43") And _IsPressed("38")
            Sleep(100)
            Send("^c")
            $clipboarddata = _ClipBoard_GetData()
            IniWrite(@ScriptDir & "/cliptemp.ini", "slot", "8", $clipboarddata)
			If iniread(@ScriptDir & "/cliptemp.ini","option","1","error") = "1" then 
			MsgBox(0, "MultiClipboard", " Daten wurden in Slot 8 gespeichert !")
			EndIF

        Case _IsPressed("A4") And _IsPressed("43") And _IsPressed("39")
            Sleep(100)
            Send("^c")
            $clipboarddata = _ClipBoard_GetData()
            IniWrite(@ScriptDir & "/cliptemp.ini", "slot", "9", $clipboarddata)
			If iniread(@ScriptDir & "/cliptemp.ini","option","1","error") = "1" then 
            MsgBox(0, "MultiClipboard", " Daten wurden in Slot 9 gespeichert !")
			EndIF
            
;------------------------------------

        Case _IsPressed("A4") And _IsPressed("56") And _IsPressed("31")
            $clipboarddata = _ClipBoard_GetData()
            $inidata = IniRead(@ScriptDir & "/cliptemp.ini", "slot", "1", " -Keine Daten in Slot 1- ")
            Send($inidata)

        Case _IsPressed("A4") And _IsPressed("56") And _IsPressed("32")
            $clipboarddata = _ClipBoard_GetData()
            $inidata = IniRead(@ScriptDir & "/cliptemp.ini", "slot", "2",  "-Keine Daten in Slot 2- ")
            Send($inidata)

        Case _IsPressed("A4") And _IsPressed("56") And _IsPressed("33")
            $inidata = IniRead(@ScriptDir & "/cliptemp.ini", "slot", "3", " -Keine Daten in Slot 3- ")
            Send($inidata)

        Case _IsPressed("A4") And _IsPressed("56") And _IsPressed("34")
            $inidata = IniRead(@ScriptDir & "/cliptemp.ini", "slot", "4", " -Keine Daten in Slot 4- ")
            Send($inidata)

        Case _IsPressed("A4") And _IsPressed("56") And _IsPressed("35")
            $inidata = IniRead(@ScriptDir & "/cliptemp.ini", "slot", "5", " -Keine Daten in Slot 5- ")
            Send($inidata)

        Case _IsPressed("A4") And _IsPressed("56") And _IsPressed("36")
            $inidata = IniRead(@ScriptDir & "/cliptemp.ini", "slot", "6", " -Keine Daten in Slot 6- ")
            Send($inidata)

        Case _IsPressed("A4") And _IsPressed("56") And _IsPressed("37")
            $inidata = IniRead(@ScriptDir & "/cliptemp.ini", "slot", "7", " -Keine Daten in Slot 7- ")
            Send($inidata)

        Case _IsPressed("A4") And _IsPressed("56") And _IsPressed("38")
            $inidata = IniRead(@ScriptDir & "/cliptemp.ini", "slot", "8", " -Keine Daten in Slot 8- ")
            Send($inidata)

        Case _IsPressed("A4") And _IsPressed("56") And _IsPressed("39")
            $inidata = IniRead(@ScriptDir & "/cliptemp.ini", "slot", "9", " -Keine Daten in Slot 9- ")
            Send($inidata)
		Case _IsPressed("A4") And _IsPressed("45")
			Exit
		Case _IsPressed("A4") And _IsPressed("4F")
			
			#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Dialog", 316, 235, 346, 262)
$GroupBox1 = GUICtrlCreateGroup("", 8, 1, 305, 193)
$text = GUICtrlCreateLabel("Herzlich Willkommen zum MultiClipboard Tool von Florian ", 24, 16, 275, 17)
$Label1 = GUICtrlCreateLabel("Jonas. Mir diesem Tool koennen sie ihre Zwischenablage", 24, 32, 274, 17)
$Label2 = GUICtrlCreateLabel("erweitern. Anstatt wie bei der normalen Zwischenablage ", 24, 48, 270, 17)
$Label3 = GUICtrlCreateLabel("nur ein Sache gleichzeitig kopieren zu koennen koennen ", 24, 64, 276, 17)
$Label4 = GUICtrlCreateLabel("sie waehrend dieses Tool im Hintergrund laeuft in bis zu", 24, 80, 265, 17)
$Label5 = GUICtrlCreateLabel("9 Slots speichern. Druecken sie hierzu einfach anstatt wie ", 24, 96, 280, 17)
$Label6 = GUICtrlCreateLabel("normalerweise CTRL + C, ALT + C + SLOTNUMMER (1-9)", 24, 112, 279, 17)
$Label7 = GUICtrlCreateLabel("um etwas zu kopieren und ALT + V + SLOTNUMMER UM", 25, 129, 279, 17)
$Label8 = GUICtrlCreateLabel("etwas einzufuegen. Moechten sie eine Meldung bekommen", 25, 145, 285, 17)
$Label9 = GUICtrlCreateLabel("wenn sie etwas kopieren ?", 25, 161, 130, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$ja = GUICtrlCreateButton("Ja", 65, 203, 75, 25)
$nein = GUICtrlCreateButton("Nein", 162, 203, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			GUIDelete()
			ExitLoop
		Case $ja
			
			iniwrite(@ScriptDir & "/cliptemp.ini", "option", "1","1")
			GUIDelete()
			ExitLoop
		Case $nein
			
			iniwrite(@ScriptDir & "/cliptemp.ini", "option", "1","0")
			GUIDelete()
			ExitLoop
		EndSwitch
		
	WEnd
	MsgBox(0,"MultiClipboard","Sie koennen auch jeder zeit anzeigen lassen was sich gerade ein der Zwischenablage befindet. Druecken sie hierzu einfach ALT+I")
	MsgBox(0,"MultiClipboard","Um das Programm zu beende druecken sie einfach ALT+E oder unten in der Taskleiste ein rechtsklick und dann auf EXIT.")
	MsgBox(0,"MultiClipboard","Wenn sie dieses Einstellungsfenster spaeter nocheinmal aufrufen wollen, druecken sie einfach ALT+O.")
	MsgBox(0,"MultiClipboard","Mulitclipboard wurde erfolgreich konfiguriert ! Viel Spass !")
	
			
	Case _IsPressed("A4") And _IsPressed("49")
		#include <WindowsConstants.au3>
		#include <GUIConstantsEx.au3>
		$iniread1 = IniRead(@ScriptDir & "/cliptemp.ini", "slot", "1", "     --     ")
		$iniread2 = IniRead(@ScriptDir & "/cliptemp.ini", "slot", "2", "     --     ")
		$iniread3 = IniRead(@ScriptDir & "/cliptemp.ini", "slot", "3", "     --     ")
		$iniread4 = IniRead(@ScriptDir & "/cliptemp.ini", "slot", "4", "     --     ")
		$iniread5 = IniRead(@ScriptDir & "/cliptemp.ini", "slot", "5", "     --     ")
		$iniread6 = IniRead(@ScriptDir & "/cliptemp.ini", "slot", "6", "     --     ")
		$iniread7 = IniRead(@ScriptDir & "/cliptemp.ini", "slot", "7", "     --     ")
		$iniread8 = IniRead(@ScriptDir & "/cliptemp.ini", "slot", "8", "     --     ")
		$iniread9 = IniRead(@ScriptDir & "/cliptemp.ini", "slot", "9", "     --     ")
#Region ### START Koda GUI section ### Form=C:\Users\Flo\Downloads\koda_1.7.3.0\Forms\content.kxf
$Form2 = GUICreate("MultiClipboard", 221, 185, 302, 218)
$List1 = GUICtrlCreateList("", 16, 16, 185, 123)

GUICtrlSetData(-1, "Slot 1:" & $iniread1 & "|Slot 2:" & $iniread2 & "|Slot 3:" & $iniread3 & "|Slot 4:" & $iniread4 & "|Slot 5:" & $iniread5 & "|Slot 6:" & $iniread6 & "|Slot 7:" & $iniread7 & "|Slot 8:" & $iniread8 & "|Slot 9:" & $iniread9 & "")

$Button1 = GUICtrlCreateButton("OK", 24, 152, 75, 25)
$Button2 = GUICtrlCreateButton("Clear", 120, 152, 75, 25)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1

	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			GUIDelete()
			ExitLoop

		Case $Button1
			GUIDelete()
			ExitLoop
		Case $button2
			inidelete(@ScriptDir & "/cliptemp.ini", "slot")
			GUIDelete()
			ExitLoop
			
	EndSwitch
WEnd



		
		

    EndSelect
WEnd