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. help&echo.---------------ADD---------------
  11. for /f "tokens=1* delims=_" %%a in ('findstr /b ":_" %app%') do echo.%%b
  12. echo.&set errorlevel=0
  13. goto :eof
  14. :_oerr 内部错误信息开关
  15. if defined con  (set con=)  else set "con=2>nul"
  16. goto :eof
  17. :_terr 外部错误信息开关
  18. if definde cons (set cons=) else set "cons=2>nul"
  19. goto :eof
  20. :_err 所有错误信息开关
  21. if /i "%1" == on  set con=&set cons=
  22. if /i "%1" == off set "con=2>nul"&set "cons=2>nul"
  23. goto :eof
  24. :_MPP Test............
  25. goto :eof
  26. :_MENU 菜单
  27. Set str=1.百度 4.搜搜 7.雅虎~2.谷歌 5.搜狗 8.比比猫~3.狗狗 6.有道 9.微软LIVE
  28. 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://bbs.bathome.net/) Powered by Discuz! 7.2