马上有好事!原创纯Lisp实现腾讯QQ群发器,同时支持好友批量发消息.源码免币下载!

不死猫 · 发表于 2014-1-1 10:22

本帖最后由不死猫于 2014-1-1 20:53 编辑

同学们，2014年马上就要到了,马上有更好的lisp教程书籍,马上有更好用的lisp编辑器,马上有更好玩的lisp开发工具与大家见面,猫老师致力于简化Lisp开发,致力于更简单易学的Lisp教程,明年也会继续提供在线的免费Lisp视频教学.猫老师希望与大家共同进步.让我们的工作更加简单,编程更加简单,节省开发的时间用到更有意义的事情上,谢谢你们的支持.
======================================================================
猫老师新书QQ群(2群)号码:191827341

方便大家群发qq消息,此方法也同样适用于类似的聊天工具.
方法及原理见代码注释.
源代码在这里:)通用发送版
回车发送版

=====================================================
今年新作品预览,敬请期待:

情迷法兰西0 · 发表于 2017-9-23 14:36

本帖最后由情迷法兰西0 于 2017-9-23 14:38 编辑

可以多个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)

773786668 · 发表于 2017-9-22 10:30

马克一下，回头慢慢看

q3_2006 · 发表于 2014-1-1 10:26

玩玩...看好用不...

陈亚娣 · 发表于 2014-1-1 10:26

猫老师出品，顶一下

不死猫 · 发表于 2014-1-1 10:26

本帖最后由不死猫于 2014-1-1 10:28 编辑

同学们，2014年马上就要到了,马上有更好的lisp教程书籍,马上有更好用的lisp编辑器,马上有更好玩的lisp开发工具与大家见面,猫老师致力于简化Lisp开发,致力于更简单易学的Lisp教程,明年也会继续提供在线的免费Lisp视频教学.猫老师希望与大家共同进步.让我们的工作更加简单,编程更加简单,节省开发的时间用到更有意义的事情上,谢谢你们的支持.

9m六儿 · 发表于 2014-1-1 10:28

试试看

cht0221 · 发表于 2014-1-1 10:29

支持，支持啊！

aroom · 发表于 2014-1-1 10:30

新年来了，猫猫出新品了，赞！

语默有常 · 发表于 2014-1-1 10:35

新年快乐。。。。。。。。。。。。。

flyfox1047 · 发表于 2014-1-1 10:39

吟诵思念的诗;高唱赞美的曲;敲响新年的钟;传出祝福的讯息。2013年的时光已经远去，珍贵的情谊还在延续，一起展望美好的2014，祝各位新年快乐!

h008 · 发表于 2014-1-1 10:55

逆天了！想都不敢想的东西啊

账号		自动登录	找回密码
密码			注册

[【不死猫】] 马上有好事!原创纯Lisp实现腾讯QQ群发器,同时支持好友批量发消息.源码免币下载!

本帖子中包含更多资源

评分

本帖被以下淘专辑推荐: