有意思看看虚心学习
学习了，谢谢分享
马克一下，回头慢慢看
本帖最后由 情迷法兰西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)