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

' - коммент vbs
sName = "normann1221" 'логин
sPassword = "787898" 'пасс
sPath = "D:\World of Warcraft Wrath of the Lich King\Wow.exe" 'путь
iWowStartDelay = 10000 'WoW время загрузки (мсек)

set WshShell = CreateObject("WScript.Shell")

WshShell.Run(Chr(34) & sPath & Chr(34))
' Chr(34) - кавычки
' & - присоединение "text"

WScript.Sleep iWowStartDelay 'ждёт

WshShell.AppActivate "World of Warcraft" 'делает окно активным

WshShell.SendKeys sName, 1 'вставка логина
WshShell.SendKeys "{TAB}", 1 'прыжок табом
WshShell.SendKeys sPassword, 1 'время пароля
WshShell.SendKeys "{ENTER}", 1 'жмёт ентер




и





' - коммент vbs
sPath = "D:\Program Files (x86)\Steam\Steam.exe" 'путь

set WshShell = CreateObject("WScript.Shell")

WshShell.Run(Chr(34) & sPath & Chr(34))

'Chr(34) - кавычки
'& - присоединение "text"

WScript.Sleep 3000 'ждёт 3 сек

WshShell.AppActivate "Вход в Steam" 'делает окно активным

WshShell.SendKeys "Логин" 		'вставка логина
WshShell.SendKeys "{TAB}" 				'прыжок табом
WScript.Sleep 500
WshShell.SendKeys "пароль" 			'время пароля
WScript.Sleep 500
WshShell.SendKeys "{ENTER}"				'жмёт ентер