下面是源码
我就是搞不明白
它老是显示什么
* ptuiCB('7','0','','0','很遗憾，网络连接出现异常，请您稍后再试。(2864710213)', '920432626')
.版本 2
.支持库 internet
.支持库 script
.支持库 iconv
.程序集 窗口程序集1
.子程序 _图片框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
图片框1.图片 ＝ HTTP读文件 (“
http://captcha.qq.com/getimage?aid=3000701&r=0.049244944404870594&uin=” ＋ 编辑框1.内容)
.子程序 _编辑框3_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.如果真 (键代码 ＝ #回车键)
登录 ()
图片框1.图片 ＝ HTTP读文件 (“
http://captcha.qq.com/getimage?aid=3000701&r=0.049244944404870594&uin=” ＋ 编辑框1.内容)
编辑框3.内容 ＝ “”
.如果真结束
.子程序 _编辑框3_内容被改变
.判断开始 (取文本长度 (编辑框3.内容) ＝ 4)
登录 ()
图片框1.图片 ＝ HTTP读文件 (“
http://captcha.qq.com/getimage?aid=3000701&r=0.049244944404870594&uin=” ＋ 编辑框3.内容)
编辑框3.内容 ＝ “”
.默认
.判断结束
.子程序 登录
.局部变量 加密后的值, 文本型
.局部变量 POST, 字节集
.局部变量 返回文本, 文本型
脚本组件1.执行 (#MD5)
加密后的值 ＝ 脚本组件1.运行 (“MD5_3”, 编辑框2.内容)
加密后的值 ＝ 脚本组件1.运行 (“MD5”, 加密后的值 ＋ 到大写 (编辑框3.内容))
POST ＝ HTTP读文件 (“
http://ptlogin2.qq.com/login?u=” ＋ 编辑框1.内容 ＋ “&p=” ＋ 加密后的值 ＋ “&verifycode=” ＋ 编辑框3.内容 ＋ “&aid=4007203&u1=http%3A%2F%2Fmirinda.qq.com%2F&h=1&ptredirect=1&ptlang=2052&from_ui=1&dumy=&fp=loginerroralert&mibao_css=”)
返回文本 ＝ 到文本 (编码转换 (POST, #编码_UTF_8, #编码_GB18030, ))
输出调试文本 (返回文本)
[ 此帖被dengyu1999在2012-04-21 20:06重新编辑 ]
