Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共6 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:[求助]自动登录网页怎么实现?

1楼
54292550 发表于:2012/1/30 12:19:00
比如说我要自动登录狐表论坛,然后进入发表帖子界面,我参考那个飞信的代码照葫芦画瓢,没有成功,谁能给解答一下?
2楼
发表于: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编辑过]
3楼
发表于: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 

4楼
狐狸爸爸 发表于:2012/1/30 12:36:00
呵呵,学习了。
5楼
54292550 发表于:2012/1/30 12:40:00

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

图片点击可在新窗口打开查看

6楼
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
图片点击可在新窗口打开查看
共6 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .08203 s, 2 queries.