用VB编程，来整理被谷歌沙盒收录的网站网址，这样可以将他们导入到数据库中，所以为了方便起见，要自定义google搜索。下面就是在“搜索按钮”中添加的代码。当然要在窗体中添加一个文本框，在下面的代码中我将文本框的名称定义为KEYWORDTEXT。程序运行后，在文本框中输入搜索绵关键词或网站的网址就可以啦！
Private Declare Sub Sleep Lib "kernel32" (ByVal dwmilliseconds As Long)
Dim i As Long, j As Long, s() As String
With CreateObject("InternetExplorer.Application")
.Visible = True
For i = 1 To 20
.Navigate "http://www.google.com/search?q=" & KEYWORDTEXT.Text & "&num=100&hl=zh-CN&newwindow=1&start=" & start & "&sa=N"
Do Until .ReadyState = 4
DoEvents
Loop
s = Split(.Document.body.innerhtml, "'')"" href=""")
For j = 1 To UBound(s)
Debug.Print Split(s(j), """ target=")(0)
Next
Sleep 10000
Next
End With
