从 Steam 聊天中获取文本答案

【问题标题】：Get text out of Steam chat从 Steam 聊天中获取文本
【发布时间】：2016-03-26 22:49:34
【问题描述】：

我有一个朋友与其他人共享他们的帐户。我写了这个（下面）来自动询问谁在那里。我想让脚本检查“Exuskazera”或“Cierra”已经处于活动状态的蒸汽聊天窗口，以便它自动输出“登录为：USER”

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}"

【问题讨论】：

标签： vbscript chat steam

【解决方案1】：

您唯一可以获得的文本是标题栏中的文本。见tasklist /v。

【讨论】：