1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
| Protected Sub BTNSearch_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTNSearch.Click
' Création d'un objet msnSearch
Dim SearchService As New MSNSearchService.MSNSearchService
' Instanciation de la recherche
Dim SearchRequest As New MSNSearchService.SearchRequest
SearchRequest.Query = TxtChercher.Text
SearchRequest.AppID = "51B8EE99AA64E2B7B8E66E204B870551496A8A88"
SearchRequest.CultureInfo = "en_US"
SearchRequest.SafeSearch = MSNSearchService.SafeSearchOptions.Moderate
'Instanciation du lieu de la recherche
Dim arraySize As Integer = 0
Dim SourceRequest As MSNSearchService.SourceRequest() = New MSNSearchService.SourceRequest(arraySize) {}
SourceRequest(0) = New MSNSearchService.SourceRequest
SourceRequest(0).Source = MSNSearchService.SourceType.Web
SourceRequest(0).ResultFields = MSNSearchService.ResultFieldMask.All
SourceRequest(0).Count = 10
Dim SearchReponse As New MSNSearchService.SearchResponse
Try
SearchReponse = SearchService.Search(SearchRequest)
Catch ex As Exception
Dim TEST As String = ex.Message
End Try
AfficherResultatsRecherche(SearchReponse)
End Sub |
