Tipp 0276 Web-Suche mit Google
Autor/Einsender:
Datum:
  Sven Soltermann
12.10.2002
Entwicklungsumgebung:   VB 5
Dieser Tipp zeigt, wie es auf sehr einfache Art und Weise möglich ist, die Suchmaschine Google von VB aus aufzurufen.
 
Option Explicit

Private Explorer As SHDocVw.InternetExplorer

Private Sub Form_Load()
  With Combo1
    .Clear
    .AddItem "Das Web"
    .AddItem "Seiten auf Deutsch"
    .AddItem "Seiten aus Deutschland"
    .AddItem "Seiten aus der Schweiz"

    .ListIndex = 0
  End With

  Text1.Text = """Visual Basic"""
End Sub

Private Sub cmdSuchen_Click()
  Dim strNavigate As String

  Select Case Combo1.ListIndex
    Case 0  '"Das Web"
      strNavigate = "www.google.de/search?hl=de&q=" & Text1.Text

    Case 1  '"Seiten auf Deutsch"
      strNavigate = "http://www.google.de/search?hl=de" & _
            "&meta=lr%3Dlang_de&q=" & Text1.Text

    Case 2  '"Seiten aus Deutschland"
      strNavigate = "http://www.google.de/search?hl=de" & _
            "&meta=cr%3DcountryDE&q=" & Text1.Text

    Case 3  '"Seiten aus der Schweiz"
      strNavigate = "http://www.google.ch/search?hl=de" & _
            "&meta=cr%3DcountryCH&q=" & Text1.Text
  End Select

  Set Explorer = New SHDocVw.InternetExplorer
  Explorer.Navigate strNavigate
  Explorer.Visible = True
End Sub
 
Hinweis
Um diesen Tipp ausführen zu können, muss der Internet Explorer ab Version 4.0 installiert sein.
Weitere Links zum Thema
Hyperlink folgen
RSS-Feeds auslesen

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
VB-Version
VBA 5
VBA 6
VB 4/16
VB 4/32
VB 5
VB 6


Download  (7,8 kB) Downloads bisher: [ 1559 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Dienstag, 13. September 2011