[已解决]如何在"InternetExplorer.Application"事件中退出系统

事后诸葛亮

以上是网站的登陆情况 及 源码文件

用VBA做，网站登陆时的代码如下(以下代码是正确的，可以登陆)。
With CreateObject("InternetExplorer.Application")
    .Visible = True
    .navigate "http://61.136.146.44:8088/zkcjcx/"
    Do Until .Readystate = 4
        DoEvents
    Loop
    .Document.Forms(0).all("code").Value = "帐号"
    .Document.Forms(0).all("pass").Value =" 密码"
    .Document.Forms(0).all("submit").Click
   msgbox "登陆成功"
   退出系统的代码...  如何写这句代码
  msgbox "成功退出系统登陆"

end with


谢谢

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-7-3 22:32

1. With CreateObject("InternetExplorer.Application")
   
2.     .Visible = True
   
3.     .navigate "http://61.136.146.44:8088/zkcjcx/"
   
4.     Do Until .Readystate = 4
   
5.         DoEvents
   
6.     Loop
   
7.     .Document.Forms(0).all("code").Value = "帐号"
   
8.     .Document.Forms(0).all("pass").Value = " 密码"
   
9.     .Document.Forms(0).all("submit").Click
   
10.     MsgBox "登陆成功"
    
11.     .Quit
    
12.     MsgBox "成功退出系统登陆"
    
13. End With

复制代码

跳转到最佳答案楼层

hwc2ycy

.quit

hwc2ycy

1. With CreateObject("InternetExplorer.Application")
   
2.     .Visible = True
   
3.     .navigate "http://61.136.146.44:8088/zkcjcx/"
   
4.     Do Until .Readystate = 4
   
5.         DoEvents
   
6.     Loop
   
7.     .Document.Forms(0).all("code").Value = "帐号"
   
8.     .Document.Forms(0).all("pass").Value = " 密码"
   
9.     .Document.Forms(0).all("submit").Click
   
10.     MsgBox "登陆成功"
    
11.     .Quit
    
12.     MsgBox "成功退出系统登陆"
    
13. End With

复制代码

hwc2ycy

hwc2ycy

MsgBox "登陆成功"，这个最好不要，因为IE打开后，焦点转换过来了，你不切换到EXCEL看不到这个消息框。不点击确定后，没法往下执行。

事后诸葛亮

hwc2ycy 发表于 2013-7-3 22:32

这是关闭了 浏览器了。。

事后诸葛亮

hwc2ycy 发表于 2013-7-3 22:32

请留意看一下我发的附件图片上的 网站代码。
麻烦了。谢谢

hwc2ycy

你给个号码让我登陆进去才能写。

事后诸葛亮

hwc2ycy 发表于 2013-7-4 13:03
你给个号码让我登陆进去才能写。

给你发消息了。。
还有 能不能顺便帮忙做一个 抓取这个页面的成绩信息呀。直接整个表复制下来。或者单独提取也行。

    With CreateObject("InternetExplorer.Application")
        .Visible = True
        .navigate TextBoxURL网址.Text  '"http://61.136.146.44:8088/zkcjcx/"
        Do Until .Readystate = 4
            DoEvents
        Loop
             .Document.Forms(0).all("code").Value = "帐号"
            .Document.Forms(0).all("pass").Value ="密码"
           .Document.Forms(0).all("submit").Click
   抓取数据的代码
    退出系统代码。

    End With

后面我自己用循环。

上清宫主

就是，得进去看到了才得行