begin process at 2012 02 13 08:43:48
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

VBScript

 > VBSCRIPT - CLASSE CLIPBOARD

VBSCRIPT - CLASSE CLIPBOARD


 Information sur la source

Note :
8,5 / 10 - par 4 personnes
8,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :VBScript Classé sous :vbscript, clipboard, settext, vbs Niveau :Débutant Date de création :20/11/2005 Date de mise à jour :06/01/2006 13:37:38 Vu / téléchargé :17 293 / 494

Auteur : Renfield

Ecrire un message privé
Site perso
Ce membre participe au partage de revenus publicitaires
Commentaire sur cette source (10)
Ajouter un commentaire et/ou une note


 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

  • 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
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


 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

21 novembre 2005 14:32:26 :
Ajout des mots-clé
06 janvier 2006 13:37:39 :
test de mise a jour

 Sources du même auteur

Source avec Zip Source avec une capture ENUMERATION DES PORTS TCP ET IDENTIFCATION DU PROCESS (PID) ...
Source avec Zip Source avec une capture JSON PARSER - ANALYSE DE CHAINES JSON
Source avec Zip Source avec une capture MODULE DE TÉLÉCHARGEMENT DE FICHIER BASIQUE (SYNCHRONE / ASY...
Source avec Zip COURS DE PILOTAGE........D'APPLICATIONS
Source avec Zip CSOCKET - REMPLACEZ WINSOCK PAR LA VERSION 2 DES API

 Sources de la même categorie

Source avec Zip Source avec une capture RECHERCHE & SAUVEGARDE DES FICHIERS PAR LEURS EXTENSIONS par hackoo
Source avec Zip Source avec une capture [VBS] SPLASH SCREEN EN VBSCRIPT par hackoo
Source avec Zip Source avec une capture [VBS] GOOGLE EASTER EGGS par hackoo
Source avec Zip Source avec une capture FILE2COMPARE: COMPARAISON DE DEUX FICHIERS LIGNE PAR LIGNE par hackoo
Source avec Zip Source avec une capture [VBS] COMMENT CRÉER UN DOSSIER ET LE PROTÉGER PAR MOT DE PAS... par hackoo

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture [VBS] SPLASH SCREEN EN VBSCRIPT par hackoo
Source avec Zip [VBS] MODIFICATION D'UN FICHIER INI par VBsearch
Source avec Zip Source avec une capture CALCULATRICE VBSCRIPT par nathansecret
VBS - ACCESS par Laurent68x
Source avec Zip COMPILATION & EXECUTION VBSCRIPT par Whiterabbit83

Commentaires et avis

Commentaire de antho2005 le 20/07/2006 21:46:56

Salut,

pour faire copier on peut tout simplent faire :

Set variable=CreateObject("WScript.Shell") 'defini la variable variable
variable.Run("notepad") 'ouvre le bloc note
wscript.sleep 150 'attend 150 millisecondes que le programme s'ouvre
montexte = "Mon texte à copier" 'rentrez votre texte
variable.SendKeys (montexte) 'marque le texte dans la fenetre active (normalement le bloc note)
longueur = len(montexte) 'defini la longueur de la chaine
For i = 1 to longueur 'i = de 1 a la longueur de la chaine
variable.SendKeys ("+{left}")  'fait maj + fleche gauche (donc selectionner) tant qu'il y a des lettres dans la chaine
Next 'fin de la boucle
variable.SendKeys ("^c") 'fait ctrl + c (donc copier) sur le texte selectionné
variable.SendKeys ("%{F4}") 'ferme le bloc note
'Et voilà votre texte est copié.

et pour coller :

Set variable=CreateObject("WScript.Shell") 'defini la variable variable
variable.Run("notepad") 'ouvre le bloc note
wscript.sleep 150 'attend 150 millisecondes que le programme s'ouvre
variable.SendKeys ("Le  texte est : " & chr(34)) 'Marque Votre texte copié est : "
variable.SendKeys ("^v") 'fait ctrl + v (donc coller) à la suite du texte
variable.SendKeys (chr(34)) 'ferme les guillemets
'Et voilà vous avez le bloc note ouvert avec marqué : 'Votre texte copié est : "Mon texte à copier" ' par exemple

Commentaire de antho2005 le 20/07/2006 21:56:29

j'ai oublié pour copier apres la ligne variable.SendKeys ("%{F4}") il faut mettre : variable.SendKeys ("{right}{enter}") 'pour faire ne pas enregistrer

on pourrais aussi mettre : variable.SendKeys ("+n") ' = maj + n

@+

Antho2005

Commentaire de Renfield le 27/07/2006 09:00:15 administrateur CS

piloter la chose par des SendKeys est franchement risqué...

rien ne certifie que NotePad va bien conserver le Focus

de plus, le wscript.sleep 150
ne nous garantit absolument rien...

Commentaire de guilhemmartincpp le 04/09/2007 22:08:32


Sympa la source !
On est obligé de passer par l'objet IE cependant pour utiliser le presse-papier ?
Sous Vista (pas testé sous XP), ça provoque du coup la boîte de dialogue "Voulez-vous autoriser l'accès de cette page web au presse papier ?".

Commentaire de Renfield le 10/09/2007 07:10:22 administrateur CS

doit y avoir quelques autres facons de faire, comme de piloter Office, mais ca risuqe de declencher le même genre d'alertes, a voir...

disons qu'avec IE, on est plus sur que c'est sur le poste

Commentaire de guilhemmartincpp le 12/09/2007 14:06:40

Ok thanks.
Si je trouve "plus universel", je reposterai ici.

Commentaire de Corvvin le 23/05/2009 13:10:18

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).

Commentaire de stubbyone2 le 29/06/2010 15:04:22

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

Commentaire de Renfield le 29/06/2010 15:36:26 administrateur CS

possible que cela vienne de là, effectivement

Commentaire de monkeyvb78 le 21/03/2011 20:41:36

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

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

vbs et Clipboard [ par lordlulu ] J'essaye de mettre un texte dans le clipboard avant de lancer mon appli:Le script vbs est le suivant :set wshShell = CreateObject (WScript.Shell)Clipb Comment mettre la reference "MessengerAPI.Messenger" ? [ par thierrydelepine ] aide pour VBSCRIPT (extension .VBS)bonjour,je cherche a mettre une reference vers :"MessengerAPI.Messenger"dans un VBSCRIPT (extension VBS)si je fais A L'AIDEEE!!! CONVERSION VBScript >>> VB ( ~~c vital sioux plééé ~~) [ par pekinio ] Voila, hello a tlm.bon, en fait, c'est a propos du code "generateur de mots"(dans la categorie VB.NET!!!?), sur ce site.je trouve ce code interressant vbscript et autorun.inf [ par CC24 ] bonjour à tous,voici mon problème : je voudrais lancer mon script vbs automatiquement à l'insertion d'un cd-rom dans le lecteur. pour cela, j'ai créé VBScript [ par imothepetherabzouze ] Salut a tous, je suis nouveau dans le forum et dans la prog vbs, é joré besoin d'aide. Je travaille dans une société en réseaux et on me demande de fa Redemarrer un VBS a l'allumage du PC ! [ par zaert ] Slt tlm je voudrais savoir quelle est la ligne de commande a rentrer dans le VBScript pour que , si le gars redemarre son PC , le VBScript s comment instancier une classe en VBScript [ par mohax007 ] bonjour a tous     voila j ai un petit en VBScript.J ai crée 2 fichier  .vbs  l un etant une classe et l autre etant mon pro saisie dans le DOS pour VBscript [VBS] [ par Amandine62 ] Salut! Voila, J'ai fait mon script il fonctionne correctement mais en fait il ne faut plus du tout q VBSCRIPT [ par skywanker ] Bonjour,je cherche à créer une interface graphiqu en VBS, qui me permetterait de choisir entre plusieurs actions: ( cette interface doi VBScript + Form ActiveX [ par stefweb ] J'utilise des outils qui sont paramétrable en VBScript seulement et qui n'ont rien à voir avec le Web.Face au petit nombre d'interfaces disponible en


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,546 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales