RT3N ارسال شده در فِوریه 24 2015 گزارش اشتراک گذاری ارسال شده در فِوریه 24 2015 #!/usr/bin/perl##ircbot $Host, PeerPort => $Port, Proto => 'tcp', ) || die "No connection $!n";print $sock "NICK $nickrn";print $sock "USER $emailrn";while ($input = ){ if ($input =~ /004/){ last; } elsif ($input =~ /433/){ #nick already taken, auto switch to an alternate randomly from list $a = int(rand($#alternate)); $newnick = $alternate[$a]; print $sock "NICK $newnickrn"; }} print $sock "JOIN $channelrn"; while ($input = ){ chop $input; if ($input =~/^PING(.*)$/i){ print $sock "PONG $1rn"; print $sock "PRIVMSG $channel :irc bot coded in perl -> This is the hidden content, please ورود یا ثبت نام "; } elsif ($input =~/!start(.*)/){ for ($i = 0; $i < 20; ++$i) { $r = int(rand($#resp)); $message = $resp[$r]; print $sock "PRIVMSG $channel :$messagern"; sleep(10) } } elsif ($input =~/!time(.*)/){ $time = time(); print $sock "PRIVMSG $channel :local time/date: $timern"; } else{ #@tmp = split(/:/, $input); print $input #$tmp[1]} } واکنش ها : kingdeface، iranihacker، Mehran_FLash و 2 نفر دیگر 3 2 نقل قول لینک به دیدگاه به اشتراک گذاری در سایت های دیگر گزینه های به اشتراک گذاری بیشتر...
پست های پیشنهاد شده
به گفتگو بپیوندید
هم اکنون می توانید مطلب خود را ارسال نمایید و بعداً ثبت نام کنید. اگر حساب کاربری دارید، برای ارسال با حساب کاربری خود اکنون وارد شوید .