[VB6] Google Searcher

[hoschi111]

Nabend,
also
ich habe nach einen Video Tut ein Google Searcher gebaut, nur hab ich ihn langweilig gefunden und wollte ihn ein bissl aufmotzen mit, Options.

Also, dort ist ein Eigabefenster, wenn s leer ist sagt er "Bitte etwas eingeben...."

So..
am Anfang konnte man nur Standart suche machen, also als ob man ein normales wort in gogle eingibt, und dann hat er die seite im integrierten Browser geöffnet.

Jetzt wollte ich aber noch eine Funktion einbauen, die Sagt, wenn Option1 angeklickt ist, soll er diese Seite öffnen.

Und wenn Option2 angeklickt ist, soll nach dieser Methode gesucht werden.

hier der Code bis jetzt: (Der Code ist mit den IF Clauses flasch, kann ihn jemand berichtigen?)

Private Sub search_butt_Click()
    If search.Text = "" Then
        MsgBox "Bitte etwas eingeben!", vbcrritical + vbOKOnly, "Kein Ergebnis gefunden!"
    Else
        If Option2.Enabled Then
            browser_form.WebBrowser1.Navigate ("http://www.google.de/search?q=" & _
            search.Text & "&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:" & _
            "de:official&client=firefox-a")
        Else

        If Option1.Enabled Then
            browser_form.WebBrowser1.Navigate ("http://www.google.de/search?q=" & _
            search.Text & "+.cab+OR+.exe+OR+.rar+OR+.zip+OR+.mpg+OR+.avi+OR+.wmv+OR+." & _
            "iso+site%3Arapidshare.de&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla" & _
            ":de:official&client=firefox-a")
        End If

        Me.Hide
        browser_form.Visible = True
    End If
End Sub

Hoffe ihr habt mich verstanden, Gute nacht

hoschi111

[kInGoFcHaOs]

+ vbOKOnly ist sinnlos vbOKOnly ist standart ^^

if check1.Value nicht eneabled

beispiel:

If Check1.Value Then
    MsgBox "Lol"
Else
    MsgBox "Rofl"
End If

ich hoffe ich konnte helfen



mfG
KoC

[nemo]

~

[hoschi111]

Vielen danke euch allen!
Ihr habt mir sehr geholfen, und King of Chaos hat mir sogar per ICQ geholfen.

Vielen Danke.
Kann geclosed werden.

[Q-sys]

Es gibt da auf Youtube ein nettes kleines Tut dafür.
Aber ist von nem Spanier mit dem bestimmt die meinsten Probleme haben.