以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于开发程序注册加密  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=135789)
--  作者：hopestarxia
--  发布时间：2019/6/3 12:04:00
--  关于开发程序注册加密
老师，开发的程序使用软加密的方式，
能否将 “命令窗口”注册计算注册码设计成一个窗口，且可以发布后运行？
当前发现Syscmd.Project.CommandWindow()调出命令窗口，在发布后则无法运行，没有反应。
想直接做一个注册的程序，只要输入机器码，点生成，就计算出注册码。
--  作者：有点甜
--  发布时间：2019/6/3 12:48:00
--  

发布后，不能使用【开发】功能。

 

如果你要做注册码的功能，你可以单独做一个窗口，把代码写到按钮里面。
--  作者：hopestarxia
--  发布时间：2019/6/3 13:14:00
--  
请教老师这个代码怎么写？
--  作者：有点甜
--  发布时间：2019/6/3 15:47:00
--  
以下是引用hopestarxia在2019/6/3 13:14:00的发言：
请教老师这个代码怎么写？

 

Dim str = EncryptText(e.form.controls("textbox1").text, "abc", "abc")

msgbox(str)

e.form.controls("textbox2").text = str

 

 

 
--  作者：hopestarxia
--  发布时间：2019/6/3 15:51:00
--  
已解决。
--  作者：hopestarxia
--  发布时间：2019/6/3 15:52:00
--  
谢谢老师，
Dim Val1 As String = e.Form.Controls("TextBox1").Value
Dim Val2 As String = EncryptText(Val1,"abc","abc") \'加密
e.Form.Controls("TextBox2").Value = Val2