一个可能很高深的问题...也许很难解决.....大家帮帮忙吧

Question

   给看看网页的代码，网页上的元素都可以读出来的，我今天刚设计了一个，问题是网站上的ASP代码有错误，害我程序要人工干预，气人啊

Answer 1

http://chat.silversand.net
随便进入一个聊天室

Answer 2

已经有较好解决的方法...现在还有一个关键是..如何在鼠标点击以后才实现它.Private Sub web1_StatusTextChange(ByVal jname As String)
If Left$(jname, 22) = "javascript:parent.cs('" Then
    iname1 = InStr(1, jname, ".cs('", vbTextCompare)
    sname = Right(jname, Len(jname) - iname1 - 4)
    iname2 = InStr(1, sname, "')", vbTextCompare)
    sname = Left(sname, iname2 - 1)
    imgurl.Text = sname
'If Click = True Then
'To_name.Text = sname
'End If
End If
End Sub这段代码只做到了鼠标移过符合条件1的时候,imgurl.text就显示出当前鼠标所指向的内容.现在要改的是鼠标要点击它的时候.符合条件的内容才在imgurl.text显示出来.条件1即指
javascript:parent.cs('条件1')
javascript:parent.cs('名字')
...
上面的代码就是查找
"javascript:parent.cs('"
后面和
"')"
前面的那些文字...但是是鼠标一移到就显示而不是需要点击的时候才显示...
望解决~~