1. 论坛系统升级为Xenforo,欢迎大家测试!
    排除公告

PHP对落伍发贴源码(发贴机器)^_^

本帖由 Picky2006-03-28 发布。版面名称:后端开发

  1. Picky

    Picky New Member

    注册:
    2005-09-04
    帖子:
    538
    赞:
    2
    PHP:
    function reply ($threadid='',$message='',$fid=1)
    {
            
    $typeid 1;
            
    $formhash "6b498605";
            
            
    $server  'www.im286.com';            // IP address
            
    $host    'www.im286.com';            // Domain name
            
    $port    80;
            
    $referer 'http://www.im286.com/';    // Referer
            
    $cookie 'cdb_sid=;//你的sid,可以用flashget取得,直接取得sid程序不公开
            $url = "/post.php?action=reply&fid=$fid&tid=$threadid&replysubmit=yes";

            $socket  = fsockopen($server, $port, $errno, $errstr, 30);
            if($socket)
            {
                    
                    $posts = array ('
    formhash' => $formhash,'subject' => $subject,'message' => $message);
                    foreach( $posts AS $name => $value )
                    {
                            $postValues = $postValues . urlencode( $name ) . "=" . urlencode( $value ) . '
    &';
                    }                
                    $postValues = substr( $postValues, 0, -1 );
                    $lenght = strlen( $postValues );

                    $request  = "POST $url HTTP/1.1\r\n";
                    $request .= "Host: $host\r\n";
                    $request .= "User-Agent: " . $_SERVER['
    HTTP_USER_AGENT'] . "\r\n";
                    $request .= "Accept: */*\r\n";
                    $request .= "Accept-Language: " . $_SERVER['
    HTTP_ACCEPT_LANGUAGE'] . "\r\n";
                    $request .= "Referer: $referer\r\n";
                    $request .= "Cookie: $cookie\r\n";
                    $request .= "Keep-Alive: 300\r\n";
                    $request .= "Connection: keep-alive\r\n";
                    $request .= "Cache-Control: max-age=0\r\n";
                    $request .= "Content-Type: application/x-www-form-urlencoded\r\n";
                    $request .= "Pragma: no-cache\r\n";
                    $request .= "Cache-Control: no-cache\r\n";
                    $request .= "Content-Length: $lenght\r\n";
                    $request .= "\r\n";
                    $request .= $postValues;

                    fputs( $socket, $request );
                    fclose( $socket );
            }
    }
     
  2. 流浪的龙

    流浪的龙 New Member

    注册:
    2005-09-07
    帖子:
    36
    赞:
    0
    穷,买不起
     
  3. mad4u

    mad4u New Member

    注册:
    2006-01-09
    帖子:
    74
    赞:
    1
    我就不买了,我不是经常灌水的。
     
  4. d5d

    d5d New Member

    注册:
    2005-11-17
    帖子:
    91
    赞:
    1
    POOR.
     
  5. 小叶

    小叶 New Member

    注册:
    2005-09-04
    帖子:
    17,941
    赞:
    33
    肯定是天行那家伙写的。
     
  6. Picky

    Picky New Member

    注册:
    2005-09-04
    帖子:
    538
    赞:
    2
  7. delta

    delta New Member

    注册:
    2005-09-09
    帖子:
    123
    赞:
    1
    没意义,不买
     
  8. donlinn

    donlinn New Member

    注册:
    2006-02-24
    帖子:
    41
    赞:
    0
    灌水有意思吗
     
  9. 西子宜

    西子宜 Well-Known Member

    注册:
    2005-09-05
    帖子:
    15,739
    赞:
    62
  10. hopol

    hopol New Member

    注册:
    2005-09-26
    帖子:
    148
    赞:
    2
    谢谢!! 我正需要这样类似的代码!!
     
  11. supercn

    supercn New Member

    注册:
    2005-11-07
    帖子:
    13
    赞:
    0
    穷,买不起
     
  12. 禾火木风

    禾火木风 New Member

    注册:
    2006-03-15
    帖子:
    2,212
    赞:
    8
    这样都行:angry:
     
  13. 华天

    华天 New Member

    注册:
    2006-01-12
    帖子:
    35
    赞:
    0
    见过读吧的
     
  14. oldcpu

    oldcpu New Member

    注册:
    2006-03-13
    帖子:
    17
    赞:
    0
    哎,穷.想买.只能想想.
     
  15. comic

    comic New Member

    注册:
    2006-03-05
    帖子:
    302
    赞:
    2
    灌水太多会淹死人嘀~`
     
  16. lonely

    lonely New Member

    注册:
    2005-12-08
    帖子:
    685
    赞:
    11
    我有钱都不买
     
  17. ioeice

    ioeice New Member

    注册:
    2005-10-09
    帖子:
    63
    赞:
    1
  18. vzmvzm26

    vzmvzm26 New Member

    注册:
    2006-03-29
    帖子:
    16
    赞:
    0
    :cry: 穷啊~
     
  19. lingerie

    lingerie New Member

    注册:
    2006-03-29
    帖子:
    33
    赞:
    0
    我没钱。
     
  20. donlinn

    donlinn New Member

    注册:
    2006-02-24
    帖子:
    41
    赞:
    0

    没钱了