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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Çözüldü Toplu Proxy ekleme (https://www.ircforumlari.net/mirc-scripting-sorunlari/891217-toplu-proxy-ekleme.html)

Toplu Proxy ekleme

Selamun aleykum. Coder arkadaşlar kusura bakmayın sizi de meşgul ediyorum. Hakkınızı helal edin.

Benim mümkünse sizden istediğim proxy.txt dosyasında ki ;
174.77.111.196:4145
174.76.48.252:4145
72.195.34.41:4145
174.64.199.82:4145
Şeklinde ekli olan proxyleri ;
/pr ekle *@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].72.* komutu ile bu şekilde toplu kayıt etmesini istiyorum tek bir komut ile yani proxy.txt de olan proxyleri komut ile okutarak ekletmek istiyorum.
Yalnız ilk 2 yada 2 rakamdan sonrasını Örnek:
194.18. gibi.
84.103. gibi
yani okuturken 2. noktadan sonrasını görmesin istiyorum bilmiyorum anlatabildim mi?

Cevap: Toplu Proxy ekleme

Kod:

alias pr {

  var %satir = $lines(proxy.txt) , %x = 1

  while %x <= %satir { .timer 1 2 msg $chan .proxy ekle $gettok($read(proxy.txt,%x),1-2,46) $+ $chr(46) $+ $chr(42)

  inc %x }

}

On *:input:#Opers:{

  if $1 == !pr { pr }

}

;kanalda !pr yazarak proxy.txt de ki proxyleri istedıgın sekılde #Opers kanalina yansıtır. kanalı degıstırebılırsın. iyi forumlar.
Bu arada daha iyiside elbette yapılabılır. bilgim kadar yardımcı oldum. Lütfen Deneyerek Dönüş yapınız

Cevap: Toplu Proxy ekleme

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...], öncelikle ilgi ve alakan için teşekkür ederim. Yalnız sanırım ben pek iyi izah edemedim istediğim şeyi. O yüzden tekrar belirtmekte fayda var.
Şimdi elimde bi KOD var ve /pr ekle *@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].72.* şeklinde ekleme yapıyor. Mesela 195.85.14.85 şeklinde ki ip adresini.
/pr ekle *@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].85.* şeklinde ekliyorum. İp aralıkları fazla olduğu için manuel zaman alıyor. Bende düşündüm ki. Belirttiğim txt dosyasın da ki ;
174.77.111.196:4145
174.76.48.252:4145
72.195.34.41:4145
Şeklinde olan Proxyleri. Kod ile otomatik kayıt ettirmek (eklemek) mümkün olursa daha güzel ve yararlı olur diye düşündüm. Yalnız eklerken bu proxyleri, İp adresinin 2. noktasından sonrasını almasın Örnek verirsek;
88.230.78.150 ve 200.25.174.89 şeklinde 2 proxy ip var bunları eklerken 2. noktadan sonrasını baz almasın
Örnek; /pr ekle *@88.230.* ve *@200.25.* şeklinde eklesin. Umarım daha anlaşılır olmuştur isteğim. Tekrardan teşekkürler.

Cevap: Toplu Proxy ekleme

Alıntı:

High Nickli Üyeden Alıntı (Mesaj 1042409871)

//echo -a $regsubex(174.77.111.196:4145,/(^\d+\.\d+\.).+/gi,*@\1*)

Çıktı:
*@174.77.*

Kırmızı işaretlediğim yer eklemek istediğin veri gelecek.

Cevap: Toplu Proxy ekleme

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...], sağ ol yardımın için fakat yapmak istediğim şey bu değil. Sanırım yine ifade edemedim.

Cevap: Toplu Proxy ekleme

Kod:

alias p.ekle {

var %+ 1  

while %+ <= $lines(proxy.txt) {

gzline $regsubex($read(proxy.txt,%+),/(^\d+\.\d+\.).+/gi,*@\1*) 1h proxy ip | inc %+ } }

/p.ekle
yazınca proxy.txt dosyasındaki ip adreslerine Sevgili @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] in belirttiği ve tamda senin istediğin gibi gzline uygulanır.

Cevap: Toplu Proxy ekleme

@

Öncelikle kusura bakmayın. KOD'u paylaşmadan yapmak istediğim şeyi anlatmak mümkün olmayacak. Sil baştan anlatacak olursam. Yukarı vermiş olduğum KOD da proxyleri /Pr ekle *@198.52.* şeklinde ekliyorum bu proxyleri mIRC de pr.x ismin de txt dosyaya ekliyor. Manuel eklemek çok zaman alıyor. Benim istediğim belirtmiş olduğum txt dosyasın da ki proxyleri tek bir komut ile toplu şekilde pr.x dosyasına *@198.25.* şeklinde eklemesini istiyorum.
Mesela belirttiğim proxy.txt dosyasın da 100 adet proxy var şu şekilde;
188.59.186.124:44550
185.169.181.12:4145
185.169.181.24:4145
212.154.83.60:45272
Ben bunları tek bir komut ile mIRC'im de bulunan pr.x dosyasına
*@196.25.* şeklinde eklemesini istiyorum. Yukarıda kullandığım KOD da proxyleri /pr ekle *@96.148.* şeklinde ekliyorum.
Umarım daha iyi anlatabilmişimdir.
Şimdiden teşekkürler.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 00:29 -->-> Daha önceki mesaj 00:28 --

Dipnot Mesajı: on *:join:#:{
if ($count($nick($chan,$me).pnick,@,&,~,%) != 0) && %Proxy.koruma == On {
var %ip $gettok($address,2,$asc(@))
if $hfind(p,%ip,1,W).item { if $hfind(m,$nick,1,W).item { echo 3 -ae 11****5 Muaf nick girişi:4 $nick 5Atılmadı. | return }
kick $chan $nick 0,1BLACKLiST! | mode $chan +b $+(*!*@,$hfind(p,%ip,1,W).item) }
}
}
on *:Start:{
if !$file(pr.x) { write -c pr.x } | hmake p | hload p pr.x
if !$file(m.x) { write -c m.x } | hmake m | hload m m.x
}
alias pr {
if !$hget(p) { if !$file(pr.x) { write -c pr.x } | hmake p | hload p pr.x }
if !$hget(m) { if !$file(m.x) { write -c m.x } | hmake m | hload m m.x }
if $1 == Aç { set %proxy.koruma ON | echo 3 -ae *** 12Proxy Koruması açılmıştır. } | if $1 == Kapat { set %proxy.koruma Off | echo 3 -ae *** 4Proxy Koruması kapatılmıştır.. }
if $1 == ekle {
if !$2 { echo 3 -ae 11***7 Lütfen ip adresi yaz, $me $+ . | return }
if $hfind(p,$2,1,W).item { echo 3 -ae 11***7 Bu ip listede mecvuttur. | return }
hadd -m p $2 Proxy | hsave p pr.x
echo 3 -ae 11*** $2 12Listeye eklenmiştir.
}
if $1 == sil {
if !$2 { echo 3 -ae 11***7 Lütfen ip adresi yaz, $me $+ . | return }
if $hfind(p,$2,1,W).item {
hdel p $ifmatch | hsave p pr.x
echo 3 -ae 11*** $ifmatch 4Listeden silinmiştir.
}
else { echo 3 -ae 11***10 Listeden bulunamamıştır. }
}
if $1 == liste {
var %s 1, %f $hget(p,0).item
if $hget(p,0).item == 0 { echo 3 -ae 11***7 Liste boş durumda. | return }
while %s <= %f {
echo 3 -ae 11***4 Proxy IP listesi: $hget(p,%s).item
inc %s
}
}
if $1 == muaf {
if $2 == ekle {
if $hfind(m,$3,1,W).item { echo 3 -ae 11***7 Bu nick listede mecvuttur. | return }
hadd -m m $3 Proxy | hsave m m.x
echo 3 -ae 11*** $3 12Muaf nick listeye eklenmiştir.
}
if $2 == sil {
if $hfind(m,$3,1,W).item {
hdel m $ifmatch | hsave m m.x
}
else { echo 3 -ae 11***5 Listeden bulunamamıştır. }
}
if $3 == liste {
var %s 1, %f $hget(m,0).item
if $hget(m,0).item == 0 { echo 3 -ae 11***4 Liste boş durumda. | return }
while %s <= %f {
echo 3 -ae 11***12 Proxy muaf Nick Listesi: $hget(m,%s).item
inc %s
}
}
}
}
on *:join:#:{
if ($count($nick($chan,$me).pnick,@,&,~,%) != 0) && %Proxy.koruma == On {
var %ip $gettok($address,2,$asc(@))
if $hfind(p,%ip,1,W).item { if $hfind(m,$nick,1,W).item { echo 3 -ae 11****5 Muaf nick girişi:4 $nick 5Atılmadı. | return }
kick $chan $nick 0,1BLACKLiST! | mode $chan +b $+(*!*@,$hfind(p,%ip,1,W).item) }
}
}

--------------
/Pr Aç
/Pr Kapat
/Pr ekle *@198.16.*
/Pr sil *@198.16.*

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 00:52 -->-> Daha önceki mesaj 00:29 --

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...], Kusura bakma üstad eksik bilgilendirme yaptım yukarıda kodu paylaştım ve izah ettim

Cevap: Toplu Proxy ekleme

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

Kod:

alias iekle {  if ($dialog(Proxy_ekle)) { dialog -c Proxy_ekle } |  dialog -ma Proxy_ekle Proxy_ekle }

dialog Proxy_ekle {

  title "Hash Proxy Ekleme"

  size -1 -1 264 163

  option pixels

  box "Ekleme yapmak için dosya seçin", 1, 11 6 240 130

  button "Proxy IP Ekle", 2, 33 34 197 80, normal

  text "Yüklenen Proxy Adet:", 3, 62 140 108 16

  text "0", 4, 171 140 50 16, center

}
 

on 1:dialog:Proxy_ekle:*:*:{

  if ($devent == init) {

  }

  if ($devent == sclick) {

    if ($Did == 2) {

      Var %F = $SFile($mIRCDir,Txt Dosyasını Seçiniz,Ekle), %eklenen = 0

      If (%F) { 

        Var %I = 1 

        While ($Read(%F,%I)) { 

          Var %F1 = $Read(%F,%I), %j = $regsubex(%F1,/(^\d+\.\d+\.).+/gi,*@\1*)

          if !$hget(p,%j) {

            hadd -m p %j Proxy

            hsave -o p pr.x

            inc %eklenen

          }

          inc %I

        } 

      } 

      did -o Proxy_ekle 4 1 %eklenen

    }

  }

}

Daha önce kendim için yapmıştım senin isteğine göre uyarladım.

Kullanım:
/iekle yazıp açılan pencerede proxy.txt dosyasını seçiyorsun gerisini kendi hallediyor.

Cevap: Toplu Proxy ekleme

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...], çok sağ ol üstad bu aradığımdan da iyi (; hatta harika. pr.x dosyasına tıkır tıkır ekliyor :D eline, emeğine sağlık

Cevap: Toplu Proxy ekleme

Kod:

alias pr {

  var %satir = $lines(proxy.txt) , %x = 1

  while %x <= %satir { .write pr.x $gettok($read(proxy.txt,%x),1-2,46) $+ $chr(46) $+ $chr(42)

  inc %x }

}

On *:input:#Opers:{

  if $1 == !pr { pr }

}

Yardımcı Olan Sevgili Coder'lerin emeğine sağlık. Ben ilk kodu şu şekilde güncelledim. #Opers kanalında !pr yazdıgında mirc ana klasöründe bulunan proxy.txt içinde ki proxyleri Şu şekilde ekler.
Örnek: Proxy.txt de ki proxyler
185.156.172.122:3128
186.103.130.93:8080
62.171.177.80:3129
Eklendikten sonraki Görünüm:
185.156.*
186.103.*
62.171.*

Yine mIRC ana klasöründe pr.x uzantılı dosyaya kayıt eder. Saygılar iyi forumlar.