ini_set display_errors true error_reporting E_ALL include libs curl pi

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
<?
ini_set('display_errors', true);
error_reporting(E_ALL);
include 'libs/curl/pi_curl_exception.php';
include 'libs/curl/pi_curl.php';
$cURL = new Pi_Curl;
$cURL->setDefaultOptions();
$cURL->setOption('URL', 'http://www.pr-cy.ru/analysis/?url=nulled.ws');
$cURL->setOption('TIMEOUT', 10);
$cURL->applyOptions();
$result = curl_exec($cURL->getHandle());
$pattern = "~<strong class=\"grey\">(.*)</span>~Uis";
preg_match($pattern, $result, $matches);
$result = strip_tags($matches[1]);
$result = explode("\n", $result);
foreach ($result as $key=>$value) {
if(!strlen($value)) {
unset($result[$key]);
}
}
$admin="638798"; //ася админа :)
$send2me=$admin; // туда пересылаются сообщения
$icq_number="1892816"; // ася бота
$icq_pass="x"; //пароль бота
$icq_std_status="FREE4CHAT"; //станд.статус
include "functions.php";
include "c99phpicq.php";
set_time_limit (0); // бесконечное время выполнения
ignore_user_abort(true);
$icq = new ICQclient($icq_number,$icq_pass);
$icq->errorstream = false;
$icq->dbgstream = false;
$icq->connect();
$icq->setstatus($icq_std_status);
$icq->setstatusflags("DCCONT","BIRTHDAY");
$icq->login();
while ($icq->socket)
{
$icq->listen();
if ($icq->ismessage())
{
$uin = $icq->inLastVar["uin"];
$text = $icq->inLastVar["text"];
$action = $icq->inLastVar["uin"] ;
$message = $icq->inLastVar["text"] ;
$mid = md5($icq->inLastVar["mid"]);
$text = trim($text);
$cmd = explode(" ",$text);
$cmd[0] = strtolower($cmd[0]);
$cmd[1] = strtolower($cmd[1]);
if ($text == "!exit" && $uin==$admin) {exit;}
elseif ($text == "!stats") { $icq->message_send($uin,"$data"); }
elseif ($cmd[0] == "!send" && $uin == $admin) {
$text2send = $cmd[2];
for($i=2; $i<=count($cmd); $i++) $text2send.=$cmd[$i];
$icq->message_send( $cmd[1], $cmd[2] );
}
else {
$icq->message_send($send2me,"пришло с номера
$uin
Написал он нам
$text
Статус Ботяры
Статус - $icq_std_status
Узнаем как там наш форум Nulled.ws
$result[url]");
}
}
}
?>