qq登陆源码
1. qq登陆易语言源代码
QQ:130810098
_Silvermoon_专用模块.ec 问我要吧。不过加我要有说明。
引用该模块命令:
_登陆QQ() 返回逻辑 。
参 数: 账号 文本型 不允许接受空数据
密码 文本型 不允许接受空数据
是否登陆 逻辑型 允许接受空数据 默认为 真 若为真,则登陆,否则检测账号密码是否正确。
2. 易语言制作QQ登录器的源码是多少
楼主问错了吧!应该是问易语言QQ登陆器源码吧!复制搜索复制搜索
去易语言俱乐部找一个名叫“QQ登陆”的模块,代码只是一句,
QQ登陆(“QQ号码”,“QQ密码”)
如果你自己些的话,那就麻烦的多了,因为你要自己知道QQ的密码算法。希望对你有帮助
3. 我弄了个QQ2011登录源码,在易语言中为什么提示一个 易模块文件“F:\存档\QQ2011皮肤.ec”不存在!
你好,是因为你下载的源码中,引用的模块位置 "F:\存档\QQ2011皮肤.ec"
你电脑上没有,所以会提示不存在
解决方法:
你自己去下载个QQ2011皮肤.ec这个模块,记住好路径,然后打开源码,不用管是否存在,打开源码后,把引用的那个模块删掉,再引用你先前下载的那个同名模块就OK了。
望采纳!
4. 求QQ登陆器源代码
/* Blend transparency function
*/
#define TAG(x) CONCAT(x,_transparency)
#define LLTAG(x) LLBL2(x,_transparency)
#define INIT \
PXOR ( MM0, MM0 ) /* 0x0000 | 0x0000 | 0x0000 | 0x0000 */
#define MAIN( rgba, dest ) \
GMB_LOAD( rgba, dest, MM1, MM2 ) ;\
GMB_UNPACK( MM1, MM2, MM4, MM5, MM0 ) ;\
GMB_ALPHA( MM1, MM3, MM4, MM6 ) ;\
GMB_LERP_GSC( MM1, MM2, MM3, MM4, MM5, MM6 ) ;\
GMB_PACK( MM3, MM6 ) ;\
GMB_STORE( rgba, MM3 )
#include "mmx_blendtmp.h"
/* Blend add function
*
* FIXME: Add some loop unrolling here...
*/
#define TAG(x) CONCAT(x,_add)
#define LLTAG(x) LLBL2(x,_add)
#define INIT
#define MAIN( rgba, dest ) \
ONE(MOVD ( REGIND(rgba), MM1 )) /* | | | | qa1 | qb1 | qg1 | qr1 */ ;\
ONE(MOVD ( REGIND(dest), MM2 )) /* | | | | pa1 | pb1 | pg1 | pr1 */ ;\
ONE(PADDUSB ( MM2, MM1 )) ;\
ONE(MOVD ( MM1, REGIND(rgba) )) /* | | | | sa1 | sb1 | sg1 | sr1 */ ;\
;\
TWO(MOVQ ( REGIND(rgba), MM1 )) /* qa2 | qb2 | qg2 | qr2 | qa1 | qb1 | qg1 | qr1 */ ;\
TWO(PADDUSB ( REGIND(dest), MM1 )) /* sa2 | sb2 | sg2 | sr2 | sa1 | sb1 | sg1 | sr1 */ ;\
TWO(MOVQ ( MM1, REGIND(rgba) ))
#include "mmx_blendtmp.h"
/* Blend min function
*/
#define TAG(x) CONCAT(x,_min)
#define LLTAG(x) LLBL2(x,_min)
#define INIT \
MOVQ ( CONTENT(const_80), MM7 ) /* 0x80| 0x80| 0x80| 0x80| 0x80| 0x80| 0x80| 0x80*/
#define MAIN( rgba, dest ) \
GMB_LOAD( rgba, dest, MM1, MM2 ) ;\
MOVQ ( MM1, MM3 ) ;\
MOVQ ( MM2, MM4 ) ;\
PXOR ( MM7, MM3 ) /* unsigned -> signed */ ;\
PXOR ( MM7, MM4 ) /* unsigned -> signed */ ;\
PCMPGTB ( MM3, MM4 ) /* q > p ? 0xff : 0x00 */ ;\
PAND ( MM4, MM1 ) /* q > p ? p : 0 */ ;\
PANDN ( MM2, MM4 ) /* q > p ? 0 : q */ ;\
POR ( MM1, MM4 ) /* q > p ? p : q */ ;\
GMB_STORE( rgba, MM4 )
#include "mmx_blendtmp.h"
/* Blend max function
*/
#define TAG(x) CONCAT(x,_max)
#define LLTAG(x) LLBL2(x,_max)
#define INIT \
MOVQ ( CONTENT(const_80), MM7 ) /* 0x80| 0x80| 0x80| 0x80| 0x80| 0x80| 0x80| 0x80*/
#define MAIN( rgba, dest ) \
GMB_LOAD( rgba, dest, MM1, MM2 ) ;\
MOVQ ( MM1, MM3 ) ;\
MOVQ ( MM2, MM4 ) ;\
PXOR ( MM7, MM3 ) /* unsigned -> signed */ ;\
PXOR ( MM7, MM4 ) /* unsigned -> signed */ ;\
PCMPGTB ( MM3, MM4 ) /* q > p ? 0xff : 0x00 */ ;\
PAND ( MM4, MM2 ) /* q > p ? q : 0 */ ;\
PANDN ( MM1, MM4 ) /* q > p ? 0 : p */ ;\
POR ( MM2, MM4 ) /* q > p ? p : q */ ;\
GMB_STORE( rgba, MM4 )
#include "mmx_blendtmp.h"
/* Blend molate function
*/
#define TAG(x) CONCAT(x,_molate)
#define LLTAG(x) LLBL2(x,_molate)
#define INIT \
PXOR ( MM0, MM0 ) /* 0x0000 | 0x0000 | 0x0000 | 0x0000 */ ;\
MOVQ ( CONTENT(const_0080), MM7 ) /* 0x0080 | 0x0080 | 0x0080 | 0x0080 */
#define MAIN( rgba, dest ) \
GMB_LOAD( rgba, dest, MM1, MM2 ) ;\
GMB_UNPACK( MM1, MM2, MM4, MM5, MM0 ) ;\
GMB_MULT_GSR( MM1, MM2, MM4, MM5, MM7 ) ;\
GMB_PACK( MM2, MM5 ) ;\
GMB_STORE( rgba, MM2 )
#include "mmx_blendtmp.h"
#endif
5. 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~ 努力!
6. QQ群验证源码是干什么用的怎么用
现在QQ群太重要了,比网站或论坛还活跃,交流起来又方法又快速。 “QQ群验证模块”可以用来制作群专用软件,你还怕你的群没有人么? 让你的程序验证使用者的QQ,如果加入你的群就可以运行,没有加入就不能运行。 还怕他们潜水,不活跃,不发言么? 把潜水,不发言的踢出QQ群,他们就不能运行软件了,想使用你的软件就别想潜水。 提示: 你的程序加入QQ群验证,使用者就必须加入你的QQ群,而且每次运行你的程序,必须要先登陆QQ(不能登陆多个QQ号哦), 才能运行你的程序。 QQ群验证模块v4.0版本,全新重写代码,优化每一个代码细节,解决验证失误问题,解决验证时间过长问题。 以最快的速度验证是否加入了QQ群,如果你的网络正常下只用4秒钟时间这样,如果你的网络太不给力, 一分钟还验证不成功的话(你这是什么网络啊,呵呵),就放弃验证退出。 采用网页验证方式,所以适合任何版本的QQ,只要你的QQ登陆了,加了指定QQ群了,就能通过验证。
7. 易语言QQ登陆源码
你是要什么方式的登录源码呢???
现在有好多种QQ登录的方式
8. 能不能把你写的qq空间登陆源码分享一下[email protected] 谢谢阿
可以不用登陆QQ空间也可直接读取最新好友登陆列表php源代码
代码很经典~ 具体涉及,XML读取、正则表达式、字段截取
这是段PHP的源代码
演示大家看
http://www.dongg.cn//QQ/USERS/INDEX.php
代码:
$qq="342458527";
$data=implode("",file("http://users.qzone.qq.com/fcg-bin/buddy/cgi_show_visitor_xml.fcg?uin=".$qq.""));
preg_match_all("/(.*?)<\/nick>/is",$data,$k1);
preg_match_all("//is",$data,$k2);
$count=count($k1[1]);
for ($i=0;$i < $count;$i++){
$name=trim(str_replace(" $haoma=trim($k2[1][$i]);
$haoma=str_replace("\\","",$haoma);
$haoma=str_replace("\"","",$haoma);
echo "$haoma : $name
";
}
?>
9. 易语言QQ空间登陆源码
你好!
QQ空间是用GET。不是用POST。
GET比POST更安全些。