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

嗯,谢谢,我用这个VBS可以消除那个黑框
  1. wscript.createobject("wscript.shell").run "D:\tools\ip.exe",0
复制代码
还有要谢谢ivor,虽然的他批处理我怎么试都不管用,可能是我太笨了吧

TOP

虽然已经解决了,还是补上一个用批处理实现的吧
  1. @echo off&setlocal ENABLEDELAYEDEXPANSION
  2. for /f "tokens=1* delims=:" %%a in ('ipconfig ^|findstr /c:"IP Add"') do set ip=%%b
  3. echo 你的IP是: %ip%
  4. for /f "tokens=1-4 delims=. " %%1 in ("%ip%") do (
  5. set v1=00%%1
  6. set v2=00%%2
  7. set v3=00%%3
  8. set v4=00%%4
  9. set ipx=!v1:~-3!.!v2:~-3!.!v3:~-3!.!v4:~-3!
  10. )
  11. echo 补0后是: %ipx%
  12. for /f "usebackq tokens=1-3 delims==~~" %%a in ("%~0") do (
  13.   if defined find (
  14. set /a n+=1
  15. set ve=00%%b
  16. for /f "tokens=1-4 delims=." %%1 in ("%%a") do (
  17. set v1=00%%1
  18. set v2=00%%2
  19. set v3=00%%3
  20. set v4=00%%4
  21. set op!n!=!v1:~-3!.!v2:~-3!.!v3:~-3!.!v4:~-3! !v1:~-3!.!v2:~-3!.!v3:~-3!.!ve:~-3! %%c
  22. )
  23. rem 给每个IP区域弃置都补0
  24.   ) else (
  25. if "%%a" equ "[config]" set find=y
  26.   )
  27. )
  28. for /l %%k in (1,1,%n%) do (
  29.     for /f "tokens=1-3" %%a in ("!op%%k!") do (
  30. if "!ipx!" geq "%%a" if "!ipx!" leq "%%b" set run=%%c&goto :run
  31.     )
  32. )
  33. rem 然后逐个比较,有匹配的区域则中断比较,跳到运行段
  34. pause
  35. goto :eof
  36. :run
  37. echo;RUN %run%
  38. pause
  39. goto :eof
  40. 配置区
  41. [config]
  42. 192.168.1.2~26=1.exe
  43. 192.168.1.27~86=2.exe
  44. 192.168.1.87~186=3.exe
  45. 192.168.2.2~86=4.exe
  46. 192.168.2.87~196=6.exe
复制代码
1

评分人数

TOP

返回列表