外设天下 - 电脑外设发烧友聚集地

123下一页
我的人缘0

发一个设置IP的批处理……

28 7152
楼主
跳转到指定楼层
发表于 2008-12-12 21:56 只看该作者 倒序浏览 阅读模式
大部分代码由本人完成……这样就不用点网上邻居来改IP地址了!
明天带到学校试一试……
哈哈……
  1. @echo off
  2. rem 关闭命令回显
  3. title powered by Kenshin
  4. rem title信息
  5. mshta vbscript:msgbox("本程序由BS122班kenshin编写,方便大家设置IP地址",64,"版权")(window.close)
  6. rem 弹出版权对话框
  7. color 0A
  8. rem 设置色彩信息
  9. MODE con: COLS=80 LINES=31
  10. ::以上设置了颜色并调整了窗口的大小。

  11. for /l %%i in (1,1,20) do echo.
  12. ::先空20行

  13. echo                         IP设置程序正在启动中,请稍候...
  14. echo.
  15. echo.  
  16. set /p a=">=============================================================================="<nul
  17. ::让窗口显示变量a的内容并且不换行。
  18. ::“<nul”相当于回车但不换行。使得可以在同一行输出。
  19. for /l %%i in (1,1,80) do (
  20. set /p aa=<nul
  21. )
  22. ::输出80个退格符,使光标移到该行的最左面。注意:是退格符(在txt中显示为一个实心的黑方块)。
  23. ::一个退格符的作用就是使得窗口中的光标往前退一格。
  24. for /l %%i in (1,1,80) do (
  25. set /p aa=^><nul
  26. ping/n 0 127.1 >nul
  27. )
  28. ::逐个输出符号“>”并且不换行来覆盖符号“=”
  29. echo 你目前的IP设置是:
  30. netsh interface ip show config
  31. rem 输出IP的设置信息
  32. set /p zidong=你想要自动获得IP地址及DNS服务嘛(y/n)?
  33. if %zidong%==y goto dhcp
  34. if %zidong%==n goto DIY
  35. rem 判断是否需要自动获得IP地址
  36. :dhcp
  37. netsh interface ip set address 本地连接 dhcp
  38. netsh interface ip set dns 本地连接 dhcp
  39. pause
  40. goto end
  41. rem 如果需要自动获得,则执行本行代码
  42. :diy
  43. set /p var=你想设置默认网关吗(y/n)?
  44. if %var%==y goto 1
  45. if %var%==n goto 2
  46. rem 如果要自己手动设置IP地址,则执行本行代码
  47. :1
  48. set /p var1=请输入IP地址!
  49. set /p var2=请输入子网掩码!
  50. set /p var3=请输入默认网关!
  51. if %var2%==8 (
  52. set subnetmask=255.0.0.0
  53. )else(
  54. set subnetmask=%var2%
  55. )
  56. if %var2%==16 (
  57. set subnetmask=255.255.0.0
  58. )else(
  59. set subnetmask=%var2%
  60. if %var2%==24 (
  61. set subnetmask=255.255.255.0
  62. )else(
  63. set subnetmask=%var2%
  64. netsh interface ip set address name="本地连接" static %var1% %subnetmask% %var3% 1
  65. if errorlevel 1 echo ^set failed!
  66. if errorlevel 0 echo ^set success!
  67. rem 判断成功与否
  68. echo 你目前的IP设置是:
  69. netsh interface ip show config
  70. rem 再次现实IP设置,便于观察IP设置是否成功
  71. pause
  72. goto end
  73. :2
  74. set /p var1=请输入IP地址!
  75. set /p var2=请输入子网掩码!
  76. netsh interface ip set address name="本地连接" static %var1% %var2% %var1% 1
  77. if errorlevel 1 echo ^set failed!
  78. if errorlevel 0 echo ^set success!
  79. rem 判断成功与否
  80. echo 你目前的IP设置是:
  81. netsh interface ip show config
  82. rem 再次现实IP设置,便于观察IP设置是否成功
  83. pause
  84. goto end
  85. :end
  86. echo.
  87. echo.
  88. echo.
  89. echo.
  90. echo            Powered by kenshin...   QQ:398491190     E-mail:398491190@qq.com      
  91. ping -n 4 127.0.0.1>nul
  92. echo.
  93. echo.
  94. echo.
  95. echo.
  96. color 0D
  97. echo             Celephone : 13956046870            
  98. ping -n 3 127.0.0.1>nul
  99. echo.
  100. echo.
  101. echo.
  102. echo.
  103. color 09
  104. echo             代码中DHCP部分得到www.verybat.org网站超级版主——清风09指点            
  105. ping -n 4 127.0.0.1>nul
  106. echo.
  107. echo.
  108. echo.
  109. echo.
  110. color 0E
  111. echo               感谢使用!!!            
  112. ping -n 2 127.0.0.1>nul
  113. exit


复制代码
0
已赞
微信分享 收藏
回复

使用道具 举报

我的人缘0
2
发表于 2008-12-12 21:57 只看该作者
自己沙发啊…………哈哈……

20081202_4c5b03bd00f0e69991b966kRrS5KO586.gif (127.42 KB, 下载次数: 12)

20081202_4c5b03bd00f0e69991b966kRrS5KO586.gif
我的人缘0
3
发表于 2008-12-12 22:03 只看该作者
:xiasini: :xiasini: :xiasini: :zuidp: :zuidp: :zuidp:
我的人缘0
4
发表于 2008-12-12 22:04 只看该作者
:mm2: 厉害
我的人缘0
5
发表于 2008-12-12 22:04 只看该作者
测试
LSDLS怎么了????
我的人缘0
6
发表于 2008-12-12 22:46 只看该作者
他抽了~
我的人缘0
7
发表于 2008-12-12 22:47 只看该作者
抽筋???
还是抽风?
我的人缘0
8
发表于 2008-12-12 23:34 只看该作者
测试
楼主强人。。
我的人缘0
9
发表于 2008-12-12 23:36 只看该作者
这是干虾米的?
我的人缘0
10
发表于 2008-12-12 23:38 只看该作者
测试
:mm34:  强人贴,露个脸。
123下一页
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则