[已解决]vba如何登陆网站以及控制ie？

Saint_Zuo

Sub aa()
With CreateObject("InternetExplorer.Application")
        .Visible = True
        .navigate "http://www.excelpx.com"
    Do Until .Readystate = 4
    DoEvents
    Loop
        .Document.Forms(0).all("usr").Value = "用户名"
        .Document.Forms(0).all("pwd").Value = "密码"
        .Document.Forms(0).submit
    End With
End Sub
请问以上的代码哪里有问题？为什么我将"用户名"与 "密码"改成我在本论坛的用户名和密码还是不能登录呢？另外.Readystate = 4与       .Document.Forms(0).submit还有   DoEvents这几句的意思是什么？如何修改代码才能登录成功呢？

最佳答案

月排行榜 / 总排行榜

hhzjxss

2011-2-23 16:18

1. Option Explicit
   
2. 
   
3. Sub 登录EP论坛()
   
4. With CreateObject("InternetExplorer.Application")
   
5. .Visible = True
   
6. .navigate "http://www.excelpx.com"
   
7. Do Until .Readystate = 4
   
8. DoEvents
   
9. Loop
   
10. .Document.Forms(0).all("username").Value = "这里填写你的登录用户名"
    
11. .Document.Forms(0).all("password").Value = "这里填写你的登录密码"
    
12. .Document.Forms(0).submit
    
13. End With
    
14. End Sub

复制代码

跳转到最佳答案楼层

Saint_Zuo

麻烦帮忙看看呀

Saint_Zuo

怎么没有人回答呀？

老糊涂

学习版主代码

hhzjxss

1. Option Explicit
   
2. 
   
3. Sub 登录EP论坛()
   
4. With CreateObject("InternetExplorer.Application")
   
5. .Visible = True
   
6. .navigate "http://www.excelpx.com"
   
7. Do Until .Readystate = 4
   
8. DoEvents
   
9. Loop
   
10. .Document.Forms(0).all("username").Value = "这里填写你的登录用户名"
    
11. .Document.Forms(0).all("password").Value = "这里填写你的登录密码"
    
12. .Document.Forms(0).submit
    
13. End With
    
14. End Sub

复制代码

开辆小富康

"username"         "password"

开辆小富康

要分析源代码，找到关键字。

Saint_Zuo

都一天了还是没有人回答。

759857387

hhzjxss 发表于 2011-2-23 16:18

我复制代码后放进模块结果怎么是这样的

hhzjxss

759857387 发表于 2012-1-30 20:42
我复制代码后放进模块结果怎么是这样的

1、下面这两句：

1. .Document.Forms(0).all("username").Value = "这里填写你的登录用户名"
   
2. 
   
3. .Document.Forms(0).all("password").Value = "这里填写你的登录密码"
   

复制代码

=号后面引号中的文字，要修改成你的论坛登录用户名，和登录密码！

2、你在运行代码前，要保证没有登录论坛，如果已经登录，也会出错！