Steam sohbet metnini alın

Question

Bir arkadaşımın aklını başkasıyla paylaştığıma dair bir arkadaşım var ... şimdi bunu (aşağıda) yazarak kimin orada olduğunu sormak için yazdım ... şimdi senaryoyu kontrol etmesini istiyorum bir "Exuskazera" ya da bir "cierra" o çıkışları autmatically böylece zaten aktif steamchat penceresi "olarak giriş yapma: KULLANICI" alabilirsiniz

Set WshShell = WScript.CreateObject("WScript.Shell") 
WshShell.AppActivate "Exuskazera & Mashiro - Chat" 
WScript.Sleep 3000 
WshShell.SendKeys "Chatbot Login System Version 3.2.3 Codename Ikarus" 
WshShell.SendKeys "{ENTER}" 
WshShell.SendKeys "Please choose an account from below:" 
WshShell.SendKeys "{ENTER}" 
WshShell.SendKeys "Exuskazera :potplant:" 
WshShell.SendKeys "{ENTER}" 
WshShell.SendKeys "Cierra :potplant:" 
WshShell.SendKeys "{ENTER}" 
WshShell.SendKeys "Please choose an account by writing its name to the Chat" 
WshShell.SendKeys "{ENTER}" 
WshShell.SendKeys "You have 20seconds to choose,if you do not,you will be logged in as Guest!" 
WshShell.SendKeys "{ENTER}" 
WScript.Sleep 1000 
WshShell.SendKeys "20" 
WshShell.SendKeys "{ENTER}" 
WScript.Sleep 1000 
WshShell.SendKeys "19" 
WshShell.SendKeys "{ENTER}" 
WScript.Sleep 1000 
WshShell.SendKeys "18" 
WshShell.SendKeys "{ENTER}" 
WScript.Sleep 1000 
WshShell.SendKeys "17" 
WshShell.SendKeys "{ENTER}" 
WScript.Sleep 1000 
WshShell.SendKeys "16" 
WshShell.SendKeys "{ENTER}" 
WScript.Sleep 1000 
WshShell.SendKeys "15" 
WshShell.SendKeys "{ENTER}" 
WScript.Sleep 1000 
WshShell.SendKeys "14" 
WshShell.SendKeys "{ENTER}" 
WScript.Sleep 1000 
WshShell.SendKeys "13" 
WshShell.SendKeys "{ENTER}" 
WScript.Sleep 1000 
WshShell.SendKeys "12" 
WshShell.SendKeys "{ENTER}" 
WScript.Sleep 1000 
WshShell.SendKeys "11" 
WshShell.SendKeys "{ENTER}" 
WScript.Sleep 1000 
WshShell.SendKeys "10" 
WshShell.SendKeys "{ENTER}" 
WScript.Sleep 1000 
WshShell.SendKeys "9" 
WshShell.SendKeys "{ENTER}" 
WScript.Sleep 1000 
WshShell.SendKeys "8" 
WshShell.SendKeys "{ENTER}" 
WScript.Sleep 1000 
WshShell.SendKeys "7" 
WshShell.SendKeys "{ENTER}" 
WScript.Sleep 1000 
WshShell.SendKeys "6" 
WshShell.SendKeys "{ENTER}" 
WScript.Sleep 1000 
WshShell.SendKeys "5" 
WshShell.SendKeys "{ENTER}" 
WScript.Sleep 1000 
WshShell.SendKeys "4" 
WshShell.SendKeys "{ENTER}" 
WScript.Sleep 1000 
WshShell.SendKeys "3" 
WshShell.SendKeys "{ENTER}" 
WScript.Sleep 1000 
WshShell.SendKeys "2" 
WshShell.SendKeys "{ENTER}" 
WScript.Sleep 1000 
WshShell.SendKeys "1" 
WshShell.SendKeys "{ENTER}" 
WScript.Sleep 1000 
WshShell.SendKeys "Logging in as:<USER>" 
WshShell.SendKeys "{ENTER}" 

Answer 1

yalnızca metin başlık çubuğunda metindir. Bakınız tasklist /v.