|
发表于 2024-3-17 01:32:48
|
显示全部楼层
广西壮族自治区崇左市
本帖最后由 果心豆腐酱 于 2024-3-17 01:51 编辑
可以考虑用土办法,CMDcha询
.版本 2
.支持库 spec
.子程序 取系统版本号1
.局部变量 内容, 文本型
.局部变量 数组, 文本型, , "0"
.局部变量 i, 整数型
运行控制台程序 (“systeminfo”, 内容, , )
数组 = 分割文本 (内容, #换行符, )
.计次循环首 (取数组成员数 (数组), i)
.判断开始 (寻找文本 (数组 , “OS 名称: ”, , 假) ≠ -1)
调试输出 (文本_取右边 (数组 , “OS 名称: ”, , ))
.判断 (寻找文本 (数组 , “OS 版本: ”, , 假) ≠ -1)
调试输出 (文本_取右边 (数组 , “OS 版本: ”, , ))
.默认
.判断结束
.计次循环尾 ()
.子程序 取系统版本号2, 文本型, 公开, 如果被占用返回进程PID
.局部变量 信息, 文本型
写到文件 (“Get.bat”, 到字节集 (“ver >>Bin”))
.如果真 (运行 (“Get.bat”, 真, 1))
删除文件 (“Get.bat”)
信息 = 到文本 (读入文件 (“Bin”))
删除文件 (“Bin”)
.如果真结束
调试输出 (信息)
返回 (信息)
|
|