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

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

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

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编辑过]

八婺

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

加好友

发短信

等级：童狐帖子：252 积分：1355 威望：0 精华：0 注册：2009/4/5 13:06:00

Post By：2009/5/31 12:23:00 [只看该作者]

偶还没学哟

yangming

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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的发言：
偶还没学哟图片点击可在新窗口打开查看

快快学啊,呵呵

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47476 积分：251245 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/5/31 13:08:00 [只看该作者]

可以用用Messagebox显示一下各个关键变量的值，大概就可以知道怎么回事的：

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)
messagebox.show(a & "|" & b & "|" & C & "|" & Code)
If a=b AndAlso Code = c Then
    MessageBox.Show("注册码成功!", "提示")
    e.Form.Close()
Else
    MessageBox.Show("注册码不正确!", "提示")
End If

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47476 积分：251245 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/5/31 13:11:00 [只看该作者]

还有这一行也错了吧？

Dim Val1 As String = e.Form.Controls("TextBox1").Value = ComputerId

yangming

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47476 积分：251245 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/5/31 15:16:00 [只看该作者]

问题出在这里：
Dim Val1 As String = e.Form.Controls("TextBox1").Value = ComputerId

val1的值不是computerid
而是true

yangming

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

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

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