![]() |
#2
seafish0112013-03-31 00:05
|
其实就是方便使用自定义函数,主要用于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
我希望的是代码是活动的,不知是不是这么表述,希望各位慷慨地给出自己的方法! 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