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\\r\\n\";
$this->cmd .= \"Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-excel, application/msword, application/vnd.ms-powerpoint, */*\\r\\n\";
$this->cmd .= \"Accept-Language: en-us\\r\\n\";
$this->cmd .= \"Content-Type: application/x-www-form-urlencoded\\r\\n\";
$this->cmd .= \"Accept-Encoding: gzip, deflate\\r\\n\";
$this->cmd .= \"User-Agent: Mozilla/4.0 (compatible; MSIE 5.01; Windows 95)\\r\\n\";
$this->cmd .= \"Host: $this->host\\r\\n\";
}
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) . \"\\r\\n\";
$this->cmd .= \"Connection: Keep-Alive\\r\\n\\r\\n\";
$this->cmd .= $command . \"\\r\\n\\r\\n\";
$fp = fsockopen ($this->host, $this->port, &$errno, &$errstr, 30);
if (!$fp) {
echo \"Socket Error.<br>\\n\";
echo \"$errstr ($errno)<br>\\n\";
} 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);
?>
发布人:netbull 来自:奥索网