mIRC Scripting - Tekil Mesaj gösterimi

**CoCoRiCo** · #2 26 Ekim 2021, 10:58

Alıntı:

Zanay Nickli Üyeden Alıntı

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 www.xxx.net/proxy.txt 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:

;-
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 www.proxyserverlist24.top 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) 
  }
}

Kod:

alias get_prx {
  set %ssite www.site.com |  sockopen -e prx_  %ssite 443
}
on *:sockopen:prx_*: {
  var %s sockwrite -n $sockname | %s GET /proxy_webd_e.txt HTTP/1.1 | %s Host: %ssite |  %s $crlf
}
on *:sockread:prx_*: {
  var %d | sockread -f %d | tokenize 32 %d 
  if $regex(%d,/(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\:\d+)/g) { _ekle %d }
}

/get_prx
/_ekle kullanarak senin webden aldığın listene ekler..
dosyaya yazsın istersen " .write dosya.txt %d " yapabilirsin.