1.如何使用vbs打开网页并且登陆

例如自动打开繁星的网页并且登录

Private Sub CommandButton1_Click()
    Dim ie As Object
    Set ie = CreateObject("InternetExplorer.Application")
    ie.navigate "http://fanxing.kugou.com/"
    While ie.readyState <> 4 Or ie.Busy = True
    DoEvents
    Wend
    ie.document.getElementById("fxLogin").Click
    ie.document.getElementById("loginSdk_loginUserName").Value = "1398384979@qq.com"
    ie.document.getElementById("loginSdk_loginPassWord").Value = "basketball"
    ie.document.getElementById("loginSdk_loginBtn").Click
End Sub