alexdubovyck

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

Jun 6th, 2017
396
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