为编程爱好者分享易语言教程源码的资源网
好用的代理IP,游戏必备 ____广告位招租____ 服务器99/年 ____广告位招租____ ____广告位招租____ 挂机,建站服务器
好用的代理IP,游戏必备 ____广告位招租____ 服务器低至38/年 ____广告位招租____ ____广告位招租____ 挂机,建站服务器

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

按键精灵读取硬盘型号

三叶资源网 2018-10-21 16:35:14 按键精灵Q语言 1185 ℃ 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
微信Hookpost上传文件腾讯关键词检测GDI+游民星空块级元素Windows Shell易语言IDE界面ITrayNotifyTCP挂机心跳通用架构二维数组商品条形码鼠标源码AES高效加解密趣头条QQ授权登陆超级代理服务端EXCEL导入导出Charles文字识别
最新评论