下载
详细说明：Private Sub Command1_Click()
strtmp = Text1.Text
nlen = Len(strtmp)
k = 1
For i = 1 To nlen
j = Asc(Mid(strtmp, i, 1))
If j < 47 Or j > 58 Then
k = 2
End If
Next i
If k <> 2 Then
Text2.Text = Val(Text1.Text) Xor &H11677831
Else
e = MsgBox(\"你输入的机器码有误，请重新输入!\", 0, \"Error!!!\")
End If
End Sub
Private Sub Command2_Click()
aa = MsgBox(\"逆风飞扬电脑工作室倾力制作\", 0, \"退出\")
Unload Me
End Sub