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://www.bathome.net/) Powered by Discuz! 7.2