Autore |
Messaggio |
claudioo93
Utente esperto
Registrato: 01/11/07 20:37 Messaggi: 358
|
|
Problema con bot in phyton, |
|
allora avrei visto 1 codice per 1 bot in python...
lo caricato sul mio sito mettendo il nome e poi salvandolo con l'estenzione .py
poi lo caricato in 1 shell con wget link
dopo caricato, lo avviato semplicemente facendo python bot,py
ma funziona bene, ma il problema ? che ogni 2 minuti cade :/
mi hanno detto che e perch? il bot nn resiste al ping del server,
cmq sia, il codice del bot e questo ! :
| | import socket
"""Dati connessione"""
server = "irc.evoirc.org"
port = 6667
nick = "pybot"
channel = "#caxxeggio"
s = socket.socket(socket.AF_INET, socket.SOCK_STREAM)
"""Si connette al server e invia i dati: user, nickname e channel"""
s.connect((server, port))
s.send("USER PyBot 8 * :I'm a bot\r\n")
s.send("NICK " + nick + "\r\n")
s.send("JOIN " + channel + "\r\n")
print "[+]Connesso.\n"
while(True):
risposta_server = s.recv(4096)
print risposta_server,"\n" |
sapete dirmi xk? cado ?? e come potrei fare per nn farlo cadere ??
aspetto vostre risposte XD
|
|
Lun Mar 24, 2008 12:48 am |
|
|
claudioo93
Utente esperto
Registrato: 01/11/07 20:37 Messaggi: 358
|
|
|
|
Ah aggiungo che o provato anche a farlo partire in locale, cade lo stesso :=)
|
|
Lun Mar 24, 2008 12:49 am |
|
|
Remotes
Staff
Registrato: 12/11/05 19:32 Messaggi: 851 Residenza: Brusnengo (BI) |
|
|
|
con che messaggio di uscita cade?
comunque s?, potrebbe essere per il ping...
_________________ Linux Registered User n? #449257
|
|
Lun Mar 24, 2008 11:16 am |
|
|
birbafabio
Utente esperto
Registrato: 02/11/07 12:05 Messaggi: 204
|
|
|
|
Cader? molto probabilmente per Client Exited ed ? un problema del ping... io so solo un while in perl che risponde ai ping... per phyton sicuro non sar? uguale :/
_________________ NetworkAdministrator At Irc.RooTWorlD.Net - Irc.RooTWorlD.Eu |
|
Lun Mar 24, 2008 7:01 pm |
|
|
claudioo93
Utente esperto
Registrato: 01/11/07 20:37 Messaggi: 358
|
|
|
|
| | Cader? molto probabilmente per Client Exited ed ? un problema del ping... io so solo un while in perl che risponde ai ping... per phyton sicuro non sar? uguale :/ |
si e client exited...
nn si puo fare nnt per risolverlo ??
|
|
Lun Mar 24, 2008 8:59 pm |
|
|
birbafabio
Utente esperto
Registrato: 02/11/07 12:05 Messaggi: 204
|
|
|
|
S? ci vuole il code per il ping.. ma ti ripeto so solo quello in Perl quello in Phyton non lo so
_________________ NetworkAdministrator At Irc.RooTWorlD.Net - Irc.RooTWorlD.Eu |
|
Lun Mar 24, 2008 9:06 pm |
|
|
claudioo93
Utente esperto
Registrato: 01/11/07 20:37 Messaggi: 358
|
|
|
|
managgia se qualkuno lo sa mi farebb? 1 regalo se lo postase....
birba mi dici il codice per 1 bot in perl ?
|
|
Mar Mar 25, 2008 2:52 am |
|
|
birbafabio
Utente esperto
Registrato: 02/11/07 12:05 Messaggi: 204
|
|
|
|
Questo ? il code in perl: | | while (my $line = <sk>){
$line =~ s/\r\n$//;
if ($line=~ /^PING \:(.*)/) {
print $socket "PONG :$1";
} |
Ecco a te il while che risponde al ping
_________________ NetworkAdministrator At Irc.RooTWorlD.Net - Irc.RooTWorlD.Eu |
|
Mar Mar 25, 2008 9:00 am |
|
|
claudioo93
Utente esperto
Registrato: 01/11/07 20:37 Messaggi: 358
|
|
|
|
dico il codice intero nn solo del ping XDD
anke quello dove modifichi ome server ecc.
|
|
Mar Mar 25, 2008 3:51 pm |
|
|
birbafabio
Utente esperto
Registrato: 02/11/07 12:05 Messaggi: 204
|
|
|
|
| | use IO::Socket::INET;
use HTTP::Request;
my $server= "SERVER";
my $porta= "6667";
my $canale= "#CANALEl";
my $nick= "NICK";
my $ident = "IDENT",
my $realname = "REALNAME";
my $nickpass= "NICKPASS";
my $password= "PASSWORD";
my $pid=fork;
exit if $pid;
my $sk = IO::Socket::INET->new(PeerAddr=>"$server",PeerPort=>"$porta",Proto=>"tcp") or die "Can not connect on server!\n";
$sk->autoflush(1);
print $sk "NICK $nick\r\n";
print $sk "USER $ident $ident $ident $ident :$realname\r\n";
print $sk "PRIVMSG NickServ :id $nickpass\r\n";
print $sk "JOIN $canale\r\n";
while (my $line = <sk>){
$line =~ s/\r\n$//;
if ($line=~ /^PING \:(.*)/) {
print $sk "PONG :$1";
}
if ($line=~ /PRIVMSG $nick :!out $password/){
print $sk "QUIT\r\n";
exit;
}
} |
Questo ? il massimo che posso darti
_________________ NetworkAdministrator At Irc.RooTWorlD.Net - Irc.RooTWorlD.Eu
L'ultima modifica di birbafabio il Mar Mar 25, 2008 8:28 pm, modificato 1 volta |
|
Mar Mar 25, 2008 4:37 pm |
|
|
claudioo93
Utente esperto
Registrato: 01/11/07 20:37 Messaggi: 358
|
|
|
|
si salva in .perl ?
|
|
Mar Mar 25, 2008 8:09 pm |
|
|
birbafabio
Utente esperto
Registrato: 02/11/07 12:05 Messaggi: 204
|
|
|
|
claudio il formato ? .pl ... ti consiglio di provarlo in locale andando su: Start -> Esegui -> Scrivi CMD e dai invio -> cd CARTELLADOVETIENILFILE -> perl -w FILE.pl ... se ci sono errori te li dice
_________________ NetworkAdministrator At Irc.RooTWorlD.Net - Irc.RooTWorlD.Eu |
|
Mar Mar 25, 2008 8:16 pm |
|
|
claudioo93
Utente esperto
Registrato: 01/11/07 20:37 Messaggi: 358
|
|
|
|
il bot entra e dopo 1 secondo esce.... per client exited, o provato a farlo partire nella shel, e nn parte proprio :O
|
|
Mar Mar 25, 2008 8:54 pm |
|
|
claudioo93
Utente esperto
Registrato: 01/11/07 20:37 Messaggi: 358
|
|
|
|
ok il problema e risolto
ma nella shell nn fuge (
dopo caricato nel sito o fatto
perl nomedelbot.pl
nn esce nessx errore... ma il bot neanke nn entra (((
|
|
Mer Mar 26, 2008 12:44 am |
|
|
birbafabio
Utente esperto
Registrato: 02/11/07 12:05 Messaggi: 204
|
|
|
|
claudioo93... non ? detto che tutte le shell abbiano il perl istallato anche se il 75% lo ha
_________________ NetworkAdministrator At Irc.RooTWorlD.Net - Irc.RooTWorlD.Eu |
|
Mer Mar 26, 2008 9:25 am |
|
|
|