Vbscript 从聊天中获取文本

Vbscript 从聊天中获取文本,vbscript,chat,steam,Vbscript,Chat,Steam,我有一个朋友和别人分享他们的账户。我写这个(下面)是为了自动询问谁在那里。我想让脚本检查已经处于活动状态的steamchat窗口中的“Exuskazera”或“Cierra”,这样它就会自动输出“以用户身份登录” Set WshShell=WScript.CreateObject(“WScript.Shell”) WshShell.AppActivate“Exuskazera&Mashiro-聊天” WScript.sleep3000 WshShell.SendKeys“聊天机器人登录系统版本3

我有一个朋友和别人分享他们的账户。我写这个(下面)是为了自动询问谁在那里。我想让脚本检查已经处于活动状态的steamchat窗口中的“Exuskazera”或“Cierra”,这样它就会自动输出“以用户身份登录”

Set WshShell=WScript.CreateObject(“WScript.Shell”)
WshShell.AppActivate“Exuskazera&Mashiro-聊天”
WScript.sleep3000
WshShell.SendKeys“聊天机器人登录系统版本3.2.3代码名Ikarus”
WshShell.SendKeys“{ENTER}”
WshShell.SendKeys“请从下面选择一个帐户:”
WshShell.SendKeys“{ENTER}”
WshShell.SendKeys“Exuskazera:potplant:”
WshShell.SendKeys“{ENTER}”
WshShell.SendKeys“Cierra:potplant:”
WshShell.SendKeys“{ENTER}”
WshShell.SendKeys“请通过将帐户名称写入聊天记录来选择帐户”
WshShell.SendKeys“{ENTER}”
WshShell.SendKeys“您有20秒的时间选择,如果没有,您将以来宾身份登录!”
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“以以下身份登录:”
WshShell.SendKeys“{ENTER}”

您只能获得标题栏中的文本。请参阅
任务列表/v

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