[原创]钢筋算量通用版

lmj8260

<p>太历害,不知道是否已破解哦</p>

风随

学习

15151515

<p><a href="http://flyingleaf.6to23.com">努力学习</a></p><p></p>

xingye1001

<img src="http://www.excelpx.com/Skins/Default/emot/em02.gif" align="middle" border="0" alt=""/> 想看<br/>

ssj706948

学习下

syxagri

<p><font color="#ff0000" size="4" style="BACKGROUND-COLOR: #ffff00;">因为U盘的物理序列号是唯一的,利用U盘做密钥盘,经常应用在一些商用应用程序中,达到保密和保护知识产权的目的. 在Excel平台上开发的系统也可以利用U盘的序列号进行加密.</font></p><p>以下附件中的代码,在VBE中的视图中打开本地窗口,按F8单步执行,通过窗口变量可看到你的U盘的物理序列号,修改代码中的序列号后,再去掉代码 <font color="#ff0000">‘ </font><strong><font color="#ff0000">ThisWorkbook.Close False</font></strong><font color="#000000">前面的注释符 </font><font color="#ff0000">‘&nbsp; </font></p><p></p><hr noshade="true" size="1"/><font color="#808080">以下内容只有<b>回复</b>后才可以浏览</font><br/><p></p><p>以下附件中的代码,在VBE中的视图中打开本地窗口,按F8单步执行,通过窗口变量可看到你的U盘的物理序列号,修改代码中的序列号后,再去掉代码 <font color="#ff0000">‘ </font><strong><font color="#ff0000">ThisWorkbook.Close False</font></strong><font color="#000000">前面的注释符 </font><font color="#ff0000">‘&nbsp; </font></p><p>rivate Sub Workbook_Open()<br/>&nbsp; Dim objWMIService As Object<br/>&nbsp; Dim colItems As Object<br/>&nbsp; Dim objitem As Object<br/>&nbsp; Dim a, b, c, d, e, U_Dist<br/>&nbsp; Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")<br/>&nbsp; Set colItems = objWMIService.ExecQuery("Select * From Win32_USBHub")<br/>&nbsp; For Each objitem In colItems<br/>&nbsp;&nbsp;&nbsp; a = objitem.DeviceID<br/>&nbsp;&nbsp;&nbsp; If a Like "*VID*" Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; b = Split(a, "\")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; c = Split(b(UBound(b) - 1), "&amp;")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; d = Split(c(UBound(c) - 1), "_")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; e = Split(c(UBound(c)), "_")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; U_Dist = d(UBound(d)) + e(UBound(e)) + b(UBound(b))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If U_Dist = "1307016300000000000027" Then Exit Sub&nbsp; 'U盘物理序列号<br/>&nbsp;&nbsp;&nbsp; End If<br/>&nbsp; Next<br/>&nbsp; MsgBox "找不到正确U盘，系统将退出！"<br/>&nbsp; ' <font color="#ff0000"><strong>ThisWorkbook.Close False</strong></font><br/>End Sub</p><p><img src="http://www.excelpx.com/skins/default/filetype/rar.gif" border="0" alt=""/><a href="http://www.excelpx.com/viewFile.asp?BoardID=5&amp;ID=67225" target="_blank">点击浏览该文件</a></p><p><font color="#ff0000" style="BACKGROUND-COLOR: #ffff00;"><strong>更多的内容请参考以下链接的108楼（密钥盘代码）和105楼(获取U盘物理序列号):</strong></font></p><p><a href="http://club.excelhome.net/dispbbs.asp?boardid=2&amp;replyid=26889&amp;id=351936&amp;page=1&amp;skin=0"></a><a href="http://club.excelhome.net/dispbbs.asp?boardid=2&amp;replyid=26889&amp;id=351936&amp;page=1&amp;skin=0" target="_blank">http://club.excelhome.net/dispbbs.asp?boardid=2&amp;replyid=26889&amp;id=351936&amp;page=1&amp;skin=0</a><a></a></p>

hmpartner

<p>看看</p>[em01][em01]

qweasdzxc123

学习下

cycy12

<p>xiaxialaixuexue</p>

yag21339

41455455556551151