首页
社区
课程
招聘
高手来看看这个代码是怎么核对序列号的(VB)
发表于: 2005-2-1 22:32 4557

高手来看看这个代码是怎么核对序列号的(VB)

2005-2-1 22:32
4557
VERSION 5.00
Begin VB.Form Form2
   BorderStyle     =   5
   Caption         =   "错误:请输入序列号"
   ClientHeight    =   2715
   ClientLeft      =   60
   ClientTop       =   300
   ClientWidth     =   4620
   LinkTopic       =   "Form2"
   MaxButton       =   0
   MinButton       =   0
   ScaleHeight     =   2715
   ScaleWidth      =   4620
   ShowInTaskbar   =   0
   StartUpPosition =   3
   Begin VB.Frame Frame1
      Caption         =   "程序注册"
      Height          =   2655
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   4575
      Begin VB.CommandButton Command1
         Caption         =   "开启(&O)"
         Height          =   375
         Left            =   1800
         TabIndex        =   8
         Top             =   2040
         Width           =   1095
      End
      Begin VB.TextBox txtZcm
         Appearance      =   0
         Height          =   270
         Left            =   1440
         TabIndex        =   7
         Top             =   1500
         Width           =   2895
      End
      Begin VB.TextBox txtCid
         Appearance      =   0
         Height          =   270
         Left            =   1440
         TabIndex        =   5
         Top             =   900
         Width           =   2895
      End
      Begin VB.TextBox txtYid
         Appearance      =   0
         Height          =   270
         Left            =   1440
         TabIndex        =   3
         Top             =   300
         Width           =   2895
      End
      Begin VB.Label Label4
         AutoSize        =  -1
         Caption         =   "请输入注册码:"
         Height          =   180
         Left            =   120
         TabIndex        =   6
         Top             =   1560
         Width           =   1260
      End
      Begin VB.Label Label3
         AutoSize        =  -1
         Caption         =   "当前硬盘厂商:"
         Height          =   180
         Left            =   120
         TabIndex        =   4
         Top             =   960
         Width           =   1260
      End
      Begin VB.Label Label2
         AutoSize        =  -1
         Caption         =   "当前硬盘号为:"
         Height          =   180
         Left            =   120
         TabIndex        =   2
         Top             =   360
         Width           =   1260
      End
   End
   Begin VB.Label Label1
      Caption         =   "Label1"
      Height          =   495
      Left            =   1680
      TabIndex        =   1
      Top             =   1200
      Width           =   1215
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

' This form rebuilt by VBRezQ v2.4a.  1-Feb-2005 / 22:32:23
Option Explicit

' Declare Function DiskID32 Lib "DiskID32.DLL" ()

Sub Command1_Click()
End Sub

Sub Form_Load()
End Sub

Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
End Sub

'Sub SerialCode()
'End Sub

[招生]科锐逆向工程师培训(2024年11月15日实地,远程教学同时开班, 第51期)

收藏
免费 0
支持
分享
最新回复 (3)
雪    币: 200
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
2
啊,晕哦,想起来了,可能是放在DISKID32.DLL里边了
怎么解DLL哦
2005-2-1 22:34
0
雪    币: 200
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
3
有哪位高人能帮我把http://www.xioo.com/DiskID32.dll
这个文件的源码放出来,谢谢了
2005-2-1 22:49
0
雪    币: 493
活跃值: (2754)
能力值: ( LV10,RANK:170 )
在线值:
发帖
回帖
粉丝
4
用那个鸟软件反不出有用的东西~根本没有实际代码
2005-2-1 23:20
0
游客
登录 | 注册 方可回帖
返回
//