獲取qq號碼源碼

A. 求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}"

B. 易語言 點擊按鈕 直接彈開QQ對話框 源碼 源碼

.版本 2
.支持敗瞎賀庫 shell

.程序集 窗口察派程序集1

.子程序 _按鈕1_被單神納擊

執行 (, 「http://wpa.qq.com/msgrd?v=3&uin=123456&site=qq&menu=yes」, , , 3)
' 把上面的123456改成你自己的QQ就好了

C. 解密獲取網站訪客QQ號碼的方法及原理

最近網路上出了一種，訪客訪問你的網站就能獲取到訪客的QQ號碼。很多商家用來謀取利益，有商家賣到3000一套程序。
經過幾天的分析研究，只研究出了一種極其簡單方式。還有其他方式還沒有找出方法。
目前網路上獲取網站訪客QQ的方式有幾種，簡單說一下：
1、分析QQ登錄http://xui.ptlogin2.qq.com/cgi-bin/qlogin控制項，然後跨域獲取QQ號碼，這種難度較高;
2、使用PHP
file_get_contents獲取騰訊某一頁面內容進行截取QQ號碼，此方法11月之前有效，現在已經不能用了;
3、這種方法比較簡單了，估計騰訊很快也要封了。也是幾天研究出的准備分享給大家的一種方法。
代碼如下：
就是這么簡單的一段JS，就可以獲取到訪客QQ了。

註：更多精彩教程請關注三聯網頁設計教程
欄目，