ProfSearch
Übersicht
BlitzBasic BlitzPlus
morszeckGastBetreff: ProfSearch |
 Sa, Dez 20, 2003 15:46Antworten mit Zitat |
|
|---|---|---|
|
Hi Bürger, ich habe mal ein kleines Tool geschrieben bei dem man blitzschnell im Web suchen kann! Hier ein kleiner Ausschnitt:
Code: [AUSKLAPPEN] fenster = CreateWindow("ProfSearch",0,0,1024,60,0,1)
suche$ = CreateTextField(5,5,150,20,fenster) ok = CreateButton("Google Suche",160,5,100,20,fenster) Repeat If WaitEvent() = $401 And EventSource() = ok Then ExecFile "http://suche.freenet.de/suche?query=%" + TextFieldText(suche$) + "%&page=1&ink=385950&target=freenet&js=on" Until WaitEvent() = $803 Mein Problem ist, dass wenn ich den Code starte (das ist nur ein Ausschnitt), dass er dann im IE nur eine Zahlenkombination bringt! Ich habe aber die Variablen auf Text gesetzt? Wie kann ich das ändern? Idee: http://blitzbasic.com/codearcs...p?code=643 |
||
|
Valio |
Sa, Dez 20, 2003 20:01 Antworten mit Zitat 
|
|---|---|---|
|
Wie meinen?
Also der Code funktioniert bei mir obwohl er so wohl optimaler wäre:Code: [AUSKLAPPEN] fenster = CreateWindow("ProfSearch",0,0,1024,60,0,1)
suche = CreateTextField(5,5,150,20,fenster) ok = CreateButton("Google Suche",160,5,100,20,fenster) Repeat If WaitEvent() = $401 And EventSource() = ok Then s$ = Replace(TextFieldText(suche)," ","%20") ExecFile "http://suche.freenet.de/suche?query=" + s$ + "&page=1&ink=385950&target=freenet&js=on" EndIf Until WaitEvent() = $803 Formulier sonst nochmal das Problem um, ich bin mir nicht sicher was du meinst... |
||
|
Programming today is a race between software engineers striving to build better and bigger idiot-proof programs, and the Universe trying to produce bigger and better idiots. So far, the Universe is winning. - Rick Cook
Gegen TCPA || Stoppt RFID || Tux user #361946 || User posted image |
||
morszeckGast |
Sa, Dez 20, 2003 22:33 Antworten mit Zitat |
|
|---|---|---|
| Danke! Und die Lösung für Google habe ich auch gefunden! | ||
Übersicht
BlitzBasic BlitzPlus
Powered by phpBB © 2001 - 2006, phpBB Group