' - коммент 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 'жмёт ентер
[свернуть]