4,008
社区成员
发帖
与我相关
我的任务
分享
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}"
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