Sourcenya sich mang sederhana tapi asik juga buat main main yach paling ndak ada kerjaan pa lagi untuk anda yang menginginkan cara praktis apapun itu yang berhubungan dengan pencarian di google. Anda bisa menyingkat waktu dari pada nulis panjang lebar hee seperti contoh misalnya anda ingin mencari sebuah lagu agnes monica misal teruskanlah dan misal juga webnya adalah indowebster.com maka anda bisa menggunakan dalam web ketik agnes monica teruskanlah site:indowebster.com trus anda ingin mencari file line maka harus menuliskan berulang ulang kata kunci site:indowebster.com nah dari pada gitu kita belajar dulu menggunakan visual basic untuk memudahkan kerja kita
gimana sourcenya
List1.Clear
Search_String = Text1.Text
If Not Search_String = "" Then
If List2.Text = "blogspot" Then
Search_String = Search_String & " site:blogspot.com"
ElseIf List2.Text = "feedburner" Then
Search_String = Search_String & " site:feeds.feedburner.com"
ElseIf List2.Text = "wordpress" Then
Search_String = Search_String & " site:wordpress.com"
End If
For i = 0 To Int(Text2.Text / 10)
Google_Web_APIs_license_key = "0000000000000000000000000000000" ' Lisensi anda sendiri dunk jangan minta saya :D
Start_String = i * 10
Set objInputXMLDoc = New MSXML.DOMDocument
objInputXMLDoc.Load App.Path & ("\doGoogleSearch.xml")
objInputXMLDoc.selectSingleNode("//key").Text = Google_Web_APIs_license_key
objInputXMLDoc.selectSingleNode("//q").Text = Search_String
objInputXMLDoc.selectSingleNode("//start").Text = Start_String
Set objXMLHTTP = New MSXML.XMLHTTPRequest
objXMLHTTP.open "post", "http://api.google.com/search/beta2", False
objXMLHTTP.setRequestHeader "Content-Type", "text/xml"
objXMLHTTP.setRequestHeader "SOAPAction", "doGoogleSearch"
objXMLHTTP.send objInputXMLDoc
Set objOutputXMLDoc = New MSXML.DOMDocument
objOutputXMLDoc.loadXML objXMLHTTP.responseText
Set Nodes = objOutputXMLDoc.selectNodes("//item")
For Each Node In Nodes
List1.AddItem Replace(Node.selectSingleNode("URL").Text, "http://", "", 1, -1, 1)
Next
Next
End If
Set objInputXMLDoc = Nothing
Set objXMLHTTP = Nothing
Disini anda harus jeli apa saja object yang masuk ke source dan bagaimana bentuknya. Kan kita belajar jjadi met mencari tapi sebenarnya bisa di penggal kok sourcenya heeeee :D