API tools faq
paste
malingo

Chopsticks

malingo
Jun 9th, 2011
357
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VisualBasic 2.28 KB | None | 0 0
raw download clone embed print report
  1. ' Save this file as chopsticks.vbs
  2. ' open your browser to http://www.google.com/logos/2011/lespaul.html
  3. ' double-click on the chopsticks.vbs file and
  4. '   immediately click back to the browser window
  5.  
  6. Set WshShell = CreateObject("WScript.Shell")
  7. Dim sl1, sl2, sl3
  8. sl1 = 320
  9. sl2 = 500
  10. sl3 = 750
  11.  
  12. WScript.Sleep 1000
  13. A1()
  14. A2()
  15. A1()
  16.  
  17. B1()
  18. B2()
  19. B1()
  20.  
  21. WScript.Sleep 1000
  22. A1()
  23. A2()
  24. A1()
  25.  
  26.  
  27. Function A1()
  28. For i = 0 to 5
  29.     WshShell.SendKeys "t"
  30.     WshShell.SendKeys "r"
  31.     WScript.Sleep sl1
  32. Next
  33.  
  34. For i = 0 to 5
  35.     WshShell.SendKeys "t"
  36.     WshShell.SendKeys "e"
  37.     WScript.Sleep sl1
  38. Next
  39.  
  40. For i = 0 to 5
  41.     WshShell.SendKeys "w"
  42.     WshShell.SendKeys "u"
  43.     WScript.Sleep sl1
  44. Next
  45.  
  46. WshShell.SendKeys "q"
  47. WshShell.SendKeys "i"
  48.  
  49. WScript.Sleep 1000
  50. End Function
  51.  
  52. Function A2()
  53. WshShell.SendKeys "q"
  54. WshShell.SendKeys "i"
  55. WScript.Sleep sl2
  56. WshShell.SendKeys "w"
  57. WshShell.SendKeys "u"
  58. WScript.Sleep sl2
  59. WshShell.SendKeys "e"
  60. WshShell.SendKeys "y"
  61. WScript.Sleep sl2
  62. End Function
  63.  
  64.  
  65. Function B1()
  66. WshShell.SendKeys "t"
  67. WshShell.SendKeys "i"
  68. WshShell.SendKeys "p"
  69. WScript.Sleep sl2
  70. WshShell.SendKeys "t"
  71. WshShell.SendKeys "u"
  72. WshShell.SendKeys "o"
  73. WScript.Sleep sl3
  74. WshShell.SendKeys "t"
  75. WshShell.SendKeys "y"
  76. WshShell.SendKeys "i"
  77. WScript.Sleep sl2
  78. WshShell.SendKeys "w"
  79. WshShell.SendKeys "t"
  80. WshShell.SendKeys "u"
  81. WScript.Sleep sl3
  82. WshShell.SendKeys "w"
  83. WshShell.SendKeys "r"
  84. WshShell.SendKeys "y"
  85. WScript.Sleep sl2
  86.  
  87. For i = 0 to 3
  88. WshShell.SendKeys "q"
  89. WshShell.SendKeys "e"
  90. WshShell.SendKeys "t"
  91. WScript.Sleep sl1
  92. Next
  93. WshShell.SendKeys "q"
  94. WshShell.SendKeys "r"
  95. WshShell.SendKeys "y"
  96. WScript.Sleep sl1
  97. WshShell.SendKeys "q"
  98. WshShell.SendKeys "e"
  99. WshShell.SendKeys "t"
  100. WScript.Sleep sl1
  101. For i = 0 to 3
  102. WshShell.SendKeys "q"
  103. WshShell.SendKeys "w"
  104. WshShell.SendKeys "r"
  105. WScript.Sleep sl1
  106. Next
  107.  
  108. WshShell.SendKeys "q"
  109. WshShell.SendKeys "e"
  110. WshShell.SendKeys "t"
  111. WScript.Sleep sl1
  112. WshShell.SendKeys "q"
  113. WshShell.SendKeys "w"
  114. WshShell.SendKeys "r"
  115. WScript.Sleep sl1
  116. WshShell.SendKeys "q"
  117. WshShell.SendKeys "e"
  118. End Function
  119.  
  120. Function B2()
  121. WScript.Sleep sl3
  122. WshShell.SendKeys "q"
  123. WshShell.SendKeys "r"
  124. WScript.Sleep sl2
  125. WshShell.SendKeys "q"
  126. WshShell.SendKeys "e"
  127. WshShell.SendKeys "t"
  128. WScript.Sleep 1000
  129. End Function
  130.  
  131. Set WshShell = Nothing
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!