- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]发布后的程序，打开后注册窗口不显示机器码？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=72427)
-- 发布时间：2015/7/30 9:22:00
-- [求助]发布后的程序，打开后注册窗口不显示机器码？
发布后的程序，打开后注册窗口不显示机器码？也就是自动获取机器码的文本框是空的，不知什么原因，也没有动过哪里呀!
[此贴子已经被作者于2015/7/30 9:22:21编辑过]
-- 发布时间：2015/7/30 23:43:00
--
1、加入msgbox(ComputerId)看弹出什么。
2、有可能是win7、8电脑，你没有权限获取硬件信息
-- 发布时间：2015/8/11 10:55:00
--
把截图放上来了，也没有动哪里。操作系统还是原来的操作系统，狐表还是原来的狐表，2015.5.10发布的就没有问题，现在发布的就出现这种情况，注册代码也没有更改过。大红袍老师的方法试过，正常显示机器码。发布后登录就显示如下图
此主题相关图片如下：注册.jpg
[此贴子已经被作者于2015/8/11 10:55:32编辑过]
-- 发布时间：2015/8/11 11:03:00
--
叫你程序里加入 msgbox(ComputerId)
看弹出什么。
-- 发布时间：2015/8/11 11:06:00
--
您是说在命令窗口吗？
-- 发布时间：2015/8/11 11:08:00
--
以下是引用bigeng在2015/8/11 11:06:00的发言：
您是说在命令窗口吗？
您是说在命令窗口吗？
afterOpenProject事件，或者注册窗口afterLoad事件，或者加一个按钮点击。
都可以啊
-- 发布时间：2015/8/11 11:34:00
--
如下
此主题相关图片如下：测试.jpg
-- 发布时间：2015/8/11 11:37:00
--
afteropenproject代码：
Dim Count As Integer
Count = Registry.GetValue("HKEY_CURRENT_USER\\Software\\MyApp","Count",0)
Registry.SetValue("HKEY_CURRENT_USER\\Software\\MyApp","Count",Count + 1)
Dim n As Integer = GetConfigValue("Count",1)
Dim Code As String = GetConfigValue("Register" & ComputerId,"")
Dim Ok As Boolean
If Code > "" AndAlso DecryptText(Code,"lxl","yt#") = ComputerId Then \'如果注册码正确
OK = True
Else
If n > 2 Then
msgbox(ComputerId)
Forms("注册").Open()
msgbox(ComputerId)
Code = GetConfigValue("Register" & ComputerId,"")
If Code > "" AndAlso DecryptText(Code,"***","***") = ComputerId Then \'如果注册码正确
OK = True
End If
End If
If n > 10 AndAlso Ok = False Then
Messagebox.Show("您正在使用的产品已经超出试用次数!")
Syscmd.Project.Exit()
End If
End If
n = n + 1
SaveConfigValue("Count",n)
注册窗口的afterload代码：
e.Form.Controls("TextBox1").Value = ComputerId
e.Form.Controls("TextBox2").Value = GetConfigValue("Register" & ComputerId, "")
-- 发布时间：2015/8/11 11:37:00
--
既然，弹出正常，那么就只能说明，你没有给textbox控件赋值。
-- 发布时间：2015/8/11 11:41:00
--
代码贴出来了，大红袍老师给看一下