获取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了。

注：更多精彩教程请关注三联网页设计教程
栏目，