预先吧比如对象的引用的文本定义好《比如set shell=creat("winscrpt.shell")，我写的语法可能有错因为没学VBS脚本，学过VB。
你把那个预先定义好的对象引用和文本框的代码写入一个文件，比如execute~temp.vbs。
然后Shell"wscript.exe 路径\execute~temp.vbs。这样就可以执行你文本框输入的脚本啦。
1L:vbs就相当于vb的儿子,学过vb没学过vbs.这说明你没认真学!
Function Script(ByVal Text)
Dim Scripts As Object
Set Scripts = CreateObject("scriptcontrol")
Scripts.Language = "vbs"
Scripts.ExecuteStatement Text
End Function
'调用script函数,调用的时候只要写上控件名就行了
'比如script text1.text等等
我那有，记得是EbExecuteLine 什么的，有空给你找一下。
或者你上网查一下。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024