NSohbet- Türkçe mIRC

Log okuma addon’u

knGdvL — Thu, 19 Mar 2009 09:29:45 +0000

;————————————————————————————————————
;Yapımcı: L4roXyL
;Bu kod’u editleyipte “ben yaptım” diyen/yazan, “karakter fakiri” olduğunu açık bir şekilde ifade etmektedir.
;————————————————————————————————————
on *:load:if ($findfile($mircdir,x-gui.dll,0)) echo -aet Log $+(okuma,$chr(40),$chr(2),/logoku,$chr(2),$chr(41)) add-on’u başarı ile yüklendi. Yapımcı: $+($chr(2),L4roXyL) | else silya
on *:unload:noop $findfile($mircdir,r*.bmp,0,.remove -b $shortfn($1-)) | noop $findfile($mircdir,buton*.bmp,0,.remove -b $shortfn($1-)) | echo -ate Log okuma add-on’u başarı ile kaldırıldı. Yapımcı: $+($chr(2),L4roXyL)
alias silya echo -aet mIRC’inizde $+($chr(2),x-Gui.dll,$chr(2)) bulunmamaktadır. Add-on yüklenmedi. | .unload -rs $shortfn($script)
alias xgui return $dll(x-gui.dll,$1,$2-)
alias -l day return $replacecs($1,Monday,Pazartesi,Tuesday,Salı,Wednesday,Çarşamba,Thursday,Perşembe,Friday,Cuma,Saturday,Cumartesi,Sunday,Pazar)
alias sillog noop $findfile($logdir,*,0,.remove -b $shortfn($1-)) | $iif($input(Tüm loglar başarı ile silinmiştir.,o,Uyarı) == $true,window -c @log,window -c @log)
alias logoku {
if ($findfile($logdir,*,0) == 0) { $iif($input(Herhangi bir log dosyanız bulunmuyor.,o,Uyarı) == $true,halt,halt) | halt }
else {
window -c @log | var %1 = $iif(%cubuk,%cubuk,$rgb(3,113,118)) | buton_paint | clr_paint
window -BpdCk0 +d @log -1 -1 600 480
drawfill -r @log $iif(%tema,%tema,$rgb(5,169,177)) $iif(%tema,%tema,$rgb(5,169,177)) 0 0
drawrect -r @log %1 5 0 0 600 480 | drawline -r @log %1 3 0 20 600 20
drawrect -rf @log %1 1 2 2 594 17
drawtext -r @log $iif(%text,%text,$rgb(7,223,235)) Verdana 12 8 4 $+($chr(160),Log) okuma ( L4roXyL )
drawtext -r @log $iif(%text,%text,$rgb(7,223,235)) Verdana 12 585 3 x | xgui Mark @log
xgui Create @log > button 1 10 452 70 20 bitmap > buton5.bmp,buton6.bmp,buton5.bmp
xgui Create @log > button 2 453 452 66 20 bitmap > buton3.bmp,buton4.bmp,buton3.bmp
xgui Create @log > button 3 523 452 66 20 bitmap > buton.bmp,buton2.bmp,buton.bmp
xgui Create @log > button 7 453 30 15 15 bitmap > r.bmp,ra.bmp,ra.bmp
xgui Create @log > button 8 473 30 15 15 bitmap > r2.bmp,ra2.bmp,ra2.bmp
xgui Create @log > button 9 493 30 15 15 bitmap > r3.bmp,ra3.bmp,ra3.bmp
xgui Create @log > button 10 513 30 15 15 bitmap > r4.bmp,ra4.bmp,ra4.bmp
xgui Create @log > button 11 533 30 15 15 bitmap > r5.bmp,ra5.bmp,ra5.bmp
xgui Create @log > button 12 553 30 15 15 bitmap > r6.bmp,ra6.bmp,ra6.bmp
xgui Create @log > button 13 573 30 15 15 bitmap > r7.bmp,ra7.bmp,ra7.bmp
xgui Create @log > listbox 4 453 50 136 395 size vsbar hsbar
xgui Create @log > richedit 5 10 50 435 395 vsbar hsbar
xgui Create @log > richedit 6 90 453 350 20 center
xgui Create @log > richedit 14 12 27 350 20
xgui Set @log > color 4 $iif(%text,%text,$rgb(7,223,235)) $iif(%cubuk,%cubuk,$rgb(3,113,118))
xgui Set @log > style 4 windowedge | xgui Set @log > style 4 border
xgui Set @log > color 5 $iif(%text,%text,$rgb(7,223,235)) $iif(%cubuk,%cubuk,$rgb(3,113,118))
xgui Set @log > style 5 windowedge | xgui Set @log > style 5 border
xgui Set @log > color 6 $iif(%tema,%tema,$rgb(5,169,177)) $iif(%text,%text,$rgb(7,223,235))
xgui Set @log > style 6 windowedge
xgui Set @log > color 14 $iif(%tema,%tema,$rgb(5,169,177)) $iif(%text,%text,$rgb(7,223,235))
xgui Set @log > style 14 windowedge
xgui Set @log > font 4 Verdana > 8 1 0 0 0 | xgui Set @log > font 5 Verdana > 9 1 0 0 0 | window -a @log
return $findfile($logdir,*,0,xgui Listbox @log > AddItem 4 • $nopath($1-))
}
}
alias buton_paint {
window -BphdCk0 +d @buton -1 -1 70 20
drawfill -r @buton $iif(%tema,%tema,$rgb(5,169,177)) $iif(%tema,%tema,$rgb(5,169,177)) 0 0
drawrect -r @buton $iif(%cubuk,%cubuk,$rgb(3,113,118)) 3 0 0 70 20
drawtext -ro @buton $iif(%text,%text,$rgb(7,223,235)) Verdana 12 22 3 SIL
drawsave -b32 @buton buton.bmp | window -c @buton
window -BphdCk0 +d @buton -1 -1 70 20
drawfill -r @buton $iif(%text,%text,$rgb(7,223,235)) $iif(%text,%text,$rgb(7,223,235)) 0 0
drawrect -r @buton $iif(%cubuk,%cubuk,$rgb(3,113,118)) 3 0 0 70 20
drawtext -ro @buton $iif(%tema,%tema,$rgb(5,169,177)) Verdana 12 22 3 SIL
drawsave -b32 @buton buton2.bmp | window -c @buton
;buton 2
window -BphdCk0 +d @buton -1 -1 70 20
drawfill -r @buton $iif(%tema,%tema,$rgb(5,169,177)) $iif(%tema,%tema,$rgb(5,169,177)) 0 0
drawrect -r @buton $iif(%cubuk,%cubuk,$rgb(3,113,118)) 3 0 0 70 20
drawtext -ro @buton $iif(%text,%text,$rgb(7,223,235)) Verdana 12 17 3 T.SIL
drawsave -b32 @buton buton3.bmp | window -c @buton
window -BphdCk0 +d @buton -1 -1 70 20
drawfill -r @buton $iif(%text,%text,$rgb(7,223,235)) $iif(%text,%text,$rgb(7,223,235)) 0 0
drawrect -r @buton $iif(%cubuk,%cubuk,$rgb(3,113,118)) 3 0 0 70 20
drawtext -ro @buton $iif(%tema,%tema,$rgb(5,169,177)) Verdana 12 17 3 T.SIL
drawsave -b32 @buton buton4.bmp | window -c @buton
;buton 3
window -BphdCk0 +d @buton -1 -1 70 20
drawfill -r @buton $iif(%tema,%tema,$rgb(5,169,177)) $iif(%tema,%tema,$rgb(5,169,177)) 0 0
drawrect -r @buton $iif(%cubuk,%cubuk,$rgb(3,113,118)) 3 0 0 70 20
drawtext -ro @buton $iif(%text,%text,$rgb(7,223,235)) Verdana 12 6 3 TEMIZLE
drawsave -b32 @buton buton5.bmp | window -c @buton
window -BphdCk0 +d @buton -1 -1 70 20
drawfill -r @buton $iif(%text,%text,$rgb(7,223,235)) $iif(%text,%text,$rgb(7,223,235)) 0 0
drawrect -r @buton $iif(%cubuk,%cubuk,$rgb(3,113,118)) 3 0 0 70 20
drawtext -ro @buton $iif(%tema,%tema,$rgb(5,169,177)) Verdana 12 6 3 TEMIZLE
drawsave -b32 @buton buton6.bmp | window -c @buton
}
alias clr_paint {
window -BphdCk0 +d @r -1 -1 15 15
drawfill -r @r $rgb(167,120,134) $rgb(167,120,134) 0 0
drawsave -b32 @r r.bmp | window -c @r | window -BphdCk0 +d @r -1 -1 15 15
drawfill -r @r $rgb(201,173,182) $rgb(201,173,182) 0 0
drawsave -b32 @r ra.bmp | window -c @r | window -BphdCk0 +d @r -1 -1 15 15
drawfill -r @r $rgb(118,146,90) $rgb(118,146,90) 0 0
drawsave -b32 @r r2.bmp | window -c @r | window -BphdCk0 +d @r -1 -1 15 15
drawfill -r @r $rgb(193,208,172) $rgb(193,208,172) 0 0
drawsave -b32 @r ra2.bmp | window -c @r | window -BphdCk0 +d @r -1 -1 15 15
drawfill -r @r $rgb(174,2,32) $rgb(174,2,32) 0 0
drawsave -b32 @r r3.bmp | window -c @r | window -BphdCk0 +d @r -1 -1 15 15
drawfill -r @r $rgb(253,96,123) $rgb(253,96,123) 0 0
drawsave -b32 @r ra3.bmp | window -c @r | window -BphdCk0 +d @r -1 -1 15 15
drawfill -r @r $rgb(104,117,117) $rgb(104,117,117) 0 0
drawsave -b32 @r r4.bmp | window -c @r | window -BphdCk0 +d @r -1 -1 15 15
drawfill -r @r $rgb(158,169,169) $rgb(158,169,169) 0 0
drawsave -b32 @r ra4.bmp | window -c @r | window -BphdCk0 +d @r -1 -1 15 15
drawfill -r @r $rgb(116,45,181) $rgb(116,45,181) 0 0
drawsave -b32 @r r5.bmp | window -c @r | window -BphdCk0 +d @r -1 -1 15 15
drawfill -r @r $rgb(182,135,226) $rgb(182,135,226) 0 0
drawsave -b32 @r ra5.bmp | window -c @r | window -BphdCk0 +d @r -1 -1 15 15
drawfill -r @r $rgb(184,188,16) $rgb(184,188,16) 0 0
drawsave -b32 @r r6.bmp | window -c @r | window -BphdCk0 +d @r -1 -1 15 15
drawfill -r @r $rgb(232,237,35) $rgb(232,237,35) 0 0
drawsave -b32 @r ra6.bmp | window -c @r | window -BphdCk0 +d @r -1 -1 15 15
drawfill -r @r $rgb(5,169,177) $rgb(5,169,177) 0 0
drawsave -b32 @r r7.bmp | window -c @r | window -BphdCk0 +d @r -1 -1 15 15
drawfill -r @r $rgb(7,223,235) $rgb(7,223,235) 0 0
drawsave -b32 @r ra7.bmp | window -c @r
}
on *:signal:xGui: {
if ($1 == @log) {
if ($2 == dclick) && ($3 == 4) {
xgui Richedit @log > Clear 5 | xgui Richedit @log > SetMargins 5 10 | var %& = $dll(x-GUI.dll,Listbox,@log > GetSelText 4)
var %t = $shortfn($findfile($logdir,$gettok(%&,2,32),1))
xgui Richedit @log > Clear 14 | xgui Richedit @log > Echo 14 $+($chr(2),Oluşturulma tarihi:,$chr(32),$chr(2),$asctime($file(%t).ctime,dd/mm/yy)) $+($str($chr(160),5),$chr(2),Gün:,$chr(2),$chr(32),$day($asctime($file(%t).ctime,dddd))) $+($str($chr(160),5),$chr(2),Saat:,$chr(32),$chr(2),$asctime($file(%t).ctime,HH:nn:ss TT))
var %2 = 1 | while (%2 <= $lines(%t)) { xgui Richedit @log > Echo 5 $strip($read(%t,%2)) | inc %2 }
xgui Richedit @log > Clear 6 | xgui Richedit @log > Echo 6 $+($chr(2),Dosya:,$chr(32),$chr(2),$gettok(%&,2,32)) - $+($chr(2),Boyut:,$chr(2),$chr(32),$bytes($file(%t).size,k)) KB
}
if ($2 == sclick) {
if ($3 == 7) { set %tema $rgb(167,120,134) | set %text $rgb(201,173,182) | set %cubuk $rgb(103,67,78) | logoku | xgui Set @log > disable 7 }
if ($3 == { set %tema $rgb(118,146,90) | set %text $rgb(193,208,172) | set %cubuk $rgb(91,113,70) | logoku | xgui Set @log > disable 8 }
if ($3 == 9) { set %tema $rgb(174,2,32) | set %text $rgb(253,96,123) | set %cubuk $rgb(107,1,20) | logoku | xgui Set @log > disable 9 }
if ($3 == 10) { set %tema $rgb(104,117,117) | set %text $rgb(158,169,169) | set %cubuk $rgb(70,79,79) | logoku | xgui Set @log > disable 10 }
if ($3 == 11) { set %tema $rgb(116,45,181) | set %text $rgb(182,135,226) | set %cubuk $rgb(66,26,102) | logoku | xgui Set @log > disable 11 }
if ($3 == 12) { set %tema $rgb(184,188,16) | set %text $rgb(232,237,35) | set %cubuk $rgb(105,107,10) | logoku | xgui Set @log > disable 12 }
if ($3 == 13) { set %tema $rgb(5,169,177) | set %text $rgb(7,223,235) | set %cubuk $rgb(3,113,118) | logoku | xgui Set @log > disable 13 }
if ($3 == 1) { xgui Richedit @log > Clear 5 | xgui Richedit @log > Clear 6 }
if ($3 == 2) { $iif($input(Tüm logları silmek istediğiniz’den eminmisiniz?,y,Uyarı!) == $true,sillog,halt) }
if ($3 == 3) {
var %& = $dll(x-GUI.dll,Listbox,@log > GetSelText 4)
var %tt = $shortfn($findfile($logdir,$gettok(%&,2,32),1))
if (!%tt) $iif($input(Listeden veri seçmediniz?,o,Uyarı!) == $true,window -a @log,window -a @log) halt
else { .remove -b %tt | xgui Listbox @log > DeleteItem 4 $dll(x-GUI.dll,Listbox,@log > GetSelItem 4) | $iif($input(%tt dosyası başarı ile silindi.,o,Uyarı) == $true,haltdef,haltdef) }
}
}
}
}
menu @log {
sclick: { if ($mouse.y >= 5 && $mouse.y < 15 && $mouse.x >= 584 && $mouse.x < 593) window -c @log }
}
menu menubar,query {
Log oku:logoku
}

Etiketler: Log komutu, Log okuma, Log okuma addonu, log tutmak, log tutucu, log tutucu komut, mIRC Addonları

Alakalı diğer yazılar

Ortak Kanal Gosterici Kodu

knGdvL — Thu, 19 Mar 2009 09:27:11 +0000

alias ortakkanal { var %? = $comchan($1,0) while %? { var %i = $addtok(%i,$comchan($1,%?),32) dec %? } return %i } _______ kodu remoteye ekliyorsunuz Bu kısa kod sayesinde bir nick ile ortak kanallarınızı görebilirsiniz ; Örnek; //echo -a $ortakkanal(CipriX)

Etiketler: kanal gösterici, mIRC Hazır Kodlar, ortak kanal, ortak kanal gösterici, ortak kanal gosterme code

Alakalı diğer yazılar

Chgname Komutu (Oper Admin Komutları)

UnyE — Mon, 16 Mar 2009 15:10:20 +0000

Chgname Komutu
Kullanımı : /Chgname nick real-isim

Belirtmiş olduğunuz nickin, irc sunucusunda ki realname(fullname) bilgisini değiştirmiş olursunuz. Bu isim değişikli kalıcı bir değişiklik değildir. Kullanıcı sunucudan çıkıp girmesi ile birlikte yeni belirlemiş olduğu realnanme ile sunucuya girmiş olur. ” /helpop ?Chgname ” komutu ile “ Chgname ” hakkında ircd tabanlı komut yardımı alırsınız. Tüm oper - admin komutları hakkında yardım menüsüne “ /helpop ?opercmds ” komutu ile ulaşmış olursunuz.

Örnek : ” /Chgname JiX Nsohbet Fark Yaratır ” komutu ile JiX nickinin Fullaname bilgisini, “ Nsohbet Fark Yaratır ” olarak değiştirdik. JiX nickine whois çektiğiniz de ; ” JiX Kimlik Bilgisi: s@oper.nsohbet.com * Nsohbet Fark Yaratır ” en son satırda yapılan değişikliği görmüş olursunuz.

Etiketler: admin, admin komutları, Chgname, Chgname komutu, Chgname kullanımı, Chgname nedir, fullname değiştirme, helpop Chgname, irc, irc komutlari, irc server, ircd, ircd komut yardım, ircd tabanli komutlar, ircop, Makaleler, mIRC, oper, oper komutları, realname değiştirme

Alakalı diğer yazılar

Script Sayacı

knGdvL — Sun, 15 Mar 2009 08:28:15 +0000

Script Sayac?

on 1:start:{
if (%sayac == $null) {
set %sayac 1
|; ##### Dileyen ßaglanti Menusunu Yerlestirir Onu Nereye Koycam Demeyin
|; ######Vea Kod Cakisiyo
}
%sayac = %sayac + 1
baslat | *** ßurayada scriptinizin alias ßölümüne (yoksaki alias.txt acmak
| #######zor olmasa gerek) sayaciniz acld?gnda yazacak msj? Giriniz ben
| ##baslat# dedim mski yazdiracak koda siz dilediginizi diyebilirsiniz ama
| #######aliasesa o sekilde ekleyin sekilde ekleyin
}
}
alias baslat {
echo Script kullan?ma Haz?r
echo Script daha önce %sayac Kere Cal?st?r?ld?
| vsvsvs
}

Etiketler: mIRC Hazır Kodlar, script sayaç, script sayacı

Alakalı diğer yazılar

Notice Addon’u

knGdvL — Sun, 15 Mar 2009 08:26:31 +0000

on 1:NOTICE:*:?: {
if (%SelfProt == OFF) || (%lagmode == ON)
if ($nick == ChanServ) || ($nick == NickServ) || ($nick == MemoServ)
inc %pnf [ $+ [ $site ] ] | .timer 1 5 unset %pnf [ $+ [ $site ] ]
if (%pnf [ $+ [ $site ] ] == 2) { ignore -u60 $wildsite | msg $nick Özelime notice flood yapmak yasaktır }
}

Etiketler: can_localnotice, Kayıtsız Nicklere girişte Uyarı veren notice, mIRC Addonları, notice addon

Alakalı diğer yazılar

Away Addonu

knGdvL — Fri, 13 Mar 2009 13:48:45 +0000

alias pmc1 {
if ( %away.total.pages > 0 ) {
    echo -a $chr(35) of CTCP pages received: %away.total.pages $+ .
    set %away.total.pages 0
}
else echo -a CTCP ile ilgili herhangi bir komut gelmemiş.
}
alias repeataway {
if (%away.rep) .timerblah 0 %away.rep. rep2
}
alias rep2 {
if (%away.rep. < 600) set %away.rep. 3600
if ($chan(0)) ame is still away ( $+ %away.reason $+ ) ( $+ $a.cp $+ ) gone: $duration($calc($ctime - %away.time)) %logo
else return
}
alias cdate1 { return $date(dd/mmm/yy) : $time(HH:nn) }
alias away.logo { return %logo }
alias sback {
if ( $away == $true ) && ( %away.q.mode != on ) {
    Set %away.status off
    away
    if ( %away.nick == on ) {
      nick %away.oldnick
      unset %away.oldnick
      unset %away.newnick
      set %away.back $ctime
      .timerblah off
      if ( $chan(0) > 0 ) { ame Awaydan çıktım ( $+ %away.reason $+ ) Away olduğum süre: $duration($calc(%away.back - %away.time)) %logo }
      resetidle
      else { echo -a Artık away değilsin %away.reason $+ . Away kaldığın süre $duration($calc(%away.back - %away.time)) $+ . }
      unset %away.back
      unset %away.time
    }
    else {
      set %away.back $ctime
      if ( $chan(0) > 0 ) && (%away.time != $null) { ame is back ( $+ %away.reason $+ ) Gone: $duration($calc(%away.back - %away.time)) %logo }
      else { echo -a Artık away değilsin %away.reason $+ . Away kaldığın süre $duration($calc($ctime - %away.back)) $+ . }
      resetidle
      aacheck
      .timerBlah on
      .unset %away.back
      .unset %away.time
      .unset %away.oldnick
      .unset %away.newnick
    }
}
elseif (%away.q.mode == on ) { qsback }
else Echo -a You’re not away.
}
alias saway {
if (%away.status == on) && ($away) echo -a You’re already away.
else {
    unset %away.reason
    set %away.reason $$?=”Away Sebebi Yazınız?”
    away %away.reason
    repeataway
    set %away.time $ctime
    set %away.stamp $time
    set %away.q.mode off
    if ($chan(0)) { ame away oldum ( $+ %away.reason $+ ) $+ . ( $+ $a.cp $+ ) %logo }
    else echo -a You are away. reason: %away.reason $+ . Pager %away.pager $+ . Log: %away.log $+ .
    set %away.time $ctime
    awaycompare
}
}
alias testpage {
if ( %away.pager.wav == on ) && ( %away.pager.sound != empty ) splay %away.pager.sound
else beep 10 100
}
alias qsaway {
away %away.reason
set %away.q.mode on
unset %away.total.pages
if ($1 != r) set %away.reason $$?=”Away Sebebi Yazınız?”
set %away.status on
set %away.time $ctime
echo -a Pencere Durumu: %away.pager $+ .
echo -a Mesaj Log Durumu: %away.log $+ .
set %away.st.1 »» Away
awaycompare
echo -a Away Sebebin: %away.reason $+ .
}
alias qsback {
if ($away) && ( %away.q.mode == on ) {
    set %away.back $ctime
    echo -a Artık away değilsin %away.reason $+ . Away kaldığın süre $duration($calc(%away.back - %away.time)) $+ .
    away
    if ( %away.nick == on ) {
      nick %away.oldnick
      unset %away.oldnick
      unset %away.newnick
    }
    pmc1
    set %away.q.mode off
    unset %away.time
    unset %away.back
}
else echo -a 5Buradan eski ayara dönülemiyor. Nereden away olduysanız oradan geri dönme seceneğini secin.
}
on *:start: {
if ($version < 5.6) || ($bits != 32) {
    echo 4Error:1 you must have mIRC ver. 5.6 or higher, and 32 bits version.
    echo Load canceled!
    halt
}
unset %away.total.pages
if (%away.pager.clear == on) echo -a CTCP Pager log cleared. | write -c pager.log
set %away.total.pages 0
if ( %predef.1 == $null ) set %predef.1 Empty
if ( %predef.2 == $null ) set %predef.2 Empty
if ( %predef.3 == $null ) set %predef.3 Empty
if ( %predef.4 == $null ) set %predef.4 Empty
if ( %predef.5 == $null ) set %predef.5 Empty
}
on *:load: {
if ($version < 5.6) || ($bits != 32) {
    echo 4Error:1 To use Away System you must have mIRC ver. 5.6 or higher, and 32 bits version.
    echo Load canceled!
    halt
}
if ($away) { set %away.st.1 »» Away | set %away.status on }
else { set %away.st.1 »» Not away | set %away.status off }
set %away.nick on
set %away.nick.1 {Away}
unset %away.total.pages
set -u0 %i 0
:loop
inc %i
set %predef. $+ %i Empty
if (%i < 5) goto loop
set %away.pager on
set %away.log on
set %away.sc.a
set %away.sc.b
alias %away.sc.a maway
alias %away.sc.b maway2
}
menu @Info {
dclick:window -c @Info
}
alias awaycompare {
if ( %away.nick == on ) && ( %away.nick.1 != $null ) {
    set %away.oldnick $me
    set %away.newnick $me $+ %away.nick.1
    nick %away.newnick
}
}
alias predefaway {
unset %away.total.pages
if ( %away.status == on ) && ( $away == $true ) echo -a You’re already away.
else {
    if ( %away.q.mode == on ) { set %away.q.mode off }
    away %away.reason
    set %away.status on
    set %away.st.1 »» Away
    if ($chan(0)) { ame is away - ( $+ %away.reason $+ ) $+ . ( $+ $cp $+ ) %logo }
    else { echo -a You are away. reason: %away.reason $+ . Pager %away.pager $+ . Log: %away.log $+ . }
    set %away.time $ctime
    awaycompare
}
}
alias idelest { if ( $idle > %auto.away.secs ) autoaway }
alias aacheck {
if ( %auto.away == on ) {
    echo -a Auto-Away checker started.
    .timerIdling 0 1 idelest
}
; else halt
}
alias autoaway {
.TimerIdling Off
unset %away.total.pages
if ($away) echo -a You’re already away.
else {
    .away %away.reason
    set %away.st.1 »» Away
    set %away.reason auto-away after $duration($idle)
    set %away.status on
    .set %away.time $ctime
    .set %away.stamp $time
    set %away.oldnick $me
    awaycompare
    if ($chan(0)) { ame is away - ( $+ %away.reason $+ ) $+ . ( $+ $a.cp $+ ) %logo }
    else echo -a You are away - %away.reason $+ .
}
}
on *:connect: { aacheck }
; Track Messages
on *:text:*:?: {
if ($away) && ( %away.log == on ) {
    msg $nick 14Su anda yokum, eger bir mesajin varsa birak gelince okurum..! %logo
    write logs\msg.log $timestamp $nick $1-
    closemsg $nick
}
}
alias maway {
if ($away) sback
else saway
}
alias maway2 { ; if $1 == r there is a reason, we don’t need to request it from the user!
if ($away) qsback
else qsaway $1-
}
ctcp *:PAGE:*: {
if ($away) && ( %away.pager == on ) {
    haltdef
    write logs\pager.log Page received at $cdate $+ , from $nick $+ . message: $$2-
    echo -a logs\Page from $nick $+ : $$2-
    inc %away.total.pages
    testpage
}
else return
}
alias ANOn {
set %away.nick on
echo -a Away nick enabled
set %away.nick.1 $$?=”Enter away nick - e.g. : -gone, -away, {A}”
if ( %away.nick.1 == $null ) { set %away.nick.1 {Away} }
else echo -a Away nickname set to %away.nick.1 $+ .
if ($away) nick %away.nick.1
}
Alias ANOff set %away.nick off | echo -a Away nick disabled

menu menubar,channel,status {
«» Away Sistemi
.Away Systemi K&ontrol Paneli : open.AwaySysDialog
.&Away ol / geri dön
..&Set Away/Geri dön:maway2
.&Genele (/ame)
..&Away ol/Geri dön:maway
..&Away Sebebi Sec
…&Yemek:if ($away == $false) set %away.reason Yemekteyim | predefaway
…&Uyku:if ($away == $false) set %away.reason Su an uyuyorum. Ses yapmayin. | predefaway
…&Web:if ($away == $false) set %away.reason Su an web sayfalarinda sorf yapiyorum | predefaway
…&Gezinti:if ($away == $false) set %away.reason Dışardayım, geziyorum.. | predefaway
…&Sigara:if ($away == $false) set %away.reason Sigara icmekteyim. | predefaway
…&Kahve:if ($away == $false) set %away.reason Kahve iciyorum, istermisin ? | predefaway
…&Customized
….1 ( $+ %predef.1 $+ )
…..Use this one:if (%predef.1 != empty) && ($away == $false) set %away.reason %predef.1 | predefaway
…..Change…:set %predef.1 $$?=”Enter reason: ”
….2 ( $+ %predef.2 $+ )
…..Use this one:if ( %predef.2 != empty ) && if ($away == $false) set %away.reason %predef.2 | predefaway
…..Change…:set %predef.2 $$?=”Enter reason: ”
….3 ( $+ %predef.3 $+ )
…..Use this one:if ( %predef.3 != empty ) && if ($away == $false) set %away.reason %predef.3 | predefaway
…..Change…:set %predef.3 $$?=”Enter reason: ”
….4 ( $+ %predef.4 $+ )
…..Use this one:if ( %predef.4 != empty ) && if ($away == $false) set %away.reason %predef.4 | predefaway
…..Change…:set %predef.4 $$?=”Enter reason: ”
….5 ( $+ %predef.5 $+ )
…..Use this one:if ( %predef.5 != empty ) && if ($away == $false) set %away.reason %predef.5 | predefaway
…..Change…:set %predef.5 $$?=”Enter reason: ”
.&Away Nick
..$iif(%away.nick == on,off,on):if (%away.nick == on) anoff | else anon

..&Set away nick: {
    set %away.nick.1 $$?=”Enter away nick - e.g. : -gone, -away, {A}”
    if ( %away.nick.1 == $null ) { set %away.nick.1 -Gone }
    else echo -a Away nickname set to %away.nick.1 $+ .
}
.&Pencere
..&On:set %away.pager on | echo -a CTCP penceresi acık..
..&Off:set %away.pager off | echo -a CTCP penceresi kapalı..
..&Mesajları Gör: {
    window -ak @PagerLog -0 -0
    if ( $exists(logs\pager.log)) { loadbuf @PagerLog logs\pager.log }
    else {
      write logs\pager.log $away.logo
      loadbuf @PagerLog logs\pager.log
    }
}
..&Log Sil:if ( $$?!=”Loglar silinsinmi?” == $true ) { write -c logs\pager.log | write logs\pager.log $away.logo | echo -a CTCP penceresi logları silindi. }
..&Müzik
…&On: {
    set %away.pager.wav on
    if ( $$?!=”Away de Ses Dosyasi çaldirin Sadece Wav== $true ) set %away.pager.sound $dir[="Wav Dosyası Çaldırın"] *.wav
    else { set %away.pager.sound empty | set %away.pager.wav off }
}
…&Off:set %away.pager.wav off
.&Log
..&On:set %away.log on | echo -a Mesajlar kayıt ediliyor…
..&Off:set %away.log off | echo -a Mesajlar siliniyor…
..&Mesajları Gör: {
    window -ak @MSGLog -0 -0
    if ( $exists(logs\msg.log)) { loadbuf @MSGLog logs\msg.log }
    else {
      write logs\msg.log $away.logo
      loadbuf @MSGLog logs\msg.log
    }
}
..&Log Sil: if ( $$?!=”Loglar Silinsinmi?” == $true ) { write -c msg.log | write msg.log $away.logo | echo -a MSG Loglar silindi. } | else halt
.&Otomatik Away
..&On: {
    set %auto.away on
    set %auto.away.etmp $$?=”Kaç dakika away kalacaksınız:”
    if ( %auto.away.etmp isnum ) && ( %auto.away.etmp > 0 ) set %auto.away.secs $calc(60 * %auto.away.etmp) | echo -a Away süren %auto.away.etmp dakika. ( $+ $calc( %auto.away.etmp * 60 ) seconds $+ ) | .unset %auto.away.etmp
    aacheck
}
..&Off:set %auto.away off | echo -a Otomatik away iptal edildi. | .unset %auto.away.secs
..&Değiş…
…&Dakika: {
    set %auto.away.etmp $$?=”Kaç dakika away kalacaksınız:”
    if ( %auto.away.etmp isnum ) && ( %auto.away.etmp > 0 ) set %auto.away.secs $calc(60 * %auto.away.etmp) | echo -a Away süren %auto.away.etmp dakika.. ( $+ $calc( %auto.away.etmp * 60 ) seconds $+ ) | .unset %auto.away.etmp | aacheck
}
…&Saniye: {
    set %auto.away.etp $$?=”Kaç saniye away kalacaksınız:”
    if (%auto.away.etp isnum ) && ( %auto.away.etp > 0 ) set %auto.away.secs %auto.away.etp | Echo -a Away süren %auto.away.etp saniye. | .unset %auto.away.etp | aacheck
}
.&Kısayol tuş ayarı
..F tuşlarını ayarla : { set -u0 %away.sc.tmp $$?=”Away olduğunu genele yansıtmak için kısayol tuşu seç (Örn:F5)”
if (%away.sc.tmp != $null) alias %away.sc.a | set %away.sc.a %away.sc.tmp | alias %away.sc.a maway }
..F tuşlarını ayarla:{ set -u0 %away.sc.tmp $$?=”Away olduğunu kanala yansıtma. Kısayol tuşu belirle (Örn:F5)”
if (%away.sc.tmp != $null) alias %away.sc.b | set %away.sc.b %away.sc.tmp | alias %away.sc.b maway2 }
}

; ##############
; # Dialog Section #
; ##############

alias open.AwaySysDialog {
if ($dialog(AwaySysDialog) != $null) { dialog -v AwaySysDialog AwaySysDialog }
else { dialog -m AwaySysDialog AwaySysDialog }
}

Dialog AwaySysDialog {
title “Away Paneli”
size -1 -1 390 285
box “Away ayarları”, 1, 10 10 370 235
text “&Nickim:”, 2, 20 30 63 15
radio “Away” ,3, 110 30 45 15, group
radio “Away değil” ,4, 181 30 70 15
text “&Away Olduğunda:” ,5, 20 50 85 15
radio “Sessiz Kal” , 6, 110 50 66 15, group
radio “Tüm Kanallara Sebeb Bildir” ,7, 181 50 185 15
text “&Away Sebebi:”, 40, 20 72 102 15
combo 8, 139 70 120 150 , edit drop
text “&Nickine away eki getir:” ,9, 20 95 130 15
radio “Evet”, 10, 155 95 47 15, group
radio “Hayır”, 11, 197 95 45 15
text “A&way ekini seç:”, 12, 20 117 114 15
combo 13, 139 113 120 90 , edit drop
text “&Mesaj:”, 14, 20 145 30 15
radio “On”, 15, 78 145 33 15, group
radio “Off”, 16, 116 145 45 15
button “&Logları gör”, 17, 155 140 90 20, flat
button “L&ogları sil”, 18, 255 140 90 20, flat
button “!”, 19.1, 355 140 15 20, flat
text “Lo&g:”, 49, 20 170 20 15
radio “On”, 20, 78 170 33 15, group
radio “Off”, 21, 116 170 45 15
button “L&ogları gör”, 22, 155 165 90 20, flat
button “L&ogları sil”, 23, 255 165 90 20, flat
text “Otomatik awa&y:”, 24, 20 195 53 15
radio “On”, 25, 78 195 33 15, group
radio “Off”, 26, 116 195 45 15
button “&Kaç saniye”, 27, 155 190 90 20, flat
text “F Tuslarini Kullan:”, 28, 20 220 100 15
text “Away (/a&me):”, 29, 125 220 63 15
edit “”, 30, 193 217 30 20
text “Away (&Quiet):”, 31, 228 220 63 15
edit “”, 32, 296 217 30 20
button “&Evet”, 35, 50 255 90 25, ok flat
button “&Vazgeç”, 36, 150 255 90 25, cancel flat
}

on 1:dialog:AwaySysDialog:init:0: {
;if (%away.st.1 == »» Not away) did -cf AwaySysDialog 4
;else { did -cf AwaySysDialog 3 }
if ($away) { did -cf AwaySysDialog 3 | set %away.st.1 »» Away | set %away.status on }
else { did -cf AwaySysDialog 4 | set %away.st.1 »» Not away | set %away.status off }
if (%away.nick == on) did -c AwaySysDialog 10
else { did -c AwaySysDialog 11 | did -b AwaySysDialog 12,13 }
if (%away.pager == on) did -c AwaySysDialog 15
else did -c AwaySysDialog 16
if (%away.log == on) did -c AwaySysDialog 20
else did -c AwaySysDialog 21
did -c AwaySysDialog 7
if (%auto.away == on) did -c AwaySysDialog 25
else did -c AwaySysDialog 26
did -a AwaySysDialog 30 %away.sc.a
did -a AwaySysDialog 32 %away.sc.b
if (%away.nick.1 != $null) { did -a AwaySysDialog 13 %away.nick.1 }
if (%away.nick.1 != {Away} ) did -a AwaySysDialog 13 {Away}
if (%away.nick.1 != -Yok ) did -a AwaySysDialog 13 -Yok
if (%away.nick.1 != -away ) did -a AwaySysDialog 13 -away
did -c AwaySysDialog 13 1
did -a AwaySysDialog 8 Yemek
did -a AwaySysDialog 8 Uyku
did -a AwaySysDialog 8 Web Gezintisi
did -a AwaySysDialog 8 Dışardayım
did -a AwaySysDialog 8 Sigara Molası
did -a AwaySysDialog 8 Cafe Molası
if (%predef.1 != Empty) did -a AwaySysDialog 8 %predef.1
if (%predef.2 != Empty) did -a AwaySysDialog 8 %predef.2
if (%predef.3 != Empty) did -a AwaySysDialog 8 %predef.3
if (%predef.4 != Empty) did -a AwaySysDialog 8 %predef.4
if (%predef.5 != Empty) did -a AwaySysDialog 8 %predef.5
}

on 1:dialog:AwaySysDialog:sclick:35: {
; add the reason to the list if there is an empty place and it not of the default reasons
if ($did(8) == $null) goto continue
if ($did(8) == food) || ($did(8) == sleep-zzz) || ($did(8) == Surfin’ the Web) || ($did(8) == Went outside) || ($did(8) == Out 4 a smoke) || ($did(8) == Coffee break) { goto continue }
if (($did(8) == %predef.1) || ($did(8) == %predef.2) || ($did(8) == %predef.3) || ($did(8) == %predef.4) || ($did(8) == %predef.5)) && $did(8) != Empty { goto continue }
if ($did(8) == Empty) { goto continue }
if (%predef.1 == Empty) { set %predef.1 $did(8) | goto continue }
if (%predef.2 == Empty) { set %predef.2 $did(8) | goto continue }
if (%predef.3 == Empty) { set %predef.3 $did(8) | goto continue }
if (%predef.4 == Empty) { set %predef.4 $did(8) | goto continue }
if (%predef.5 == Empty) { set %predef.5 $did(8) | goto continue }
:continue
; auto away
if ($did(25).state == 1) set %auto.away on
else set %auto.away off
; pager
if ($did(15).state == 1) set %away.pager on
else set %away.pager off
; log
if ($did(20).state == 1) set %away.log on
else set %away.log off
; shortcut keys
if ($did(30) != %away.sc.a) {
    alias %away.sc.a
    set %away.sc.a $did(30)
    alias %away.sc.a maway
}
if ($did(32) != %away.sc.b) {
    alias %away.sc.b
    set %away.sc.b $did(32)
    alias %away.sc.b maway2
}
; use away nick
if ($did(13) == $null) set %away.nick.1 {Away}
set %away.nick.1 $did(13)
if ($did(10).state == 1) {
    set %away.nick on
}
else set %away.nick off
; Going away now
if ($did(3).state == 1 && %away.status == off) {
    if ($did(6).state == 1) {
      if ($did(8) == $null) set %away.reason No reason
      else set %away.reason $did(8)
      maway2 r   ; don’t delete the ‘r’!!
    }
    else {
      if ($did(8) == $null) set %away.reason No reason
      else set %away.reason $did(8)
      predefaway
    }
}
; Back now
if ($did(4).state == 1 && %away.status == on) {
    if (did(6).state == 1) maway2
    else maway
}
}
on 1:dialog:AwaySysDialog:sclick:11: {
did -b AwaySysDialog 12,13
}

on 1:dialog:AwaySysDialog:sclick:10: {
did -e AwaySysDialog 12,13
}

on 1:dialog:AwaySysDialog:sclick:26: {
did -b AwaySysDialog 27
}

on 1:dialog:AwaySysDialog:sclick:25: {
did -e AwaySysDialog 27
}
on 1:dialog:AwaySysDialog:sclick:17: {
window -ak @PagerLog -0 -0
if ( $exists(logs\pager.log)) { loadbuf @PagerLog logs\pager.log }
else {
    write logs\pager.log $away.logo
    loadbuf @PagerLog logs\pager.log
}
}
alias ClearPagerLog {
if ( $$?!=”Loglar Silinsinmi?” == $true ) { write -c logs\pager.log | write logs\pager.log $away.logo | echo -a CTCP pager log cleared. }
}
on 1:dialog:AwaySysDialog:sclick:18: .timer 1 0 ClearPagerLog
on 1:dialog:AwaySysDialog:sclick:22: {
window -ak @MSGLog -0 -0
if ( $exists(logs\msg.log)) { loadbuf @MSGLog logs\msg.log }
else {
    write logs\msg.log $away.logo
    loadbuf @MSGLog logs\msg.log
}
}
alias ClearMsgLog {
if ( $$?!=”Loglar Silinsinmi?” == $true ) { write -c logs\msg.log | write logs\msg.log $away.logo | echo -a MSG Log cleared. } | else halt
}
on 1:dialog:AwaySysDialog:sclick:23: .timer 1 0 ClearMsgLog
alias SetTime {
set %auto.away.etp $$?=”Enter number of seconds:”
if (%auto.away.etp isnum ) && ( %auto.away.etp > 0 ) set %auto.away.secs %auto.away.etp | Echo -a Auto away set to %auto.away.etp seconds. | .unset %auto.away.etp | aacheck
}
on 1:dialog:AwaySysDialog:sclick:27: .timer 1 0 SetTime
alias SetPagerSound {
set %away.pager.wav on
if ( $$?!=”Would you like to use a WAV file for the pager sound?” == $true ) set %away.pager.sound $dir[="Choose WAV file to play when Pager comes"] *.wav
else { set %away.pager.sound empty | set %away.pager.wav off }
}
on 1:dialog:AwaySysDialog:sclick:19: .timer 1 0 SetPagerSound
on 1:dialog:AwaySysDialog:sclick:37: .about

alias a.cp {
if (%away.pager == on) && (%away.log == on) return +pl
elseif (%away.pager == on) && (%away.log == off) return +p
elseif (%away.pager == off) && (%away.log == off) return -pl
elseif (%away.pager == off) && (%away.log == on) return +l
}

Etiketler: away addon, away addonu, away bilgisi, away bulma, away bulma hazır kod, away durumu, away tara, mIRC Addonları

Alakalı diğer yazılar

Whois Codu

knGdvL — Fri, 13 Mar 2009 13:43:08 +0000

raw 301:*: {
haltdef
echo -a 4» Away Durumu:12 ( $+ $3- $+ )
}

raw 310:*: {
haltdef
echo -a 4» IRC Helper
}
raw 311:*:{
echo -a 4————————-1<12Kimlik Bilgisi Sorgulamas?1>4————————
echo -a 4» Nick: $2
echo -a 4» FullName: $6-
echo -a 4» ?p Adresi: $3 $+ 4 $+ @ $+ 1 $+ $4
var %clone = $kanalclone($2)
if (%clone == $null) echo -a 4» Kanaldaki Klonlar?: (14 Clone yok! 4)
else echo -a 4» Klonlar?: 4( $+ $numtok(%clone,44) $+ 4) 1ki?i:12 %clone
haltdef
}
alias kanalclone {
if ($ial($address($1,2),0) == 1) return
var %nickler = 0 | var %clone = $1
while (%nickler < $ial($address($1,2),0)) { inc %nickler | var %clone = $addtok(%clone,$ial($address($1,2),%nickler).nick, 44) }
return %clone
}
raw 338:*:{
haltdef
echo -a 4» Gerçek ?p Adresi: $3
echo -a 4» Gerçek ?p: $4
}

raw 312:*:{
haltdef
echo -a 4» Ba?l? Oldu?u Server: $3
}
raw 313:*: {
haltdef
echo -a 4» Network Özelli?i: $5 $6 $7 $8 $9
}
raw 307:*: {
haltdef
echo -a 4» Kay?t Durumu: Bu Nick Kay?tl? ve ?dentify Edilmi?tir.
}

raw 314:*:{
haltdef
echo -a 4————————1<12Kimlik Bilgisi Sorgulamas? Sonu1>14———————
echo -a 4» Nick: $2
echo -a 4» FullName: $6-
echo -a 4» ?p Adresi: $3 $+ 4 $+ @ $+ 1 $+ $4
}
raw 317:*:{
haltdef
%idle = $replace($duration($3),secs, saniye,sec, saniye,mins,dakika,min,dakika,hrs,saat,hr,saat,day s,gün,day,gün,wks,hafta,wk,hafta)
%baglanis = $replace($asctime($4),mon,Pazartesi,tue,Sal?,wed,Ç ar?amba,thu,Per?embe,fri,Cuma,sat,Cumartesi,sun,Pa zar,jan,Ocak,Feb,?ubat,Mar,Mart,apr,Nisan,May,May? s,Jun,Haziran,Jul,Temmuz,Aug,A?ustos,Sep,Eylül,Oct ,Ekim,Nov,Kas?m,Dec,Aral?k)
echo -a 4» Ba?land??? Zaman: %baglanis
echo -a 4» Bo? Oldu?u Süre: %idle
echo -a 4» Ba?land?ktan Sonra Geçen Süre: $duration($calc($ctime - $4))
}
raw 318:*:{
haltdef
echo -a 4———————–1<12Kimlik Bilgisi Sorgulamas? Sonu1>4———————
}
raw 319:*:{
haltdef
echo -a 4» Kanallar?: $3-
}
raw 320:*:{
haltdef
echo -a 4» swhois: $4-
}
raw 378:*:{
haltdef
echo -a 4» Gerçek Ip Adresi: $6
}
raw 379:*:{
haltdef
echo -a 4» Nick modeleri: $6-
}
raw 671:*:{
haltdef
echo -a 4» Ba?lant?: $3-
}

Etiketler: mIRC Hazır Kodlar, özel whois eklenti, özel whois eklenti kodu, registersiz nick özel whois kod, whois kodu

Alakalı diğer yazılar

Badword Addonu

knGdvL — Thu, 12 Mar 2009 11:04:46 +0000

on *:text:*Nickiniz*:#: {
notice $nick $read(x.txt)
}
on *:text:*Nickiniz* {
notice $nick $read(x.txt)
}

Etiketler: badword addonu, badwords, KICK BADWORDS, mIRC Addonları, stripbadwords

Alakalı diğer yazılar

Saldırı önleme

knGdvL — Thu, 12 Mar 2009 11:02:05 +0000

Bu konuyu aslında mirc script k?sm?na yazacakt?m ama bu kod normal mirc scriptlerde de?ilde sadece oper adminlerin Unreal ircdde sald?r?dan korunma amaçl? oldu?u için buraya yazmay? uygun gördüm size önce kodun ne i?e yarad???n? söliyim sonra kodu yaz?y?m.. A??a??da verilen codeyi mirc ailases ve remote lara ekledi?iniz zaman servera her yeni kullan?c? ba?land???nda servera ba?lananlar? status de göstermekten size özel pencere aç?p orda gösteriyor ve birden trojan veya proxy sald?r? oldu?u taktirde tüm girenler ayn? anda o pencerede gösteriyor ve nickin üstüne iki kere t?klayarak direk gline atabiliyorsunuz yani mant?k ?u sald?r? oldu?u zaman tek tek nickleri /gline nick sebeb ?eklinde zline atmaya ura??p sald?r?y? uzun bir sürede atlatmaktansa direk nicklere iki kere t?klayarak hemen atlatabiliyorsunuz

Bu code mirc in aliaseslar?na eklenecektir

spam {
if (%meydeymeydey != 1) {
%meydeymeydey = 1
mode $me +s +ckeG
echo -a Anti Spam OnLine.
halt }
elseif (%meydeymeydey == 1) {
unset %meydeymeydey
echo -a Anti Spam offLine
echo -a Toplam Kline say?s?: %klinecount
unset %klinecount
window -c @ConnExit
}
}

Bu kodede mircin remote lerine eklenecektir

menu @ConnExit {
dclick: {
%satir = $line(@ConnExit, $1)
%glineho = $pos(%satir,@,1) + 1
%hede = $pos(%satir,[,1) - 2
%bukadar = %hede - %glineho
%glinehoo = $mid(%satir, %glineho, %bukadar)
aline -c4 @ConnExit G-Line %glinehoo
dline @ConnExit $1
gline *@ $+ %glinehoo +90d : Spam
unset %satir
unset %hede
unset %bukadar
unset %glineho*
}
}

On ^1:SNOTICE:*connecting*: {
if (%meydeymeydey == 1) {
if ($window(@ConnExit, wid) == 0) { window -dChk[0]l +ftl @ConnExit }
aline -c7 @ConnExit $4-
if ($len($9) >= 9) {
%a = $left($9,4)
%i = 0
%bukadar = 0
while (%i < 4) {
inc %i
%b = $mid(%a, %i,1)
if (%b isin qwrtypsdfghjklzxcvbnm) {
inc %bukadar
}
}
if (%bukadar == 4) {
%glineho = $pos($10,@,1) + 1
%glinehos = $mid($10, %glineho, $len($10) - 1)
%uzun = $len(%glinehos) - 1
%glinehost = $left(%glinehos, %uzun)
aline -c4 @ConnExit G-line $9 %glinehost
gline *@ $+ %glinehost +365d : Spam
unset %glineho
unset %glinehos
unset %uzun
unset %glinehost
inc %glinecount
}
unset %bukadar
}
}
haltdef
}

On ^1:SNOTICE:*exiting*: {
if (%meydeymeydey == 1) {
if ($window(@ConnExit, wid) == 0) { window -dChk[0]l +ftl @ConnExit }
aline -c12 @ConnExit $4-
haltdef
}
}

Bu codeleri ekledikten sonra mircde önce /remote on sonrada /spam yaz?yorsunuz e?er ba?ar?l? bir ?ekilde uygulayabildiyseniz anti spam online diye bir msg ç?k?yor kar??n?za ve sistem haz?r olmu? oluyor bu saniyeden sonra girenler için yeni bir pencere aç?lacak ve bu size gösterilecektir

Etiketler: aşırı nick değiştirme saldırı koruması, bot saldırı koruması, join saldırı, mIRC Hazır Kodlar, Saldırı koruması, Saldırı remotesi

Alakalı diğer yazılar

Proxy Koruma Addonu

knGdvL — Wed, 11 Mar 2009 11:00:00 +0000

alias _proxy {
dialog -m pcontrol pcontrol
}
alias _proxykontrol {
sockclose pcontrol
sockopen pcontrol www.checker.freeproxy.ru 80
}
on *:sockopen:pcontrol: {
sockwrite -nt $sockname GET /checker/last_checked_proxies.php HTTP/1.1
sockwrite -nt $sockname Host: www.checker.freeproxy.ru
sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; tr; rv:1.8) Gecko/20051111 Firefox/1.5
sockwrite -nt $sockname Accept: application/x-shockwave-flash,text/xml,application/xml,application/xhtml+xml,text/html;q …
sockwrite -nt $sockname Accept-Language: tr-TR,tr;q=0.8,en-us;q=0.5,en;q=0.3
sockwrite -nt $sockname Accept-Encoding: gzip,deflate
sockwrite -nt $sockname Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.7
sockwrite -nt $sockname Keep-Alive: 300
sockwrite -nt $sockname Connection: keep-alive
sockwrite -nt $sockname Referer: http://www.checker.freeproxy.ru/
sockwrite -nt $sockname Cookie: hotlog=1
sockwrite -nt $sockname Cache-Control: max-age=0
sockwrite -nt $sockname $crlf
}
on *:sockread:pcontrol: {
sockread %p
tokenize 32 %p
;echo -a 2 $1-
if $dialog(pcontrol) {
if $1- ==

Free SOCKS 4 proxy list:

{
      set %proxy 1
      did -a pcontrol 3,4 == Socks 4 List ==
    }
    if $1- ==

Free SOCKS 5 proxy list:

{
      set %proxy 2
      did -a pcontrol 3,4
      did -a pcontrol 3,4 == Socks 5 List ==
    }
    if $1- ==
&& %proxy == 2 {
      unset %proxy
    }
    if $1 == res && $2 == $chr(61) {
      set %portn $right($gettok($3,1,43),-4)
      set %ports $left($gettok($3,2,43),-1)
      _listing
    }
    if $1 == name && $2 == $chr(61) && %proxy {
      set %pip $right($left($3,-2),-1)
      did -a pcontrol 3 Proxy IP: %pip
    }
    if port* iswm $1 && $2 == $chr(61) && %proxy {
      did -a pcontrol 3 $left($1-,-1)
    }
}
}
on *:sockclose:pcontrol: {
unset %proxy
if $dialog(pcontrol) {
    did -e pcontrol 7
}
}
dialog pcontrol {
title “Proxy Finder”
size -1 -1 94 174
option dbu
tab “Tab 1″, 5, -96 -98 500 400
list 4, 6 22 80 120, tab 5 size
button “Use selected”, 8, 47 7 38 12, tab 5
button “Find proxy”, 7, 7 7 38 12, tab 5
button “Close”, 9, 6 145 38 12, tab 5, ok
box “”, 10, 2 0 89 172, tab 5
text “Proxy finder v1.0″, 11, 6 160 72 8, disable tab 5
tab “Tab 2″, 6
list 3, 10 25 31 16, tab 6 size hsbar vsbar
}
on *:dialog:pcontrol:*:*: {
if $devent == sclick {
    if $did == 7 {
      did -b $dname 7
      did -r $dname 3,4
      _proxykontrol
    }
    if $did == 8 {
      if $did(pcontrol,4).sel {
        var %1 = $gettok($did(pcontrol,4).seltext,1,58)
        var %2 = $gettok($did(pcontrol,4).seltext,2,58)
        if $did(pcontrol,4).sel > $didwm(pcontrol,4, *,1) {
          firewall -m5 on %1 %2
          echo 3 -a * Selected proxy ( $+ $+(%1,:,%2) $+ ) is ready on SOCKS5.
        }
        else {
          firewall -m4 on %1 %2
          echo 3 -a * Selected proxy ( $+ $+(%1,:,%2) $+ ) is ready on SOCKS4.
        }
      }
      else {
        echo 2 -a * Please select a proxy which you want to use.
      }
    }
}
}
alias -l _listing {
var %i $did(pcontrol,3).lines
while 1 <= %i {
    if $right($gettok($did(pcontrol,3,%i),1,32),-4) == %portn {
      var %1 = $gettok($did(pcontrol,3,%i),3,32)
      if $gettok($did(pcontrol,4,$did(pcontrol,4).lines),1,58) != %pip {
        did -a pcontrol 4 %pip $+ : $+ $calc(%1 + %ports)
      }
      did -o pcontrol 3 %i IRC port: $calc(%1 + %ports)
      break
    }
    dec %i
}
}
menu channel,status,menubar {
Proxy finder:_proxy
}

Etiketler: mIRC Addonları, proxy bulucu, proxy engelleyici, proxy giriş yasak, Proxy koruma, proxy koruma addonu