自动登陆网站
如何自动登陆网站,在程序的文本框中输入用户名和密码后点登陆就可以直接登陆到相应的网站,就和直接在网站上登陆的效果一样,就以这个网站为例子, http://mail.163.com/
另外不有一个问题要解决,就是如何得到所有文件(包括文件夹)的图标
[解决办法]
反正不到10句代码........还是写了
添加WebBrowser到工程,复制代码,然后就看见效果了.想单独看填写后不提交的就把最后一句WebBrowser1.Document.Forms(0).All(36).Click注释掉.
以下是代码.
Option Explicit
Private Sub Form_Load()
WebBrowser1.Navigate "http://mail.163.com "
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If URL = "http://mail.163.com/ " Then
WebBrowser1.Document.Forms(0).All(9).Value = "UserName "
WebBrowser1.Document.Forms(0).All(13).Value = "UserPassword "
WebBrowser1.Document.Forms(0).All(36).Click
End If
End Sub
[解决办法]
可以..
shell "explorer http://www.163.com "
然后用shellwindow获取它的Document对象,继续相同操作就可以
第一句,写用户名(把UserName改成你的用户名)
第二句,写密码(UserPassword改成你的密码)
第三句,登陆邮箱