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

-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