Caption = "注册密码："
Height = 19
Left = 0
Top = 60
Width = 77
Name = "Label2"
textbox textbox Text2 Form1 tFontBold = .T.
FontSize = 11
Height = 25
Left = 77
Top = 57
Width = 229
ForeColor = 0,64,128
Name = "Text2"

commandbutton
commandbutton 确定 Form1 _Top = 125
Left = 84
Height = 30
Width = 61
FontSize = 11
Caption = "确定"
Name = "确定"
"PROCEDURE Click
aaa=thisform.text1.value
bbb=len(aaa)
okmm=int(((val(subs(aaa,4,bbb)))+20080525)/22)
if val(thisform.text2.value)=okmm
Reg_ok=.t.

if !serv("D:")=[0000000000]
Reg_ddd="D:"
Reg_ttt=serv("D:")
else
Reg_ddd="C:"
Reg_ttt=serv("C:")
endif

save to Regs.dll all like Reg_*
messagebox(" 注册成功！ ",0+48,"提示信息")

[培训]科锐逆向工程师培训第53期2025年7月8日开班！