vbs qq自动发信息增强版，vbsqq信息增强版

vbs qq自动发信息增强版，vbsqq信息增强版

dim ctr
ctr=0
const pass="eqhp"
do
On Error Resume Next
Dim wsh,ye,a,b,c
msgbox("使用方法：先打开QQ聊天窗口,按“确定”继续。在任意一个窗口中输入“eqhp”直接退出程序（已循环")&ctr&("次 /15次）")
a=inputbox("请输入骚扰信息的内容：")
b=inputbox("请输入发送信息的数量：")
c=inputbox("请输入发送信息的频率：")
set wsh=createobject("wscript.shell")
for i=1 to b
wscript.sleep 100*c
wsh.AppActivate("与 xx 聊天中")
wsh.sendkeys a
next
ctr=ctr+1
if ctr=15 then
msgbox("循环15次，程序结束")
exit do
else if a=pass then
exit do
else if b=pass then
exit do
else if c=pass then
exit do
end if
end if
end if
end if
loop

邮件已经发送
 

是吗？屏蔽了没错 是屏蔽了sendkeys? 那你试试我的 虽然不一定成功 但是 密码和帐号绝对可以输入~
Dim Program1,a,b
Program1= "D:\Progra~1\Tencent\QQ\QQ.exe" 'QQ路径
Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Program1)
WScript.Sleep 1000
WshShell.AppActivate "Q登录"
wshShell.SendKeys "+{TAB}"
a="QQ帐号"
WshShell.SendKeys a
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
b="QQ密码"
WshShell.SendKeys b
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"