Foxtable(狐表)用户栏目专家坐堂 → [求助]求教一个高端的问题!!


  共有10051人关注过本帖树形打印复制链接

主题:[求助]求教一个高端的问题!!

帅哥哟,离线,有人找我吗?
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:732 积分:5491 威望:0 精华:14 注册:2011/8/28 12:49:00
  发帖心情 Post By:2012/7/31 17:44:00 [显示全部帖子]

你发链接出来啊,找按钮得分析网页的哇


 回到顶部
帅哥哟,离线,有人找我吗?
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:732 积分:5491 威望:0 精华:14 注册:2011/8/28 12:49:00
  发帖心情 Post By:2012/8/1 8:56:00 [显示全部帖子]

'你没给网页,所以没有测试

Dim OjbIe As Object = CreateObject("InternetExplorer.Application")

With OjbIe

    .Visible = True

    .Navigate("这里输入你的网址")

    Application.DoEvents

    Do While .Busy

        Application.DoEvents

    Loop

    .Document.getElementById("publish").Click

    .Visible = True

End With 

[此贴子已经被作者于2012-8-1 8:56:47编辑过]

 回到顶部