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

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

按键精灵读取网卡MAC物理地址

三叶资源网 2018-10-21 16:32:04 按键精灵Q语言 2499 ℃ 2 评论

按键精灵读取网卡MAC物理地址

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

@一只鱼 

//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//  
//            [读取网卡MAC物理地址]              //  
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★定★义★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//  
VBS Dim mc,mo,Mac.stt  
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★设★置★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//  
VBS Set mc=GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")  
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★开★始★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//  
VBS stt=stt & vbcrlf & "For Each mo in mc"  
VBS stt=stt & vbcrlf & "If mo.IPEnabled=true Then"  
VBS stt=stt & vbcrlf & "Mac= mo.MacAddress"  
VBS stt=stt & vbcrlf & "Exit For"  
VBS stt=stt & vbcrlf & "End if"  
VBS stt=stt & vbcrlf & "Next"  
VBS Execute(stt)  
VBSCall call messagebox("网卡MAC地址是: " & Mac)  
EndScript


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

已有2位网友发表了看法:

欢迎 发表评论:

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

网站分类
随机tag
超文本浏览框支持库高级表格HTML5布局之路数学函数图像解析百度贴吧签到udp协议英文智能提示微信支付MP4视频文件拖放支持库动态加密算法校验车辆识别号Windows Shell百度登录简历下载GDIPlus类识别算法快递查询工具树形框项目切换
最新评论