māŋmōυЧήâĦłЙẻ عضو جديد
الجنـــــس : عـــدد المســـآآهمات : 22 نقاطي : 54 السٌّمعَة : 0 تاريخ التسجيل : 29/07/2011 العــــمر : 32
| موضوع: حصريا كود البحث فى 14 محرك بحث الجمعة يوليو 29, 2011 4:22 pm | |
| السلام عليكم ورحمة الله وبركاته
حصريا كود البحث فى 14 محرك بحث
صورة للكود
https://i.servimg.com/u/f42/16/62/65/47/untitl39.png
الكود - الكود:
-
[color=green]<script language="JavaScript"><!-- // START HIDE var MAX_ENGINES = 35; var tp=''; var tpp=''; var find = 'hunt'; var hold=0; var hold2=0; var gog=0; var ap=''; function MakeArray(n) { for (var i = 1; i <= n; i++) { this[i] = 0; } this.maxlen = n; this.len = 0; return this; } var engs = new MakeArray(MAX_ENGINES); function find_substring(needle, haystack) { var i, needlen = needle.length, haylen = haystack.length; for (i=0; i<=haylen-needlen; i++) { if (needle == haystack.substring(i,i+needlen)) return i; } return false; } function Engine(name, opts, home, search) { var gotcha = find_substring(find, search); this.name = name; this.opts = opts; this.home = home; this.pre_gotcha = search.substring(0,gotcha); this.post_gotcha= search.substring(gotcha+find.length, search.length); } function Add(name, opts, home, search) { engs.len++; if (engs.len <= engs.maxlen) { engs[engs.len] = new Engine(name, opts, home, search) } else { alert ('Better increase MAX_ENGINES: ' + engs.Len + '>' + engs.maxlen) } } function DisplayForm() { document.writeln('<FORM Name=Gotchaform OnSubmit="HandleForm(this); return false">'); document.writeln('<strong></strong> <INPUT size=15 name="query">'); document.writeln('<strong></strong> <SELECT name="service">'); for (i=1; i <= engs.len; i++) { document.writeln("<OPTION " + engs[i].opts + "> " + engs[i].name); } document.writeln('</SELECT> <input type=submit value="Search"><br>'); document.writeln('</FORM>'); document.Gotchaform.query.focus() } function HandleForm(form){ var i, newq="", oldq=form.query.value; for (i=0; i<oldq.length; i++) { // compress [ ]+ into \+ var thischar = oldq.charAt(i); if (thischar =="+")newq += "%2B"; else if (thischar != ' ') newq += thischar; else if (lastchar != ' ') newq += '+'; lastchar = thischar; } var eng = engs[1+form.service.selectedIndex]; // Window search=window.open(newq ? eng.pre_gotcha + newq + eng.post_gotcha : eng.home,"SmartSearch","scrollbars=yes,toolbar=yes,location=yes,directories=yes,status=yes,menubar=yes,resizable=yes,width='100%',hight='100%'"); } Add("Alta Vista","SELECTED","http://altavista.digital.com/","http://altavista.digital.com/cgi-bin/query?pg=q&what=web&fmt=d&q=hunt"); Add("Yahoo!","","http://www.yahoo.com/","http://search.yahoo.com/bin/search?p=hunt" ); Add("DejaNews","","http://www.dejanews.com/","http://search.dejanews.com/nph-dnquery.xp?query=hunt&defaultOp=AND&svcclass=dncurrent&maxhits=25"); Add("HotBot","","http://www.search.hotbot.com","http://www.search.hotbot.com/search.html?MT=hunt&DC=25"); Add("Infoseek","","http://www.infoseek.com/Home?pg=Home.html&sv=A2","http://www.infoseek.com/Titles?qt=hunt&col=WW&sv=A2"); Add("Excite","","http://www.excite.com/","http://www.excite.com/search.gw?searchType=Concept&search=hunt&category=default"); Add("Lycos","","http://www.lycos.com/","http://www.lycos.com/cgi-bin/pursuit?query=hunt&backlink=639"); Add("Magellan","","http://www.mckinley.com/","http://www.mckinley.com/extsearch.cgi?query=hunt"); Add("OpenText","","http://search.opentext.com","http://search.opentext.com/omw/simplesearch?SearchFor=hunt&mode=and"); Add("WebCrawler","","http://webcrawler.com/","http://webcrawler.com/cgi-bin/WebQuery?searchText=hunt&maxHits=25"); // Software Add("ZDNet Files","","http://www.zdnet.com/","http://www6.zdnet.com/cgi-bin/texis/swlib/hotfiles/search.html?Usrt=rel&Usrchtype=simple&Utext=hunt"); Add("Filez","","http://www.filez.com/","http://filez.com/cgi/filez.cgi?query=hunt&type=All+Files&hits=50&domain=World&doit=Search/"); Add("Shareware.com","","http://www.shareware.com/","http://search.shareware.com/code/engine/Find?logop=and&cfrom=quick&orfile=True&hits=25&search=hunt&category=All-Categories"); Add("PC Gamer","","http://www.pcgame.com/","http://www.pcgame.com/finder/search.cgi?key=hunt"); // Denmark DisplayForm(); // STOP HIDE // --></script>[/color]
| |
|
محترف منديات ودومينات عضو مميز
عـــدد المســـآآهمات : 237 نقاطي : 265 السٌّمعَة : 0 تاريخ التسجيل : 21/07/2011
| موضوع: رد: حصريا كود البحث فى 14 محرك بحث الإثنين أغسطس 22, 2011 11:32 pm | |
| | |
|
achek dzair المدير العام
الجنـــــس : عـــدد المســـآآهمات : 1063 نقاطي : 1073 السٌّمعَة : 0 تاريخ التسجيل : 08/02/2013 العــــمر : 30
| موضوع: رد: حصريا كود البحث فى 14 محرك بحث السبت فبراير 09, 2013 4:02 pm | |
| السسلآـم عليــك'ـم ~
يعطيـــك العآإفيــ'ة ع الموضوع القميــ'ل .!
تسسـل'م ع الطرح الآروع .!
بإنتظــآر جديدـ'ك دآإئـــماً .!
في آمـــآن الله ~ | |
|
Ch4mpioN الاشراف العام
الجنـــــس : عـــدد المســـآآهمات : 508 نقاطي : 514 السٌّمعَة : 0 تاريخ التسجيل : 23/03/2013 العــــمر : 27
| موضوع: رد: حصريا كود البحث فى 14 محرك بحث الإثنين مارس 25, 2013 1:18 pm | |
| | |
|