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/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   Proxy Bulucu (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/19417-proxy-bulucu.html)

SCouNDReL 21 Haziran 2006 16:33

Proxy Bulucu
 
Kod:

; Proxy Bulucu By SCouNDReL
;
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
a Tesekkurler
; /proxybulucu komutu ile Calistirin
; Iyi Sanslar (:
alias sjn { sockwrite -n proxy $1- | did -ra proxy 8 Yukleniyor... }
alias sjn2 { sockwrite -n proxy2 $1- | did -ra proxy 8 Yukleniyor... }
alias sjn3 { sockwrite -n proxy3 $1- | did -ra proxy 8 Yukleniyor... }
alias cleartext { return $remove($1-,<,>,/,td,br) }
alias pwhois { sockclose proxy3 | sockopen proxy3
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | set %sjn.pwhois $1 }
alias pagejump { sockclose proxy2 | sockopen proxy2
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | set %sjnproxy.link $1- $+ .html }
alias proxybulucu {
  dialog -m proxy proxy 
  sockclose proxy
  sockopen proxy
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
}
on *:SockOpen:proxy:{
  if ($sockerr) { did -ra proxy 8 Hata! | sockclose proxy* } 
  sjn GET / HTTP/1.1
  sjn host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sjn User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
  sjn $crlf
}
on *:SockRead:proxy:{
  var %a
  sockread %a
  if (page isin $gettok(%a,5,32)) { did -a proxy 1 $remove($gettok($gettok(%a,5-,32),2,$asc(>)),<,/a,>,/td) }
}
dialog proxy {
  title "Proxy Bulucu"
  size -1 -1 267 162
  option dbu
  list 1, 5 19 33 105, size
  text "Sayfa Listesi", 2, 8 8 25 8
  text "Sayfayi Gormek Icin Cift Tikla", 3, 1 125 41 17
  list 4, 43 19 216 105, size
  button "Kullan", 5, 123 126 49 12
  button "Whois", 6, 199 126 51 12
  text "Proxy Listesi", 7, 134 8 31 8
  edit "Yukleniyor", 8, 82 144 111 11, read
  button "Proxy Kullanma", 9, 53 126 50 12
}
on *:dialog:proxy:*:*:{
  if ($devent == dclick) {
    if ($did == 1) { unset %sjn.answer | unset %sjn.test | pagejump $remove($did(1).seltext,$chr(32)) | did -r proxy 4 }
  }
  if ($devent == init) { did -b proxy 8 }
  if ($devent == sclick) { if ($did == 6) { 
      $iif($dialog(pwhois),dialog -x pwhois pwhois)
      $iif($did(4).sel,dialog -m pwhois pwhois)   
      unset %sjn.answer   
      $iif($did(4).sel,pwhois $gettok($did(4).seltext,1,32))
    }
    if ($did == 5) { .firewall on | .firewall -mp $gettok($did(4).seltext,1,32) $gettok($did(4).seltext,3,32) | echo -a Kullanilan Proxy -> $gettok($did(4).seltext,1,32) $gettok($did(4).seltext,3,32) }
    if ($did == 9) { .firewall off | echo -a Proxy Kullanimi Iptal Edildi }   
  }
  if ($devent == Close) { sockclose proxy* }
}
on *:SockOpen:proxy2:{
  if ($sockerr) { did -ra proxy 8 Hata! | sockclose proxy* }
  sjn2 GET / $+ %sjnproxy.link HTTP/1.1
  sjn2 host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sjn2 User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) 
  sjn2 $crlf
}
on *:SockRead:proxy2:{
  var %a
  sockread %a 
  if ($gettok(%a,1,32) == <tr) && (href !isin %a) { set %sjn.test Ok! }
  if (%sjn.test == Ok!) && (bgcolor !isin %a) && (align !isin %a) && (class !isin %a) && (href !isin %a) && (width !isin %a) { %sjn.answer = %sjn.answer - $cleartext(%a) }
  if ($gettok(%a,1,32) == </tr>) { $iif($remove(%sjn.answer,-,tr,$chr(32)) && %sjn.answer != - tr && $mid($gettok(%sjn.answer,2,32),1,1) isnum,did -a proxy 4 $gettok($remove(%sjn.answer,tr),2-,32)) | unset %sjn.test | unset %sjn.answer }
}
on *:SockClose:proxy*:{
  did -ra proxy 8 Tamam.
}
dialog pwhois {
  title "Whois Bak"
  size -1 -1 158 188
  option dbu
  edit "", 1, 12 12 135 157,read vsbar multi autovs autohs
  button "Tamam", 2, 59 174 37 12, ok
}
on *:Dialog:pwhois:close:*:sockclose proxy3 | did -ra proxy 8 Tamam.
on *:SockOpen:proxy3:{
  sjn3 GET /cgi-bin/whois.cgi?domain= $+ %sjn.pwhois HTTP/1.1
  sjn3 host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sjn3 User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
  sjn3 $crlf
}
on *:SockRead:proxy3:{
  var %a
  sockread %a
  if (<code> isin %a) {
    var %i 3
    while %i <= 19 {
      did -a pwhois 1 $cleartext($gettok(%a,%i,$asc(>))) $+ $crlf
      inc %i 
    } 
  }
}

Alt+r Yaptıktan Sonra Çıkan Yere KodLarı Yapıştırın Ve /proxybulucu Komutu İle Çalıştırın...

Cappystarj0e 22 Haziran 2006 21:09

Yanıt: Proxy Bulucu
 
Guzel calisma Jan'im. Ama tabii ki, VB Rulez!! ;oki

ExrimCi 10 Mart 2009 05:49

Cevap: Proxy Bulucu
 
SeLamüN aLeyküm üstadLar ßen şöyLe ßi mIRC addonu istiyorum kendim denedim ama oLmadı yapamadım :(
ßen 2 çeşit Proxy addonu istiyorum addonda şöyLe oLacak 1. si Admin Proxy addonu oLacak ve ßu addonu açtığımda ekLe siL ve değiştir ßutonLarı oLacak ßen kendim Proxy IP NumaraLarını ßu addon iLe mIRC ime yükLeme yapmak istiyorum ve ßu Proxy IP Leri yükLediğim zaman ya ßi Proxy text dosyası veya Proxy ini dosyasına kaydetmesini istiyorum Operim giriLi iken serverde ßu Proxy addonundaki ekLemiş oLduğum Proxy Lerden ßiri servere girerse hemen o Proxy ye otomatik kline atmak istiyorum.
2. addonumda yine aynı ßu addon gibi oLacak fakat sadece kanaLa operatrLeri için oLacak ßu addonada proxy IP Leri değiLde hostLarını yazicam ßen kanaLda op (@) iken £kLemiş oLduğum Proxy hostu kanaLa girerse ßuna da ßan ve kick atsın istiyorum. ßöyLe ßi addon aradım ama ßuLamadım ßu sitede varsa ßi Link yazarmısınız yada siz sayın mIRC üstadLarım ßöyLe ßi addon hazırLaya ßiLirmisiniz ? ßu koda çok aciL ihtiyacım var Lütfen ßiLgisi oLan arkadaşLar üstadLar duyun sesimi yardım edeceğinizden eminim herkeze teşekkür £der koLay geLsin derim aLLah'a £manet oLun.

CesuryureK 10 Mart 2009 10:53

Cevap: Proxy Bulucu
 
Can emeğine sağlık, umarım kodun farklı amaclı kişilere hizmet etmez :)

ExrimCi istediğini mIRC Scripting Sorunları Bölümünde açabilirsin
ikinci bir kısım yazı şeklin tabiki beni bağlamaz ama bari yüksek bir kutsiyeti ve değeri olanları düzgün yazsak?

aLLah değil Allah

ExrimCi 10 Mart 2009 19:29

Cevap: Proxy Bulucu
 
Alıntı:

CesuryureK Nickli Üyeden Alıntı (Mesaj 656302)
Can emeğine sağlık, umarım kodun farklı amaclı kişilere hizmet etmez :)

ExrimCi istediğini mIRC Scripting Sorunları Bölümünde açabilirsin
ikinci bir kısım yazı şeklin tabiki beni bağlamaz ama bari yüksek bir kutsiyeti ve değeri olanları düzgün yazsak?

aLLah değil Allah

CesurYürek Ne demek istediğini tam anLamıyLa kavrayabiLmiş değiLim ßiraz daha açarmısın ?

Skills 18 Mart 2009 15:33

Cevap: Proxy Bulucu
 
Gayet Açık Bir Şekilde Anlatmiş işte.

RapStar 19 Mart 2009 02:32

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

Ben Bunun Kullanımından Hiç Birşey Anlamadım.. Biraz Yardımcı Olmanız Mümkünmü .. ?


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

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk