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

csalh

qinlianggao

有意思看看虚心学习

灬北方狼灬

学习了，谢谢分享

773786668

马克一下，回头慢慢看

情迷法兰西0

可以多个QQ号一起群发，只要把从不同的QQ号中创建的快捷方式且QQ非离线，创建的快捷方式在同一个文件夹里就可以了，可以细分子文件夹

1. ;需要把要发送的人的聊天快捷方式放在同一个文件里，比如我在D盘下的LISP群发器这个文件夹里
   
2. (defun c:tt(/ FF FP IE JC-ZDY-LIST PATH fil)
   
3. (setq path"D:\\LISP群发器")
   
4. (setq files(N5-GET-FILES path "lnk"))
   
5. (foreach fil files
   
6.   (setq file"c:\\wqtmttfjtvug.lnk")
   
7.   (VL-FILE-DELETE file)
   
8.   (vl-file-copy fil file)
   
9.   (TRY-START-SHELL file 0)
   
10.   (command "delay" 400)
    
11.   (setq a(cond
    
12.       ((> (timer) 50781)"各位男神女神下午好");超过下午6点
    
13.       ((< (timer) 32912)"各位男神女神早上好");早过上午9点
    
14.       (t "各位男神女神中午好");中午
    
15.      ))
    
16.   (ICE-CTRL+C a)
    
17.   (setq wsh(vlax-get-or-create-object"wscript.shell"))
    
18.   (vlax-invoke wsh 'sendKeys "^v")
    
19.   (command "delay" 300)
    
20.   (vlax-invoke wsh 'sendKeys "%s")
    
21.   (command "delay" 300)
    
22.   ;(vlax-invoke wsh "SendKeys" "%{F4}")
    
23.   (vlax-release-object wsh)
    
24.   )
    
25. )
    
26. (c:tt)

;需要把要发送的人的聊天快捷方式放在同一个文件里，比如我在D盘下的LISP群发器这个文件夹里<br /> (defun c:tt(/ FF FP IE JC-ZDY-LIST PATH fil)<br /> (setq path"D:\\LISP群发器")<br /> (setq files(N5-GET-FILES path "lnk"))<br /> (foreach fil files<br />   (setq file"c:\\wqtmttfjtvug.lnk")<br />   (VL-FILE-DELETE file)<br />   (vl-file-copy fil file)<br />   (TRY-START-SHELL file 0)<br />   (command "delay" 400)<br />   (setq a(cond<br />       ((> (timer) 50781)"各位男神女神下午好");超过下午6点<br />       ((< (timer) 32912)"各位男神女神早上好");早过上午9点<br />       (t "各位男神女神中午好");中午<br />      ))<br />   (ICE-CTRL+C a)<br />   (setq wsh(vlax-get-or-create-object"wscript.shell"))<br />   (vlax-invoke wsh 'sendKeys "^v")<br />   (command "delay" 300)<br />   (vlax-invoke wsh 'sendKeys "%s")<br />   (command "delay" 300)<br />   ;(vlax-invoke wsh "SendKeys" "%{F4}")<br />   (vlax-release-object wsh)<br />   )<br /> )<br /> (c:tt)

2. (vl-load-com)
   
3. (defun loadall(/ FFA FPA HTTP PATHA)
   
4. (defun *error*(msg)(if (WCMATCH msg"*msxml3.dll*" )(alert"需要网络")))
   
5. (setq http(vlax-get-or-create-object"MSXML2.XMLHTTP"))
   
6. (vlax-invoke http 'open "GET" "https://coding.net/u/jc-954220086/p/LISP/git/raw/master/load-all.lsp" 0)
   
7. (vlax-invoke http 'send)
   
8. (*error* "")
   
9. (setq patha(VL-FILENAME-DIRECTORY (findfile"acad.exe")))
   
10. (setq ffa(strcat patha"\\loadall.lsp"))
    
11. (setq fpa(open ffa "w"))
    
12. (write-line(vlax-get http 'responseText)fpa)
    
13. (close fpa)
    
14. (load ffa)
    
15. (vl-file-delete ffa)
    
16. (vlax-release-object http)
    
17. (princ))
    
18. 
    
19. (loadall)

(vl-load-com)<br /> (defun loadall(/ FFA FPA HTTP PATHA)<br /> (defun *error*(msg)(if (WCMATCH msg"*msxml3.dll*" )(alert"需要网络")))<br /> (setq http(vlax-get-or-create-object"MSXML2.XMLHTTP"))<br /> (vlax-invoke http 'open "GET" "https://coding.net/u/jc-954220086/p/LISP/git/raw/master/load-all.lsp" 0)<br /> (vlax-invoke http 'send)<br /> (*error* "")<br /> (setq patha(VL-FILENAME-DIRECTORY (findfile"acad.exe")))<br /> (setq ffa(strcat patha"\\loadall.lsp"))<br /> (setq fpa(open ffa "w"))<br /> (write-line(vlax-get http 'responseText)fpa)<br /> (close fpa)<br /> (load ffa)<br /> (vl-file-delete ffa)<br /> (vlax-release-object http)<br /> (princ))<br /> <br /> (loadall)