网页自动填写

Set ie = CreateObject("internetexplorer.application")
ie.Visible = True
ie.navigate "http://www.meecall.com/mobile/"
ie.Silent=true
While ie.busy
    wscript.sleep 200
wend
dim usernameobj,passwordeobj
ie.document.getElementsByName("username")(0).value = "1234"
ie.document.getElementsByName("password")(0).value = "1234"
'usernameobj.value = "1234"
'passwordeobj.value = "12223323"