dvbbs
收藏本页
联系我们
论坛帮助
dvbbs

>> Fortran语言开发经验交流
搜一搜相关精彩主题 
Fortran中文网Fortran中文网—Fortran语言经验交流Fortran语言开发经验交流 → [求助]读取MAC地址,winXP可以用,但是到了win7运行不了

您是本帖的第 3831 个阅读者
树形 打印
标题:
[求助]读取MAC地址,winXP可以用,但是到了win7运行不了
letsunsing
帅哥哟,离线,有人找我吗?
等级:新手上路
文章:1
积分:272
门派:无门无派
注册:2009年11月18日
楼主
 用支付宝给letsunsing付款或购买其商品,支付宝交易免手续费、安全、快捷! 点击这里发送电子邮件给letsunsing

发贴心情
[求助]读取MAC地址,winXP可以用,但是到了win7运行不了
读取MAC地址,winXP可以用,但是到了win7运行不了,求教源程序如下:
!   子程序 获取系统用户名和MAC地址
   subroutine machostnm
   USE MSFLIB
   LOGICAL(4) 爀攀猀甀氀琀
 character 猀甀氀琀(17)
c write(*,*) '   '
 write(*,'(1x,a16\)') ' 正在验证用户... '
   result = SYSTEMQQ('ipconfig /all >ipconfig.txt')
   result = SYSTEMQQ('find "Physical Address" ipconfig.txt >   &massage.txt')
   result = SYSTEMQQ('for /f "skip=1 tokens=2 delims=:" %a in
  & (massage.txt) do @echo %a>a.txt')
   result = SYSTEMQQ('for /f "tokens=* delims=- " %a in (a.txt)
  & do @echo %a>mac地址.txt')
   result = SYSTEMQQ('find "Host Name" ipconfig.txt >   &massage.txt')
   result = SYSTEMQQ('for /f "skip=1 tokens=2 delims=:" %a in
  & (massage.txt) do @echo %a>a.txt')
   result = SYSTEMQQ('for /f "tokens=* delims=- " %a in (a.txt)
  & do @echo %a>host用户名.txt')
   result = SYSTEMQQ('del ipconfig.txt')
   result = SYSTEMQQ('del massage.txt')
   result = SYSTEMQQ('del a.txt')
   ! 物理网卡地址在 洀愀挀 址.txt 蜀件中
 open(12,file='mac地址.txt')
 read(12,'(17a1)') (sult(i),i=1,17)
 close(12,status='delete')
 write(111,*) sult
c  write(*,'(A28,17a1\)') 'mac地址:',(sult(i),i=1,17)
 open(12,file='host用户名.txt')
 read(12,'(17a1)',err=123) (sult(i),i=1,17)
 close(12,status='delete')
123 write(*,'(1x,A12,17a1\)') ' 用户名:',(sult(i),i=1,17)
 return
   end

win xp下面用得好好的,到了win7就用不了。
这是一个程序加密的子程序,把授权的电脑MAC地址写入源程序,电脑MAC地址跟程序一致才能运行。
现在电脑系统都逐步升级到win7 win8,导致原有程序无法运行或无法加密。
求教论坛高手。
[此贴子已经被作者于2014-7-6 11:52:49编辑过]
ip地址已设置保密
2014-7-6 11:51:39
qwe8520
帅哥哟,离线,有人找我吗?
等级:新手上路
文章:4
积分:204
门派:无门无派
注册:2015年4月9日
2
 用支付宝给qwe8520付款或购买其商品,支付宝交易免手续费、安全、快捷! 点击这里发送电子邮件给qwe8520

发贴心情
这个我也不回复。。。。









着するこグッチ偽物
ip地址已设置保密
2015-4-9 18:05:31
robci
帅哥哟,离线,有人找我吗?
等级:新手上路
文章:1
积分:211
门派:无门无派
注册:2016年7月5日
3
 用支付宝给robci付款或购买其商品,支付宝交易免手续费、安全、快捷! 点击这里发送电子邮件给robci

发贴心情
参考了您的内容:
在32位系统XP下,可以用 下面两条语句,将物理地址写入到 massage.txt文本文件里,
      call system('ipconfig/all>ipconfig.txt')
      call system('find "Physical Address" ipconfig.txt>massage.txt')
或       call systemQQ('ipconfig/all>ipconfig.txt')
      call systemQQ('find "Physical Address" ipconfig.txt>massage.txt')
但在64位的win7系统下,上面两种方法就不行了,不知您后面解决此问题没?期待您的解答,谢谢!