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