批处理 实现自动批量填写注册表单！！！

来源：百度知道 编辑：UC知道 时间：2024/07/05 20:14:34
好像这个有点难度，不知道能不能实现？高手请进！！！
比如说 http://newreg.qq.com/ QQ帐号的申请页面。
小弟刚学批处理，不晓得它的深度，先放下100分。

Dim Shell
Set Shell=WScript.CreateObject("WScript.Shell")
Shell.Run "http://freereg.qq.com/"
WScript.Sleep 9000
Shell.SendKeys "nicheng"
Shell.SendKeys "{TAB}"
Shell.SendKeys "20"
Shell.SendKeys "{TAB}"
Shell.SendKeys "{TAB}"
Shell.SendKeys "mypassword"
Shell.SendKeys "{TAB}"
Shell.SendKeys "mypassword"
Shell.SendKeys "{TAB}"
Shell.SendKeys "{TAB}"
Shell.SendKeys "{DOWN}"
Shell.SendKeys "{TAB}"
Shell.SendKeys "{TAB}"
WScript.Sleep 1000
Shell.SendKeys "{DOWN}"
Shell.SendKeys "{TAB}"
Shell.SendKeys "mama"
Shell.SendKeys "{TAB}"
Shell.SendKeys "{DOWN}"
WScript.Sleep 1000
S