Simple Clear Clipboard

[boji]

My first contribution to the forum =)

_Singleton(@ScriptFullPath)
#include <Misc.au3>
$d = "C:\windows\system32\"
$f = "clipbrd.exe"

HotKeySet("{ESC}", "Terminate")
AdlibEnable("Terminate",4000) 
Opt("WinWaitDelay",200)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)

If Clipget() = "" Then Exit

run( "cmd /c " & " """ & $d & $f & """ ", "", @SW_HIDE)
WinWait("ClipBook Viewer","")
If Not WinActive("ClipBook Viewer","") Then WinActivate("ClipBook Viewer","")
WinWaitActive("ClipBook Viewer","")
Send("{ENTER}")
Sleep(300)
Send("{DEL}")
WinWait("Clear Clipboard","")
Send("{ENTER}")
WinWait("ClipBook Viewer","")
Send("{F10}fx")
Exit

Func Terminate()
Exit
EndFunc

[ResNullius]

My first contribution to the forum =)

_Singleton(@ScriptFullPath)
#include <Misc.au3>
$d = "C:\windows\system32\"
$f = "clipbrd.exe"

HotKeySet("{ESC}", "Terminate")
AdlibEnable("Terminate",4000) 
Opt("WinWaitDelay",200)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)

If Clipget() = "" Then Exit

run( "cmd /c " & " """ & $d & $f & """ ", "", @SW_HIDE)
WinWait("ClipBook Viewer","")
If Not WinActive("ClipBook Viewer","") Then WinActivate("ClipBook Viewer","")
WinWaitActive("ClipBook Viewer","")
Send("{ENTER}")
Sleep(300)
Send("{DEL}")
WinWait("Clear Clipboard","")
Send("{ENTER}")
WinWait("ClipBook Viewer","")
Send("{F10}fx")
Exit

Func Terminate()
Exit
EndFunc

From the help file:

ClipPut()

Remarks

Any existing clipboard contents are overwritten.

An empty string "" will empty the clipboard.