TC官方合作论坛

标题: 帮我看看代码 [打印本页]

作者: c724211922 时间: 2015-11-16 23:35
标题: 帮我看看代码
功能获取内网IP()
变量 BAT路径 = 系统获取工作路径() & "GetIP.bat"
变量 TXT路径 = 系统获取工作路径() & "IP.txt"

变量文件句柄 = 文件创建(BAT路径, "读写|共享读|共享写|总是创建")
如果(文件句柄 == 0)
      返回 -1
否则

      变量系统=系统获取版本号()
      如果(系统==1||系统==2||系统==3||系统==4)

         文件写入一行字符(文件句柄, "for /f \"tokens=2 delims=:\" %%i in ('ipconfig^|findstr \"IP Address\"') do set ip=%%i")
      否则
         文件写入一行字符(文件句柄, "for /f \"tokens=2 delims=:\" %%i in ('ipconfig^|findstr \"IPv4\"') do set ip=%%i")
      结束
      文件写入一行字符(文件句柄, "set \"ip=%ip: =%\"")
      文件写入一行字符(文件句柄, ">IP.txt echo %ip%")
      文件关闭(文件句柄)
结束

命令(BAT路径, 假)
等待(500)
文件删除(BAT路径)

如果(文件是否存在(TXT路径))
      变量 IPs = 正则表达式匹配(文件读取内容(TXT路径), "((2[0-4]\\d|25[0-5]|[01]?\\d\\d?)\\.){3}(2[0-4]\\d|25[0-5]|[01]?\\d\\d?)")
      文件删除(TXT路径)
      如果(!是否数组(IPs))
         返回 -2
      结束
      调试输出(IPs[0])
      返回 IPs[0]
否则
      返回 -3
结束
结束
原先好使  现在不好使返回 -3

作者: c724211922 时间: 2015-11-17 23:22
自己回答代码没问题有时候获取不到不知道什么原因

作者: sonicsonic 时间: 2015-11-18 12:53
我是新手。昨天下的TC 写了很短小的东西问题很多

如何让窗口置顶显示 ONTOP ？

楼主你这个对我来说太深了。。看不太懂~

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)