Das alte Codearchive

WebSearch Plus (Update zu V1.5) von ???

Hi.

WebSearch Plus wurde mit BlitzPlus gemacht. Mit WebSearch Plus kann man verschiedene Suchabfrage auf verschiedene Suchmaschine ausführen. Dabei kann man in einem Auswahl feld die jeweilige Suchmaschine auswählen. (Oder man kann alle auf einmal durchsuchen)

Es wurde auch dabei beachtet, dass man die Fenstergröße der ergebnisse einstellen kann.

Folgende Suchmaschinen sind eingetragen:
[list:218e3a9255]Google
Freenet
PageSeeker[/list:u:218e3a9255]

Wenn ihr selbst noch Suchmaschine findet, dann sagt mir bitte bescheid, damit ich diese hier einfügen kann.

Wer momentan kein BlitzPlus hat, dem kann ich auch Helfen. Denn [url=www.shadowturtle.de/exe/ws-plus.exe]hier[/url] kann man sich das Programm Compiliert runter Laden.

Des weiteren wünsche ich euch mit dem folgenden Code noch viel Spaß.

[code:1:218e3a9255]Type Searcher
Field Name$
Field NameBig$
Field URLSearch$
Field PageURL$
End Type

Type Search_Window
Field Win
Field HtmlSite
Field HtmlLink$
Field SearchWith.Searcher
End Type

Google.Searcher = New Searcher
GoogleName$ = "Google - De"
GoogleNameBig$ = "Google - Deutschland"
GoogleURLSearch$ = "http://www.google.de/search?q=%searchtext%&ie=UTF-8&oe=UTF-8&hl=de&meta="

Freenet.Searcher = New Searcher
FreenetName$ = "Freenet"
FreenetNameBig$ = "Freenet"
FreenetURLSearch$ = "http://suche.freenet.de/suche?query=%searchtext%&page=1&ink=385950&target=freenet&js=on"

PageSeeker.Searcher = New Searcher
PageSeekerName$ = "PageSeeker"
PageSeekerNameBig$ = "PageSeeker"
PageSeekerURLSearch$ = "http://www.pageseeker.com/results.htm?start=0&shareid=1&domainid=&directory=&ppsid=&search=%searchtext%"

Global SmallTitle$ = "Willkommen bei WebSearch Plus. WebSearch Plus sucht nach allen Webseiten die es im Internet gibt. Dazu müssen "
SmallTitle$ = SmallTitle$ + "Sie nur ihre Suchanfrage und Suchmaschine angeben."

Global SmallTitle_Pos = 0, SmallTitle_Length = 30, SmallTitle_PixLength = 200, FH = 47
Global FLength = 120, NL = 5

Global Win = CreateWindow("WebSearch Plus", 0, 0, ClientWidth(Desktop()), FH+5, Desktop(), 1)
Global obja = CreateLabel("...", 5, 5, SmallTitle_PixLength, FH-5, Win)

Global fr_a_a = CreateLabel("Suche: ", NL + SmallTitle_PixLength, 6, FLength/2, FH-5-22, Win) : NL = NL + (FLength/2) + 3
Global fr_a_b = CreateTextField(NL + SmallTitle_PixLength, 4, FLength*2, FH-30, Win) : NL = NL + (FLength*2) + 5

Global fr_b_a = CreateLabel("Suchmaschine: ", NL + SmallTitle_PixLength, 6, FLength/1.5, FH-8, Win) : NL = NL + (FLength/1.5) + 3
Global fr_b_b = CreateComboBox(NL + SmallTitle_PixLength, 4, FLength/1.7, FH-30, Win) : NL = NL + (FLength/1.7) + 5

Global fr_c_a = CreateButton("Suchen", NL + SmallTitle_PixLength, 6, FLength/1.5, FH-8-22, Win) : NL = NL + (FLength/1.5) + 3

Global MyPosY = 0
Global MyPosX = 0

AddGadgetItem fr_b_b, "Alle"
For Searcher.Searcher = Each Searcher
AddGadgetItem fr_b_b, SearcherName$
Next

SelectGadgetItem fr_b_b, 0

Global LiblTimer = CreateTimer(10)

While Not KeyHit(1)
vka = WaitEvent(LiblTimer)

If LiblTimer Then
If SmallTitle_Pos > Len(SmallTitle$) + SmallTitle_Length + 5 Then SmallTitle_Pos = 0
SmallTitle_Pos = SmallTitle_Pos + 1
SetGadgetText obja, Mid$(SmallTitle$, SmallTitle_Pos, SmallTitle_Length)
End If

If EventSource() = fr_a_b Then
S$ = TextFieldText(fr_a_b)
S$ = Replace(S$, " ", "+")
SetGadgetText fr_a_b, S$
End If

If (EventSource() = fr_c_a) Or (EventData()=13 And EventSource() = fr_a_b) Then
If SelectedGadgetItem(fr_b_b)>0 Then
tmp = 0
For Searcher.Searcher = Each Searcher
If SelectedGadgetItem(fr_b_b) = tmp+1 Then NewSW(Searcher, TextFieldText(fr_a_b))
tmp=tmp+1
Next
Else
For Searcher.Searcher = Each Searcher
NewSW(Searcher, TextFieldText(fr_a_b))
Next
End If
SetGadgetText fr_a_b, ""
End If

If EventID() = $803 Then
For Search_Window.Search_Window = Each Search_Window
If EventSource() = Search_WindowWin Then
FreeGadget Search_WindowWin
Delete Search_Window
End If
Next

If EventSource() = Win Then
For Search_Window.Search_Window = Each Search_Window
If EventSource() = Search_WindowWin Then
FreeGadget Search_WindowWin
Delete Search_Window
End If
Next

End
End If
End If
Wend

Function NewSW(Searcher.Searcher, searchnow$)
Local groX=500,groY=400

Search_Window.Search_Window = New Search_Window
Search_WindowHtmlLink$ = Replace(SearcherURLSearch$, "%searchtext%", searchnow$)
Search_WindowSearchWith = Searcher

Search_WindowWin = CreateWindow("Suche nach "+Chr$(34)+searchnow$+Chr$(34)+" mit "+SearcherNameBig$, 10+MyPosX, FH+20+MyPosY, groX, groY, Win, 50-32)
Search_WindowHtmlSite = CreateHtmlView(0,0,groX-8,groY-25,Search_WindowWin)
HtmlViewGo Search_WindowHtmlSite, Search_WindowHtmlLink$

SetGadgetLayout Search_WindowHtmlSite, 1,1,1,1

MyPosY = MyPosY + 40 : MyPosX = MyPosX + 40
If MyPosY > 400 Then MyPosY = 0
If MyPosX > 400 Then MyPosX = 0
End Function[/code:1:218e3a9255]

MfG ShadowTurtle

===

von ???

altanet und mns wärn auch interessant.....

===

von ???

Hi.

Ich habe hier nun WebSearch Plus V1.5 Fertig gestellt. Es bietet jetzt folgende neue funktionen:
[list:e044482574]Jede Sucheingabe wird in einem Extra fenster dargestellt. Dabei werden die verschiedenen Suchmaschinen (mit der nach dem Begriff gesucht wird) in einer Tableiste angezeigt, und so kann man ganz leicht umherschalten.
Es gibt nun Katekorien wie z.B. Webseite Suche, Bilder Suche, Pflanze Suche usw.[/list:u:e044482574]

Später wird es auch WebSearch Plus V2.0 geben. Jedoch wird der Code von V2.0 nicht veröffentlicht und ist nur für 3,- Eu bei mir erhältlich, bietet aber folgende Funktionen:
[list:e044482574]Man kann eigene Katekorien und Suchmaschinen einfügen.
Mehr Katekorien stehen zur auswahl.
Mehr Suchmaschinen stehen zur auswahl.
Eine Update Funktion für Aktuellen Suchmaschinen und Katekorien wird es geben.
Man kann zwichen "Webseite ansicht" und zur Ergebnis "Ansicht umschalten"
usw.[/list:u:e044482574]

Und für 3€ ist WebSearch Plus V2.0 wirklich ein gut erworbenes Tool. Um aber wieder auf WebSearch Plus V1.5 zurück zu kommen, habe ich [url=www.shadowturtle.de/exe/ws-plus.exe]hier[/url] die Exe Version zu WebSearch Plus V1.5 hochgeladen.

Und hier ist der Quellcode dazu: (Viel Spaß noch!)
[code:1:e044482574]Type Searcher
Field Name$
Field NameBig$
Field URLSearch$
Field PageURL$
Field Art
End Type

Type SearchArt
Field Name$
Field Besch$
Field Art
End Type

Type Search_Tab
Field Win
Field HtmlSite
Field HtmlLink$
Field SearchWith.Searcher
Field ToWin.Search_Window
End Type

Type Search_Window
Field Win
Field Tab
Field Isearch$
End Type

; Suchmaschinen: Webseiten
Google.Searcher = New Searcher
GoogleName$ = "Google (Web - De)"
GoogleNameBig$ = "Google Websuche (Deutsch)"
GoogleURLSearch$ = "http://www.google.de/search?q=%searchtext%&ie=UTF-8&oe=UTF-8&hl=de&meta="
GoogleArt = 1

Freenet.Searcher = New Searcher
FreenetName$ = "Freenet (De)"
FreenetNameBig$ = "Freenet (Deutsch)"
FreenetURLSearch$ = "http://suche.freenet.de/suche?query=%searchtext%&page=1&ink=385950&target=freenet&js=on"
FreenetArt = 1

PageSeeker.Searcher = New Searcher
PageSeekerName$ = "PageSeeker (En)"
PageSeekerNameBig$ = "PageSeeker (Englisch)"
PageSeekerURLSearch$ = "http://www.pageseeker.com/results.htm?start=0&shareid=1&domainid=&directory=&ppsid=&search=%searchtext%"
PageSeekerArt = 1

MSN.Searcher = New Searcher
MSNName$ = "MSN (Deu)"
MSNNameBig$ = "MSN (Deutsch)"
MSNURLSearch$ = "http://search.msn.de/results.aspx?cp=1252&Pi=9483&DI=108&FORM=MSNH&q=%searchtext%"
MSNArt = 1

; Suchmaschinen: Bilder
Google_Pic.Searcher = New Searcher
Google_PicName$ = "Google (Pic - De)"
Google_PicNameBig$ = "Google Bilder-suche (Deutsch)"
Google_PicURLSearch$ = "http://images.google.de/images?q=%searchtext%&ie=UTF-8&oe=UTF-8&hl=de"
Google_PicArt = 2

; Suchmaschinen: Pflanzen
G_Netz.Searcher = New Searcher
G_NetzName$ = "G-Netz (De)"
G_NetzNameBig$ = "Hier kann man nach Heilpflanzen suchen"
G_NetzURLSearch$ = "http://www.g-netz.de/cgi-bin/broker.cgi?SECTION=1&QS=%searchtext%"
G_NetzArt = 3

; Kathekorien:
K_WebSites.SearchArt = New SearchArt
K_WebSitesName$ = "Webseiten"
K_WebSitesBesch$ = "Es wird nach Webseiten gesucht."
K_WebSitesArt = 1

K_Pics.SearchArt = New SearchArt
K_PicsName$ = "Bilder"
K_PicsBesch$ = "Es wird nach Bildern gesucht."
K_PicsArt = 2

K_Plant.SearchArt = New SearchArt
K_PlantName$ = "Pflanzen"
K_PlantBesch$ = "Hier kann nach Heilpflanzen gesucht werden."
K_PlantArt = 3

Global SmallTitle$ = "Welcome to WebSearch Plus. You can search with WebSearchPlus to all websites. ... (sorry for my bad english)"

Global SmallTitle_Pos = 0, SmallTitle_Length = 30, SmallTitle_PixLength = 200, FH = 47
Global FLength = 120, NL = 5

Global Win = CreateWindow("WebSearch Plus", 0, 0, ClientWidth(Desktop()), FH+5, Desktop(), 1)
Global obja = CreateLabel("...", 5, 5, SmallTitle_PixLength, FH-5, Win)

Global fr_a_a = CreateLabel("Search: ", NL + SmallTitle_PixLength, 6, FLength/2, FH-5-22, Win) : NL = NL + (FLength/2) + 3
Global fr_a_b = CreateTextField(NL + SmallTitle_PixLength, 4, FLength*2, FH-30, Win) : NL = NL + (FLength*2) + 5

Global fr_b_a = CreateLabel("Search Engine: ", NL + SmallTitle_PixLength, 6, FLength/1.5, FH-8, Win) : NL = NL + (FLength/1.5) + 3
Global fr_b_b = CreateComboBox(NL + SmallTitle_PixLength, 4, FLength/1.3, FH-30, Win) : NL = NL + (FLength/1.2) + 5

Global fr_d_a = CreateLabel("Search Art: ", NL + SmallTitle_PixLength, 6, FLength/1.5, FH-8, Win) : NL = NL + (FLength/2.0) + 3
Global fr_d_b = CreateComboBox(NL + SmallTitle_PixLength, 4, FLength/1.3, FH-30, Win) : NL = NL + (FLength/1.3) + 5

Global fr_c_a = CreateButton("Find", NL + SmallTitle_PixLength, 6, FLength/1.5, FH-8-22, Win) : NL = NL + (FLength/1.5) + 3

Global MyPosY = 0
Global MyPosX = 0

Global AktArt = 0

ActualSearchList()
ActualSearchArtList()

Global LiblTimer = CreateTimer(10)

While Not KeyHit(1)
vka = WaitEvent(LiblTimer)

If LiblTimer Then
If SmallTitle_Pos > Len(SmallTitle$) + SmallTitle_Length + 5 Then SmallTitle_Pos = 0
SmallTitle_Pos = SmallTitle_Pos + 1
SetGadgetText obja, Mid$(SmallTitle$, SmallTitle_Pos, SmallTitle_Length)
End If

If EventSource() = fr_d_b Then
AktArt = SelectedGadgetItem(fr_d_b)
ActualSearchList()
End If

If EventSource() = fr_a_b Then
S$ = TextFieldText(fr_a_b)
S$ = Replace(S$, " ", "+")
SetGadgetText fr_a_b, S$
End If

If (EventSource() = fr_c_a) Or (EventData()=13 And EventSource() = fr_a_b) Then
If AktArt>0 Then
If SelectedGadgetItem(fr_b_b)>0 Then
tmp = 0
For Searcher.Searcher = Each Searcher
If (SelectedGadgetItem(fr_b_b) = tmp+1) And (AktArt = SearcherArt) Then NewSW(Searcher, TextFieldText(fr_a_b))
If AktArt = SearcherArt Then tmp=tmp+1
Next
Else
For Searcher.Searcher = Each Searcher
If AktArt = SearcherArt Then NewSW(Searcher, TextFieldText(fr_a_b))
Next
End If
Else
If SelectedGadgetItem(fr_b_b)>0 Then
tmp = 0
For Searcher.Searcher = Each Searcher
If (SelectedGadgetItem(fr_b_b) = tmp+1) Then NewSW(Searcher, TextFieldText(fr_a_b))
tmp=tmp+1
Next
Else
For Searcher.Searcher = Each Searcher
NewSW(Searcher, TextFieldText(fr_a_b))
Next
End If
End If
SetGadgetText fr_a_b, ""
End If

For SW.Search_Window = Each Search_Window
If EventSource() = SWTab Then
U = 0
For ST.Search_Tab = Each Search_Tab
If STToWin = SW Then
HideGadget STHtmlSite
If SelectedGadgetItem(SWTab) = U Then ShowGadget STHtmlSite
U = U + 1
End If
Next
End If
Next

If EventID() = $803 Then
For SW.Search_Window = Each Search_Window
If EventSource() = SWWin Then
For ST.Search_Tab = Each Search_Tab
If STToWin = SW Then
FreeGadget STHtmlSite
Delete ST
End If
Next

FreeGadget SWWin
Delete SW
End If
Next

If EventSource() = Win Then
For SW.Search_Window = Each Search_Window
For ST.Search_Tab = Each Search_Tab
If STToWin = SW Then
FreeGadget STHtmlSite
Delete ST
End If
Next
FreeGadget SWWin
Delete SW
Next

End
End If
End If
Wend

Function NewSW(Searcher.Searcher, searchnow$)
Local groX=500,groY=400, L = 0, SW.Search_Window
L = 0
For Search_Window.Search_Window = Each Search_Window
SW.Search_Window = Search_Window
If Search_WindowIsearch$ = searchnow$ Then L = 1
Next

Search_Tab.Search_Tab = New Search_Tab
Search_TabHtmlLink$ = Replace(SearcherURLSearch$, "%searchtext%", searchnow$)
Search_TabSearchWith = Searcher

If L = 0 Then
SW.Search_Window = New Search_Window
SWWin = CreateWindow("Search "+Chr$(34)+searchnow$+Chr$(34)+" with ...", 10+MyPosX, FH+20+MyPosY, groX, groY, Win, 50-32)
SWTab = CreateTabber(0, 0, groX-8, groY-25, SWWin)
SWIsearch$ = searchnow$

MyPosY = MyPosY + 40 : MyPosX = MyPosX + 40
If MyPosY > 400 Then MyPosY = 0
If MyPosX > 400 Then MyPosX = 0
End If

; SelectGadgetItem SWTab, SelectedGadgetItem(SWTab)+1
AddGadgetItem SWTab, SearcherName$
SetGadgetLayout SWTab, 1,1,1,1

Search_TabToWin = SW
; Search_TabWin = CreateWindow("Search "+Chr$(34)+searchnow$+Chr$(34)+" with "+SearcherNameBig$, 10+MyPosX, FH+20+MyPosY, groX, groY, Win, 50-32)
Search_TabHtmlSite = CreateHtmlView(0,0,groX-13,groY-50,SWTab)
HtmlViewGo Search_TabHtmlSite, Search_TabHtmlLink$

If L>0 Then HideGadget Search_TabHtmlSite
SetGadgetLayout Search_TabHtmlSite, 1,1,1,1
End Function

Function ActualSearchList()
ClearGadgetItems fr_b_b
AddGadgetItem fr_b_b, "All"
If AktArt>0 Then
For Searcher.Searcher = Each Searcher
If SearcherArt = AktArt Then AddGadgetItem fr_b_b, SearcherName$
Next
Else
For Searcher.Searcher = Each Searcher
AddGadgetItem fr_b_b, SearcherName$
Next
End If
SelectGadgetItem fr_b_b, 0
End Function

Function ActualSearchArtList()
ClearGadgetItems fr_d_b
AddGadgetItem fr_d_b, "All"
For SearchArt.SearchArt = Each SearchArt
AddGadgetItem fr_d_b, SearchArtName$
Next
SelectGadgetItem fr_d_b, 0
End Function[/code:1:e044482574]

MfG ShadowTurtle

===

von ???

Hi.

Sorry, ich hab eben (aufm anderen PC) gemerkt, dass das die falsche version zu WebSearch ist. Das was ihr bisher sehen konntet was V1.0 von WebSearch aber nicht V1.5.

Ich werde Heute nachmittag die V1.5 hochladen, und sorry für die Missverständnisse.

MfG ShadowTurtle

===

von ???

[url]www.metager.de[/url]
Die beste Site um etwas im deutschen Sprachraum zu suchen...

===

von ???

Hi.

Cool, thx valio. Jetzt habe ich genug suchmaschine die ich noch eintragen kann ^^

Außerdem... websearch ist nur eine kleine exe und funktioniert prima. Ich habe [url=www.shadowturtle.de/exe/ws-plus.exe]hier[/url] mal die neue version hochgeladen. Und jetzt sollten alle Features wie beschrieben funktionell sein.

Außerdem... mit Websearch hat man irgendwie mehr übersicht, möchte ich meinen.

MfG ShadowTurtle.

Suche:
(unterstützt mySQL Wildcards ala %)