求POST登录腾讯微博，发微博的源码

爱好者仅菜鸟

求POST登录腾讯微博，发微博的源码

本人是个菜鸟，刚开始在学习POST，看了很多的教程

想求一份前辈的POST登录腾讯，发微博的源码学习

全部分数都给你了，，要简单点的，，不要忽悠人的，，全部分数送上

拜谢了，，，

疯狂的马籽

{:3_244:}{:3_244:}做好了，，有疑问的M:疯狂的馬籽：QQ659506598

爱好者仅菜鸟

我自己给自己顶顶，，，，

ccini

登陆的容易，就是发表~的木办法

疯狂的马籽

{:3_244:}{:3_244:}我来借单

ccini

哈哈哈！终于发得贴啦~庆祝一下{:3_227:}

疯狂的马籽

{:3_244:}{:3_244:}随便发截图 楼上的是源码，模块已经打包了

ccini

1个模块就可以搞定~你还2个~~- -#


.版本 2

.程序集 窗口程序集1

.子程序 _按钮1_被单击

信息框 (QQ_微博发表 (编辑框1.内容), 0, )

.子程序 _按钮2_被单击
.局部变量 返回值, 文本型
.局部变量 分割, 文本型, , "0"

信息框 (QQ_微博登陆 (编辑框2.内容, 编辑框3.内容), 0, )

.子程序 QQ_微博登陆, 文本型, , 懒得转码啦~
.参数 QQ号码, 文本型
.参数 QQ密码, 文本型
.参数 QQ验证码, 文本型, 可空, 空就自动获取
.局部变量 VBScript, 对象
.局部变量 返回值, 文本型
.局部变量 分割文本, 文本型, , "0"

.如果真 (是否为空 (QQ验证码))
    置随机数种子 ()
    返回值 ＝ 彗星HTTP读文本 (“http://ptlogin2.qq.com/check?uin=” ＋ QQ号码 ＋ “&appid=15000101&r=0.1561491” ＋ 到文本 (取随机数 (0, 9)), )  ' 取免输入验证码文本
    分割文本 ＝ 分割文本 (返回值, “'”, )
    .如果真 (取数组成员数 (分割文本) ≥ 5)
        .如果真 (取文本左边 (分割文本 [4], 1) ≠ “!”)
            返回 (“验证码获取失败!”)
        .如果真结束
        QQ验证码 ＝ 分割文本 [4]
    .如果真结束

.如果真结束
VBScript.创建 (“ScriptControl”, )
VBScript.写属性 (“Language”, “JScript”)
VBScript.数值方法 (“ExecuteStatement”, #JSmd5)
返回 (选择 (取文本左边 (彗星HTTP读文本 (“http://ptlogin2.qq.com/login?action=7-23-38390&aid=46000101&fp=loginerroralert&from_ui=1&h=1&low_login_enable=1&low_login_hour=720&p=” ＋ VBScript.通用方法 (“Run”, “md5”, VBScript.通用方法 (“Run”, “md5_3”, QQ密码).取文本 () ＋ 到大写 (QQ验证码)).取文本 () ＋ “&ptlang=&=2052&ptredirect=1&u=” ＋ QQ号码 ＋ “&u1=http%3A%2F%2Ft.qq.com&verifycode=” ＋ QQ验证码), 10) ＝ “ptuiCB('3'”, “登陆失败!”, “登陆成功!”))

.子程序 QQ_微博发表, 文本型
.参数 发表内容, 文本型, , 不能 换行符
.局部变量 SC, 对象
.局部变量 FH, 文本型

SC.创建 (“ScriptControl”, )
SC.写属性 (“Language”, “JScript”)
SC.方法 (“AddCode”, “function t(){return(new Date().getTime());}”)
发表内容 ＝ 子文本替换 (发表内容, #换行符, “”, , , 真)
FH ＝ 彗星HTTP读文本 (“http://api.t.qq.com/old/publish.php”, “POST”, , , “content=” ＋ 彗星URL编码_UTF8 (发表内容) ＋ “&startTime=0&endTime=” ＋ SC.通用方法 (“Run”, “t”).取文本 () ＋ “&countType=&viewModel=&pic=&syncQzone=1”)
输出调试文本 (FH)
返回 (选择 (取文本长度 (FH) ＞ 40, “发表成功!”, “发表失败”))

伟爵爷

都是高手啊

深藏功舆名ゐ

我想来个免模块的，但是我不想发我自己的模块源码