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

[网络工具] QQ小帮手批处理版

已经改成了exe文件,bat原版弄丢了

放心,绝对无毒无后门.

要p的话我尽量去找回来,不知道放哪里了


晕了,好像发错版了

我这个是自己写的,管理员帮忙移到原创区


原版已找到了
公布源码:
  1. @echo off
  2. color 0a
  3. :start
  4. echo                     ┌────────────┐
  5. echo                     │QQ小帮手 by Jun.Solitude│  现在时间: %time%
  6. echo                     └────────────┘
  7. echo.
  8. echo.
  9. echo               ┌──────────────────┐
  10. echo               │                                    │
  11. echo               │          1.强行与某人聊天         │
  12. echo               │                                    │
  13. echo               │          2.查看某人的QQ秀         │
  14. echo               │                                    │
  15. echo               │          3.进入某人QQ空间         │
  16. echo               │                                    │
  17. echo               │          4.查看某人QQ相册         │
  18. echo               │                                    │
  19. echo               │          5.查看当日QQ新闻         │
  20. echo               │                                    │
  21. echo               └──────────────────┘
  22. title QQ小帮手 by Jun.Solitude --------- http://www.thedm.cn
  23. echo.
  24. echo.
  25. set /p start=
  26. if "%start%"=="1" goto liaotian
  27. if "%start%"=="2" goto qqxiu
  28. if "%start%"=="3" goto qzone
  29. if "%start%"=="4" goto qqp
  30. if "%start%"=="5" goto qqnews
  31. cls
  32. goto start
  33. :liaotian
  34. cls
  35. set /p num1=输入要聊天的QQ号码:
  36. echo.
  37. echo.
  38. echo               ┌───────────────────┐
  39. echo                       你要聊天的QQ号码是:%num1%   
  40. echo               └───────────────────┘
  41. echo.
  42. echo.
  43. echo                            ┌──────┐
  44. echo                            │  1.返回   │
  45. echo                            │  2.继续   │
  46. echo                            └──────┘
  47. set /p no=
  48. if "%no%"=="1" (cls&goto liaotian) else goto liaotian1
  49. :liaotian1
  50. start tencent://message/?uin=%num1%
  51. cls
  52. echo      ┌──────────────────────────────────┐
  53. echo      │                                                                    │
  54. echo      │              如没有正常运行QQ,本程序已自动运行一QQ程序!            │
  55. echo      │                                                                    │
  56. echo      │               如已经正常运行QQ程序,是否继续运行本工具!             │
  57. echo      │                                                                    │
  58. echo      │                       1.返回    2.退出                           │
  59. echo      │                                                                    │
  60. echo      └──────────────────────────────────┘
  61. set /p what=
  62. if "%what%"=="1" cls&goto start
  63. if "%what%"=="2" exit
  64. cls
  65. goto start
  66. :qqxiu
  67. cls
  68. set /p num2=输入要查看的QQ秀号码:
  69. echo.
  70. echo.
  71. if "%num2%"=="" (goto qqxiu) else start %systemdrive%\progra~1\intern~1\IEXPLORE.EXE "http://qqshow-user.tencent.com/%num2%/10/00/"
  72. cls
  73. echo                            ┌──────┐
  74. echo                            │  1.返回   │
  75. echo                            │  2.退出   │
  76. echo                            └──────┘
  77. set /p what1=
  78. if "%what1%"=="1" cls&goto start
  79. if "%what1%"=="2" exit
  80. cls
  81. goto start
  82. :qzone
  83. cls
  84. set /p num3=输入要进入的QQ空间号码:
  85. echo.
  86. echo.
  87. if "%num3%"=="" (goto qzone) else start %systemdrive%\progra~1\intern~1\IEXPLORE.EXE "http://%num3%.qzone.qq.com/"
  88. cls
  89. echo                            ┌──────┐
  90. echo                            │  1.返回   │
  91. echo                            │  2.退出   │
  92. echo                            └──────┘
  93. set /p what2=
  94. if "%what2%"=="1" cls&goto start
  95. if "%what2%"=="2" exit
  96. cls
  97. goto start
  98. :qqp
  99. cls
  100. set /p qqp=输入要查看的QQ相册号码:
  101. echo.
  102. echo.
  103. echo               ┌───────────────────┐
  104. echo                    你要查看相册的QQ号码是:%qqp%   
  105. echo               └───────────────────┘
  106. echo.
  107. echo.
  108. echo                            ┌──────┐
  109. echo                            │  1.返回   │
  110. echo                            │  2.继续   │
  111. echo                            └──────┘
  112. set /p no1=
  113. if "%no1%"=="1" (cls&goto qqp) else goto qqp1
  114. :qqp1
  115. start %systemdrive%\progra~1\intern~1\IEXPLORE.EXE "http://photo.qq.com/portal/albumMain.shtml?%23uin=%qqp%#uin=%qqp%"
  116. cls
  117. echo                            ┌──────┐
  118. echo                            │  1.返回   │
  119. echo                            │  2.退出   │
  120. echo                            └──────┘
  121. set /p what4=
  122. if "%what4%"=="1" cls&goto start
  123. if "%what4%"=="2" exit
  124. cls
  125. goto start
  126. :qqnews
  127. cls
  128. echo                            ┌───────┐
  129. echo                            │   1.新闻  │
  130. echo                            │   2.返回  │
  131. echo                            │   3.退出  │
  132. echo                            └───────┘
  133. set /p numnews=请选择:
  134. if "%numnews%"=="1" start %systemdrive%\progra~1\intern~1\IEXPLORE.EXE "http://minisite.qq.com/all/allinone.shtml"
  135. if "%numnews%"=="2" cls & goto start
  136. if "%numnews%"=="3" exit
  137. if "%numnews%"=="" goto qqnews
  138. cls
  139. echo                            ┌──────┐
  140. echo                            │  1.返回   │
  141. echo                            │  2.退出   │
  142. echo                            └──────┘
  143. set /p what3=
  144. if "%what3%"=="1" cls&goto start
  145. if "%what3%"=="2" exit
  146. cls
  147. goto start
复制代码

写一个13年版的呗

TOP

对的.这个工具如果现在写的话会写的更好.而且命令也会很精简.
最主要还能加入一些防止被盗用的命令,就算给出全部源码不了解的还是没有办法转载的

不过这个QQ小帮手真的是刚学批处理的时候写的,对于6楼的质疑我很郁闷!

TOP

回复 9楼 的帖子

对于那些拿来主义者,我们只能予以深深的鄙视。

另一方面,我们也不必跟他们斤斤计较,我们应该把时间和精力多花在提高自己的水平上面。让他们跟在我们屁股后面跑吧,那些心术不正的人不会成为高手的^_^
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

- -!
今天百度了下QQ小帮手.发现转载的很多.
都是改了title的.

TOP

这个完全自己写,什么叫不像,像这样的批处理好像很容易
说真的没有难度!知识点很少很少

TOP

回复 1楼 的帖子

很好很强大!!!

天...

有谁能告诉我为什么我总看不懂那些dir.errorlevel什么的...

学批处理到现在也只会到处收集好玩的批处理....

自己从来没写过...

最多改改别人的文字................

TOP

这个是你自己的么
不像啊

TOP

LZ很强大..顶了..

TOP

呵呵,支持!
不过,要学习一下如何使用bat里的“函数”,这样就可以将代码大为精简!

TOP

这东西有什么用

TOP

给几个建议:
一、最好能有bat源码 (代码不是很长的话,尽量不要用附件)
二、最好在顶楼给出一定的说明,比如功能,使用方法,注意事项等。
三、可以移动到 原创区。
技术问题请到论坛发帖求助!

TOP

返回列表