VB.NET做的一个行业小软件，请问如何加密，比如需要通过什么硬件的序列号注册；_百度知道
VB.NET做的一个行业小软件，请问如何加密，比如需要通过什么硬件的序列号注册；
求代码及方法，注册机怎么写！
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
可以买一个加密狗几十块，便宜的不到十块钱。获取MAC地址应该可以用WMl，具体百度下吧手机打字不方便
采纳率：31%
来自团队：
.net的程序被反编译出来的都是源码，有注册系统也是显得，自己去找.net的加壳和混爻代码的工具吧！百度一下，网上很多的。
求地址，O(∩_∩)O谢谢
使用加密狗套件进行加密啊！或者ZP Shielden 软件加密也可以！
最好的加密就是通过你的网站去加密！用网络服务器验证把一些主要程序都可以加载到服务器上！这样你的程序加密就完美了！　（个人观点纯属不懂装懂的。哈哈见笑）
其他1条回答
为您推荐：
其他类似问题
序列号的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。VB程序破解
VB 程序简介 　　现在不少程序是用 VB 写的，你通过反汇编或跟踪调试时很容易鉴别某个程序是否为 VB 程序，VB 的 EXE 文件并不是真正的编译可执行文件，它们需其动态链接库才能正常运行，各版本的链接库如下： VB3 链接库为 vbrun300.dll ； VB4 链接库为
vb40016.dll ； - 16 位，较少见； VB4 链接库为
vb40032.dll ； - 32 位； VB5 链接库为 msvbvm50.dll ； VB6 链接库为 msvbvm60.dll ；
VB 程序执行时从本质上讲是解释执行，它们只是调用
VBRUNxxx.DLL 中的函数
，这样可使程序员不需写大量的程序代码就可编写出较好的图形界面的 windows 程序，不过 VB 是真正的程序吗？ 　当然 VB 程序大大方便了程序编写者，但对我们来说， VB 程序向来是谁见谁头痛，一般用 VB 做的程序无论注册码也好， <font face="Times New Roman" color="# 天到期也好，如果用常规方法都很难有被破解的可能。原因很简单， VB 的 exe 是伪代码，程序都在 vbXXX.dll 里面执行，你只能在 vbdll 里面用 sice 打转转，什么都改不成，而且代码质量不高，结构还颇复杂。 　不过你学完这一课，你就不用怕 Vb 程序，在这里我就谈谈两种常用方法，一、用 SOFTICE 对付；二、用 SmartCheck 。这一节就讲讲 SOFTICE 破解 VB 程序。 -------------------------------------------------------------------------------- SOFTICE 配制 　虽然大部分 VB 程序仍调用 Win32 API 函数，但如想在 VB dll 运行库中设断的话，你就必须把 VB dll 运行库加入 SOFTICE 配制里去。具体你可参考第五课中的《 SOFTICE 安装及使用》。 下例是在 win95/98 下你把相关的 VB DLL 运行库加入 winice.dat 配制文件里。 ( 部分 ) ; 注意分号后是描述语言，不被执行。每次只装载需要的一种 VB dll ，不要同时装载两个以上，把要装载那种 VB dll 那一行的分号去掉，重新启动即可。另外，判断软件是何种 VB dll 有几种方法，最直接一种用 WDasm89 查看，还有一种方法是用十六进制工具打开程序，观察。或用 SOFTICE 跟进去（用 bpx hmemcpy) ，稍转一圈，你观察一下调试窗口领空处会出现何种 VB DLL 即可。 ; EXP=c:/windows/system/msvbvm60. Visual Basic 6 ; EXP=c:/windows/system/msvbvm50. Visual Basic 5 ; EXP=c:/windows/system/vb40032. Visual Basic 4(32-bit) ; EXP=c:/windows/system/vb40016.dll 　　;Visual Basic 4(16-bit) 较少见 ; EXP=c:/windows/system/vbrun300. Visual Basic 3
这样配制好后，重新启动，就可设 VB 运行库中各函数的断点了。 -------------------------------------------------------------------------------- VB dll 常用函数 1 、字符处理函数 MultiByteToWideChar, rtcR8ValFromBstr, WideCharToMultiByte, __vbaStrCmp, __vbaStrComp, __vbaStrCopy, __vbaStrMove, __vbaVarTstNe . 注意:这些函数前的下划线 __ 是由两根短线 _ 组成的，不要弄错。 如果你是 crack VB6 程序，你应在断点前增加 msvbvm60! 。 如：
bpx msvbvm60!__vbastrcomp VB5以前版本就没此限制 。如 bpx __vbaStrCmp一些常用字符串函数 Val() -
转换字符串为数字 . Str$() -
转换数字为字符串 . Left$() -
按要求从左取字符。例如：
Left$(Theodolite, 4) = "Theo". Right$() -
按要求从右取字符 . Ltrim$() -
去除字符串左边空格例如：
Ltrim$ (" Hello ") = "Hello ". Rtrim$() -
去除字符串左边空格 . Trim$() -
去除字符串两边空格 . Asc() -
转换字符为 ANSI 编码
. 例如： Asc("A") = 65. (注：65是ASCII码的十进制）Chr$() -
转换 ANSI 编码为字符 . 例如
Chr$(65) = "A". 几个常用函数简解：1、 __vbavartstne 如是在VB5中CALL MSVBVM50!___vbavartstne 进去后在0F04E351你将看到：push dword ptr [ebp+0c] ;Push address *真* serial 的地址push dword ptr [ebp+10] ;Push address 你输入的serial地址下命令：d ebp+0c你将在数据窗口看到 4字节地址倒序排列，你再次D 地址（己纠正顺序的）， 就可看到序列号了。2、 __vbaR8Str 在 VB5中是如下情况：Push ebp-20Call MSVBUM50.__vbaR8S转换 string 到 Integer/Realfcomp qword ptr [] ;数据比较在这行fcomp qword ptr [] Type: DL
将看到*real* serial #.DL 是显示 Long/real 型，SOFTICE默认时是DB状态。 3、 __vbastrcmp 例::005BDC32 CALL [MSVBVM50!__VbaFreeVar] :005BDC38 MOV ESI,[EBP+08]:005BDC3B PUSH ESI:005BDC3E CALL [ECX+] &-- 值返回到 EDX.:005BDC44 MOV EDX,[ESI+4C] &-- 输入的号码，但倒转:005BDC47 MOV EAX,[005E0078] &-- 正确号码:005BDC4C PUSH EDX:005BDC4D PUSH EAX &-- Push参数给 __vbaStrCmp.:005BDC4E CALL [MSVBVM50!__vbaStrCmp] &-- Visual Basic 字符串比较:005BDC54 TEST EAX,EAX &-- 测试比较结果:005BDC56 JNZ 005BDC64 &-- 不相等跳走
2 、警告窗口函数 rtcBeep, rtcGetPresentDate (time API), rtcMsgBox -------------------------------------------------------------------------------- VB 序列号破解技巧 　在大部分 VB 程序中，我们能用 bpx Hmemcpy 命令设断，但是你将发现自己不久进入
VBRUNxxx.DLL 运行库，很快陷入 Vb dll 中，在大多数情况下，你很难到达其 EXE 文件中的真正比较核心。你通常是依靠字符串的线索来跟踪程序，你们还应记得 VB （ VB4 以上）
程序储存和比较字符是用 wide character 格式（本质是中在各字符间填 <font face="Times New Roman" color="#h ）。如： 原来字符串 : CRACKZ (43h 52h 41h 43h 4Bh 5Ah). Wide 字符串格式 : C R A C K Z (43h 20h 52h 20h 41h 20h 43h 20h 4Bh 20h 5Ah). 这时在 SOFTICE 下查看内存中的字符串时看到情况有可能是：
C R A C K Z 有些情况下应该用 DL （长实型）命令，才能看到正确数字序号。（ SOFTICE 默认时为 DB （字节型）） 　在多数情况下，在 VB 中设置正确断点是较困难的。断点设置好后，尝试输入序列号，运行后，应返回 VBRUNxxx.DLL 里，现在查找寄存器 (EAX & EBX) 中的值，那里放有你输入字符串长度，如果没发现什么，你应按 ctrl+D 再次返回到 VB dll 中另一处
，继续查看，一直重复。 　一但当你在寄存器中发现字符串长度时，你应一步一步注意观察，如果你幸运的话，你会发现输入字符串躺在寄存器或其显示附近内存里。这时你在 SOFTICE 里的数据窗口中用 ALT+ 光标键滚动查找，说不定会发现正确序列号懒洋洋躺在那附近。 -------------------------------------------------------------------------------- Visual Basic 程序比较方法 在
Visual Basic 里有 <font face="Times New Roman" color="# 种以上的方法检测正确的序列号 / 密码。我这里将谈谈这 <font face="Times New Roman" color="# 种方法，它们都是较容易并用得较多。首先是最普通的 <font face="Times New Roman" color="# 种： 1) 串（string) 比较在这比较方法里，正确密码串如： "Correct Password" 和你输入的密码串如： "Entered Password" 比较。 串是由相邻的字符按顺序排列组成，一个串包括字母、数字、空格和标点符号。一个固定长度的串可储存 <font face="Times New Roman" color="# 到 <font face="Times New Roman" color="#K 字符。如是动态的串其储存字符个数可达 <font face="Times New Roman" color="# 亿字符。
VB 串比较代码一般格式： If "Correct Password" = "Entered Password" then
&-- 直接比较两个串字符 GoTo Correct Message
GoTo Wrong Message
End if 这是一种简单保护方案，如果程序者用这种函数保护，用 SOFTICE 很容易拦截。 可用到的断点： i) __vbastrcomp or __vbastrcmp
（下划线是两短线 _ 组成）
&-- 串比较函数 注意：如果你是 crack VB6 程序，你应在两断点前增加 msvbvm60! 。 如：
bpx msvbvm60!__vbastrcomp or bpx msvbvm60!__vbastrcmp ii) 搜索特殊比较代码（具体参考下一节）
如： <font face="Times New Roman" color="#,57,8b,7c,24,10,8b,74,24,0c,8b,4c,24,14,33,c0,f3,66,a7
变量（Variant）比较 在这方法中，两个变量（变量数据类型）互相比较。变量数据类型是一种特殊数据类型，包括数字、字符串或日期数据及一些用户定义的类型。这种类型储存数字长度是 <font face="Times New Roman" color="# 字节或字符 <font face="Times New Roman" color="# 字节（加上串长度）。 一个范例代码： Dim correct As Variant, entered As Variant
&-- 定义 "correct" and "entered"
作为变量 correct = Correct Password
"correct" 放置 "Correct Password"
entered = Text1.Text
作为你输入密码
If correct = entered Then
&-- 用变量方法比较
GoTo Correct Message
GoTo Wrong Message
End If 在这方法里， <font face="Times New Roman" color="# 中的两个断点将不起作用，因为程序不再用 __vbastrcomp
等 ... 有用断点
： i) __vbavartsteq
&-- 测试变量是否相等 注意：如果你是 crack VB6 程序，你应在两断点前增加 msvbvm60! 。 例：
bpx msvbvm60!__vbavartsteq
3) 长整型（ long) 比较 这也是一个普通的方法。两个变量（长整型）互相比较。 long 型数据类型是 <font face="Times New Roman" color="# 字节（ <font face="Times New Roman" color="# 位）整数，其范围 -2,147,483,648
2,147,483,647 。因此该种方法存在只能比较数字的局限性。 一个此类型范例： Dim correct As Long, entered As Long
作为长整型 correct = 12345
&-- 设置 "correct" 为正确密码 entered = Text1.Text
"entered" 为输入密码 If entered = correct Then
&-- 用长整型方法比较
GoTo Correct Message
GoTo Wrong Message
End If 对这种类型没有专门的断点函数，因为其数据比较是在主程序里而不是在 VB dll 中。 -------------------------------------------------------------------------------- 我再简要谈谈其它的 <font face="Times New Roman" color="# 种方法，如果下面的方法你听起来有点怪或不太可能，你可忽略它们，但记得 VB 保护方式不限于上述三种。 4)
单精度实数（Single）比较 这个方法用两单精度实数数据彼此比较。 它的数据类型是单精度浮点实数，在内存中占 <font face="Times New Roman" color="# 字节（ <font face="Times New Roman" color="# 位），数值范围 -3.
为负值， <font face="Times New Roman" color="#. 到 <font face="Times New Roman" color="#. 为正值。 因此这方法一个限制是仅仅能比较数字，但是有时，程序能把我们的姓名和序列号转换成实数比较。 这种类型格式 : Dim correct As Single, entered As Single
correct = Correct Password
"correct" 为 "Correct Password"
entered = Text1.Text
&-- 设置 "entered"
为你输入密码
If correct = entered Then
&-- 在此比较
GoTo Correct Message
GoTo Wrong Message
End If 对这种类型没有专门的断点函数，因为其数据比较是在主程序里而不是在 VB dll 中。 5)
双精度（Double）比较 这个方法是用两个双精度数据比较。 它的数据类型是双精度浮点实数，在内存占 <font face="Times New Roman" color="# 个字节（ <font face="Times New Roman" color="# 位）， -1.32E308
-4.47E-324
是正数， <font face="Times New Roman" color="#.47E-324
到 <font face="Times New Roman" color="#.32E308 是负数。 你可能发现双精度比较非常类似单精度比较。因此这方法一个限制是仅仅能比较数字，但是有时，程序能把我们的姓名和序列号转换成实数比较。 这种类型格式 : Dim correct As Double, entered As Double
&-- 定义 "correct"
为双精度型 correct = Correct Password
&-- 设置 "correct" 为
"Correct Password"
entered = Text1.Text
&-- 设置 "entered"
为你输入的密码 If correct = entered Then
&-- 在此比较 GoTo Correct Message
GoTo Wrong Message
End If 对这种类型没有专门的断点函数，因为其数据比较是在主程序里而不是在 VB dll 中。
6) 整型（Integer）比较 这方法是用两个整型数据进行彼此比较。 它的数据在内存是以 <font face="Times New Roman" color="# 个字节存放。范围 -32,768 到 <font face="Times New Roman" color="#,767 。同样这方法一个限制是仅仅能比较数字，但是有时，程序能把我们的姓名和序列号转换成实数比较。
这种类型格式 : Dim correct As Integer, entered As Integer
为整型 correct = Correct Password
"correct" 为 "Correct Password"
entered = Text1.Text
&-- 设置 "entered"
为你输入的密码
If correct = entered Then
&-- 在此比较 GoTo Correct Message
GoTo Wrong Message
End If 对这种类型没有专门的断点函数，因为其数据比较是在主程序里而不是在 VB dll 中。 7)
字节（Byte）比较 这个方法是两个字节数据进行比较。 它是 <font face="Times New Roman" color="#-255 范围的整数，其通常存储是 <font face="Times New Roman" color="# 字节（ <font face="Times New Roman" color="# 位）。 其限制不超过 <font face="Times New Roman" color="#5, 但有时它通过计算把你姓名转换成数字，以此比较。 这种类型格式 : Dim correct As Byte, entered As Byte
为字节型 correct = Correct Password
"correct" 为 "Correct Password"
entered = Text1.Text
&-- 设置 "entered"
为你输入的密码
If correct = entered Then
&-- 在此比较 GoTo Correct Message
GoTo Wrong Message
End If 对这种类型没有专门的断点函数，因为其数据比较是在主程序里而不是在 VB dll 中。
8) CURRENCY
型比较 这个方法是用两个 Currency 数据类型进行比较。是的，它听起来是怪，但确实存在！ 它的数据范围： -922,337,203,685,477.5808
922,337,203,685,477.5807. 用这数据类型进行货币和一些需高精度的场合上很重用。 因此此种方法局限性也是只能比较数字，但有时它通过计算把你姓名转换成数字，以此比较。 这种类型格式 : Dim correct As Currency, entered As Currency
为 Currency
型 correct = Correct Password
"correct" 为 "Correct Password"
entered = Text1.Text
&-- 设置 "entered"
为你输入的密码
If correct = entered Then
&-- 在此比较 GoTo Correct Message
GoTo Wrong Message
End If 对这种类型没有专门的断点函数，因为其数据比较是在主程序里而不是在 VB dll 中。 -------------------------------------------------------------------------------- 上述8个比较方式是不是意味着我们每次能中断在其单个某一类型的比较程序里？回答是否定的。这是因为程序有可能同时采用两种方法来比较，如Currency和String, Variant 和 Long 等... 比较类型列表 String Variant Long Currency Single Double Integer Byte String Normal V SD SC SS SD SD SD Variant - Normal V V V V V V Long - - Normal __vbaFpCmpCy Sin to D DC DC DC Currency - - - Normal __vbaFpCmpCy __vbaFpCmpCy __vbaFpCmpCy __vbaFpCmpCy Single - - - - Normal DC DC DC Double - - - - - Normal DC DC Integer - - - - - - Normal DC Byte - - - - - - - Normal V
= Variant 型比较 SD =
在比较前字符串（ String ）转换成双精度型（ Doubl ） SC =
在比较前字符串（ String ）转换成
Currency 型 SS =
在比较前字符串（ String ）转换成双单精度型（ Single ） Sin to D =
在比较前单精度型转换成双精度型（ Double ） DC =
直接比较 __vbaFpCmpCy =Currency 型浮点比较 从这里你将会明白，如没用其它工具直接用 SOFTICE ，你将花费大量的精力和时间找出 VB 程序真正的比较代码程序。不过幸好 SmartCheck
的出现使我们走出这恶梦，我们如用SOFTICE找不到序列号，此时可用SmartCheck帮我们快速找到关键断点函数。 -------------------------------------------------------------------------------- 一些可能用上的断点 <font face="Times New Roman" color="#) 数据类型转换 i)
字符串（ String ）转换字节（ Byte ）或整型（ Integer ） : __vbai2str
字符串（ String ）转长型（ Long ） : __vbai4str
字符串（ String ）转换单精度型（ Single ） : __vbar4str
字符串（ String ）转换双精度型（ Double ） : __vbar8str
v) 字符串（ String ）转 Currency 型 : VarCyFromStr ( 适合 VB6.
你的 WINICE.DAT 必须有 OLEAUT32.DLL)
vi) 整型（ Integer ）转字符串型（ String ） : VarBstrFromI2 ( 适合 VB6.
你的 WINICE.DAT 必须 OLEAUT32.DLL) <font face="Times New Roman" color="#) 移动数据 i) 字符串（ String ）到内存 : __vbaStrCopy
ii) 变量（ Variant ）到内存 : __vbaVarCopy or __vbaVarMove <font face="Times New Roman" color="#)
i) 加法 : __vbavaradd
&-- 增加变量 ii) 减法 : __vbavarsub
&-- 减去变量
乘法 : __vbavarmul
&-- 乘以变量 iv)
除法 : __vbavaridiv
&--Dividing Variant to get answer in Integer
v) XOR: __vbavarxor
&--XOR <font face="Times New Roman" color="#)
i) __vbavarfornext
&--Used in codes where there is a For... Next... Statement (Loop)
ii) __vbafreestr
iii) __vbafreeobj
iv) __vbastrvarval
&--Get the value from a specific location in a String
v) multibytetowidechar
vi) rtcMsgBox
vii) __vbavarcat
&--Joining 2 Variants together
viii) __vbafreevar
ix) __vbaobjset ============================= crack VB程序的一些建议<font face="Times New Roman" color="# ）用SmartCheck配合。 首先：运行 SmartCheck 后，点击 Program -& Settings. 在 Error Detection 这一栏中选中所有的 ERROR 报告。Report errors immedietly 可不选。在 Advanced
中仅仅顶部 <font face="Times New Roman" color="# 个 Report 必须选上。 其次：在 Reporting 这一栏中：除了 Report MouseMove events from OCX controls 这项外把其它各项全选上。 <font face="Times New Roman" color="# ）在用 SmartCheck 中打开被 crack 文件之前，你最好多运行需被 CRACK 的文件几次，以了解其一些保护方法。 <font face="Times New Roman" color="# ）用 SmartCheck 装载程序后，按 program → start 运行程序，运行好后，输入序列号，按 OK 。选择 "Show All Events" ，然后整个相关信息列出在上左部分主框中。在这里非常容易发现你需要的一行，如： xxxxxx_Click. xxxxxx ，你可点击在右框中看到其相关信息。 <font face="Times New Roman" color="#)
一般首先寻找
__vbastrcomp, __vbastrcmp or __vbavartsteq
如果你幸运的话，你可能会发现序列号码。其具体的一些技巧参看下一节。
<font face="Times New Roman" color="#)
如果不能发现上述 <font face="Times New Roman" color="# 个函数，可能是用其它的一些比较方法。现在通过这一行，寻找一些程序注册出错的信息。你一般会发现几个我在第一部分《 VB 介绍》这课末尾处列出的几个
__vba 函数，先找出一个离出错信息最近的一个。你这时可能需 SOFTICE 配合了，在 SOFTICE 中可用此函数设断，你可在 SmartCheck 中观察一下会中断几次，以便知在 SOFTICE 下按多少下 F5. 例如：你设置 __vbafreestr 断点，在你点击 OK 后，有很多次中断。如果你在 SmartCheck 下查看是在第 <font face="Times New Roman" color="# 处： <font face="Times New Roman" color="#th __vbafreestr 离出错信息最近，在 SOFTICE 下你可按 F5 九次来到 __vbafreestr 。 记得在 VB6, 设断时前面加上 msvbvm60!
。 <font face="Times New Roman" color="#)
运行程序输入序列号，按 OK,SOFTICE 将会中断，除非你断点没找对。有一点需注意：在 VB6 下有可能需在运行程序前设置断点，才能中断。 <font face="Times New Roman" color="#)
开始跟踪每一个 CALL 并查看每一怀疑的注册号。它不会花费你许多时间就能来到错误信息处。如果没发现任何怀疑地方，返回 SmartCheck 寻找下一个断点，刚才的断点有可能在比较程序后面。
浅谈VB程序的破解
VB程序的破解
VB程序破解常用函数
vb软件破解手记
破解教程 第十八课 用SmartCheck破解VB程序
用VB做的一个小程序
VB如何生成EXE文件
没有更多推荐了，VB程序改错 下列程序实现s=1-1&#47;2+1&#47;4-......1&#47;(2n),其中1&#47;（2n）&=10^-5(共有三处错误)指出序号并改正_百度知道
VB程序改错 下列程序实现s=1-1&#47;2+1&#47;4-......1&#47;(2n),其中1&#47;（2n）&=10^-5(共有三处错误)指出序号并改正
&#xe6b9;答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
Private Sub Command1_Click()①Dim s As
,m As Integer②s=
0③n=1④m=1⑤Do⑥s=s+m/(2*n)⑦n=n+1⑧m=m*-1⑨Loop Until 1/(
10^-5⑩Print &s=&;sEnd Sub
采纳率：94%
为您推荐：
其他类似问题
&#xe675;换一换
回答问题，赢新手礼包&#xe6b9;
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。VB 写了一个程序 如何加入注册码 使一个注册码对应一台机器_百度知道
VB 写了一个程序 如何加入注册码 使一个注册码对应一台机器
我写了一个程序 想在启动时需要输入注册码才能使用 实现软件注册功能 使一个注册码对应一台机器 比如这个注册码必须在相应的硬盘序列号下才能生效我是新手 希望把实例发到
&#xe6b9;答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
我这个是利用每一台机子都有唯一对应cpu序列号，来计算得到注册码，注册成功后，它会向注册表写入注册信息，下次启动不再弹出注册窗口，否则将弹出错误窗口并自动结束程序。代码程序已发给你这是一个实例软件代码：Private Sub Form_Load()j = GetSetting(&MyApp1&, &Startup&, &b&)If j = &1& ThenForm1.ShowElseCall jianceEnd IfEnd Sub Private Sub jiance() Dim cpuSetDim cpuSet cpuSet = GetObject(&winmgmts:{impersonationLevel=impersonate}&).InstancesOf(&Win32_Processor&)For Each cpu In cpuSeta = (cpu.ProcessorId)NextFor i = 1 To Len(a)c = c & Asc(Mid(a, i, 1))Nexta = InputBox(&请输入注册码&)If a = c ThenForm1.ShowSaveSetting &MyApp1&, &Startup&, &b&, &1&ElseMsgBox &注册码错误&EndEnd If End Sub这是计算注册码的代码：Private Sub Command1_Click()Dim cpuSetDim cpuSet cpuSet = GetObject(&winmgmts:{impersonationLevel=impersonate}&).InstancesOf(&Win32_Processor&)For Each cpu In cpuSeta = (cpu.ProcessorId)NextPrint &cpu序列号为:& & &&For i = 1 To Len(a)c = c & Asc(Mid(a, i, 1))NextText1 = &与此对应的注册码为：& & cEnd Sub
采纳率：53%
来自团队：
实例已发送，请查收。
本回答被网友采纳
Give me a mial, i send the form to u. Option ExplicitPublic LoginSucceeded As BooleanPrivate Sub cmdCancel_Click()
&#39;&Eè&O&A&E&&frac34;&O±&&A&&I& false
&#39;&sup2;&&Iá&E&frac34;&E§°&U&&A&&C&A&frac14;
LoginSucceeded = False
Me.HideEnd SubPrivate Sub cmdOK_Click()
&#39;&frac14;ì&sup2;é&O&&E·&&A&A&U&A&
If txtPassword = &password& Then
&#39;&frac12;&&ú&A&·&A&O&U&O&&A&&&&&Y
&#39;&sup3;&E&sup1;&&&frac12; calling &&&E&
&#39;&Eè&O&A&E&&frac34;&O±&&A&&E±×&&E&Y&O×&&A
LoginSucceeded = True
MsgBox &&I&THORN;&ETH;§&&A&A&U&A&&&&C&&O&O&E&O!&, , &&&C&A&frac14;&
txtPassword.SetFocus
SendKeys &+&
End IfEnd Sub
为您推荐：
其他类似问题
注册码的相关知识
&#xe675;换一换
回答问题，赢新手礼包&#xe6b9;
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。