[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
my1990118

Rank: 2

帖子
6 
积分
118 
技术
0  
捐助
0  
注册时间
2009-4-1 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 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

Rank: 7Rank: 7Rank: 7

帖子
957 
积分
4938 
技术
72  
捐助
0  
注册时间
2008-10-31 
2楼
发表于 2009-5-2 17:35 | 只看该作者
嗯，代码有点繁琐，我也去写个简单的。。。
第三方命令行工具编程
Http://Hi.Baidu.Com/Console_App

TOP

defanive

Rank: 7Rank: 7Rank: 7

帖子
957 
积分
4938 
技术
72  
捐助
0  
注册时间
2008-10-31 
3楼
发表于 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. 
复制代码
第三方命令行工具编程
Http://Hi.Baidu.Com/Console_App

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14790 
积分
45966 
技术
847  
捐助
745  
注册时间
2008-6-9 
4楼
发表于 2009-5-2 19:08 | 只看该作者
集成26个搜索引擎的命令行工具
http://bbs.bathome.net/thread-3364-1-1.html

哪些地方搞不来？
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

everest79

Rank: 5Rank: 5

帖子
179 
积分
1066 
技术
3  
捐助
0  
注册时间
2008-9-15 
5楼
发表于 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
复制代码

TOP

my1990118

Rank: 2

帖子
6 
积分
118 
技术
0  
捐助
0  
注册时间
2009-4-1 
6楼
发表于 2009-5-2 23:25 | 只看该作者

回复 3楼 的帖子

我试了，怎么打开几号搜索都是百度的搜索！解决一下！顺便帮我看一下，怎么将汉字转换成谷歌搜索转换的编码！谢谢了！

TOP

my1990118

Rank: 2

帖子
6 
积分
118 
技术
0  
捐助
0  
注册时间
2009-4-1 
7楼
发表于 2009-5-2 23:30 | 只看该作者

回复 4楼 的帖子

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

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14790 
积分
45966 
技术
847  
捐助
745  
注册时间
2008-6-9 
8楼
发表于 2009-5-3 18:36 | 只看该作者

回复 7楼 的帖子

google搜索“URLENCODE”
先了解一下它是怎么编码的吧
^_^
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

everest79

Rank: 5Rank: 5

帖子
179 
积分
1066 
技术
3  
捐助
0  
注册时间
2008-9-15 
9楼
发表于 2009-5-4 00:36 | 只看该作者
IE设置里选上以UTF8发送URL然后你直接汉字就行了

TOP

cmbatd

Rank: 3Rank: 3

帖子
34 
积分
252 
技术
0  
捐助
0  
注册时间
2009-1-4 
10楼
发表于 2009-5-5 08:38 | 只看该作者
跟这个功能有差不多，谁能修改一下呢
http://hi.baidu.com/%BD%BA%CB%AE ... 5435a7a50f527d.html
http://hi.baidu.com/%BD%BA%CB%AE502

TOP

返回列表