Board logo

标题: [问题求助] 求大哥们帮忙,怎么写一个复制粘贴的VBS代码? [打印本页]

作者: 列虚子    时间: 2021-1-3 20:05     标题: 求大哥们帮忙,怎么写一个复制粘贴的VBS代码?

  1. On Error Resume Next
  2. str="这里是你想说的话str1"
  3. Set Wshshell=WScript.CreateObject("WScript.Shell")
  4. WshShell.run"mshta vbscript:clipboardData.SetData("+""""+"text"+""""+","+""""&str&""""+")(close)",0,true
  5. WshShell.run"这里是你要发送到对方QQ的快捷方式str2"
  6. WScript.Sleep 1000
  7. WshShell.SendKeys"^v"
  8. WScript.Sleep 1000
  9. WshShell.SendKeys "%s"
  10. WScript.Sleep 1000
  11. WshShell.SendKeys"%{F4}"
复制代码
我照着这个代码,想把它改成,运行该vbs后,复制某个指定目录的文件,到QQ对话框然后发送。
比如复制C:111.exe 我是个门外汉,自己搞了一下午头都快大了,求大家帮帮我吧!
作者: 列虚子    时间: 2021-1-3 20:06

后面那些我都看得懂,就是不知道怎么改成复制某个文件




欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2