-
-
高手来看看这个代码是怎么核对序列号的(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期)