数据抓取--点击弹出新对话框
点击 网页 http://odds.500wan.com/fenxi/yazhi.php?id=371809中 “即时” 这一栏 下面的元素 会弹出新窗口，
怎么才能抓取新窗口里的数据？？？
我用的是 webbrowser 控件， 现在做到在对应的元素上 onclick 这一步，后面该怎么办？？
望高人指点一二，谢谢。 --------------------编程问答-------------------- 看新窗口的呈现方式， 是新页面/frame方式的话 ，在documentcomplete事件中应该能捕捉到， 是div方式还是通过dom定位 --------------------编程问答-------------------- 看新窗口的呈现方式， 是新页面/frame方式的话 ，在documentcomplete事件中应该能捕捉到， 是div方式还是通过dom定位 --------------------编程问答-------------------- 不太懂ls的意思
被点击的元素的网页源码
<td style="cursor:pointer" ref="-0.5">半球 </td> --------------------编程问答-------------------- UP 还没解决
求高人出现 --------------------编程问答-------------------- vb6,网络编程相关问题， 可加群261037473交流. --------------------编程问答-------------------- 试了下， onclick 后 提示 自动化错误 --------------------编程问答-------------------- 应该是ALERT弹出的提示框吧,这个问题我原来也试着弄过,不过怎么也弄不好,当时我是弹出一个IE窗口的MESSEGBOX吧,让人点击确定或退出,因为要根据其提示的意思来点击,怎么也没弄过,人一懒,就扔那儿没管了 --------------------编程问答-------------------- 建设采用抓包分析。 --------------------编程问答-------------------- 除 --------------------编程问答-------------------- Private Sub Command1_Click() ' 500易做图网
On Error Resume Next
With CreateObject("Microsoft.XMLHTTP")
.Open "GET", "http://odds.500.com/fenxi/inc/yazhiajax.php?fid=371809&id=2&t=1359385739968&r=1", False
.setRequestHeader "Referer", "http://odds.500.com/fenxi/yazhi.php?id=371809"
.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.setRequestHeader "Connection", "Keep -Alive"
.Send
temp = Replace(.responsetext, "\u", ",&H")
tp = Split(temp, ",")
a = ""
For k = 1 To UBound(tp)
a = a & ChrW(CInt(Left(tp(k), 6))) '字符串转换函数
If Len(tp(k)) > 6 Then a = a & Right(tp(k), Len(tp(k)) - 6)
Next k
If Len(tp(0)) > 0 Then a = tp(0) & a
Debug.Print a
End With
End Sub --------------------编程问答-------------------- 学习了，关键还是慢慢消化
补充：VB , 网络编程
