vb验证求助高手指点

发布网友发布时间：2023-07-27 09:31

共5个回答

热心网友时间：2023-09-25 16:51

【MymachineC】这个是写好的模块吗？如果是：
只要把这些代码的顺序调整一下、再添加一个【读ini的过程】就可以了。追问本人能力有限能做到这里就不简单，麻烦了能具体点不

追答有机器码后，你注册码怎么写啊，有什么打算，说说啊
===按你的想法，就是这样。自己可以发挥一下：
Private Declare Function MymachineC 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 lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
Private Sub Form_Load()Dim AA, DiskC, Maxlen, Sysflag As Long: Dim VolName, FsysName As String
Dim f As Integer, sn As String, regno

AA = MymachineC("c:\", VolName, 256, DiskC, Maxlen, Sysflag, FsysName, 256)
If Dir(App.Path & "/123456.ini") = "" Then'尚未注册 MsgBox "C硬盘序列号-机器码啦-(16制): " & Hex(DiskC)
sn = InputBox("请填写注册码,注册码将保存在同目录ini文件里面", "")

f = FreeFile Open (sn & ".ini") For Output As #f
Print #f, sn
Close #f
Else‘已经注册
Open App.Path & "/123456.ini" For Input As #1
Input #1, regno
Text3 = regno
Close #1
End If

End Sub

热心网友时间：2023-09-25 16:51

读取硬盘序列号需要API函数，但你的读取好像不对，取出序列号的处理也有问题，存储在ini文件中不是不可取，但这样容易丢失。
可以帮你，但需要时间。

热心网友时间：2023-09-25 16:51

额。突然翻开我3年前做的东西。估计就是这个意思。我的加密太多。部分算法现在还用着。不合适给你= =！以前拿来卖软件用的。现在升级了。。。要是说思路方法函数倒是可以给你指点指点。。你都没个代码。让我们情何以堪= =直接给你源程序？

热心网友时间：2023-09-25 16:52

搞个循环不成功循环即可，至于读写文件更简单，open，read，write，print，get，put，具体查帮助，到是硬盘序列号有些麻烦

热心网友时间：2023-09-25 16:53

留个QQ传你个示例代码