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更安全些。