Imports LiveSearchSample.ServiceReference Module SampleModule2 Sub Main() Dim sourceRequests = New List(Of SourceRequest) sourceRequests.Add(New SourceRequest With { _ .Source = SourceType.Web, _ .ResultFields = ResultFieldMask.Title Or _ ResultFieldMask.Description Or _ ResultFieldMask.Url}) sourceRequests.Add(New SourceRequest With { _ .Source = SourceType.News, _ .Count = 1, _ .ResultFields = ResultFieldMask.Title Or _ ResultFieldMask.Url}) sourceRequests.Add(New SourceRequest With { _ .Source = SourceType.Spelling, _ .Count = 3, _ .ResultFields = ResultFieldMask.Title}) Dim searchRequest = New SearchRequest With { _ .AppID = "取得したApplication ID", _ .Query = "松井秀樹", _ .CultureInfo = "ja-JP", _ .Requests = sourceRequests.ToArray} Dim service As MSNSearchPortTypeClient = Nothing Try service = New MSNSearchPortTypeClient Dim searchResponse = service.Search(searchRequest) For Each sourceResponse In searchResponse.Responses Console.WriteLine("Source: " & sourceResponse.Source.ToString) Console.WriteLine("Total: " & sourceResponse.Total) For Each result In sourceResponse.Results If result.Title IsNot Nothing Then Console.WriteLine("Title: " & result.Title) End If If result.Description IsNot Nothing Then Console.WriteLine("Description: " & result.Description) End If If result.Url IsNot Nothing Then Console.WriteLine("URL: " & result.Url) End If Console.WriteLine(New String("-"c, 50)) Next Next service.Close() Catch timeoutEx As TimeoutException Console.WriteLine(timeoutEx.Message) service.Abort() Catch soapEx As ServiceModel.FaultException Console.WriteLine(soapEx.Message) service.Abort() Catch commEx As ServiceModel.CommunicationException Console.WriteLine(commEx.Message) service.Abort() Catch ex As Exception Console.WriteLine(ex.Message) service.Abort() End Try Console.ReadLine() End Sub End Module