1,502
社区成员




Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.abazias.com/builder/builder.asp?view=diamondsearch", fasle
While WebBrowser1.ReadyState <> 4
DoEvents
Wend
WebBrowser1.Document.getelementbyid("chicklet_hover_cushion").Click
End Sub
Private Sub Command11_Click()
MsgBox WebBrowser1.Document.getElementsByTagName("DIV")(398).INNERHTML
End Sub
Dim l1&, l2&, s$
s = LCase(WebBrowser1.Document.body.innerHTML)
l1 = InStrRev(s, "resultstableprice c fl")
l1 = InStr(l1, s, "$")
l2 = InStr(l1, s, "<")
MsgBox Mid(s, l1, l2 - l1)