自动登陆网站

Question

如何自动登陆网站,在程序的文本框中输入用户名和密码后点登陆就可以直接登陆到相应的网站,就和直接在网站上登陆的效果一样,就以这个网站为例子, http://mail.163.com/
另外不有一个问题要解决,就是如何得到所有文件(包括文件夹)的图标

Answer 1

1、http 协议，可以利用 webbrowse 控件帮助实现
2、是提取关联文件的图标、以及exe/dll文件的图标吧。 在本论坛搜索一下吧
  
————————————————————————————————————
写作，虽然每个人都会查阅辞海，可，不是人人都能写出不朽的篇章的。编程，如是也。

Answer 2

2、http://community.csdn.net/Expert/topic/4795/4795144.xml?temp=.9417993
  
————————————————————————————————————
写作，虽然每个人都会查阅辞海，可，不是人人都能写出不朽的篇章的。编程，如是也。

Answer 3

1.能不能稍微详细点,转载的也可以
2,ExtractIcon这个API我知道,可只对可执行文件或DLL文件有用,而对于其它文件或文件夹就没有用了

Answer 4

反正不到10句代码........还是写了
添加WebBrowser到工程,复制代码,然后就看见效果了.想单独看填写后不提交的就把最后一句WebBrowser1.Document.Forms(0).All(36).Click注释掉.以下是代码.Option ExplicitPrivate Sub Form_Load()
WebBrowser1.Navigate "http://mail.163.com"
End SubPrivate 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 IfEnd Sub

Answer 5

可不可以实现和平时打开网站一样,而不是显示在WebBrowser控件内?这个问题可以不回答能解释一下这三句吗?
WebBrowser1.Document.Forms(0).All(9).Value = "UserName"
WebBrowser1.Document.Forms(0).All(13).Value = "UserPassword"
WebBrowser1.Document.Forms(0).All(36).Click

Answer 6

可以..
shell "explorer http://www.163.com"
然后用shellwindow获取它的Document对象,继续相同操作就可以第一句,写用户名(把UserName改成你的用户名)
第二句,写密码(UserPassword改成你的密码)
第三句,登陆邮箱