Besoin d'aide en vbs

Utilisateur anonyme -  
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour, je cherche à copier automatiquement dans le presse papier le résultat de l'inpubox.

Voici le code :
lettres = "abcdefghijklmnopqrstuvwxyz" 
nLettres = Len(lettres) 
pwd = "" 

randomize  

for i = 1 to 7 
    car = int(nLettres * rnd + 1) 
    pwd = pwd + Mid(lettres,car,1) 
next  

Inputbox "","Generateur de pseudo",pwd

Merci par avance pour votre aide


A voir également:

1 réponse

Réponse 1 / 1
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Bonjour,
Comme ça ? 
Sub CreeChaineAlea()
Dim i As Integer, S As String
Randomize Timer
    For i = 0 To 6
        S = S & Chr(Int(Rnd * 26) + 97)
    Next i
    'Mémorise dans le presse papier
    Clipboard.SetText S
    
    'Eventuellement restitue dans un textBox
    Text1.Text = Clipboard.GetText
End Sub

A+

0

Discussions similaires

Faire une pause en VBS
quent -
quent -

3 réponses
VBS.Runauto
Blackangel -
chimay8 -

1 réponse
Comment lancer mon vbs
Akasha51150 -
Akasha51150 -

14 réponses
Pause dans un Script VB
avrelbct -
avrelbct -

1 réponse
Impossible de trouver le fichier script .vbs
Marker_ -
Marker_ -

6 réponses