给你一段我写的登录115网盘的代码:
Dim acc, pwd, sbm
Set ie = WScript.CreateObject("InternetExplorer.Application")
ie.Visible = true '若为false,则不显示浏览器
ie.navigate "http://www.115.com/"
Do
Wscript.Sleep 200
Loop Until ie.readyState = 4 '等页面载入完整再填登录数据登录
Set acc = ie.Document.getElementById("js-account") '自己看网页的源码找出相应的ID
Set pwd = ie.Document.getElementById("js-passwd")
Set sbm = ie.Document.getElementById("js-submit")
acc.value="我是账号"
pwd.value="我是密码"
sbm.click '点击登录按钮