[code]
Dim db As String
db = "D:/jason-files/GEOdata.mdb"
db = "D:/jason-files/GEOdata.mdb"
Dim IE As New InternetExplorer
Dim htmldoc As HTMLDocument
Dim rrr As HTMLTableRow
Dim rrr As HTMLTableRow
IE.Navigate2 "http://www.ip.cn/"
IE.Visible = True
n = 1
Dim conn As New ADODB.Connection, connstr As String, rs As New ADODB.Recordset
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db
conn.Open connstr
rs.Open "select * from ips where city is null ", conn, 1, 3
While Not rs.EOF
waitLoading IE
Set htmldoc = IE.Document
htmldoc.getElementById("q").Value = rs("startip")
'MsgBox htmldoc.getElementsByTagName("Input").Item(1).onclick
htmldoc.getElementsByTagName("Input").Item(1).Click
waitLoading IE
wait 3
Set htmldoc = IE.Document
Cells(n, 1) = htmldoc.getElementById("queryIp").innerText
n = n + 1
'MsgBox htmldoc.getElementsByTagName("Input").Item(1).onclick
htmldoc.getElementsByTagName("Input").Item(1).Click
waitLoading IE
wait 3
Set htmldoc = IE.Document
Cells(n, 1) = htmldoc.getElementById("queryIp").innerText
n = n + 1
rs.MoveNext
Wend
rs.Close
conn.Close
conn.Close
[/code]