帮我看看代码

c724211922

功能 获取内网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

sonicsonic

我是新手。昨天下的TC 写了很短小的东西 问题很多

如何让窗口置顶显示 ONTOP ？

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

c724211922

自己回答 代码没问题 有时候获取不到 不知道什么原因