Membuat Pencarian Google Dengan Visual Basic Komponen MSXML

Kode sederhana dan sudah lama banget nongkrong di hardisk saya. Nich kode dah bangkotan tak buat beberapa tahun yang lalu namun tidak ada salahnya jika saya tuliskan disini sebagai awal pembuka proyek proyek yang akan kita lakukan.

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

Selamat Datang Di Oryn Cell Project

Selamat datang dan selamat menikmati sajian dari kami :D. Disini kita akan mencoba belajar bersama gembira bersama meluangkan waktu juga bersama. Dan semoga saja sajjian yang kita berikan juga bermanfaat bagi semua yang ada di sini. Project yang akan kita laksanakan bukan hanya sekedar seputaran komputer ataupun ponsel tapi lebih umum lagi bisa dalam media apapun.

Tempat ini terbuka bagi siapapun untuk mendemokan segala yang anda kerjakan anda cari dan sebagainya. Pokoknya jika anda merasa project yang anda lakukan bermanfaat bagi orang banyak silahkan anda masukan kesini entah itu review software buatan anda, review web buatan anda dan semuanya asal tidak ada yang merasa dirugikan saja.

Makasih atas kerja samanya


Bowo Ekowidodo

Kumpul Blogger