有没有能让QQ自动回复的软件?

Dim WSHShell
Set WSHShall = WScript.CreateObject("WScript.Shell")
WSHShell.Popup "_________________大学自习室_________________"
WSHShell.Popup"===Ready——Go!==="
WSHShell.Popup"啦啦啦……"
WSHShell.Popup"今天天气不错 挺风和日丽的"
WSHShell.Popup"我们下午没有课 这天气挺爽的 "
WSHShell.Popup"我一大中午早早的跑去上自习 心里琢磨着大学生活是多么美好啊"
WSHShell.Popup"这一眨眼的工夫我就进了主楼 要说俺们这嘎自习室其实挺多的"
WSHShell.Popup"可是没有书包占座那就难找了 我是跋山涉水啊 翻山越岭啊"
WSHShell.Popup"好不容易来到一个桃源深处 我这一推门"
WSHShell.Popup"我靠！ 真是豁然开朗 这xxxx教室就真没多少人儿"
WSHShell.Popup"说时迟那时快 我就扔下书包 找了一个位置就坐了下去"
WSHShell.Popup"我这一坐不要紧呐 差点成残疾 回头一看发现凳子根本没有板儿"
WSHShell.Popup"我心说得回哥们原来我还练过 要不然还不被你整成肛裂呀"
WSHShell.Popup"我心说得回哥们原来我还练过 要不然还不被你整成肛裂呀"
WSHShell.Popup"上自习还得抓点紧不是 于是乎我就换了一个靠门的坐"
WSHShell.Popup"这门外走廊号啕大哭歌手还挺多 他们唱的那个爱来爱去我就忍了"
WSHShell.Popup"但