主题：这个命令窗口怎么用代码打开啊？

此主题相关图片如下：捕获.png

帮助里没有找到关联的帮助，

我主要是想做个解码的 窗口，

点按钮后，打开这个窗口，来解码

发布以后，这个窗口不能用了。

你可以自己做一个这样的窗口

Functions.remove("函数")
Dim Code As String
Code = e.Fomr.Controls("TextBox1").Text
Functions.Add("函数",Code)
Functions.Complie()
Functions.Execute("函数")

没有看明白？这个窗口怎么做呢？ 代码写哪里？

按钮里面好像是不好用？那写在哪里呢？

自己设计一个窗口，窗口有一个TextBox文本框，一个按钮。

2楼的代码放在按钮事件中，在文本框输入代码，点击按钮就可以运行文本框里的代码

Functions.remove("Output.Show(EncryptText("用户提供的机器码","abc","abc"))")
Dim Code As String
Code = e.Form.Controls("TextBox1").Text
Functions.Add("Output.Show(EncryptText("用户提供的机器码","abc","abc"))",Code)
Functions.Complie()
Functions.Execute("Output.Show(EncryptText("用户提供的机器码","abc","abc"))")

是这样么？

没有办法用啊？

动态函数用法：

Functions.remove("函数名")

Functions.Add("函数名","代码体")

-------------------

Functions.remove("显示机器码")

Dim Code As String
Code = e.Form.Controls("TextBox1").Text
Functions.Add("显示机器码",Code)

Functions.Complie()
Functions.Execute("显示机器码")

在TextBox1写如你要执行的所有代码，比如 msgbox(12345678)，然后在按钮写下面的代码

Functions.remove("函数")
Dim Code As String
Code = e.Fomr.Controls("TextBox1").Text
Functions.Add("函数",Code)
Functions.Complie()
Functions.Execute("函数")