批量登陆qq源码

Ⅰ 谁有易语言写的qq批量登陆的源码，谁有啊

我有，但是给分我才给你

Ⅱ 手机上，批量登陆赞qq空间说说的iapp源码,谁知道，告诉一下。谢谢

去找接口，然后用post提交

Ⅲ 求QQ网页自动登录代码

源代码如下：

Dim WshShell, QQPath, QQselect
QQPath="c:\Progra~1\Tencent\QQ\CoralQQ.exe"
Set
WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run
QQPath
WScript.Sleep 2000
WshShell.AppActivate "QQ登录"
WshShell.SendKeys
"+{TAB}"
WshShell.SendKeys "123456789"
WScript.Sleep 200
WshShell.SendKeys
"{TAB}"
WshShell.SendKeys "123456789"
WScript.Sleep 200
WshShell.SendKeys
"{ENTER}"

复制以上代码并保存为“*.VBS”，并运行便可以了。另外因为在命令行下，只支持8位字符长度的文件名，所以像“ProgramFiles”的这种文件名就要改写成“Progra~1”。如果想同时登陆多个QQ,只需再增加下面那样的代码就可以了.红色为QQ.exe所在硬盘的路径，蓝色改为QQ号码，绿色改为此QQ号码的密码。

WScript.Sleep 2000
QQPath="D:\Progra~1\Tencent\QQ\CoralQQ.exe"'QQ所在路径
Set
WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run
QQPath
WScript.Sleep 2000
WshShell.AppActivate
"QQ登录1"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "123456789"
WScript.Sleep 200
WshShell.SendKeys
"{TAB}"
WshShell.SendKeys "123456789"
WScript.Sleep 200
WshShell.SendKeys
"{ENTER}"

Ⅳ 易语言写批量登陆 QQ.txt文件里面的帐号和密码格式怎么写高手看下谢谢！

看不懂，太乱了...下次提问记得注意分行...源码连在一起看的蛋疼
大概思路给你吧
账号密码的话可以分割两次。假设格式是：QQ号|密码/QQ号|密码
那么弄两个数组。第一个先分割/符号，判断有多少个QQ号在记录里面
然后计次循环。循环次数就是第一个数组的数组成员数
循环的时候把第一个数组再次用|符号分割。就可以分别获得QQ号和密码了
当然，用换行符也可以。不过推荐去学下数据库。只要会加记录，读记录，删记录三个命令就可以了，不复杂。而且比直接写出文件来读取方便

Ⅳ VBS批量登陆多个QQ谁会弄啊，给弄一个

1、登陆一个QQ

Dim Program1,a,b
Program1= "D:\Program Files\Tencent\QQ\Bin\QQ.exe"
Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Program1)
WScript.Sleep 1000
WshShell.AppActivate "QQ2010"
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}"

2、登陆多个QQ（自动批处理文件.bat，可用，但每号需要点下DOS窗口，并按任意键一次）

@echo off
title 利用批处理+VBS自动登录多个QQ
Rem 适用于QQ2009、2010
set qqpath=D:\Program Files\Tencent\QQ\Bin\QQ.exe
Rem 设置QQ程序的路径
if exist qq.vbs del qq.vbs
rem <!--登陆第一个QQ开始 Begin------------------------------------------------------->
set u=QQ号1
rem 设置第一个QQ的号码,u - username
set p=QQ密码1
rem 设置第一个QQ的密码,p - password
echo set qq=WScript.CreateObject("WScript.shell")>qq.vbs

echo qq.Run """%qqpath%""">>qq.vbs
rem 路径含空格必须加三组双引号，最内组双引号在解读时被识别为含空格的文件路径。
echo WScript.Sleep 2000 >>qq.vbs
echo qq.SendKeys "+{TAB}">>qq.vbs
echo qq.SendKeys "%u%">>qq.vbs
echo WScript.Sleep 200 >>qq.vbs
echo qq.SendKeys "{TAB}">>qq.vbs
echo qq.SendKeys "%p%">>qq.vbs
echo WScript.Sleep 200 >>qq.vbs
echo qq.SendKeys "{TAB}">>qq.vbs
echo qq.SendKeys "{DOWN}">>qq.vbs
echo qq.SendKeys "{UP}">>qq.vbs
echo qq.SendKeys "{ENTER}">>qq.vbs
echo WScript.Sleep 200 >>qq.vbs
echo qq.SendKeys "{TAB}">>qq.vbs
echo WScript.Sleep 200 >>qq.vbs
echo qq.SendKeys "{ENTER}">>qq.vbs
qq.vbs
del qq.vbs
echo 正在登陆QQ，按任意键登陆下一个QQ... &&pause>nul
rem 需要使用pause中断程序运行，释放内存，否则下一个qq.vbs文件将无法正常运行。
Rem <!--第一个QQ登陆完毕!End-------------------------------------------------------->

rem <!--登陆第二个QQ开始 Begin------------------------------------------------------->
set u=QQ号2
set p=QQ密码2
echo set qq=WScript.CreateObject("WScript.shell")>qq.vbs
echo qq.Run """%qqpath%""">>qq.vbs
echo WScript.Sleep 2000 >>qq.vbs
echo qq.SendKeys "+{TAB}">>qq.vbs
echo qq.SendKeys "%u%">>qq.vbs
echo WScript.Sleep 200 >>qq.vbs
echo qq.SendKeys "{TAB}">>qq.vbs
echo qq.SendKeys "%p%">>qq.vbs
echo WScript.Sleep 200 >>qq.vbs
echo qq.SendKeys "{TAB}">>qq.vbs
echo qq.SendKeys "{DOWN}">>qq.vbs
echo qq.SendKeys "{UP}">>qq.vbs
echo qq.SendKeys "{ENTER}">>qq.vbs
echo WScript.Sleep 200 >>qq.vbs
echo qq.SendKeys "{TAB}">>qq.vbs
echo WScript.Sleep 200 >>qq.vbs
echo qq.SendKeys "{ENTER}">>qq.vbs
qq.vbs
del qq.vbs
Rem <!--第二个QQ登陆完毕!End-------------------------------------------------------->

3、登陆多个QQ（VBS，因QQ程序反应时间原因，最多登陆两个QQ，如果老机子，可能能多一些）

Dim WshShell, QQPath, QQselect
QQPath="D:\Progra~1\Tencent\QQ\Bin\QQ.exe"
'第一个QQ登陆
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath
WScript.Sleep 500
WshShell.AppActivate "第一个QQ登陆"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "QQ号1"
WScript.Sleep 100
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "QQ密码1"
WScript.Sleep 100
WshShell.SendKeys "{ENTER}"
WshShell.SendKeys "{ENTER}"
'第二个QQ登陆
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath
WScript.Sleep 500
WshShell.AppActivate "第二个QQ登陆"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "QQ号2"
WScript.Sleep 100
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "QQ密码2"
WScript.Sleep 100
WshShell.SendKeys "{ENTER}"
WshShell.SendKeys "{ENTER}"
'第三个QQ登陆
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath
WScript.Sleep 500
WshShell.AppActivate "第三个QQ登陆"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "QQ号3"
WScript.Sleep 10
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "QQ密码3"
WScript.Sleep 10
WshShell.SendKeys "{ENTER}"
WshShell.SendKeys "{ENTER}"

Ⅵ vbs登QQ源码是什么

set ws=createobject("wscript.shell")
Ws.Run "D:\Program Files\Tencent\QQ\Bin\QQ.EXE",0 （更改的的QQ文件位置）
do while a<>"zsz" (zsz是我定的密码你可以更改的)
a=inputbox("--<-<-<@请ZSZ系统用户登录@->->->--:","ZSZ用户登录")
loop
msgbox "┈━═☆Y(^_^)Y身份验证通过#^_^#准备启动全自动系统代理登录QQ^*(- -)*^☆═━┈",,"ZXZ系统提示"
msgbox "点击开始",,"ZXZ系统提示"
'Option Explicit
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("ZSZ.ini",1) (zsz.ini是我的密码所放的文件)
Do Until objTextFile.AtEndOfStream
Dim strNextLine
Dim spIndex,qqnumber,pwd
Dim WshShell, QQPath, QQselect
strNextLine = objTextFile.Readline
spIndex=InStr(strNextLine,"|")
qqnumber=Mid(strNextLine,1,spIndex-1)
pwd=Mid(strNextLine,spIndex+1,Len(strNextLine))
'MsgBox qqnumber&":"&pwd
loop
Set WshShell=WScript.CreateObject("WScript.Shell")
WScript.Sleep 200
WshShell.AppActivate "QQ2010"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys qqnumber
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys pwd
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"
msgbox "┈━═☆ZSZ系统启动完毕☆═━┈",,"ZXZ系统提示"

上面是vbs的源码了你只需要把它们改改就行了蓝色字体是解释的，你复制是把它们先删掉。红色字体是可以修改的。
ZSZ.INI是我放密码的文件比如 qq：656565886 密码：553447837
你创建文件后在里面写入“656565886|553447837”注意你创的ini文件名字的大小写与上面源码里的要相同 运行vbs脚本时要把两个文件放在一个目录下 否则vbs脚本会找不到ini文件
你可以把ini文件隐藏，因为那里边是你的密码
备注傻子看的（vbs脚本制作方法1.创建一的文档比如zsz
，它的文件名是zsz.txt你要把zsz.txt改成zsz.vbs,
你创好vbs文件后单击右键编辑进行修改，ini文件也是这样创建的……最后不一样的是zsz.txt改成zsz.ini （你修改是会出现一个对话框“什么内容会改变的你别管点击确定”
这个脚本登QQ比你记住密码登的还快，因为你打开QQ，输入帐号密码，然后确定…..很烦的，现在你只要打开脚本它自动帮你登..
上面有边框闪动的字是为了你的安全设置的验证，如果你不想要可以删掉，还有记住上面的文字如果不去的话，你不验证身份的话那个对话框是关不掉的，你想关掉就到进程管理把wscrip.exe 给结束就可以啦
我还有更多好玩的脚本欢迎你一起跟我交流哦^_^大家一起^_^o~ 努力！

Ⅶ 求易语言批量改QQ密保源码

求易语言批量登录QQ源码

Ⅷ 谁有易语言批量挂qq的源码

精易论坛里面有，去精易论坛帖子搜索里面找QQ关键词的帖。
一般花1精币就可以下载了

Ⅸ 跪求QQ批量登陆器的易语言源码

.版本 2

.程序集 模块集

.子程序 BASE64编码, 文本型
.参数 待编码数据, 字节集
.局部变量 数据长度
.局部变量 余数
.局部变量 整数容器
.局部变量 当前数据, 字节集
.局部变量 字符1, 文本型
.局部变量 字符2, 文本型
.局部变量 字符3, 文本型
.局部变量 字符4, 文本型
.局部变量 输出数据, 文本型

数据长度 ＝ 取字节集长度 (待编码数据)
.如果真 (数据长度 ＜ 1)
返回 (“”)
.如果真结束
余数 ＝ 数据长度 ％ 3
.如果真 (余数 ＞ 0)
待编码数据 ＝ 待编码数据 ＋ 取空白字节集 (3 － 余数)
.如果真结束
.变量循环首 (1, 取字节集长度 (待编码数据), 3, 整数容器)
当前数据 ＝ 取字节集中间 (待编码数据, 整数容器, 3)
字符1 ＝ 取文本中间 (#BASE64集合, 位与 (当前数据 [1], 252) ＼ 4 ＋ 1, 1)
字符2 ＝ 取文本中间 (#BASE64集合, 位与 (位或 (位与 (当前数据 [2], 240) ＼ 16, 位与 (当前数据 [1], 3) × 16), 255) ＋ 1, 1)
字符3 ＝ 取文本中间 (#BASE64集合, 位与 (位或 (位与 (当前数据 [3], 192) ＼ 64, 位与 (当前数据 [2], 15) × 4), 255) ＋ 1, 1)
字符4 ＝ 取文本中间 (#BASE64集合, 位与 (当前数据 [3], 63) ＋ 1, 1)
输出数据 ＝ 输出数据 ＋ 字符1 ＋ 字符2 ＋ 字符3 ＋ 字符4
.变量循环尾 ()
数据长度 ＝ 取文本长度 (输出数据)
.如果真 (余数 ＞ 0)
.如果 (余数 ＝ 1)
输出数据 ＝ 文本替换 (输出数据, 数据长度 － 1, 2, “==”)
.否则
输出数据 ＝ 文本替换 (输出数据, 数据长度, 1, “=”)
.如果结束

.如果真结束
返回 (输出数据)

.子程序 十六进制到十进制, 文本型
.参数 十六进制文本, 文本型
.局部变量 中间文本, 文本型
.局部变量 结果, 长整数型
.局部变量 容器1, 整数型

.变量循环首 (1, 取文本长度 (十六进制文本), 1, 容器1)
中间文本 ＝ 取文本中间 (十六进制文本, 容器1, 1)
结果 ＝ (寻找文本 (“0123456789ABCDEF”, 中间文本, , 真) － 1) × 求次方 (16, 取文本长度 (十六进制文本) － 容器1) ＋ 结果
.变量循环尾 ()
返回 (到文本 (结果))

.子程序 取数值目录到组合框
.参数 目录名, 文本型
.参数 组合框, 组合框
.局部变量 ee, 文本型

ee ＝ 寻找文件 (目录名 ＋ “*.*”, #子目录)
.判断循环首 (ee ≠ “”)
.如果真 (取文本左边 (ee, 1) ≠ “.”)
.如果 (到文本 (到数值 (ee)) ＝ ee)
.如果真 (ee ≠ “0”)
组合框.加入项目 (ee, )

.如果真结束
输出调试文本 (ee)
.否则

.如果结束

.如果真结束
ee ＝ 寻找文件 (, #子目录)
.判断循环尾 ()

Ⅹ 求一个能自动登陆YY，QQ的脚本源代码，同时能自动输入账号和密码的

YY频道7450欢迎您 UserVar qqdelay=1000 "QQ开启的时间,即启动QQ到填QQ号码的延时（1秒=1000）"
UserVar qqnumber=666666 "QQ号码"
UserVar qqcipher=66666 "QQ密码"
uservar qqaddress="D:\Program Files\QQ\Bin\QQ.exe" "QQ的地址"

RunApp qqaddress
Delay qqdelay
FindColor 452,320,1166,878,"0C1C97",intX,intY
MoveTo intX 140,intY 60
LeftClick 1
Delay 1500
SayString qqnumber
Delay 200
KeyPress "Tab", 1

Delay 200

Delay 200
"
Delay 200

Delay 1000

Delay 1000

a=1
For len(qqcipher)

key=Asc(UCase(Mid(qqcipher,a,1)))
KeyPressS key,1

Delay 10
a=a 1
Endfor
Delay 10
Delay 10
Delay 200
KeyPress "Enter", 1
主要问题：如果密码既有大写也有小写，应该怎样