Konu: Güncel Cycle Botu Hakkında
Tekil Mesaj gösterimi
Alt 20 Ekim 2021, 16:07   #1
Çevrimdışı
Zanay Doğrulanmış Üye
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cycle Botu Hakkında




Merhaba ;

Güncel olarak çalışmakta olan Cycle botumuzun kodu aşağıda verilmiştir. Bizim istediğimiz botun proxy sitesinden değil de bizim hazırlamış olduğumuz proxy.txt dosyasından verileri alması. Örnek : Biz [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] dosyasını siteye göndericez bot proxy sitesi yerine verileri buradan alıp .txt dosyasına ekleyecek. Yardımlarınız için şimdiden teşekkürler.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
;- alias _sunucu return irc.xxx.Net:xxxx alias _nick return $read(nick.txt) alias _ident return $read(ident.txt) ;Bot'ların sayısı lütfen belirleyiniz ;Gece 22'den saat 04'a kadar girecek bot sayısı alias _sabah return 10 ;Sabah 5'dan öglen 10'ye kadar girecek bot sayısı alias _öglen return 20 ;Öglen 11'den akşam 3'e kadar girecek bot sayısı alias _aksam return 30 ;Akşam 16'den gece 21'e kadar girecek bot sayısı alias _gece return 50 - alias sw if ($sock($1).status == active) sockwrite -nt $1- ###################### Ayarlancak Bolum Ust Kısım Sadece! ###################### alias clone { if $lines(proxy.txt) == 0 { .timercycle off | unset %* | _al | return } var %:proxy $read(proxy.txt), %:rnd $+($md5($ticks),$r(10,999)) if $read(proxy.txt,w,$+(*,%:proxy,*)) { .write $+(-,dl,$readn) proxy.txt } $iif(!$sock($+(cycle,%:rnd)),.sockopen $+(cycle,%:rnd) $gettok(%:proxy,1,58) $gettok(%:proxy,2,58)) } on *:start:_al alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } alias _güncel { echo -a Proxy list güncellendi toplam4 $lines(proxy.txt) | sockclose _proxy* | unset %* | .timercycle 1 5 kontrol } alias _ekle { if $regex($1,/(\d+\.\d+\.\d+\.\d+)) { if !$read(proxy.txt,w,$1) { .write proxy.txt $+($1,:,$2) } } } alias _al { .remove proxy.txt sockclose links sockopen links
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 $+(.timer,qproxy) 1 60 _güncel } on *:sockopen:links:{ sockwrite -nt $sockname GET / HTTP/1.1 sockwrite -nt $sockname Host: $sock($sockname).addr sockwrite -nt $sockname Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */* sockwrite -nt $sockname Accept-Language: tr-TR sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729) sockwrite -nt $sockname Connection: Keep-Alive sockwrite -nt $sockname $crlf } on *:sockread:links:{ var %links | sockread %links | .tokenize 32 %links if (*#more* iswm %links) { return } if (*timestamp-link*.html* iswm %links) { var %rand $rand(10,999999) .sockopen $+(ipal,%rand) $sock($sockname).addr 80 .sockmark $+(ipal,%rand) $token($token(%links,3-5,47),1,39) } } on *:sockopen:ipal*:{ sockwrite -nt $sockname GET $+(/,$sock($sockname).mark) HTTP/1.1 sockwrite -nt $sockname Host: $sock($sockname).addr sockwrite -nt $sockname Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */* sockwrite -nt $sockname Accept-Language: tr-TR sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729) sockwrite -nt $sockname Connection: Keep-Alive sockwrite -nt $sockname $crlf } on *:sockread:ipal*:{ var %ipal | sockread %ipal | .tokenize 32 %ipal if (*.*.*:* iswm %ipal) && (*a* !iswm %ipal) { _ekle $token(%ipal,1,58) $token(%ipal,2,58) } }


 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet bizimmekan sohbet odaları