几K大小的代码生成器：批量发送QQ消息、批量短信、批量邮件、批量微信、批量发文件

lilyhcn1

桂花之流 发表于 2021-6-23 19:52
不行啊  我改好了 但是不能复制粘贴发送内容
旺旺的窗口倒是打开了

1. rem  ---------参数01---------
   
2. CreateObject("Wscript.Shell")
   
3. set ws=wscript.createobject("wscript.shell")
   
4. ws.appactivate "QQ"
   
5. ws.run "https://amos.alicdn.com/getcid.aw?spm=a360q.8274423.0.0.71584c9a1M9Qng&v=3&groupid=0&s=1&charset=utf-8&uid=参数1&site=cnalichn&fromid=cnalichn旺旺账号"
   
6. '写入信息到剪切板
   
7. Msg = "参数11"
   
8. ws.Run "mshta vbscript:ClipboardData.SetData("&chr(34)&"text"&chr(34)&"," &Chr(34)& Msg &Chr(34)& ")(close)",0,True
   
9. ws.appactivate "QQ"
   
10. '粘贴文字
    
11. wscript.sleep 1500
    
12. ws.sendKeys "^v"
    
13. wscript.sleep 2000
    
14. Set ws= Nothing

复制代码

改成上面代码试试

桂花之流

lilyhcn1 发表于 2021-6-23 16:57
看了一下你的代码，你应该懂了啊，
电脑没旺旺，也没有人聊，有兴趣可以私聊。

老哥 我论坛等级低 私聊不了，不如你发个联系方式 指导下我

lilyhcn1

桂花之流 发表于 2021-6-23 20:22
老哥 我论坛等级低 私聊不了，不如你发个联系方式 指导下我

5 3 053067

yellowhawk

这个功能很好，学习了，感谢分享！

EXCELHOMET

AA5242 发表于 2020-2-12 09:53
老师，，能调用微信发送吗

QQ得行，亲测，微信就不行了，

EXCELHOMET

wangweihebtu 发表于 2020-2-12 13:40
厉害，测试了一下，能发图片就好了

我用微信怎么不行，是我方法不对吗？谢谢！

EXCELHOMET

lilyhcn1 发表于 2020-2-14 21:57
这个版本牛，vbs版本有个问题，vba与vbs的定时会冲突，所以不好用。
这个版本，直接生成一个可以执行发vbs ...

微信呢不行

EXCELHOMET

乐乐2006201505 发表于 2020-4-3 16:37
名字吸睛，效果不佳。文件要先复制然后实现自动批量发同一个文件，如果能分别发送不同文件给不同人员就更 ...

我也在实现这个功能，不知道你现在达到了吗

[V]

学习了，感谢楼主的分享~

lilyhcn1

EXCELHOMET 发表于 2021-8-31 15:36
我也在实现这个功能，不知道你现在达到了吗

这个可以实现的，借助xclip.exe把文件复制到剪贴板
再粘贴到窗口

这个的难点在于文件路径的获取，这个比较麻烦，一般人都获取不了。