QQ聊天好友群发

;需要只有一个QQ运行
;指定一个放置祝福语的txt 一行一条
;553924514
FileSelectFile, words_file, , , 祝福语文本, (*.txt)
FileSelectFile, qq_file, , , QQ好友CSV 第一列好友名 第二列QQ号 逗号分隔, (*.csv)
if (!words_file || !qq_file)
	ExitApp
FileRead, tmp_str, % words_file
words := StrSplit(tmp_str,"`n","`r")
FileRead, tmp_str, % qq_file
qqs := StrSplit(tmp_str,"`n","`r")
loop % qqs.Maxindex()
{
	if RegExMatch(qqs[A_Index],"(.*),(.*)",qq)
	{
		Random, tmp_idx, 1, % words.Maxindex()
		SendQQ(qq2,qq1 "," words[tmp_idx] "`nThinkai敬上")
	}
}
return


SendQQ(QQ,msg){
global WB
WB=
Gui, Destroy
Gui Add, ActiveX, vWB, Shell.Explorer
gui, Hide
WB.Navigate("http://wpa.qq.com/msgrd?v=3&uin=" QQ "&site=qq&menu=yes")
;未开通
;WB.document.url="http://shang.qq.com/email/stop/email_stop.html?qq=8888888888&sig=8d61b9334e00d898e86ad0b41333e991db86b4e8ab1785d0&tttt=1"
WinWaitActive, ahk_class TXGuiFoundation, , 3
if ErrorLevel
	return -1
WinGetActiveTitle, title
clip := ClipboardAll
Clipboard := msg
Send, ^v
Sleep, 200
Send, {Enter}
Sleep, 200
Clipboard := clip
WinClose, % title
}



























给TA捐赠
共{{data.count}}人
人已捐赠
其他

01_安装电脑软件的步骤批处理脚本.bat

2020-3-15 19:55:18

其他教程

Radmin多主机自动登录

2020-3-17 3:59:31

个人中心
购物车
优惠劵
有新私信 私信列表
搜索