专家坐堂-[求助]自动登录网页怎么实现？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]自动登录网页怎么实现？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=16011)

--  作者：54292550
--  发布时间：2012/1/30 12:19:00
--  [求助]自动登录网页怎么实现？
比如说我要自动登录狐表论坛，然后进入发表帖子界面，我参考那个飞信的代码照葫芦画瓢，没有成功，谁能给解答一下？

--  作者：飞
--  发布时间：2012/1/30 12:24:00
--

参考这个帖子

http://www.datasoft.com.cn/dispbbs.asp?boardid=2&Id=15970&page=2

[此贴子已经被作者于2012-1-30 12:25:36编辑过]

--  作者：飞
--  发布时间：2012/1/30 12:34:00
--

\'送佛送到西好了

Dim OjbIe As Object = CreateObject("InternetExplorer.Application")
With OjbIe
    .Visible = True
    .Navigate("http://www.foxtable.com/bbs/index.asp")
    Application.DoEvents
    Do While .Busy
        Application.DoEvents
    Loop
    Dim DoM As Object = .Document
    With DoM
        .getElementById("username").Value = "在此输入用户名"
        .getElementById("password").Value = "在此输入密码"
        .getElementById("submit").Click
    End With
    .Visible = True
End With

--  作者：狐狸爸爸
--  发布时间：2012/1/30 12:36:00
--
呵呵，学习了。

--  作者：54292550
--  发布时间：2012/1/30 12:40:00
--

呵呵，飞果然高手，如何用ORC库识别验证码呢？我指的是比较简单容易识别的那种。

--  作者：lihe60
--  发布时间：2012/1/30 15:27:00
--

以下是引用飞在2012-1-30 12:34:00的发言：

\'送佛送到西好了

Dim OjbIe As Object = CreateObject("InternetExplorer.Application")
With OjbIe
    .Visible = True
    .Navigate("http://www.foxtable.com/bbs/index.asp")
    Application.DoEvents
    Do While .Busy
        Application.DoEvents
    Loop
    Dim DoM As Object = .Document
    With DoM
        .getElementById("username").Value = "在此输入用户名"
        .getElementById("password").Value = "在此输入密码"
        .getElementById("submit").Click
    End With
    .Visible = True
End With

有这个提示

此主题相关图片如下：未命名.gif