Je veux supprimer le contenu du presse-papiers avec la fonction ClearClipBoard(), mais hélas elle ne marche pas
pour l'aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38 Set objHTML = CreateObject("htmlfile") MsgBox GetClipboardText,64,"The Content of your Clipboard" CopyClipBoard(GetClipBoardText()) Ask_Question() Function GetClipBoardText() ClipboardText = objHTML.ParentWindow.ClipboardData.GetData("text") If IsNull(ClipboardText) = False then GetClipBoardText = ClipboardText else Exit Function end if End Function Function CopyClipBoard(STR) Set fso = CreateObject("Scripting.FileSystemObject") Dim tempFolder : Set tempFolder = fso.GetSpecialFolder(2) Dim tempName : tempName = "clipboard.txt" Set objOutputFile = fso.CreateTextFile(tempFolder&"\"&tempName, True) objOutputFile.Write STR objOutputFile.Close CreateObject("WScript.Shell").Run tempFolder&"\"&tempName,1,True End Function Function ClearClipBoard() objHTML.ParentWindow.clipboardData.ClearData("text") Msgbox "le clipboard est vide",64,"le clipboard est vide" End Function Sub Ask_Question() Question = MsgBox("Did you want to clear your Clipboard ?",VbYesNO+VbQuestion,"Did you want to clear your Clipboard ?") If Question = VbYes Then ClearClipBoard() else Exit Sub wscript.quit End if End Sub
Partager