0
私は私の友人が誰か他の人とaccを共有している...今私はこれを書いて(下)、誰がそこにいるかを自動的に尋ねる...今はスクリプトが「Exuskazera」または「Cierra」について既にアクティブsteamchatウィンドウには、出力autmaticallyますので「などでログを: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}"
それを行うことができる言語さえあるのですか?私はそれを学ぶことを意味します... –