17 Ağustos 2008, 15:30
#1 Misafir
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Cevap: Soket bot info
LyXiRd Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Elimde Şöyle Bir Kod var ama Unix de çalışıyor PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
<? function phpbot ( $server , $port , $user , $nick , $realname , $channel ) { $sockname = fsockopen ( $server , $port , $errno , $errstr ) or exit( " $errno $errstr " ); $repeat = "0" ; while ( $sockread = fgets ( $sockname , 512 )) { $sockread = explode ( " " , $sockread ); if (! $repeat ) { fputs ( $sockname , "USER $user x x : $realname \n" ); fputs ( $sockname , "NICK $nick \n" ); } if ( $sockread [ 0 ] == "PING" ) { fputs ( $sockname , "PONG : $sockread [ 1 ] \n" ); } if ( $sockread [ 1 ] == "001" ) { fputs ( $sockname , "JOIN $channel \n" ); } if ( fnmatch ( "43?" , $sockread [ 1 ])) { fputs ( $sockname , "NICK $nick " . str_repeat ( mt_rand ( 0 , 9 ), 3 ). "\n" ); } $repeat ++; } } ?> <html> <center> <input type="button" onclick="<?=phpbot ( "İRC SERVER ADRESİ" , "6667" , "phpbot" , "phpbot" , "phpbot" , "#GİRİLECEK KANAL" ); ?> " value="Connect"/> </center> </html>
Newline 'ları (\n) yerine Satır Başı ve Newline yap (\r\n) Windows 'ta da çalışsın.
Yani...
Kod: Kodu kopyalamak için üzerine çift tıklayın!
<?php
$newline = ((substr(PHP_OS, 0, 3) == 'WIN') ? "\r\n" : "\n");
?>
Sonra da \n yerine $newline yaz..
Kod: Kodu kopyalamak için üzerine çift tıklayın!
if ($sockread[1] == "001") {
fputs($sockname, "JOIN $channel" . $newline);
}