Çözüldü Toplu Proxy ekleme - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

High · 17 Aralık 2020, 19:52

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?

IoRi YaGaMi · 17 Aralık 2020, 23:06

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

High · 18 Aralık 2020, 00:09

@[Ü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.

Alper · 18 Aralık 2020, 00:37

High Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

@[Ü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.

//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.

High · 18 Aralık 2020, 01:18

@[Ü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.

diEfoRyoU · 18 Aralık 2020, 01:28

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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.

High · 18 Aralık 2020, 01:52

@

Ö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

Alper · 18 Aralık 2020, 02:02

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

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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.

High · 18 Aralık 2020, 02:10

@[Ü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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
eline, emeğine sağlık

IoRi YaGaMi · 18 Aralık 2020, 13:49

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Toplu Akill Ekleme	alfarolex	mIRC Scripting Sorunları	8	05 Şubat 2015 23:42
Proxy Koruması Remoteye ekleme	XDie	mIRC Scripting Sorunları	1	30 Temmuz 2012 05:02
Toplu aop ekleme /silme	diyorumki	mIRC Scripting Sorunları	8	12 Nisan 2011 19:01
Proxy Listesine Ekleme yapma ?	netustad68	mIRC Scripting Hazır Kodlar	2	14 Ağustos 2010 12:05
nomercy e proxy koruması ekleme.	paLe	mIRC Scripting Sorunları	6	09 Aralık 2008 23:30

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.