怎么用VB6的WebBrowser控件自动点击网页中的SPAN标签呢

如何用VB6的WebBrowser控件自动点击网页中的SPAN标签呢？
<span class="J_WangWang" data-nick="烟雨殘風" data-display="inline" data-item="2953742482" data-icon="large"></span>
就是点击上面的标签，求牛人指教啊！！！！
------最佳解决方案--------------------

dim xx

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

  if xx.ClassName="J_WangWang" then 

    'xx.onclick

    xx.fireEvent("onclick")

  end if

next

------其他解决方案--------------------
模拟执行onclick事件
------其他解决方案--------------------
一直学VB，但不精。楼上的可否交流下自己学VB的入门路？
------其他解决方案--------------------

引用:

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

我点击后发现没效果，于是加了一句
else
msgbox“没找到”
，结果就提示没找到？请大牛再三指教
------其他解决方案--------------------
多放点网页源码或者网址，人家好给你调试。
------其他解决方案--------------------

引用:

引用:
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……

你用的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基础知识很差。
------其他解决方案--------------------

引用:

引用:

引用:
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……

我声明了，只是引用你上面的话而已
------其他解决方案--------------------
我发现源码里面有很多个CLASSNAME是J_WANGWANG的？
------其他解决方案--------------------
if xx.ClassName="J_WangWang" then and xx.data-nick="烟雨殘風" then
------其他解决方案--------------------
不错！单出现了变量未定义。错误指向nick
------其他解决方案--------------------
大牛，如何点击http://s.taobao.com/search?q=QB这个页面里面的“和我联系”按钮啊？我想了两天了！！
------其他解决方案--------------------
xx.data-nick="烟雨殘風" 改成xx.getattribute("data-nick")="烟雨殘風"