Change the address. You can call 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-& gt; cmd = "POST $ this-& gt; 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 );
?>