注册 登录
编程论坛 VB6论坛

请教:Command1功能是用Text1的函数代码处理Text2的内容显示在Text3

月清晖 发布于 2013-03-30 11:17, 560 次点击
请教:Command1功能是用Text1的函数代码处理Text2的内容显示在Text3

其实就是方便使用自定义函数,主要用于asp的自定义函数解密

来张图更直观
只有本站会员才能查看附件,请 登录



已经实现的部分死代码
程序代码:
Private Sub jieking_Click()

Text1.Text = Mid(Text1.Text, HeadlonV.Text + 1, Len(Text1.Text) - HeadlonV.Text - TaillonV.Text - 2)

Text2.Text = king(Text1.Text) & vbCrLf

Clipboard.Clear

Clipboard.SetText Text2.Text

End Sub
我希望的是代码是活动的,不知是不是这么表述,希望各位慷慨地给出自己的方法!
4 回复
#2
seafish0112013-03-31 00:05
这个想法很好,但是可以实现么?还是等大手来吧
#3
月清晖2013-03-31 13:03
回复 2楼 seafish011
查到相关信息,貌似要用类解决,完全不会啊~
#4
seafish0112013-03-31 17:53
回复 3楼 月清晖
不知道你这个功能要不要生成EXE来执行的?如果不生成EXE文件的话,在IDE环境下你试下用EbExecuteLine。

或者你看下这个问题可不可以这样变通:生成VBS文件,然后用SHELL来执行。
#5
风吹过b2013-03-31 19:23
或许可以用 VBA 弄。
把输入的代码当作 VBA,然后使用 执行 VBA 的命令调用。
我没弄过,也没考虑过这个问题,VBA 调用,我也不太清楚。
1