5.3POST快乐赚报404

haishu79

POST登录报 “您浏览的页面未找到-404-快乐赚”
变量 模式 = "POST"
    变量 提交网址 = "快乐赚 /ajax.php"
    变量 访问网址 = "快乐赚"
    变量 提交数据= ""
    变量 响应头 //引用返回响应头,提交失败则返回提交响应头,获取失败则返回获取响应头
    变量 head = array("Accept" = "*/*")
    变量 编码 = "gb2312"
    //如是返回空,则失败,可以获取错误信息与响应头来判断哪儿出错了
    //提交为空,获取地址不为空,不提交且忽略提交模式,则只操作获取网页且返回获取网页的响应头与获取网页的内容
    //获取主页源码
    变量 retpage = http提交请求扩展(模式,"",访问网址,提交数据,响应头,head,编码)
    如果(null == retpage)
        变量 error = getlasterror(1)
        //打印错误信息与响应头
        error = "错误信息: \n"& error & "\n响应头: \n"&响应头

        调试输出(error)
    否则
        调试输出(retpage)
        //获取tonken value..[a-z0-9]{32}\"  value="fb1c6bbd807b1fba1eb46ac759998817"
        变量 token临时 = 正则表达式匹配(retpage,"value..[a-z0-9]{32}\"",假,真)
        调试输出(token临时)
        变量 token = 正则表达式替换(token临时[0],"value..|\"","",真,真)
        调试输出(token)

        变量 随机="0."&随机数(10000000,99999999)&随机数(10000000,99999999)
        调试输出(随机)
        提交数据="act=login&tbUserAccount=“&账号&“tbUserPwd=”&密码&“tbCode=&re=http%3A//www .lezh uan.c om/&token="&token&"&key="&随机

    结束
    retpage = http提交请求扩展(模式,提交网址,"",提交数据,响应头,head,编码)

    如果(null == retpage)
        变量  error = getlasterror(1)
        //打印错误信息与响应头
        error = "错误信息: \n"& error & "\n响应头: \n"&响应头

        调试输出(error)
    否则
        调试输出(retpage)
        编辑框设置文本("编辑框0",retpage)
        网页跳转("浏览器0",访问网址)

    结束