下不了了,霏凡说是毒!!!!!!不可思议!!!!!!!!源码如下,VB编写....
Private Sub Form_Load()
Dim name As String
name = InputBox("请输入注册码!")
names = reaioughioearijotgerwijotgjirghieruithure
Dim flag As Boolean
flag = False
If name = names Then flag = True And MsgBox("注册成功!!!!")
If flag = False Then MsgBox ("注册失败!!!!")
End
End Sub
