以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  自行编写程序为软件注册  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=173095)

--  作者:zyxhx
--  发布时间:2021/11/15 11:31:00
--  自行编写程序为软件注册
请问 如何自行编写一个注册程序为软件注册?
直接运行程序即生成注册码?
[此贴子已经被作者于2021/11/15 11:31:15编辑过]

--  作者:有点蓝
--  发布时间:2021/11/15 13:42:00
--  
参考:http://www.foxtable.com/webhelp/topics/1545.htm
--  作者:zyxhx
--  发布时间:2021/11/15 14:21:00
--  
我的意思是自己设置的生成注册码的程序,而不是用foxtable内置的命令窗口去生成注册码。
--  作者:有点蓝
--  发布时间:2021/11/15 14:25:00
--  
没看懂您的意思。2楼就是自己设计的窗口,不是系统的命令窗口
--  作者:zyxhx
--  发布时间:2021/11/15 14:31:00
--  
我的意思是:当我按2楼的方法为软件设置了注册程序后,我作为开发者需要为用户提供注册码,我是否可以编辑一个注册码生成器通过用户提供的机器码为用户生成一个注册码,而不需要打开FOXtable里面的命令窗口去生成注册码。
[此贴子已经被作者于2021/11/15 14:31:35编辑过]

--  作者:有点蓝
--  发布时间:2021/11/15 14:38:00
--  
汗!!您设计一个窗口调用生成注册码的代码不就行了。帮助说在命令窗口执行的,就只能在命令窗口执行?
--  作者:zyxhx
--  发布时间:2021/11/15 14:58:00
--  
需要请老师指点,我不晓得如何调用。
--  作者:有点蓝
--  发布时间:2021/11/15 15:17:00
--  
e.form.controls("xx文本框")。text= EncryptText("用户提供的机器码","abc","abc")
--  作者:zyxhx
--  发布时间:2021/11/15 15:32:00
--  
谢谢谢谢!谢谢老师指点!
我现在这样写的可以吗?

Dim txt1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim txt2 As WinForm.TextBox = e.Form.Controls("TextBox2")
If txt1.text <> "" Then    
    txt2.text = EncryptText(txt1.text,"abc","abc")
Else
    txt2.text= ""
End If

请问代码 “abc” 可以更换成其它字符吗?
[此贴子已经被作者于2021/11/15 16:17:01编辑过]

--  作者:zyxhx
--  发布时间:2021/11/15 16:25:00
--  
另外,如果自己设计了一个注册码生成窗口,怎样让发布后的程序只打开这个注册窗口而不显示大的主界面?