Use BING as default search result

English > Scripts and Templates

<< < (4/6) > >>

Ivek23:
I fixed search results in attached Bing_SearchMulti_All Script:

Bing_SearchMulti_All version 0.0.0.3 - Script for search multi site(pages)

--- Code: ---//---------- Procedure SearchResults ----------//
// Create list of movies found during the search
procedure SearchResults (HTML : String);
Var
CurPos, PosStart, EndPos : integer;
URLposStart, URLPosEnd : integer;
StartURL, Title, URL : String;

Begin
//List of other site where search page :
TabSite := ['www.imdb.com/', 'www.allmusic.com/', 'www.allmovie.com/',
'www.moviemeter.nl/film/', 'www.filmweb.pl/film/', 'www.filmweb.pl/person/'];

//Search Result in actual page :
StartURL := '<a href="http://' + SiteSearch;
CurPos := Pos(StartURL, HTML);

If Curpos > 0 then begin
EndPos := Curpos;

While (curpos > 0) AND (curpos < PosFrom('<![CDATA[', HTML, Endpos)) do begin
EndPos:= Curpos;
URLposStart := Curpos + 9;
URLPosEnd := PosFrom('" h="', HTML, URLposStart);
URL := Copy(HTML, URLPosStart, (URLposEnd-URLposStart));
curPos := PosFrom('">', HTML, curPos)+2;
endPos := PosFrom('</h2>', HTML, curPos);
Title := RemoveTags(Trim(Copy(HTML, curPos, endPos - curPos)), false);
AddSearchResult(URL, Title, '', LowerCase(URL), '');
curpos := PosFrom(StartURL, HTML, URLPosEnd);
End;
//Add Links to Page with other sites in TabSite:
For I := Low(TabSite) to High(TabSite) do
Begin
URL := 'www.bing.com/Search?q=site%3A' + TabSite[I] + '+%20' + MovieName;
AddSearchResult('Search in :', TabSite[I],'',LowerCase(URL),'');
end;
End;

End;
--- End code ---

Ivek23:
I fixed search results in attached Bing_SearchMulti(people) Script:

Bing_SearchMulti(people) version 0.0.0.4 - Script for search people multi site(pages)

--- Code: ---//---------- Procedure SearchResults ----------//
// Create list of movies found during the search
procedure SearchResults (HTML : String);
Var
CurPos, PosStart, EndPos : integer;
URLposStart, URLPosEnd : integer;
StartURL, Title, URL : String;

Begin
//List of other site where search page :
TabSite := ['www.imdb.com/name/', 'www.allmusic.com/artist/', 'www.allmusic.com/album/',
'www.allmovie.com/artist/', 'www.filmweb.pl/person/', 'www.kinopoisk.ru/level/4/people/'];

//Search Result in actual page :
StartURL := '<h2><a href="http://' + SiteSearch;
CurPos := Pos(StartURL, HTML);

If Curpos > 0 then begin
EndPos := Curpos;

While (curpos > 0) AND (curpos < PosFrom('<![CDATA[', HTML, Endpos)) do begin
EndPos:= Curpos;
URLposStart := Curpos + 13;
URLPosEnd := PosFrom('" h="', HTML, URLposStart);
URL := Copy(HTML, URLPosStart, (URLposEnd-URLposStart));
curPos := PosFrom('">', HTML, curPos)+2;
endPos := PosFrom('</h2>', HTML, curPos);
Title := RemoveTags(Trim(Copy(HTML, curPos, endPos - curPos)), false);
AddSearchResult(URL, Title, '', LowerCase(URL), '');
curpos := PosFrom(StartURL, HTML, URLPosEnd);
End;
//Add Links to Page with other sites in TabSite:
For I := Low(TabSite) to High(TabSite) do
Begin
URL := 'www.bing.com/Search?q=site%3a' + TabSite[I] + PeopleName+'%s';
AddSearchResult('Search in :', TabSite[I],'',LowerCase(URL),'');
end;
End;

End;
--- End code ---

Ivek23:
I fixed search results in attached Bing_SearchMulti(people)(Imdb) Script:

Bing_SearchMulti(people)(Imdb) version 0.0.0.5 - Script for search only Imdb People site

--- Code: ---//---------- Procedure SearchResults ----------//
// Create list of movies found during the search
procedure SearchResults (HTML : String);
Var
CurPos, PosStart, EndPos : integer;
URLposStart, URLPosEnd : integer;
StartURL, Title, URL : String;

Begin
//List of other site where search page :
TabSite := ['www.imdb.com/name/'];

//Search Result in actual page :
StartURL := '<h2><a href="http://' + SiteSearch;
CurPos := Pos(StartURL, HTML);

If Curpos > 0 then begin
EndPos := Curpos;

While (curpos > 0) AND (curpos < PosFrom('<![CDATA[', HTML, Endpos)) do begin
EndPos:= Curpos;
URLposStart := Curpos + 13;
URLPosEnd := PosFrom('" h="', HTML, URLposStart);
URL := Copy(HTML, URLPosStart, (URLposEnd-URLposStart));
curPos := PosFrom('">', HTML, curPos)+2;
endPos := PosFrom('</h2>', HTML, curPos);
Title := RemoveTags(Trim(Copy(HTML, curPos, endPos - curPos)), false);
AddSearchResult(URL, Title, '', LowerCase(URL), '');
curpos := PosFrom(StartURL, HTML, URLPosEnd);
End;
//Add Links to Page with other sites in TabSite:
For I := Low(TabSite) to High(TabSite) do
Begin
URL := 'www.bing.com/Search?q=site%3a' + TabSite[I] + PeopleName+'%s';
AddSearchResult('Search in :', TabSite[I],'',LowerCase(URL),'');
end;
End;

End;
--- End code ---

Ivek23:
Notice:

Due to changes in the Microsoft Bing source code, all Bing_Search scripts have now become unusable. Because data access is now disabled in the source code for search results, Bing_Search scripts can no longer find search results for a specific movie title. Previously, Bing_Search scripts were able to find search results for a specific movie title, so the results were also visible.

In scripts where Bing_Search code has been added, this part of the code no longer works and there are no more visible results to search results for a particular movie title. This is especially true for all IMDB_ [EN] [HTTPS] scripts.

And a warm notice.

The same is true in Google source code for finding results for a particular movie title.

Ivek23:

--- Quote from: Ivek23 on February 04, 2022, 12:09:33 pm ---Notice:

Due to changes in the Microsoft Bing source code, all Bing_Search scripts have now become unusable. Because data access is now disabled in the source code for search results, Bing_Search scripts can no longer find search results for a specific movie title. Previously, Bing_Search scripts were able to find search results for a specific movie title, so the results were also visible.

In scripts where Bing_Search code has been added, this part of the code no longer works and there are no more visible results to search results for a particular movie title. This is especially true for all IMDB_ [EN] [HTTPS] scripts.

And a warm notice.

The same is true in Google source code for finding results for a particular movie title.
--- End quote ---

This matter has now gone so far that it is not even possible to download anything anymore. Now the source code has been edited in such a way that any kind of information transfer has been prevented. As a result, writing to download information from Bing web pages for Bing_Search scripts is also disabled.

Navigation

[0] Message Index

[#] Next page

[*] Previous page

Go to full version