问题：比如百度登陆后，最右上角的退出按纽，怎么点击，请高手给出代码
'通过控制浏览器 来实现来实现点 "退出"
Private Sub Command1_Click()
Dim IEList As New ShellWindows
Dim browser
Dim Doc
On Error Resume Next
'遍历当前地浏览器窗口
For Each browser In IEList
'找到需要地IE窗口,没有if判断就对所有窗体中找其中一个
' If browser.Document.Title = "这个写网页标题来判断" Then
Doc.body.All("log_out").Click '提交
' 解释:这个是你要按的那个按钮的id 看你发的代码里有[... id="log_out"...]
' 由于所以不同的网页 源代码 不同,所以程序代码也不同
' End If
Next
End Sub
------------------------------------
你打开浏览器登陆后,然后运行程序.(if 那个判断可以加准你的判断范围)
说的怕你不太清楚,有问题找Q 271562312 或发邮件
其实控制IE方法还有很多.这里介绍种最好实现的给你
如果你对比如百度登陆后，最右上角的退出按纽，怎么点击，请高手给出代码这个问题有好的意见或
建议，请留言
|
您当前的位置：
百科371 → 电脑/网络 → VB → 电脑/网络内容
退出登录 
减小字体
增大字体