- 帖子
- 431
- 积分
- 1577
- 技术
- 11
- 捐助
- 0
- 注册时间
- 2013-1-11
|
6楼
发表于 2013-7-17 21:29
| 只看该作者
我还试了 以下的 发送到的 VBS
if wscript.arguments.count=0 then
wscript.echo "请将文件拖放到本脚本上!"
wscript.quit
end if
dim fso,f
set fso = wscript.createobject("scripting.filesystemobject")
Set f = fso.GetFile(WScript.Arguments(0))
Set wsShell = CreateObject("WScript.Shell")
wsShell.Run "mshta vbscript:ClipboardData.SetData("&chr(34)&"text"&chr(34)&"," &Chr(34)& f&Chr(34)& ")(close)",0,True
set f = nothing
set fso = nothing
set wsshell = nothing
总之,最好取材越少越好,所用程序不能太多为上。 |
|