如何用母VBS释放子VBS 就是用一个VBS用Fso对象来新建一个Test.vbs并写入代码 ms
如何用母VBS释放子VBS就是用一个VBS用Fso对象来新建一个Test.vbs并写入代码msgbox“Hello”(就是一个生成指定vbs代码并另存的vbs,需要被释放...
如何用母VBS释放子VBS 就是用一个VBS用Fso对象来新建一个Test.vbs并写入代码 msgbox “Hello”(就是一个生成指定vbs代码并另存的vbs,需要被释放的vbs可正常执行)求大神发源码。
展开
展开全部
请看代码:
On Error Resume Next
Dim fso,wri
Set fso=Wscript.CreateObject("Scripting.FileSystemObject")
Set wri=fso.CreateTextFile("Test.vbs",True)
wri.WriteLine("MsgBox "+Chr(34)+"Hello"+Chr(34))
'用Chr(34)来代替双引号.
wri.Close
Set fso=Nothing
Set wri=Nothing
(*^__^*) 嘻嘻……
更多追问追答
追问
目测可行耶 我等下测试下后给好评哈
追答
哦,我测试过了,可行,采纳我吧~
展开全部
Set fso=CreateObject("scripting.filesystemobject")
Set ff=fso.OpenTextFile("c:\123.vbs",8,true)
str="msgbox "+chr(34)+"hello world"+chr(34)
ff.Write str
Set ff=Nothing
Set fso=nothing
Set ff=fso.OpenTextFile("c:\123.vbs",8,true)
str="msgbox "+chr(34)+"hello world"+chr(34)
ff.Write str
Set ff=Nothing
Set fso=nothing
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
这个简单啊创建fso,用opentextfile和write方法,搞定,只是在"hallo"需用双引号
更多追问追答
追问
问题在这:file.writeline “msgbox ”hallo“”
我想要的是:
file.writeline “msgbox “hallo””
请注意前后引号,在电脑中是无法识别的。
问题执行编译就是
写入 msgbox + %变量hallo%
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询