curl

<?php
///////////////////////////////////////////////
// Neopets GTK Auto Buyer
///////////////////////////////////////////////

$wnd  = new  GtkWindow ();
$wnd -> set_title ( 'Neopets Auto Buyer' );
$wnd -> connect_simple ( 'destroy' , array( 'gtk' ,  'main_quit' ));

$lblCredit  = new  GtkLabel ( '' );
$lblCredit -> set_markup ( "<span color=/"blue/">Gary's Hood</span>" );
$lblUsername  = new  GtkLabel ( 'Username:' );
$lblPassword  = new  GtkLabel ( 'Password:' );
$lblItem  = new  GtkLabel ( 'Item:' );
$lblPrice  = new  GtkLabel ( 'Price (NP):' );
$txtUsername  = new  GtkEntry ();
$txtPassword  = new  GtkEntry ();
$txtPassword -> set_visibility ( false );
$txtItem  = new  GtkEntry ();
$txtPrice  = new  GtkEntry ();
$btnHelp  = new  GtkButton ( 'Help' );
$btnStart  = new  GtkButton ( 'Start' );
$btnCancel  = new  GtkButton ( 'Cancel' );

$aUsername  = new  GtkAlignment ( 1 ,  0.5 ,  0 ,  0 );
$aUsername -> add ( $lblUsername );
$aPassword  = new  GtkAlignment ( 1 ,  0.5 ,  0 ,  0 );
$aPassword -> add ( $lblPassword );
$aItem  = new  GtkAlignment ( 1 ,  0.5 ,  0 ,  0 );
$aItem -> add ( $lblItem );
$aPrice  = new  GtkAlignment ( 1 ,  0.5 ,  0 ,  0 );
$aPrice -> add ( $lblPrice );

$btnStart -> connect_simple ( 'clicked' ,  'process_data' ,  $wnd ,  $txtUsername ,  $txtPassword ,  $txtItem ,  $txtPrice );
$btnCancel -> connect_simple ( 'clicked' , array( $wnd ,  'destroy' ));
$btnHelp -> connect_simple ( 'clicked' ,  'help_dialog' ,  $wnd );

$tbl  = new  GtkTable ( 7 ,  2 );
$tbl -> attach ( $lblCredit ,  0 ,  1 ,  0 ,  1 );
$tbl -> attach ( $btnHelp ,  1 ,  2 ,  0 ,  1 );
$tbl -> attach ( $aUsername ,  0 ,  1 ,  1 ,  2 );
$tbl -> attach ( $txtUsername ,  1 ,  2 ,  1 ,  2 );
$tbl -> attach ( $aPassword ,  0 ,  1 ,  2 ,  3 );
$tbl -> attach ( $txtPassword ,  1 ,  2 ,  2 ,  3 );
$tbl -> attach ( $aItem ,  0 ,  1 ,  3 ,  4 );
$tbl -> attach ( $txtItem ,  1 ,  2 ,  3 ,  4 );
$tbl -> attach ( $aPrice ,  0 ,  1 ,  4 ,  5 );
$tbl -> attach ( $txtPrice ,  1 ,  2 ,  4 ,  5 );
$tbl -> attach ( $btnStart ,  0 ,  1 ,  6 ,  7 );
$tbl -> attach ( $btnCancel ,  1 ,  2 ,  6 ,  7 );

$vbox  = new  GtkVBox ();
$vbox -> pack_start ( $tbl );

$wnd -> add ( $vbox );
$wnd -> show_all ();
Gtk :: main ();

///////////////////////////////////////////////
// Process Input
///////////////////////////////////////////////

function  process_data ( GtkWindow $wnd ,  GtkEntry $txtUsername ,  GtkEntry $txtPassword ,  GtkEntry $txtItem ,  GtkEntry $txtPrice ) {
     $strUsername  =  $txtUsername -> get_text ();
     $strPassword  =  $txtPassword -> get_text ();
     $strItem  =  $txtItem -> get_text ();
     $strPrice  =  $txtPrice -> get_text ();
     $errors  =  null ;
    if( strlen ( $strUsername ) ==  0 ) {
         $errors  .=  "Username is missing./n" ;
    }
    if( strlen ( $strPassword ) ==  0 ) {
         $errors  .=  "Password is missing./n" ;
    }
    if( strlen ( $strItem ) ==  0 ) {
         $errors  .=  "No item was set./n" ;
    }
    if( strlen ( $strPrice ) ==  0  || ! is_numeric ( $strPrice )) {
         $errors  .=  "Invalid price./n" ;
    }
    if( $errors  !==  null ) {
         $dialog  = new  GtkMessageDialog ( $wnd ,  Gtk :: DIALOG_MODAL ,  Gtk :: MESSAGE_ERROR ,  Gtk :: BUTTONS_OK ,  $errors );
         $dialog -> set_title ( 'General Error' );
         $dialog -> set_markup ( "The following errors occured:/r/n<span color='#8B0000'> $errors </span>" );
         $dialog -> run ();
         $dialog -> destroy ();
    } else {
         $username  =  str_replace ( " " ,  "_" ,  $strUsername );
         $password  =  stripslashes ( $strPassword );
         $item  =  stripslashes ( str_replace ( " " ,  "+" ,  $strItem ));
         $price  =  str_replace ( "," ,  "" ,  $strPrice );
         $cookiefile  =  tempnam ( "" ,  "neopets_" );
         $data  =  neopets_login ( $username ,  $password ,  $cookiefile );
        if( strpos ( $data ,  'username/password' )) {
             $dialog  = new  GtkMessageDialog ( $wnd ,  Gtk :: DIALOG_MODAL ,  Gtk :: MESSAGE_ERROR ,  Gtk :: BUTTONS_OK ,  $errors );
             $dialog -> set_title ( 'Login Error' );
             $dialog -> set_markup ( "Login information did not process." );
             $dialog -> run ();
             $dialog -> destroy ();
        } else {
            for( $i  =  0 ;  $i  <  10 ;  $i ++) {
                 $return  .=  item_search ( $item ,  $price ,  $cookiefile );
            }
             $dialog  = new  GtkMessageDialog ( $wnd ,  Gtk :: DIALOG_MODAL ,  Gtk :: MESSAGE_INFO ,  Gtk :: BUTTONS_OK ,  null );
             $dialog -> set_title ( 'Results' );
            if(empty( $return )) {
                 $return  =  "No results found." ;
            }
             $dialog -> set_markup ( $return );
             $dialog -> run ();
             $dialog -> destroy ();
        }
         unlink ( $cookiefile );
    }
}

function  help_dialog ( GtkWindow $wnd ) {
     $dialog  = new  GtkMessageDialog ( $wnd ,  Gtk :: DIALOG_MODAL ,  Gtk :: MESSAGE_INFO ,  Gtk :: BUTTONS_OK ,  null );
     $dialog -> set_title ( 'Help' );
     $dialog -> set_markup ( "This Neopets Auto Buyer will search the Shop Wizard several times to find you the best deal on an item of your choosing./r/n/r/nSimply enter your username and password to process the login, along with the name of the EXACT item you wish to locate. The price field allows you to set a maximum price to search for. If you wish to purchase the item unlimited times, set the price field to 99,999./r/n/r/nIf a match is found on the Shop Wizard and you have enough Neopoints, this application will automatically purchase the entire quantity of your searched item that is in stock./r/n/r/nMore usage and information may be found at:/r/nhttp://www.garyshood.com/neopets/" );
     $dialog -> run ();
     $dialog -> destroy ();
}

///////////////////////////////////////////////
// Neopets Login
///////////////////////////////////////////////

function  neopets_login ( $username ,  $password ,  $cookiefile ) {
     $url  =  "http://www.neopets.com/login.phtml" ;
     $curl  =  curl_init ();
     curl_setopt ( $curl ,  CURLOPT_URL ,  $url );
     curl_setopt ( $curl ,  CURLOPT_POST ,  1 );
     curl_setopt ( $curl ,  CURLOPT_POSTFIELDS ,  "username= $username &password= $password " );
     curl_setopt ( $curl ,  CURLOPT_FOLLOWLOCATION ,  true );
     curl_setopt ( $curl ,  CURLOPT_COOKIEJAR ,  $cookiefile );
     curl_setopt ( $curl ,  CURLOPT_RETURNTRANSFER ,  1 );
     $data  =  curl_exec ( $curl );
     curl_close ( $curl );
    return  $data ;
}

///////////////////////////////////////////////
// Curl Get
///////////////////////////////////////////////

function  curl_get ( $url ,  $cookiefile ,  $referer  =  "" ) {
     $curl  =  curl_init ();
     curl_setopt ( $curl ,  CURLOPT_URL ,  $url );
     curl_setopt ( $curl ,  CURLOPT_FOLLOWLOCATION ,  true );
     curl_setopt ( $curl ,  CURLOPT_RETURNTRANSFER ,  1 );
     curl_setopt ( $curl ,  CURLOPT_REFERER ,  $referer );
     curl_setopt ( $curl ,  CURLOPT_COOKIEFILE ,  $cookiefile );
     $data  =  curl_exec ( $curl );
     curl_close ( $curl );
    return  $data ;
}

///////////////////////////////////////////////
// Curl Post
///////////////////////////////////////////////

function  curl_post ( $url ,  $cookiefile ,  $post ,  $referer  =  "" ) {
     $curl  =  curl_init ();
     curl_setopt ( $curl ,  CURLOPT_URL ,  $url );
     curl_setopt ( $curl ,  CURLOPT_POST ,  1 );
     curl_setopt ( $curl ,  CURLOPT_POSTFIELDS ,  $post );
     curl_setopt ( $curl ,  CURLOPT_FOLLOWLOCATION ,  true );
     curl_setopt ( $curl ,  CURLOPT_RETURNTRANSFER ,  1 );
     curl_setopt ( $curl ,  CURLOPT_REFERER ,  $referer );
     curl_setopt ( $curl ,  CURLOPT_COOKIEFILE ,  $cookiefile );
     $data  =  curl_exec ( $curl );
     curl_close ( $curl );
    return  $data ;
}

///////////////////////////////////////////////
// Search for the item
///////////////////////////////////////////////

function  item_search ( $item ,  $price ,  $cookiefile ) {
     $data  =  curl_post ( "http://www.neopets.com/market.phtml" ,  $cookiefile ,  "type=process_wizard&feedset=0&shopwizard= $item &table=shop&criteria=exact&min_price=0&max_price= $price " ,  "http://www.neopets.com/market.phtml?type=wizard" );
     $purchased  =  0 ;
    if(! strpos ( $data ,  'I did not find anything' ) && ! strpos ( $data ,  'Whoa there, too many searches!' )) {
         preg_match_all ( "/<td align=/"left/" bgcolor=/"#F6F6F6/"><a href=/"//browseshop/.phtml/?owner=(.*?)&buy_obj_info_id=(.*?)&buy_cost_neopoints=(.*?)/">/" ,  $data ,  $info );
         $user_array  = array();
         $price_array  = array();
        foreach( $info [ 1 ] as  $info_var ) {
             array_push ( $user_array ,  $info_var );
        }
        foreach( $info [ 2 ] as  $info_var ) {
             $item_id  =  $info_var ;
        }
        foreach( $info [ 3 ] as  $info_var ) {
             array_push ( $price_array ,  $info_var );
        }
        for( $i  =  0 ;  $i  <  count ( $user_array );  $i ++) {
             $return  .=  "User:  $user_array [ $i ]  | Price:  $price_array [ $i ] /n" ;
             purchase_item ( $price_array [ $i ],  $user_array [ $i ],  $item_id ,  $cookiefile );
             $purchased ++;
        }
    } elseif( strpos ( $data ,  'Whoa there, too many searches!' )) {
         $return  .=  "Too many searches. Please try again later./n" ;
    }
    if( $purchased  >  0 ) {
         $return  .=  "Purchased:  $purchased /n/n" ;
    }
    return  $return ;
}

///////////////////////////////////////////////
// Purchase the item
///////////////////////////////////////////////

function  purchase_item ( $price ,  $user ,  $item_id ,  $cookiefile ) {
     $data  =  curl_get ( "http://www.neopets.com/browseshop.phtml?owner= $user " ,  $cookiefile );
     $continue  =  true ;
    while( strpos ( $data ,  $item_id ) &&  $continue ) {
         $data  =  curl_get ( "http://www.neopets.com/browseshop.phtml?owner= $user " ,  $cookiefile );    
         preg_match ( "//"buy_item/.phtml/?lower=0&owner= $user &obj_info_id= $item_id &g=1&xhs=(.*?)&old_price=(.*?)&feat=(.*?)&_ref_ck=(.*?)/"/" ,  $data ,  $info );
        if( $info [ 2 ] <=  $price ) {
             $data  =  curl_get ( "http://www.neopets.com/buy_item.phtml?lower=0&owner= $user &obj_info_id= $item_id &g=1&xhs= $info [ 1 ] &old_price= $info [ 2 ] &feat= $info [ 3 ] &_ref_ck= $info [ 4 ] " ,  $cookiefile ,  "http://www.neopets.com/browseshop.phtml?owner= $user " );
        } else {
             $continue  =  false ;
        }
    }
}
?>

http://www.garyshood.com/neopets/neopets_autobuyer.phps