搬家第24天-citect v7.4 cicode 取得当前计算机的名字
我在论坛里面看到有人询问怎么使用cicode函数去的当前计算机名字,我虽然不知道为什么要取计算机名字,但觉得这个问题有点意思,可以扩展思维一下cicode怎么取得取计算机系统其他信息。
cicode没有直接取得计算机名字的函数,但是我们可以曲线救国——先把计算机名字想办法放到txt文件中,然后从文件读取出来存入citect变量。
先在项目文件夹下新建一个批处理文件getpcname.bat,写入以下代码:
echo.>c:\pcname.txt
echo %computername%>c:\pcname.txt
这两行代码的意思是在C盘根目录创建一个pcname.txt的文件,然后把计算机名字写入。
在cicode写入以下代码:
STRING FUNCTION GetcomputerName()
INT hfile;
STRING strName;
IF FileExist("c:\pcname.txt") THEN //判断该文件存在是否存在
FileDelete("c:\pcname.txt"); //删除该文件
END
Exec("[run]:\getpcname.bat",6); //执行批处理文件,计算机名字写入 c:\pcname.txt
WHILE NOT FileExist("c:\pcname.txt") DO
//循环等待批处理文件完成
END
hfile=FileOpen("c:\pcname.txt","r"); //打开文件,取得文件号
strName=FileRead(hfile,17);//读取计算机名字,最长17个字符
FileClose(hfile);
RETURN strname;
END
在项目中新建一个computername的内部字符串变量,在页面的按钮事件中写入一下脚本:
computername=GetcomputerName();
画面上放一个字符串显示标签,绑定computername变量。保存编译运行,点击按钮,就等看到计算机名字取出来了。同样的思路,还可以取得其他系统参数。