问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

VB.让程序运行时检查硬盘序列号,如果存在正常运行,否则就不运行,VB代...

发布网友 发布时间:2024-10-22 18:50

我来回答

1个回答

热心网友 时间:2024-11-07 16:28

建议你用这个控件: http://qhdedu.net/B01.asp 该控件主要适合开发者,读取本地硬盘序列号或网卡,对软件进行授权操作,主要功能: 一、可读取硬盘序列号(是出厂时定义的编码,唯一,不会因格式化或重新分区而变化)、硬盘编码(重新分区时定义, 不唯一,重新分区会变化),网卡MAC(是出厂时定义的编码,唯一) 二、可对字串进行加密码处理,有:MD5加密码、HASH加密及自定义加密

希望采纳
VB应用程序中如何验证硬盘物理序列号?

AA = MymachineC("c:\", VolName, 256, 硬盘序列号, Maxlen, Sysflag, FsysName, 256)MsgBox "你的机器码: " & Hex(硬盘序列号)EndEnd Sub注明:在VB生成的工程中里就事先写上这个物理号,怎么怎么验证.验证错误提示电脑重启.上面的代码是看物理号的一个应用程序现在要验证的是另一个程序.发完全代码. ...

vb中如何调用硬盘码,硬盘码与程序的值一样才能运行程序。

点任务栏“开始”-“运行”,输入“cmd vol d:” (注意引号不要输入),然后让用户把窗口里显示的那个16进制序列号告诉你(最好让用户截图发给你自己看),比如是“0C59-7641”。然后你把这个序列号放入自己的程序里:Private Sub Form_Load()If Right("0000000" & Hex(GetSerialNumber("d")),...

VB以序列号方式激活成功后,第二次运行不再提示激活怎么做?

将序列号保存到ini文件中,每次运行都检查,没有序列号则提示激活。如果想重装系统要激活,保存到系统盘中,隐秘点就是

用vb6做了个小软件,如何让它只能在指定的电脑上使用?

估计只有硬盘的硬序列号了 不是普通的可以使用API获得哪种软序列号 软序列号只要重新格式化后 就会发生改变 直接在VB里输入下面这行代码 就可以获得硬序列号了 Shell "cmd /c WMIC DiskDrive GET Signature>C:\aaa.txt", vbHide 然后去看看C盘根目录下 打开这个新建的aaa.txt 里面就是你想要的东西 你自己再对...

vb中用什么东西可以看到电脑硬盘的序列号啊?

'VB程序编制: BARDO'本来我想写一个只取盘动物理序列号的。但是考虑到大家学习的方便。还是将原来的代码'全部翻译了出来。如果你需要单一的只查一个主硬盘的序列号的程序,欢迎到本站下载。''网站:东方热讯:http://www.easthot.net'邮件:sales@easthot.net'2003.01.23'***Option Explicit'以下这一行是必须的,...

visit系统 VB怎么读硬盘序列号

读取硬盘序列号的方法很多,以下是在XP下能用的几种方法,我没用过vista系统,所以不知道以下方法在vista系统中是否可行 方法一:Set FSO = CreateObject("Scripting.FileSystemObject")Set d = FSO.GetDrive("C:")Print " C盘序列号是 " & Hex(d.SerialNumber)方法二:Set wmi = GetObject("winmgmts...

VB写了一个程序 现在想让程序提取用户的硬盘号生成一个注册码 发给用户...

碰到无盘系统软件就挂了.思路:根据 主板序列号,CPU序列号,MAC地址等,通过 一定的运算得到一个机器码,机器码通过 一定的加密算法生成序列号,客户输入序列号通过解密算法算出机器码,二者比较,如果对了,在注册表某个角落里保存一个值,这个值为0表示没有注册,为1表示注册过了.读取这个值,判断是否为注册...

vb 获取硬盘序列号序列号

Private Declare Function GetVolumeInformation& Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal pVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, By...

vb中怎样获得硬盘序列号?

Private Declare Function 获得硬盘序列号 Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lp...

VB写了一个程序 现在想让程序提取用户的硬盘号生成一个注册码 发给用户...

= Left(s, InStr(1, s, ChrW(0)) - 1)MsgBox "硬件厂商代码为: " + s s = StrConv(x.SerialNumber, vbUnicode)s = Left(s, InStr(1, s, ChrW(0)) - 1)MsgBox "硬盘序列号为: " + s End Function ...

硬盘序列号在硬盘哪里 硬盘序列号在哪看硬盘上 硬盘序列号在硬盘上怎么看 win7如何查看硬盘序列号 怎么查看硬盘序列号 硬盘序列号在哪个位置 win10硬盘序列号怎么查 台式机硬盘序列号怎么查 硬盘序列号有什么用
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
乾隆小时候的书童是谁 下面对句式判断有误的一项是( ) A.当立者乃公子扶苏(判断句) ...为折线,把 折起,使平面 平面 ,连接 (1)求证: ;(2)求二面角 图中由线段OA、AB组成的折线表示的是小明步行所走的路程和时间之间的关... 动态图像粒度粒形分析仪 oppor9splus视频通话怎么开美颜 微信视频聊天怎么开美颜oppor9 谁家出售二手胶囊填充机NJP1200 NJP-1200A硬胶囊填充机仪器特点简介 NJP-1200A硬胶囊填充机仪器参数 如何加密程序? 《千古玦尘》首播,特效优秀,服装精美,但还是被吐槽,这是为什么呢?_百 ... 面部糖皮质激素依赖性皮炎如何预防和治疗 如何预防激素依赖性皮炎? 什么牌子的P5好 我有700元的预算买哪款P5好? 有什么性价比不错的P4 P5. 想买个MP5看电影,什么牌子的最好,价格又合? 我想买一款MP5,价位在300的,屏幕要大点的,这样才能明显的区分P4和P5... 我想买一个P5是在网上买好还是在附近商店买好那,加钱200——300间... 我想买个300到500之间的p5,请大家推荐几款性能好的,像原道n3这种可以安... ...不用带什么特殊的功能,只要视频效果好,音质好,就行大家推荐一... ...价格也可以接受,因为想在网上买所以最好推荐下店 陈皮,木耳,鲜姜能治气管吗 黑木耳红枣生姜能治血稠吗 ...电话也可以打的进去,怎么回事,是屏幕坏了吗 介绍几首好听的舞曲,一般的不要! 介绍几首好听的韩国动感舞曲好吗? 四面都是山打一字是什么 长虹空调显示模式图标是什么意思? sd敢达dps是什么 300以内平板电脑和P5哪个好呀?主要是看视频听音乐,最好还能下载一部电子... 【强烈求助】看书多、听歌少,毛病一大把,请达人推荐一款合适的P3... 请知者帮忙:我想为刚高中毕业的弟弟买一款P5,有谁能从实用性、实惠性... ...p5呀!最好、7寸!别太贵!主要看电影用!!!外观好点,女孩子用!_百度知 ... 最近我一朋友看上了一款“驰为”这牌子的MP5,8G,5寸屏幕, 很想买,但 ... ...计算机处理了涉密信息,还有一个月要进行保密检查了.该对计算机如何... 月合玉兰玉合月;最是春分好风景,玉兰月色入书堂。这几句话是什么... 京东双十一预售能用白条吗?预购能用白条吗? 九寨沟旅游区的景色怎么样? 智齿只剩一点点了,怎么半? 牙齿问题——智齿 arcgis中如何求的由polyline围合的多边形面积? 京东双11尾款可以打白条吗?可以分期付款吗? 别克英朗gt15n后面的n是什么 淘宝上买P5,推荐一下 想买一部mp5,注意,我是要在淘宝上买,各位推荐下吧,150---300元里... 想在淘宝买个P5,买过的介绍下《别太贵了》 我想在淘宝上面买个MP5以前没在网上买过 ,谁能教教我要准备些什么啊... 我想买个mp5,淘宝网上安全吗?