set Wshell=WScript.createobject("WScript.shell")
appname="你要自动填表的网站名"
set ie=WScript.createobject("internetexplorer.application")
ie.visible=true'这里为false则IE不可见
for i=1 to 20 step 1'这一句可以省掉
ie.navigate "你要自动登录的论坛登录页面网址"
do
Wscript.sleep 200
loop until ie.readystate=4
用户名文本框控件名.value=""
密码文本框控件名.value=""
wshell.sendkeys "~"
wscript.sleep 10000'根据自己的网速确定等待时间
wshell.sendkeys"^w"关闭IE
next'这句也可以省掉