|
|
|---|---|
|
|
随便输了一个
 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
 搞错的地方请高手指教~~~Dim Name, Code As String Dim A, L As Long Name = CStr(Text1.Text) L = Len(Name) If L = 0 Then Text2.Text = "Input your name,Please!" Else For i = 1 To L A = A + (Asc(Mid(Name, i, 1)) Xor 100) Next i Code = A & "-" & A * 3389 Text2.Text = Code End If  |
|
|
 才发现，，用户名超过9位不行
|
|
|
凑个热闹..呵呵
 |
|
|
|
|
|
我也来玩玩！注册机就写不了！
|
|
|
我也来玩下!
 |
|
|
|
|
|
|
|
|
如果输入正确，在rtcMsgBox处的call不是应该调用对话框吗？ |
