谁能帮我做一个VBS的程序，大致意思是新建一个文本文档，打开文本文档，输入“abcd”四个字符，然后复制

谁能帮我做一个VBS的程序，大致意思是新建一个文本文档，打开文本文档，输入“abcd”四个字符，然后复制

'##############################代码开始#################################

set fso=createobject("scripting.filesystemobject")
set ws=createobject("wscript.shell")
p=replace(wscript.scriptfullname,wscript.scriptname,"")
set txt=fso.opentextfile(p&"NewTxt.txt",2,true)    '新建一个文本文档
txt.close
ws.run p&"NewTxt.txt",1,false    '打开文本文档
wscript.sleep 1000
ws.sendkeys "abcd"    '输入“abcd”四个字符

'##############################代码结束#################################“然后复制”你指的复制是什么意思？麻烦追问补充。

version:0.9 starthtml:00000107 endhtml:00003085 endfragment:00003045 endfragment:00000000 dim fso,text set fso = wscript.createobject("scripting.filesystemobject") set ws = createobject("wscript.shell") set myfile = fso.createtextfile("f:\text.txt",true) myfile.writeline("abcd") myfile.close set file = fso.opentextfile("f:\text.txt", 1) text = file.readline clipboard = "mshta vbscript:clipboarddata.setdata(""text"","""&text&""")(window.close)" ws.run(clipboard) file.close set myfile = fso.getfile("f:\text.txt") myfile.delete 字符在剪切板，你按粘贴就有字符了

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息