批量登陸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
主要問題：如果密碼既有大寫也有小寫，應該怎樣