欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

:小弟我被vbs搞懵了

更新时间: 2014-01-05 01:52:29 责任编辑: Author_N1

 

求救:我被vbs搞懵了。
是这样的。我的要求其实很简单:通过vbs脚本打开指定路径的txt文件,然后全选里面的内容剪切到剪贴板,然后关闭此文件。

我写了一个老是出错,我不知道怎么回事。请教VBS高手。感激不尽

我写的
set ws=createobject("wscript.shell")
ws.Run "C:\StudyInfo\Study\VBS\ReadyData.txt"
ws.AppActivate "ReadyData.txt - Notepad"
'ws.Popup
ws.SendKeys "^A"
ws.SendKeys "^C"
ws.SendKeys "%{F4}"

--参考方法--
VBScript code
Set S=CreateObject("Scripting.FileSystemObject")
Set F=S.OpenTextFile("D:\aaaa.txt")
LL=F.ReadAll
Set ie = CreateObject("internetexplorer.application") 
ie.navigate "about:blank" 
ie.document.parentwindow.clipboarddata.SetData "text", LL
ie.Quit

--参考方法--
VBScript code
set ws=createobject("wscript.shell") 
ws.Run "C:\StudyInfo\Study\VBS\ReadyData.txt" 
ws.AppActivate "ReadyData.txt - Notepad" 
'ws.AppActivate "ReadyData.txt - 记事本" 中文版的话 
WScript.Sleep 1000 '延时
'ws.Popup 
ws.SendKeys "^a" 
WScript.Sleep 200
ws.SendKeys "^c" 
WScript.Sleep 200
ws.SendKeys "%{F4}" 			
			
		
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 01:52:29
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/2345/
本文WWW.DOC100.NET DOC100.NET版权所有。