#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\Eigene Dateien\favicon.ico
#AutoIt3Wrapper_outfile=ClipBoardChanger.exe
#AutoIt3Wrapper_Res_Comment=By Meee
#AutoIt3Wrapper_Res_Description=Change The Clipboard
#AutoIt3Wrapper_Res_Fileversion=1.0
#AutoIt3Wrapper_Res_LegalCopyright=Meee - World of Hentai
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
Global $hotkey = IniRead(@ScriptDir & '\hotkey.ini','hotkey','hotkey','')
Global $hotkeyB = IniRead(@ScriptDir & '\hotkey.ini','hotkey','hotkeyb','')
If ($hotkey = "") OR ($hotkeyB = "") OR ($hotkey = $hotkeyB) Then
$hotkey = InputBox('Hotkey','Bitte Hotkey zum Ausführen eingeben.'&@CRLF&'Hinweise:'&@CRLF&'!d Für ein "Alt+d"'&@CRLF&'^d Für ein "STRG+d"'&@CRLF&'#d Für ein "WIN+d"'&@CRLF&'Groß- und Kleinschreibung: D entspricht SHIFT+d'&@CRLF&'Bitte eingabe:','^!p',"",300,200)
If @error Then Exit
$hotkeyB = InputBox('Hotkey','Bitte Hotkey zum Beenden eingeben.'&@CRLF&'Hinweise:'&@CRLF&'!d Für ein "Alt+d"'&@CRLF&'^d Für ein "STRG+d"'&@CRLF&'#d Für ein "WIN+d"'&@CRLF&'Groß- und Kleinschreibung: D entspricht SHIFT+d'&@CRLF&'Bitte eingabe:','^!q',"",300,200)
If @error Then Exit
IniWrite(@ScriptDir & '\hotkey.ini','hotkey','hotkey',$hotkey)
IniWrite(@ScriptDir & '\hotkey.ini','hotkey','hotkeyb',$hotkeyB)
EndIf
HotKeySet($hotkey,"Replace")
HotKeySet($hotkeyB,"Close")
While 1
Sleep(5000)
WEnd
Func Replace()
ClipPut( StringRegExpReplace( ClipGet() , "m)(^[ \t]+)" , "" ) )
EndFunc
Func Close()
MsgBox(0,"Credits","Tool was created by Meeee")
Exit
EndFunc