Vbscript - classe clipboard

Soyez le premier à donner votre avis sur cette source.

Vue 21 729 fois - Téléchargée 581 fois

Description

Pas simple de copier/Coller dans VbScript ??

Cette classe va vous y aider..... vous verrez au passage comment déclarer une classe en VbScript ^^

Source / Exemple :


Class cClipBoard
    Private objIE
    
    Public Property Get Data()
        Data = objIE.Document.ParentWindow.ClipboardData.GetData("Text")
    End Property
    
    Public Property Let Data ( Value )
        objIE.Document.ParentWindow.ClipboardData.SetData "Text" , Value
    End Property
    
    Public Sub Clear()
        objIE.Document.ParentWindow.ClipboardData.ClearData()
    End Sub
    
    Private Sub Class_Initialize
        Set objIE = CreateObject("InternetExplorer.Application") 
        objIE.Navigate ("about:blank") 
    End Sub
    
    Private Sub Class_Terminate
        objIE.Quit
        Set objIE = Nothing
    End Sub
End Class

Dim ClipBoard 
Set Clipboard = New cClipBoard

ClipBoard.Clear
ClipBoard.Data = "Hello VbFrance !!"
MsgBox ClipBoard.Data

Codes Sources

A voir également

Ajouter un commentaire Commentaires
monkeyvb78
Messages postés
1
Date d'inscription
samedi 11 novembre 2006
Statut
Membre
Dernière intervention
21 mars 2011

21 mars 2011 à 20:41
Il est aussi possible de passer par une ligne de commande (testé sous Vista):

'rep contient la chaine à copier
WshShell.Run "cmd.exe /C echo " & rep & "| clip", 0, TRUE
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
29 juin 2010 à 15:36
possible que cela vienne de là, effectivement
stubbyone2
Messages postés
12
Date d'inscription
lundi 28 mai 2007
Statut
Membre
Dernière intervention
15 octobre 2008

29 juin 2010 à 15:04
Bonjour à tous!
Ton script fonctionne très bien sur XP SP3 mais sur Windows Server 2003 R2 :-( non!
Avez vous une idée de pourquoi? je sais que sur win server l'internet bloque certaines choses mais je ne trouve rien.
Merci d'avance

Stubbyone
cs_Corvvin
Messages postés
14
Date d'inscription
vendredi 22 mai 2009
Statut
Membre
Dernière intervention
16 août 2009

23 mai 2009 à 13:10
Le peu de solutions alternatives proposées maintient, à mon avis, ce sujet dans l'actualité.

Le script source fonctionne très bien sous Windows XP SP2. J'ai constaté qu'il était plus rapide lorsque IE est fermé (raison de plus pour utiliser Firefox comme navigateur [wink]).

En revanche, la solution de l'ami Antho, pour séduisante qu'elle soit, peut provoquer à peu près... n'importe quoi sur votre ordinateur ! Gare !

Avec le même principe, en remplaçant Notepad par Charmap... et VBS par Super-Macro on obtient quelque chose à priori sans danger, et assez rapide (à défaut d'être très élégant).
guilhemmartincpp
Messages postés
25
Date d'inscription
mercredi 17 septembre 2003
Statut
Membre
Dernière intervention
9 janvier 2008

12 sept. 2007 à 14:06
Ok thanks.
Si je trouve "plus universel", je reposterai ici.
Afficher les 10 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.