[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[转贴] VBScript脚本复制图片到剪切板

  1. imgpath="C:\BatHome.jpg" '在此位置输入你的图片绝对路径
  2. temphtm="temp.html"
  3. Set fso=CreateObject("scripting.filesystemobject")
  4. Set fs=fso.CreateTextFile(temphtm)
  5. fs.WriteLine "<Img Src='" & imgPath & "' id='TempImg'></img>"
  6. fs.Close
  7. Set fs=fso.GetFile(temphtm)
  8. Set ie=CreateObject("internetexplorer.application")
  9. ie.Navigate fs.path
  10. ie.Visible=False
  11. Do
  12. WScript.Sleep 100
  13. Loop Until ie.ReadyState=4
  14. Set ctrl = ie.document.body.createControlRange
  15. set oImg = ie.Document.getElementById("TempImg")
  16.     oImg.contentEditable = true
  17.     ctrl.add oImg
  18.     ctrl.execCommand "Copy"
  19.     oImg.contentEditable = false
  20.     ie.Quit
  21. fs.Delete
  22. MsgBox "已经成功复制图片到剪切板"
复制代码
出自某VBS群

返回列表