PHP寫的ICQ呼機

改下地址,可以呼OICQ的喔!
<?
# ICQ Pager v0.0.1
# Brazil r0x.
# thanks goes to upalele, meganha, neo, figui, lunetta and vipman(for his psychological help about iX[Egg])
class icqpager {
var $path = “/scripts/WWPMsg.dll”;
var $host = “wwp.icq.com”;
var $port = 80;
var $cmd;

function icqpager() {
$this->cmd = “POST $this->path HTTP/1.1
“;
$this->cmd .= “Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-excel, application/msword, application/vnd.ms-powerpoint, */*
“;
$this->cmd .= “Accept-Language: en-us
“;
$this->cmd .= “Content-Type: application/x-www-form-urlencoded
“;
$this->cmd .= “Accept-Encoding: gzip, deflate
“;
$this->cmd .= “User-Agent: Mozilla/4.0 (compatible; MSIE 5.01; Windows 95)
“;
$this->cmd .= “Host: $this->host
“;
}

function send($uin, $from, $email, $subject, $message) {

$command = “from=” . $from . “&fromemail=” . $email . “&subject=” . $subject . “&body=” . $message . “&to=” . $uin . “&Send=Send+Message”;
$this->cmd .= “Content-Length: ” . strlen($command) . ”
“;
$this->cmd .= “Connection: Keep-Alive

“;
$this->cmd .= $command . ”

“;

$fp = fsockopen ($this->host, $this->port, &$errno, &$errstr, 30);
if (!$fp) {
echo “Socket Error.
“;
echo “$errstr ($errno)
“;
} else {
fputs($fp, $this->cmd);
fclose($fp);
}
}
}
?>
Example
<?
require(“icqpager.php”);

$uin = “YOUR UIN NUMBER HERE”;
$from = “root”;
$email = “root@localhost”;
$subject = “test”;
$message = “testing… 1…2…3…”;

$icqpager = new icqpager();
$icqpager->send($uin, $from, $email, $subject, $message);
?>

發佈留言

發佈留言必須填寫的電子郵件地址不會公開。 必填欄位標示為 *