全部代码都发出来了,
Width = 442
Desktop = .F.
ShowWindow = 0
DoCreate = .T.
AutoCenter = .T.
BorderStyle = 3
Caption = "系统注册"
FontSize = 11
TitleBar = 0
WindowType = 1
WindowState = 0
AlwaysOnTop = .T.
ForeColor = 0,0,0
BackColor = 192,192,192
FillColor = 0,0,0
Name = "Form1"
ROCEDURE Activate
THISFORM.Text1.VALUE='教研室'
THISFORM.text4.VALUE=''
DECLARE INTEGER DiskID32 IN DiskID32.DLL STRING @, STRING @
a=REPLICATE(CHR(0),31)
b=REPLICATE(CHR(0),31)
retval = DiskID32( @a, @b )
jqm=LEFT(b,AT(CHR(0),b)-1)
THISFORM.text3.VALUE=ALLT(STR(ASC(SUBS(jqm,1,1))))+ALLT(STR(ASC(SUBS(jqm,2,1))))+ALLT(STR(ASC(SUBS(jqm,6,1))))+ALLT(STR(ASC(SUBS(jqm,7,1))))+ALLT(STR(ASC(SUBS(jqm,8,1)))) //这里怎么算的,解释一下
ENDPROC
12
Value =
Height = 25
Left = 134
Top = 54
Width = 241
Name = "Text1"
sFontSize = 12
BackStyle = 0
Caption = "单位名称"
Height = 17
Left = 47
Top = 58
Width = 67
Name = "Label1"
BackStyle = 0
Caption = "机器码"
Height = 16
Left = 47
Top = 95
Width = 61
Name = "Label3"
BackStyle = 0
Caption = "注册码"
Height = 18
Left = 47
Top = 132
Width = 61
Name = "Label4"
Height = 25
Left = 134
Top = 129
Width = 241
Name = "Text4"
Left = 140
Height = 25
Width = 73
FontBold = .T.
FontShadow = .T.
FontSize = 12
Caption = "注册"
ForeColor = 255,0,0
Name = "Command1"
3PROCEDURE Click
zc1=ALLTRIM(THISFORM.Text1.VALUE)
zc3=ALLTRIM(THISFORM.text3.VALUE)
zc4=ALLTRIM(THISFORM.text4.VALUE)
glmima=ALLTRIM(THISFORM.text5.VALUE)
USE zc
GO 1
REPL dw WITH zc1, jqm WITH zc3,xlh WITH zc4
USE
IF EMPTY(glmima).OR.EMPTY(zc1) //这一断也不懂
=MESSAGEBOX("单位名称及管理员密码必须输入字符!",16,"提示")
RETURN
ELSE
IF VAL(zc4)=VAL(zc3)*4+403403
SAVE TO chengong
USE YH
APPEND BLANK
GO TOP
REPLACE yhm WITH '系统管理员', mm WITH glmima
USE
*修改主窗口属性
WITH _SCREEN
.VISIBLE=.T. && 设定主窗口可见
.PICTURE='bmp\fm.jpg'
.CAPTION=' 管理系统 '
ENDWITH
DO FORM mimabd
RELEASE THISFORM
ELSE
=MESSAGEBOX("本系统没有注册成功!",16,"提示")
RETURN
ENDI
ENDIF
ENDPROC
Height = 24
Left = 134
Top = 91
Width = 241
Name = "Text3"
Left = 272
Height = 25
Width = 73
FontBold = .T.
FontShadow = .T.
FontSize = 12
Caption = "取消"
ForeColor = 255,0,0
Name = "Command2"
4PROCEDURE Click
THISFORM.RELEASE
QUIT
ENDPROC
SHeight = 0
Left = 31
Top = 42
Width = 372
BorderColor = 0,0,0
Name = "Line2"
vFontSize = 12
BackStyle = 0
Caption = "管理员密码"
Height = 18
Left = 47
Top = 168
Width = 82
Name = "Label5"
Height = 25
Left = 133
Top = 163
Width = 241
PasswordChar = "*"
Name = "Text5"
YHeight = 0
Left = 28
Top = 43
Width = 372
BorderColor = 255,255,255
Name = "Line1"
utoSize = .T.
FontBold = .F.
FontName = "黑体"
FontSize = 20
BackStyle = 0
Caption = " 管理系统注册"
Height = 33
Left = 31
Top = 9
Width = 380
TabIndex = 13
ForeColor = 0,0,255
Name = "Label8"
问了我认识的人都不会,只好来这里求助。 希望大侠帮个忙解释一下,谢谢
[课程]FART 脱壳王!加量不加价!FART作者讲授!