Board logo

标题: [代码合集] 包含了百度、搜狗等批处理搜索大集合 [打印本页]
作者: my1990118    时间: 2009-5-2 15:16     标题: 包含了百度、搜狗等批处理搜索大集合

我是新手，有些地方搞不来，请高手指点一下

  1. @echo off

  2. title 搜索大集合

  3. echo.

  4. echo.

  5. echo @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

  6. echo @ 我又无聊了，巩固一下知识吧，在弄个简单的批处理!QQ:110442833 @

  7. echo @ 不知道有没有人弄过这个！反正无聊，我就弄一个吧!有缺陷，勿怪！ @

  8. echo @ 谷歌和搜搜我搞不定，高手帮指点一下！ @

  9. echo @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

  10. echo.

  11. echo.

  12. echo 请选择一个选项，本工具支持9种搜索引擎的关键字搜索!

  13. echo.

  14. echo.

  15. pause

  16. :home

  17. cls

  18. echo 1.百度 4.搜搜 7.雅虎 

  19. echo. 

  20. echo 2.谷歌 5.搜狗 8.比比猫

  21. echo.

  22. echo 3.狗狗 6.有道 9.微软LIVE

  23. echo.

  24. Set /p num=请输入：

  25. If /I "%num%"=="1" Goto baidu

  26. If /I "%num%"=="2" Goto google

  27. If /I "%num%"=="3" Goto gougou

  28. If /I "%num%"=="4" Goto sousou

  29. If /I "%num%"=="5" Goto sougou

  30. If /I "%num%"=="6" Goto youdao

  31. If /I "%num%"=="7" Goto yahoo

  32. If /I "%num%"=="8" Goto bbmao

  33. If /I "%num%"=="9" Goto live

  34. :baidu

  35. cls

  36. echo 百度

  37. echo.

  38. echo 更换搜索引擎请输入“home”

  39. echo.

  40. If /I "%num%"=="1" Set /p num1=请输入搜索关键词：

  41. If /I "%num1%"=="home" goto home

  42. start http://www.baidu.com/s?wd=%num1%

  43. goto baidu

  44. :google

  45. cls

  46. echo 谷歌

  47. echo.

  48. echo 更换搜索引擎请输入“home”

  49. echo.

  50. If /I "%num%"=="2" Set /p num2=请输入搜索关键词：

  51. If /I "%num2%"=="home" goto home

  52. start http://www.google.cn/search?hl=zh-CN&q=%num2%&meta=&aq=f&oq=

  53. goto google

  54. :gougou

  55. cls

  56. echo 狗狗

  57. echo.

  58. echo 更换搜索引擎请输入“home”

  59. echo.

  60. If /I "%num%"=="3" Set /p num3=请输入搜索关键词：

  61. If /I "%num3%"=="home" goto home

  62. start http://www.gougou.com/search?search=%num3%&id=

  63. goto gougou

  64. :sousou

  65. cls

  66. echo 搜搜

  67. echo.

  68. echo 更换搜索引擎请输入“home”

  69. echo.

  70. If /I "%num%"=="4" Set /p num4=请输入搜索关键词：

  71. If /I "%num4%"=="home" goto home

  72. start http://www.soso.com/q?pid=s.idx&w=%num4%

  73. goto sousou

  74. :sougou

  75. cls

  76. echo 搜狗

  77. echo.

  78. echo 更换搜索引擎请输入“home”

  79. echo.

  80. If /I "%num%"=="5" Set /p num5=请输入搜索关键词：

  81. If /I "%num5%"=="home" goto home

  82. start http://www.sogou.com/web?query=%num5%&_asf=www.sogou.com&_ast=1241199114&w=01019900&p=40040100

  83. goto sougou

  84. :youdao

  85. cls

  86. echo 有道

  87. echo.

  88. echo 更换搜索引擎请输入“home”

  89. echo.

  90. If /I "%num%"=="6" Set /p num6=请输入搜索关键词：

  91. If /I "%num6%"=="home" goto home

  92. start http://www.youdao.com/search?q=%num6%&ue=utf8&keyfrom=web.index

  93. goto youdao

  94. :yahoo

  95. cls

  96. echo 雅虎

  97. echo.

  98. echo 更换搜索引擎请输入“home”

  99. echo.

  100. If /I "%num%"=="7" Set /p num7=请输入搜索关键词：

  101. If /I "%num7%"=="home" goto home

  102. start http://one.cn.yahoo.com/s?p=%num7%&pid=hp&v=web

  103. goto yahoo

  104. :bbmao

  105. cls

  106. echo 比比猫

  107. echo.

  108. echo 更换搜索引擎请输入“home”

  109. echo.

  110. If /I "%num%"=="8" Set /p num8=请输入搜索关键词：

  111. If /I "%num8%"=="home" goto home

  112. start http://www.bbmao.com/s?q=%num8%&category=0&enc=utf-8&pd=

  113. goto bbmao

  114. :live

  115. cls

  116. echo 微软LIVE

  117. echo.

  118. echo 更换搜索引擎请输入“home”

  119. echo.

  120. If /I "%num%"=="9" Set /p num9=请输入搜索关键词：

  121. If /I "%num9%"=="home" goto home

  122. start http://cnweb.search.live.com/results.aspx?q=%num9%&form=QBLH

  123. goto live
复制代码
作者: defanive    时间: 2009-5-2 17:35

嗯，代码有点繁琐，我也去写个简单的。。。
作者: defanive    时间: 2009-5-2 17:51

感觉还是比较麻烦。。。
  1. @echo off

  2. title Search Tools —— By Defanive

  3. set "s1=http://www.baidu.com/s?wd="

  4. set "s2=http://www.google.cn/search?q="

  5. set "s3=http://www.gougou.com/search?search="

  6. set "s4=http://www.soso.com/q?w="

  7. set "s5=http://www.sogou.com/web?query="

  8. set "s6=http://www.youdao.com/search?q="

  9. set "s7=http://one.cn.yahoo.com/s?p="

  10. set "s8=http://www.bbmao.com/s?q="

  11. set "s9=http://cnweb.search.live.com/results.aspx?q="

  12. setlocal enabledelayedexpansion

  13. :menu

  14. cls

  15. call :pmenu

  16. set /p num=请输入：

  17. if not "!num:~1,1!"=="" goto menu

  18. echo !num!|findstr [1-9]>nul||goto menu

  19. :search

  20. cls

  21. call :pmenu

  22. set /p str=!num!号搜索：

  23. if "!str!"=="" goto menu

  24. start "" "!s1!!str!"

  25. goto search

  26. :pmenu

  27. echo. 

  28. echo. 

  29. echo 1.百度 4.搜搜 7.雅虎 

  30. echo. 

  31. echo 2.谷歌 5.搜狗 8.比比猫

  32. echo.

  33. echo 3.狗狗 6.有道 9.微软LIVE

  34. echo.

  35. echo. 
复制代码
作者: Batcher    时间: 2009-5-2 19:08

集成26个搜索引擎的命令行工具
http://bbs.bathome.net/thread-3364-1-1.html

哪些地方搞不来？
作者: everest79    时间: 2009-5-2 20:06

有个关于模拟控制台的
  1. @echo off&echo.&echo.&setlocal enabledelayedexpansion

  2. Set app="%~dpnx0"&set "con=2>nul"

  3. :top

  4. set /p input="%cd%>"

  5. if not defined input goto :top

  6. call :_%input:/?=% %con%||%input% %cons%

  7. set input=

  8. goto :top

  9. 

  10. 

  11. :_?	 显示帮助

  12. help&echo.---------------ADD---------------

  13. for /f "tokens=1* delims=_" %%a in ('findstr /b ":_" %app%') do echo.%%b

  14. echo.&set errorlevel=0

  15. goto :eof

  16. 

  17. :_oerr	 内部错误信息开关

  18. if defined con  (set con=)  else set "con=2>nul"

  19. goto :eof

  20. 

  21. :_terr	 外部错误信息开关

  22. if definde cons (set cons=) else set "cons=2>nul"

  23. goto :eof

  24. 

  25. :_err	 所有错误信息开关

  26. if /i "%1" == on  set con=&set cons=

  27. if /i "%1" == off set "con=2>nul"&set "cons=2>nul"

  28. goto :eof

  29. 

  30. :_MPP	 Test............

  31. 

  32. goto :eof

  33. 

  34. :_MENU	 菜单

  35. Set str=1.百度 4.搜搜 7.雅虎~2.谷歌 5.搜狗 8.比比猫~3.狗狗 6.有道 9.微软LIVE

  36. for /f "tokens=1-3 delims=~" %%i in ("%str%") do echo %%i&echo %%j&echo %%k
复制代码
作者: my1990118    时间: 2009-5-2 23:25     标题: 回复 3楼 的帖子

我试了，怎么打开几号搜索都是百度的搜索！解决一下！顺便帮我看一下，怎么将汉字转换成谷歌搜索转换的编码！谢谢了！
作者: my1990118    时间: 2009-5-2 23:30     标题: 回复 4楼 的帖子

就是谷歌和搜搜，在搜索时会把字符转换为一种编码，我不知道那怎么转换，帮跟忙啊！例如：我在谷歌搜索“爱你”，它搜索后的网址会是http://www.google.cn/search?hl=z ... a=&aq=f&oq=
它把“爱你”转换成了“%E7%88%B1%E4%BD%A0”
帮忙解决一下，感激不尽
作者: Batcher    时间: 2009-5-3 18:36     标题: 回复 7楼 的帖子

google搜索“URLENCODE”
先了解一下它是怎么编码的吧
^_^
作者: everest79    时间: 2009-5-4 00:36

IE设置里选上以UTF8发送URL然后你直接汉字就行了
作者: cmbatd    时间: 2009-5-5 08:38

跟这个功能有差不多，谁能修改一下呢
http://hi.baidu.com/%BD%BA%CB%AE ... 5435a7a50f527d.html



欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2