Advertisement
Guest User

Untitled

a guest
Jun 8th, 2017
48
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Set v=CreateObject("WScript.Shell")
  2. dim color
  3. color = inputbox ( "entrez la couleur :  " )
  4. wscript.sleep 200
  5.  
  6.  
  7. For i = 1 To 10
  8. v.SendKeys("["+color+"] LOL [/"+color+"]")
  9. wscript.sleep 100
  10. v.SendKeys("{enter}")
  11. wscript.sleep 100
  12. Next
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement