Keskustelu: Koodit: VB6: Google-haku

' Googletus by Billys, 20.9.2004
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long 'shellexecute
Dim google As String

Private Sub eti_Click()
    replaceta = Replace(sana, " ", "+") 'replacetaan
    google = google + sana 'lisätään hakusana(t)
    ShellExecute 0&, vbNullString, google, vbNullString, vbNullString, vbNormalFocus 'sitte avataan oletusselaimessa
DoEvents
    google = "http://www.google.fi/search?q=" 'palautetaan osoite
End Sub

Private Sub Form_Load()
    google = "http://www.google.fi/search?q=" 'pistetään osote tommoseks
End Sub