Foxtable(狐表)用户栏目专家坐堂 → [求助]狐表如何读取电脑硬件信息和生产日期


  共有4675人关注过本帖树形打印复制链接

主题:[求助]狐表如何读取电脑硬件信息和生产日期

帅哥哟,离线,有人找我吗?
有点甜
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/19 16:56:00 [只看该作者]

以下是引用ycwk在2018/11/19 16:48:00的发言:
还差一个,如何显示是32位,还是64位操作系统?  

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=85795&skin=0

 


 回到顶部
帅哥哟,离线,有人找我吗?
ajie5211
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:812 积分:5570 威望:0 精华:0 注册:2015/11/28 14:00:00
  发帖心情 Post By:2018/11/30 15:31:00 [只看该作者]

以下是引用有点甜在2018/11/19 16:56:00的发言:

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=85795&skin=0

 

百度上说,cmd命令提示符窗口中输入“wmic bios get releasedate”,得到的就是生产日期,这个值狐表中如何得到?


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/30 15:53:00 [只看该作者]

参考

 

Dim p As new Process()
p.StartInfo.FileName = "cmd.exe"

p.StartInfo.UseShellExecute = False '关闭Shell的使用

p.StartInfo.RedirectStandardInput = True '重定向标准输入

p.StartInfo.RedirectStandardOutput = True '重定向标准输出

p.StartInfo.RedirectStandardError = True '重定向错误输出

p.StartInfo.CreateNoWindow = True '设置不显示窗口

p.Start()

p.StandardInput.WriteLine("wmic bios get releasedate")
p.StandardInput.WriteLine("exit")
Dim strRst As String = p.StandardOutput.ReadToEnd()

msgbox(strrst)

 


 回到顶部
帅哥哟,离线,有人找我吗?
ajie5211
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:812 积分:5570 威望:0 精华:0 注册:2015/11/28 14:00:00
  发帖心情 Post By:2018/12/1 17:11:00 [只看该作者]

以下是引用有点甜在2018/11/30 15:53:00的发言:

参考

 

Dim p As new Process()
p.StartInfo.FileName = "cmd.exe"

p.StartInfo.UseShellExecute = False '关闭Shell的使用

p.StartInfo.RedirectStandardInput = True '重定向标准输入

p.StartInfo.RedirectStandardOutput = True '重定向标准输出

p.StartInfo.RedirectStandardError = True '重定向错误输出

p.StartInfo.CreateNoWindow = True '设置不显示窗口

p.Start()

p.StandardInput.WriteLine("wmic bios get releasedate")
p.StandardInput.WriteLine("exit")
Dim strRst As String = p.StandardOutput.ReadToEnd()

msgbox(strrst)

 

谢谢,现在在有些旧电脑上出现如下错误,不知道哪里的问题

 


图片点击可在新窗口打开查看此主题相关图片如下:11111111111.png
图片点击可在新窗口打开查看

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:全局代码和自定义函数代码.txt


 回到顶部
帅哥,在线噢!
有点蓝
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105481 积分:536396 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/12/1 17:28:00 [只看该作者]


Dim strRst As String = p.StandardOutput.ReadToEnd()
msgbox(strRst)

看看返回的什么结果,然后看看代码里的各种索引使用是否正确

strrst = strrst.Remove(0,strrst.LastIndexOf(ml))
strrst = strrst.Remove(0,ml.Length * 2)
Dim scrq As String = strrst.SubString(0,8)  '得到生产日期
ml = "processorid"
strrst = strrst.Remove(0,strrst.LastIndexOf(ml))
strrst = strrst.Remove(0,ml.Length * 2)
……

 回到顶部
帅哥哟,离线,有人找我吗?
ycwk
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1218 积分:8445 威望:0 精华:0 注册:2016/2/2 21:52:00
  发帖心情 Post By:2019/2/20 9:57:00 [只看该作者]

能否获取到自上次重启或开机后,到当前时刻的运行时间?

 回到顶部
帅哥,在线噢!
有点蓝
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105481 积分:536396 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/2/20 10:11:00 [只看该作者]

Dim dt = Date.Now.AddMilliseconds(0 - System.Environment.TickCount)
Output.Show("开机后经过的毫秒:" & System.Environment.TickCount)
Output.Show("开机时间" & dt)

 回到顶部
帅哥哟,离线,有人找我吗?
ycwk
  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1218 积分:8445 威望:0 精华:0 注册:2016/2/2 21:52:00
  发帖心情 Post By:2019/2/22 16:14:00 [只看该作者]

Format(System.Environment.TickCount/1000/3600,"0.0")

为什么有的电脑读出来是负数啊?   
[此贴子已经被作者于2019/2/22 16:18:59编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105481 积分:536396 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/2/22 16:22:00 [只看该作者]

msgbox("开机后经过的毫秒:" & System.Environment.TickCount)这里显示什么值

 回到顶部
总数 19 上一页 1 2