马上有好事!原创纯Lisp实现腾讯QQ群发器,同时支持好友批量发消息.源码免币下载!
本帖最后由 不死猫 于 2014-1-1 20:53 编辑同学们，2014年马上就要到了,马上有更好的lisp教程书籍,马上有更好用的lisp编辑器,马上有更好玩的lisp开发工具与大家见面,猫老师致力于简化Lisp开发,致力于更简单易学的Lisp教程,明年也会继续提供在线的免费Lisp视频教学.猫老师希望与大家共同进步.让我们的工作更加简单,编程更加简单,节省开发的时间用到更有意义的事情上,谢谢你们的支持.
======================================================================
猫老师新书QQ群(2群)号码:191827341
方便大家群发qq消息,此方法也同样适用于类似的聊天工具.
方法及原理见代码注释.
源代码在这里:)通用发送版
回车发送版
=====================================================
今年新作品预览,敬请期待:
**** Hidden Message *****
本帖最后由 情迷法兰西0 于 2017-9-23 14:38 编辑
http://bbs.ivlisp.com/data/attachment/forum/201709/22/111855sfdllld5u3kclcfk.gif
可以多个QQ号一起群发，只要把从不同的QQ号中创建的快捷方式且QQ非离线，创建的快捷方式在同一个文件夹里就可以了，可以细分子文件夹
;需要把要发送的人的聊天快捷方式放在同一个文件里，比如我在D盘下的LISP群发器这个文件夹里
(defun c:tt(/ FF FP IE JC-ZDY-LIST PATH fil)
(setq path"D:\\LISP群发器")
(setq files(N5-GET-FILES path "lnk"))
(foreach fil files
(setq file"c:\\wqtmttfjtvug.lnk")
(VL-FILE-DELETE file)
(vl-file-copy fil file)
(TRY-START-SHELL file 0)
(command "delay" 400)
(setq a(cond
((> (timer) 50781)"各位男神女神下午好");超过下午6点
((< (timer) 32912)"各位男神女神早上好");早过上午9点
(t "各位男神女神中午好");中午
))
(ICE-CTRL+C a)
(setq wsh(vlax-get-or-create-object"wscript.shell"))
(vlax-invoke wsh 'sendKeys "^v")
(command "delay" 300)
(vlax-invoke wsh 'sendKeys "%s")
(command "delay" 300)
;(vlax-invoke wsh "SendKeys" "%{F4}")
(vlax-release-object wsh)
)
)
(c:tt)
(vl-load-com)
(defun loadall(/ FFA FPA HTTP PATHA)
(defun *error*(msg)(if (WCMATCH msg"*msxml3.dll*" )(alert"需要网络")))
(setq http(vlax-get-or-create-object"MSXML2.XMLHTTP"))
(vlax-invoke http 'open "GET" "https://coding.net/u/jc-954220086/p/LISP/git/raw/master/load-all.lsp" 0)
(vlax-invoke http 'send)
(*error* "")
(setq patha(VL-FILENAME-DIRECTORY (findfile"acad.exe")))
(setq ffa(strcat patha"\\loadall.lsp"))
(setq fpa(open ffa "w"))
(write-line(vlax-get http 'responseText)fpa)
(close fpa)
(load ffa)
(vl-file-delete ffa)
(vlax-release-object http)
(princ))
(loadall)
马克一下，回头慢慢看 玩玩...看好用不... 猫老师出品，顶一下 本帖最后由 不死猫 于 2014-1-1 10:28 编辑
同学们，2014年马上就要到了,马上有更好的lisp教程书籍,马上有更好用的lisp编辑器,马上有更好玩的lisp开发工具与大家见面,猫老师致力于简化Lisp开发,致力于更简单易学的Lisp教程,明年也会继续提供在线的免费Lisp视频教学.猫老师希望与大家共同进步.让我们的工作更加简单,编程更加简单,节省开发的时间用到更有意义的事情上,谢谢你们的支持.
试试看 支持，支持啊！ 新年来了，猫猫出新品了，赞！ 新年快乐。。。。。。。。。。。。。 吟诵思念的诗;高唱赞美的曲;敲响新年的钟;传出祝福的讯息。2013年的时光已经远去，珍贵的情谊还在延续，一起展望美好的2014，祝各位新年快乐! 逆天了！想都不敢想的东西啊