如何用VB6的WebBrowser控件自动点击网页中的SPAN标签呢？

dos2519091 2011-05-29 08:09:30

<span class="J_WangWang" data-nick="烟雨殘風" data-display="inline" data-item="2953742482" data-icon="large"></span>
就是点击上面的标签，求牛人指教啊！！！！

...全文

1515 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

williamxia8 2013-08-20

打赏
举报

C#怎么实现呢，也是这个点击Span的问题

dos2519091 2011-05-29

打赏
举报

[Quote=引用 2 楼 sysdzw 的回复:]
VB code
dim xx
for each xx in document.getElementsByTagName("span")
if xx.ClassName="J_WangWang" then
'xx.onclick
xx.fireEvent("onclick")
end if
next
[/Quote]
我点击后发现没效果，于是加了一句
else
msgbox“没找到”
，结果就提示没找到？请大牛再三指教

dos2519091 2011-05-29

打赏
举报

一直学VB，但不精。楼上的可否交流下自己学VB的入门路？

无·法 2011-05-29

打赏
举报

dim xx

for each xx in document.getElementsByTagName("span")

  if xx.ClassName="J_WangWang" then 

    'xx.onclick

    xx.fireEvent("onclick")

  end if

next

神马被哪个妞占用了呢 2011-05-29

打赏
举报

模拟执行onclick事件

无·法 2011-05-29

打赏
举报

xx.data-nick="烟雨殘風" 改成xx.getattribute("data-nick")="烟雨殘風"

dos2519091 2011-05-29

打赏
举报

大牛，如何点击http://s.taobao.com/search?q=QB这个页面里面的“和我联系”按钮啊？我想了两天了！！

dos2519091 2011-05-29

打赏
举报

不错！单出现了变量未定义。错误指向nick

无·法 2011-05-29

打赏
举报

if xx.ClassName="J_WangWang" then and xx.data-nick="烟雨殘風" then

dos2519091 2011-05-29

打赏
举报

我发现源码里面有很多个CLASSNAME是J_WANGWANG的？

dos2519091 2011-05-29

打赏
举报

[Quote=引用 6 楼 sysdzw 的回复:]
引用 4 楼 dos2519091 的回复:

引用 2 楼 sysdzw 的回复:
VB code
dim xx
for each xx in document.getElementsByTagName("span")
if xx.ClassName="J_WangWang" then
'xx.onclick
xx.fireEvent("onclick")
end if
ne……
[/Quote]
我声明了，只是引用你上面的话而已

无·法 2011-05-29

打赏
举报

[Quote=引用 4 楼 dos2519091 的回复:]

引用 2 楼 sysdzw 的回复:
VB code
dim xx
for each xx in document.getElementsByTagName("span")
if xx.ClassName="J_WangWang" then
'xx.onclick
xx.fireEvent("onclick")
end if
next

我点击后发现没效果，于是加了一句
e……
[/Quote]你用的webbrowser吗？如果名称为webbrowser1，那么代码为：

dim xx

for each xx in webbrowser1.document.getElementsByTagName("span")

  if xx.ClassName="J_WangWang" then 

    'xx.onclick

    xx.fireEvent("onclick")

  end if

next

建议设置要求变量声明，由此可见你vb基础知识很差。