SHARE
TWEET

АВТОЛОГИН ДЛЯ WOW, НАПИСАННЫЙ НА: VBS SCRIPT | WOW

alexdubovyck Jun 6th, 2017 194 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ' - коммент vbs
  2. sName = "normann1221" 'логин
  3. sPassword = "787898" 'пасс
  4. sPath = "D:\World of Warcraft Wrath of the Lich King\Wow.exe" 'путь
  5. iWowStartDelay = 10000 'WoW время загрузки (мсек)
  6.  
  7. set WshShell = CreateObject("WScript.Shell")
  8.  
  9. WshShell.Run(Chr(34) & sPath & Chr(34))
  10. ' Chr(34) - кавычки
  11. ' & - присоединение "text"
  12.  
  13. WScript.Sleep iWowStartDelay 'ждёт
  14.  
  15. WshShell.AppActivate "World of Warcraft" 'делает окно активным
  16.  
  17. WshShell.SendKeys sName, 1 'вставка логина
  18. WshShell.SendKeys "{TAB}", 1 'прыжок табом
  19. WshShell.SendKeys sPassword, 1 'время пароля
  20. WshShell.SendKeys "{ENTER}", 1 'жмёт ентер
  21.  
  22.  
  23.  
  24.  
  25. и
  26.  
  27.  
  28.  
  29.  
  30.  
  31. ' - коммент vbs
  32. sPath = "D:\Program Files (x86)\Steam\Steam.exe" 'путь
  33.  
  34. set WshShell = CreateObject("WScript.Shell")
  35.  
  36. WshShell.Run(Chr(34) & sPath & Chr(34))
  37.  
  38. 'Chr(34) - кавычки
  39. '& - присоединение "text"
  40.  
  41. WScript.Sleep 3000 'ждёт 3 сек
  42.  
  43. WshShell.AppActivate "Вход в Steam" 'делает окно активным
  44.  
  45. WshShell.SendKeys "Логин"      'вставка логина
  46. WshShell.SendKeys "{TAB}"               'прыжок табом
  47. WScript.Sleep 500
  48. WshShell.SendKeys "пароль"            'время пароля
  49. WScript.Sleep 500
  50. WshShell.SendKeys "{ENTER}"             'жмёт ентер
RAW Paste Data
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
 
Top