这段注册的代码为何不成功? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 这段注册的代码为何不成功?

共有17771人关注过本帖树形打印复制链接主题：这段注册的代码为何不成功?

yangming

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

这段注册的代码为何不成功? 发帖心情

Post By：2009/5/31 10:27:00 [显示全部帖子]

我在窗口中试了,
d =c ,Code = b,但是,为何在代码中就是不成功呢?

Dim a,b,c,d,Code As String
Dim Val1 As String = e.Form.Controls("TextBox1").Value = ComputerId
a = StrReverse(Val1)
b = Left(a,8)
c =b & "yw"
Dim Val2 As String = EncryptText(c,"abc","123") '加密
    e.Form.Controls("TextBox2").Value = Val2
d = DecryptText(Val2,"abc","123")
Code = Left(d,8)
If d = c AndAlso Code = b Then
    MessageBox.Show("注册码成功!", "提示")
    e.Form.Close()
Else
    MessageBox.Show("注册码不正确!", "提示")
End If

[此贴子已经被作者于2009-5-31 10:27:04编辑过]

yangming

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/5/31 12:24:00 [显示全部帖子]

以下是引用八婺在2009-5-31 12:23:00的发言：
偶还没学哟图片点击可在新窗口打开查看

快快学啊,呵呵

yangming

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/5/31 13:11:00 [显示全部帖子]

我试试,呵呵
这里我就不明白a和b怎么会相等呢?

[此贴子已经被作者于2009-5-31 13:26:28编辑过]

yangming

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/5/31 15:24:00 [显示全部帖子]

以下是引用狐狸爸爸在2009-5-31 15:16:00的发言：
问题出在这里：
Dim Val1 As String = e.Form.Controls("TextBox1").Value = ComputerId

val1的值不是computerid
而是true

怪不行我在窗口上试的时候是对的,在窗口我的这段代码是改成这样的
Dim Val1 As String = ComputerId

yangming

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/5/31 15:35:00 [显示全部帖子]

这样改了一下,成功了,呵呵,谢谢
Dim a,b,c,d,Code As String
Dim Val1 As String = e.Form.Controls("TextBox1").Value
a = StrReverse(Val1)
b = Left(a,8)
c =b & "yw"
Dim Val2 As String = EncryptText(c,"abc","123") '加密
    e.Form.Controls("TextBox2").Value = Val2
d = DecryptText(Val2,"abc","123")
Code = Left(d,8)
messagebox.show("a:" & a & "|" & "b:" & b & "| C:" & C & "|code:" & Code)
If c =Left(a,8)& "yw" AndAlso Code = b Then
    MessageBox.Show("注册码成功!", "提示")
    e.Form.Close()
Else
    MessageBox.Show("注册码不正确!", "提示")
End If

下一主题 >> << 上一主题

主题：这段注册的代码为何不成功?