| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1434 人关注过本帖
标题:读取本机物理地址(win10系统)并比较,如果正确继续执行,不正确退出执行
只看楼主 加入收藏
qq93188931
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2016-11-29
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:8 
读取本机物理地址(win10系统)并比较,如果正确继续执行,不正确退出执行
如题:想把宏执行加上执行条件,读取本机物理地址(win10系统)并比较,如果正确继续执行,不正确退出执行。

软件上的一段宏:
Sub main()

MyAppID = Shell("J:\abc.exe", 1)
AppActivate MyAppID

End Sub

谢谢!!
搜索更多相关主题的帖子: 软件 
2016-11-29 19:16
qq93188931
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2016-11-29
收藏
得分:0 
谢谢大侠们,帮帮忙吧!
2016-11-29 19:19
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:938
专家分:5244
注 册:2015-8-10
收藏
得分:10 
自己修改一下这段代码。
程序代码:
    Dim obj1 As Object, oObjs As Object
    Dim sSql As String
    sSql = "SELECT * FROM Win32_NetworkAdapter WHERE ((MACAddress Is Not NULL) AND (Manufacturer <> 'Microsoft'))"
    Set oObjs = GetObject("winmgmts:").ExecQuery(sSql)
    For Each obj1 In oObjs
       EnumMACAddresses = EnumMACAddresses & obj1.MACAddress & "," & obj1.Description & vbCrLf
    Next obj1
2016-11-30 10:16
xzlxzlxzl
Rank: 15Rank: 15Rank: 15Rank: 15Rank: 15
来 自:湖北
等 级:贵宾
威 望:125
帖 子:1091
专家分:5825
注 册:2014-5-3
收藏
得分:0 
系统登记的mac地址也是可以改的。
如果是用于软件注册的,可以读取CPU系列号、主板型号,这些无法更改。
2016-11-30 10:19
qq93188931
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2016-11-29
收藏
得分:0 
回复 3楼 xiangyue0510
谢谢
2016-12-01 21:14
qq93188931
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2016-11-29
收藏
得分:0 
以下是引用xzlxzlxzl在2016-11-30 10:19:43的发言:

系统登记的mac地址也是可以改的。
如果是用于软件注册的,可以读取CPU系列号、主板型号,这些无法更改。

建议很好,能不能附上代码呢,非常感谢!
2016-12-01 21:15
xzlxzlxzl
Rank: 15Rank: 15Rank: 15Rank: 15Rank: 15
来 自:湖北
等 级:贵宾
威 望:125
帖 子:1091
专家分:5825
注 册:2014-5-3
收藏
得分:10 
代码通3楼版主代码差不多,都是使用wmi查询获取的,获取CPUID的代码如下:
    Dim obj1 As Object, oObjs As Object
    Dim sSql As String
    sSql = "SELECT * FROM Win32_Processor"
    Set oObjs = GetObject("winmgmts:").ExecQuery(sSql)
    For Each obj1 In oObjs
       EnumMACAddresses = EnumMACAddresses & obj1.Properties_("ProcessorId") & vbCrLf
    Next obj1
'经验证,改代码运行成功,获取我现在电脑的cpu系列号为:BFEBFBFF000306A9,这是全世界唯一的
2016-12-02 08:47
xzlxzlxzl
Rank: 15Rank: 15Rank: 15Rank: 15Rank: 15
来 自:湖北
等 级:贵宾
威 望:125
帖 子:1091
专家分:5825
注 册:2014-5-3
收藏
得分:0 
不过,通过wmi查询到的信息好像都在注册表里,而注册表是可以人为更改的。要想真正获得,可能还是要通过相关直接读取硬件信息的api获取。
2016-12-02 08:57
qq93188931
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2016-11-29
收藏
得分:0 
哦,已经收益匪浅了,谢谢您!
2016-12-02 20:10
快速回复:读取本机物理地址(win10系统)并比较,如果正确继续执行,不正确退出 ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016951 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved