ICQ¹¤¾ß
<?

function check_stat($uin) {
     
$arr = @file("http://wwp.icq.com/scripts/online.dll?icq=$uin&img=1");
     
$len strlen($arr[1]);
     if (
$len == "") return "1";
     if (
$len == 96) return "2";
     if (
$len == 83) return "3";
     if (
$len == 1) return "4";
}

switch (
$task) {

case 
'lookup':
    if (
check_stat($uin)=="1" OR "2"){
    
?>
        <form action="<? print $PHP_SELF ?>" method="post">

        <b>The ICQ Online-Message Panel</b><br><br>

        <b>Sender Name</b> (optional):<br>
        <input type="text" name="from" value="" size=15 maxlength=40><br>
        <b>Sender EMail</b> (optional):<br>
        <input type="text" name="fromemail" value="" size=15 maxlength=40><br>
        
        <input type="hidden" name="subject" value="PHP ICQ Jobbler!">
        
        Message:<br>
        <textarea name="body" rows="3" cols="30" wrap="Virtual"></textarea>

        <input type="hidden" name="to" value="<? print $uin?>">
        <input type="hidden" name="task" value="send">
        <input type="submit" name="Send" value="Send Message">&nbsp;&nbsp;
        <input type="reset" value="Clear">
        </form>
    <?} else {
    
?>
        Moose!    
    <?}
break;

case 
'send':
    
mail($to "@pager.icq.com""$subject""$body""Return-path:$fromemailnFrom: $from");
    print 
"emailto:" $to "@pager.icq.com<br><br>nn";
    print 
"subject:" $subject "<br><br>nn";
    print 
"body:" $body "<br><br>nn";
break;

default:
?>

<h1>ICQ Jobbler!</h1>
<form method="post" action="<? print $PHP_SELF?>">
<input type="text" name="uin">

<input type="hidden" name="task" value="lookup">
<input type="submit" value="Check that number!">
</form>

<?
break;
}