为编程爱好者分享易语言教程源码的资源网

网站首页 > 脚本专栏 > 按键精灵相关 > 按键精灵Q语言 正文

按键精灵读取硬盘型号

三叶资源网 2018-10-21 16:35:14 按键精灵Q语言 1865 ℃ 0 评论

读取硬盘型号

运行环境:分辨率:1440x900 色深:32位 操作系统:Windows XP 按键精灵版本:7.00.3730

@一只鱼 

//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓// 
//              [读取硬盘型号]               // 
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★定★义★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓// 
VBS Dim HDid,moc,mo,stt 
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★设★置★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓// 
VBS Set moc =GetObject("Winmgmts:").InstancesOf("Win32_DiskDrive") 
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★开★始★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓// 
VBS stt=stt & vbcrlf & "For Each mo in moc" 
VBS stt=stt & vbcrlf & "HDid = mo.Model" 
VBS stt=stt & vbcrlf & "Next" 
VBS Execute(stt) 
VBSCall call messagebox("硬盘型号为:" & HDid) 
EndScript


来源:三叶资源网,欢迎分享,公众号:iisanye,(三叶资源网⑤群:21414575

本文暂时没有评论,来添加一个吧(●'◡'●)

欢迎 发表评论:

百度站内搜索
关注微信公众号
三叶资源网⑤群:三叶资源网⑤群

网站分类
随机tag
fiddlercoreapi世宝教程chrome浏览器DLL函数查看RSA播音喇叭定义数据类型正则整理排序sqlite3易包易语言游戏开发json是用来干嘛的图片生成器PCQQ自动检查更新硬盘遍历WonderWall多线程例子加密壳自定义数据类型剖析
最新评论