Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   Социальные сети (https://forum.antichat.xyz/forumdisplay.php?f=133)
-   -   Поздравляем друзей с Новым Годом! :) (https://forum.antichat.xyz/showthread.php?t=166781)

pavl1k_fan@mail.ru 28.12.2009 22:45

Поздравляем друзей с Новым Годом! :)
 
Скрипт (php) рассылает указанным друзьям в ВК подарки..
Подарок выбирается автоматически, из предложенных.. Возможность указывать подпись к подарку.

PS
От подарков не откажусь ;)

PHP код:

<?php

/*/          byPavl1k        /*/
/*/       ICQ 396-613-887   /*/
/*/        [id40270043]    /*/


$mail '';
$pass '';

$text "C наступающим ^_^ \n byPavl1k"// текст подписи к падарку

/* массив с id подарков, дарим рандомные подарки.. чтобы дарить всем одно и тоже, оставьте только один id */
$gifts = array(
'174'// "Новогодний" манул 
'168'// олень с мешком
'169'// бегемот
'176'// тигр
'37'// Ёлка 
'34'// жопа зайца 
'35'// снеговик
);

// тут вводим id друзей
$friends = array(
'40270043'// оставив эту строчку выразите мне благодарность)
''// id друга
);

function 
connect($link$cookie=null){


        
$ch curl_init();
        
curl_setopt($chCURLOPT_URL,$link);
        
curl_setopt($chCURLOPT_RETURNTRANSFER,1);
        
curl_setopt($chCURLOPT_TIMEOUT0);
        
curl_setopt($chCURLOPT_GET1);
           
curl_setopt($chCURLOPT_HEADER1);
        if(
$cookie !== nullcurl_setopt($chCURLOPT_COOKIE$cookie);
        
curl_setopt($chCURLOPT_POST1);
        
curl_setopt($chCURLOPT_POSTFIELDS$post);

        
$otvet curl_exec($ch);
        
curl_close($ch);
return 
$otvet;
}
function 
auth($mail$pass) {

    
$res connect("http://login.vk.com/?act=login&email=$mail&pass=$pass&vk=");

    if(
substr_count($res"id='s'") !== 1) return 'error';
    
$s grabb($res"id='s' value='""'");
    
$res connect("http://vkontakte.ru/login.php?op=slogin&redirect=1&s=$s");
    
$remixsid grabb($res'remixsid='' ');
    
$cookie 'remixchk=5; remixsid='.$remixsid;
return 
$cookie;
}
function 
grabb($str$start$end) {
        
$start strpos($str$start) + strlen($start);
        
$end strpos($str$end$start);
        
$result substr($str$start$end $start);
        
flush();
return 
$result;
}

echo 
"\n\n\n*********************\n     (c) PaVl1k\n*********************\n\n\n";

echo 
"auth...";
$cookie auth($mail$pass);
if(
$cookie == 'error') die(" ERROR!\n\n\n\n");
echo 
" OK! \n\n";

$amount_friends count($friends);
echo 
"Amount friends: ".$amount_friends."\n\n";

$text urlencode($text);

for(
$i=1$i<=$amount_friends$i++) {
    
$id $friends[$i-1];
    echo 
"Send to friend #$i [id".$friends[$i-1]."]... \n";
    
$res connect("http://vkontakte.ru/gifts.php?to=".$friends[$i-1], $cookie);
    
$hash grabb($res'name="hash" value="''"');
    echo 
"  Grabb... hash = $hash\n";
    
$gift $gifts[rand(0count($gifts)-1)];
    echo 
"  Gift: $gift\n";
    
$res connect("http://vkontakte.ru/gifts.php?act=do_send&giftNumber=".$gift."&hash=$hash&to_users=".$friends[$i-1]."&to_users_custom=&giftText=$text&giftType=0"$cookie);
    
$locat grabb($res"Location: ""\n");
    
$locat trim($locat);
    
$res connect($locat$cookie);
    echo 
"SENSED! ;) \n\n";
    
sleep(1);
}

echo 
"All gifts sensed! =) \n (c) Pavl1k 2009-2010 \n\n\n\n";

/*/          byPavl1k        /*/
/*/       ICQ 396-613-887   /*/
/*/        [id40270043]    /*/

?>


Masters 29.12.2009 00:19

Какой бесплатный холст работает с php? или как иначе запустить это?)))

.Life 29.12.2009 00:26

Зачем хост?
Вот http://www.denwer.ru/
И хост уже ненужен будет...

pavl1k_fan@mail.ru 29.12.2009 16:33

Masters
Скачай Денвер и модули (http://www.denwer.ru/packages/php5.html)
Там всё написано как устанавливать )

.Life 29.12.2009 16:53

Цитата:

Сообщение от pavl1k_fan@mail.ru
Masters
Скачай Денвер и модули (http://www.denwer.ru/packages/php5.html)
Там всё написано как устанавливать )

А я разве не то написал?

Зачем хост?
Вот http://www.denwer.ru/
И хост уже ненужен будет...

pavl1k_fan@mail.ru 29.12.2009 18:26

.Life
То, я уточнил про php5, в данном случае без этих модулей скрипт работать не будет.

NoVinKa 29.12.2009 21:11

Невероятно вовремя! Спасибки! Подарю тебе рандомный подарок 31го числа! (:

ToR.4.ok 29.12.2009 21:59

спасибо) автор от меня получил подарочек)

winlogon.exe 30.12.2009 08:03

А как то можно чтобы отправилось только тем кто в папке "друзья" ?

mrTUZ 30.12.2009 10:29

мастерс, локал хост никто не отменял, если что.


Время: 13:02