Ay: Mart 2014
mIRC Php formmail Addon
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 |
Kod: form method = \ \ "post \ \" action = \ \ "formmail.php \ \"> <input type=\\"hidden\\" name=\\"recipient\\" value=\\"[BURAYA POSTA ADRES YAZ]\\"> <input type=\\"hidden\\" name=\\"subject\\" value=\\"[KONU YAZ]\\"> <Input type = \ \ "gizli \ \" name = \ \ "" value = \ \ "[GEREKL? L? \ \ Req? KONTROL ED LECEK ALANLARI V? RGÜLLE AYIRIP YAZ] \ \ "> [Formun Geri Kalan? N? istedi? içinde haz?rs?nd?r yap? kara? r] </ Form> -------------------------------------------------- ------------------------ [Ay?e k? Sm? formmail.php d? kaydedin] siz <html> <head> <title> formmail </ title> </ Head> <body bgcolor=\\"black\\"> <? //---------------------------------- / / Istege bagli parametreleri //---------------------------------- \ \ Gibi / / Mesaj ba?l???nda "\ \" veya \ \ "hata \ \" onaylamak $ Headersize = \ \ "4 \ \"; $ Headercolor = \ \ "Lime \ \"; / / Mesaj gövdesi $ Textsize = \ \ "3 \ \"; $ Metin rengi = \ \ "0000ff \ \"; $ Linkcolor = \ \ "FFCC99 \ \"; /************************************************* * *** / |
mIRC Identify Kutucugu
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 |
* Do?um: duyuru: * NickServ IDENTIFY * *: *: (($ nick e?er == Nickserv) / dialog-m sifre sifre) * Do?um: duyuru: * Kay? T * Nick *: *: (($ nick ise == nickserv) / dialog-m sifre sifre) ileti?im sifre ( Ba?l?k \ \ "? ifre Paneli \ \" boyutu -1 -1 110 60 seçenek dBu kutu $ me Kayitli B?R Nicktir .., 20, 0 0 110 60 metin \ \ "Nick Degistir: \ \", 4, 10 22 33 10 metin \ \ "?ifre Gir: \ \", 3, 10 10 23 13 \ \ De?i?tir "\ \", 5, 45 8 60 10, stil (mouse) \ \ De?i?tir "\ \", 6, 45 20 60 10 dü?mesine \ \ "Uygula \ \", 1, 10 35 40 15, ok \ \ "I & ptal \ \", 2, 60 35 40 15, iptal dü?mesi ) xxxx xxxx belirlemek | 1: dialog: sifre: sclick: 1: ( ($ Did (sifre, 6)) & & ($ did (sifre, 5)). Nickserv $ did (sifre, 6) $ did (sifre, 5) tan?mlamak e?er nickserv $ did (sifre, 5) tan?mlamak ($ did (sifre, 5)) e?er. ($ Did (sifre, 6) birlikte). Nick $ did (sifre, 6) ) |
mIRC Google Logo Olusturucu
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 |
isminizi google logosu tarzinda yazdirabilir,kaydedebilir ve duzenleyebilirsiniz... ====================== */ dialog glo { title \\&quot;Google Logo Olu?turucu\\&quot; size -1 -1 160 55 option dbu box \\&quot;\\&quot;, 1, 2 -1 156 41 text \\&quot;?sim yada nick\\\'inizi girin:\\&quot;, 2, 5 5 57 8 edit \\&quot;\\&quot;, 3, 5 13 150 10, limit 22 button \\&quot;Olu?tur\\&quot;, 4, 41 25 37 12,disable button \\&quot;Düzenle\\&quot;, 5, 80 25 37 12,disable button \\&quot;Kapat\\&quot;, 6, 119 25 37 12,cancel edit \\&quot;Google Logo Olu?turucusu v0.1 BY SeRDaR406\\&quot;, 7, 2 43 157 11, read autohs } alias goglogo $iif(!$dialog(glo),dialog -m glo glo) alias -l create-&gt;logo { if ($len($1-) &lt;= 2) return $input(?sim yada nick\\\'in karakter uzunlu?u enaz \\&quot;3\\&quot; olmal?d?r.,ohud,Hata) else { if ($window(@goglogo)) window -c @goglogo if ($window(@sl)) window -c @sl unset %numtok %fileitem %pw %gln did -b $dname 5 set %logname $replace($1-,$chr(32),+,?,i,?,i,ö,o,ü,u,?,g,ç,c,?,s,?,g,Ö,o,Ü,u,?,s) did -ra $dname 7 Logo olu?turuluyor.Bekleyin... sockclose glogo sockopen glogo www.goglogo.com 80 } } alias -l remove-&gt;logofiles { unset %logname %gifiles %pw var %a = 1 var %fi = $+(\\&quot;,$scriptdir,goglogo.txt,\\&quot;) while (%a &lt;= $lines(%fi)) { if (_.gif !isin $read(%fi,%a)) .remove $+(\\&quot;,$scriptdir,$read(%fi,%a),\\&quot;) inc %a } .remove $+(\\&quot;,$scriptdir,goglogo.txt,\\&quot;) drawrect -rfd @goglogo $rgb(70,122,185) 1 $calc($window(@goglogo).w - 150) 100 60 20 5 5 drawrect -rd @goglogo $rgb(0,0,0) 1 $calc($window(@goglogo).w - 150) 100 60 20 5 5 drawrect -rfd @goglogo $rgb(70,122,185) 1 $calc($window(@goglogo).w - 80) 100 60 20 5 5 drawrect -rd @goglogo $rgb(0,0,0) 1 $calc($window(@goglogo).w - 80) 100 60 20 5 5 drawtext -or @goglogo $rgb(255,255,255) Tahoma 11 $calc($window(@goglogo).w - 141) 103 KaYDeT drawtext -or @goglogo $rgb(255,255,255) Tahoma 11 $calc($window(@goglogo).w - 67) 103 KaPaT } alias -l load-&gt;logo { unset %size %nl %numtok %fileitem %pw var %o = 1 var %fi = $+(\\&quot;,$scriptdir,goglogo.txt,\\&quot;) window -pCk[0] +t @Goglogo $calc($dialog(glo).x - 40) $calc($dialog(glo).y + 75) 900 160 drawrect -rf @goglogo $rgb(255,255,255) 1 0 0 900 200 while (%o &lt;= $lines(%fi)) { set %pw $calc((%pw + $pic($+(\\&quot;,$scriptdir,$read(%fi,%o),\\&quot;)).width) + 2) if (_.gif isin $read(%fi,%o)) set %pw $calc(%pw + 15) if ($dialog(glo)) { window -pCk[0] +t @Goglogo $calc($dialog(glo).x - 40) $calc($dialog(glo).y + 75) %pw 160 if (_.gif !isin $read(%fi,%o)) drawpic @goglogo $calc(($window(@goglogo).w - $pic($+(\\&quot;,$scriptdir,$read(%fi,%o),\\&quot;)).width) - 2) 1 $+(\\&quot;,$scriptdir,$read(%fi,%o),\\&quot;) } inc %o } if ($dialog(glo)) did -ra glo 7 Http://www.mIRC.ile.biz remove-&gt;logofiles } on *:dialog:glo:edit:3: $iif($did(3),did -e $dname 4,did -b $dname 4) on *:dialog:glo:sclick:*: { if ($did == 4) create-&gt;logo $did(3) if ($did == 5) run %gln } on *:sockopen:glogo: { if ($sockerr) echo -a Ba?lant? Yok! else { var %s = sockwrite -n $sockname %s GET /s.asp?lo= $+ %logname HTTP/1.1 %s Host: www.goglogo.com %s $crlf } } on *:sockread:glogo: { var %u sockread %u if (Error-Input isin %u) &amp;&amp; ($dialog(glo)) did -ra glo 7 Sadece bu karakterlerden kullanabilirsiniz. - [A-Z][a-z][0-9] if (?lo= isin %u) { write -c $+(\\&quot;,$scriptdir,goglogo.txt,\\&quot;) | set %gifiles $remove($gettok(%u,3-,32),border=0&gt;,&lt;img,src=,\\&quot;,images,/,&lt;a&gt;) } if ( isin %u) { sockclose glogo var %i = 1 while (%i &lt;= $numtok(%gifiles,32)) { var %files = $gettok(%gifiles,%i,32) write $+(\\&quot;,$scriptdir,goglogo.txt,\\&quot;) %files if (_.gif !isin %files) { sockclose $+(getlogo*,%files) sockopen $+(getlogo*,%files) www.goglogo.com 80 sockmark $+(getlogo*,%files) %files } inc %i } } } on *:sockopen:getlogo*: { inc %numtok var %t = sockwrite -n $sockname %t GET $+(/images/,$sock($sockname).mark) HTTP/1.1 %t Host: www.goglogo.com %t $crlf } on *:sockread:getlogo*: { var %c sockread %c if (Length isin %c) set %size $gettok(%c,2,32) if (* !iswm %c) { write -c $+(\\&quot;,$scriptdir,$sock($sockname).mark,\\&quot;) sockclose $+(savelogo*,$sock($sockname).mark) set %nl $sock($sockname).rcvd sockrename $sockname $+(savelogo*,$sock($sockname).mark) } } on *:sockread:savelogo*: { sockread &amp;sl bwrite $+(\\&quot;,$scriptdir,$remove($sockname,savelogo*),\\&quot;) -1 -1 &amp;sl var %progrs = $calc(100 * ($sock($sockname).rcvd - %nl) / %size) if (%progrs == 100) { inc %fileitem | if ($dialog(glo)) did -ra glo 7 Logo Olu?turuluyor.Bekleyin... $+(%numtok,/,%fileitem) | sockclose $sockname } if (%fileitem == %numtok) load-&gt;logo } alias -l save-&gt;logo { set %gln $+(\\&quot;,$scriptdir,$1,.bmp,\\&quot;) window -ph +t @sl 0 0 $window(@goglogo).w 134 drawrect -rf @sl $rgb(255,255,255) 1 0 0 $window(@goglogo).w 134 drawcopy @goglogo 0 0 $window(@goglogo).w 134 @sl 0 0 drawsave @sl %gln window -c @sl window -c @goglogo if ($dialog(glo)) did -e glo 5 } menu @goglogo { uclick: { if ($inrect($mouse.x,$mouse.y,$calc($window(@goglogo).w - 150),100,60,20)) { var %logoname = $input(Logunun ad?n? girin:,e,Logo Kaydet) if (%logoname) save-&gt;logo %logoname } if ($inrect($mouse.x,$mouse.y,$calc($window(@goglogo).w - 80),100,60,20)) window -c @goglogo } } menu menubar,status { Google Logo Olu?turucu v0.1 .Aç:goglogo .- .Kald?r: .unload -rs $shortfn($script) } on *:load: { if ($version &lt; 6.2) { echo -a Bu addon mIRC v6.2\\\'de çal??maktad?r... | .unload -rs $shortfn($script) } else { echo -a Google Logo Olu?turucu v0.1 Yüklendi. | echo -a Açmak için: /goglogo yaz?n. } } |
mIRC Mp3 Player Addon
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 |
on 1:LOAD:/setup | /playlist Alias setup { set %mp3.dir $sdir=\\&quot;Locate you mp3 files\\&quot; | /echo -a 4,1 æ8M15p3 Directory set t8o4æ :2 %mp3.dir set %mp3.player $findfile(c:\\\\,winamp.exe,1) | /echo -a 4,1 æ8M15p3 Player set t8o4æ :2 %mp3.player } Alias Mp3play { if (%mp3.dir == $null) { set %mp3.dir $sdir=\\&quot;Locate you mp3 directory\\&quot; } if (%mp3.player == $null) { set %mp3.player $dir=\\&quot;Locate your mp3 player (winamp.exe)\\&quot; winamp.exe } %mp3.dir1 = %mp3.dir $+ \\\\ $+ *.mp? set %mp3 $dir=\\&quot;Which mp3 do you want to play?\\&quot; %mp3.dir1 if (%mp3 == $null) { goto end } %mp3.size = $round($calc($lof(%mp3)/1000000),2) $+ mb %mp3.len = $mp3.len(%mp3) %mp3.kbps = $mp3.kbps(%mp3) say 0,2Non-Random-Mp3 $nopath(%mp3) 4/15 $+ %mp3.size $+ 4/15 $+ %mp3.len $+ 4/15 $+ %mp3.kbps $+ 4/ run %mp3.player $shortfn(%mp3) unset %mp3.len %mp3.size %mp3.kbps :end } Alias sF3 { if (%mp3.dir == $null) { set %mp3.dir $sdir=\\&quot;Locate you mp3 directory\\&quot; } if (%mp3.player == $null) { set %mp3.player $dir=\\&quot;Locate your mp3 player (winamp.exe)\\&quot; *.exe } set %rand.mp3.1 $findfile(%mp3.dir,*.mp?,0) set %rand.mp3.2 $rand(1,%rand.mp3.1) set %mp3 $findfile(%mp3.dir,*.mp?,%rand.mp3.2) %mp3.size = $round($calc($lof(%mp3)/1000000),2) $+ mb %mp3.len = $mp3.len(%mp3) %mp3.kbps = $mp3.kbps(%mp3) say 0,2Random-Mp3 $nopath(%mp3) 4/15 $+ %mp3.size $+ 4/15 $+ %mp3.len $+ 4/15 $+ %mp3.kbps $+ 4/ run %mp3.player $shortfn(%mp3) unset %mp3.len %mp3.size %mp3.kbps :end } alias playlist { set %mp3.list.starttime $ctime set %mp3.list.nick $me set %mp3.list.textfile $mircdir $+ $me $+ mp3.txt window -dhnal @list $findfile(%mp3.dir,*.mp3,@list) set %mp3.list.total $findfile(%mp3.dir,*.mp3,0) write %mp3.list.textfile $cr write -c %mp3.list.textfile $me $+ \\\'s Mp3 List by: æAcidMp3æ Created by Juston write %mp3.list.textfile type ! $+ $me filename.mp3 in the channel to request a file. write %mp3.list.textfile Total $calc(%mp3.list.total - 1) MP3 files set %mp3.list.count 1 set %mp3.list.filesize.total 0 set %mp3.list.file.lastdir \\&quot;\\&quot; :next set %mp3.list.file $line(@list,%mp3.list.count) set %mp3.list.file.dir $nofile(%mp3.list.file) set %mp3.list.file.name $nopath(%mp3.list.file) set %mp3.list.filesize $round($calc( $file(%mp3.list.file).size / 1048576 ),3) set %mp3.list.length $calc(60 - $len(%mp3.list.file.name) - $len(%mp3.list.count)) if (%mp3.list.file.dir != %mp3.list.file.lastdir) { write %mp3.list.textfile $cr write %mp3.list.textfile $chr(91) $+ %mp3.list.file.dir $+ ] write %mp3.list.textfile $cr } else { } set %mp3.list.file.lastdir %mp3.list.file.dir if %mp3.list.count &gt; 1 { if %mp3.list.filesize &gt; %mp3.list.filesize.high { set %mp3.list.filesize.high %mp3.list.filesize set %mp3.list.filename.high %mp3.list.file.name } elseif %mp3.list.filesize &lt; %mp3.list.filesize.low { set %mp3.list.filesize.low %mp3.list.filesize set %mp3.list.filename.low %mp3.list.file.name } } else { set %mp3.list.filesize.high %mp3.list.filesize set %mp3.list.filesize.low %mp3.list.filesize } write %mp3.list.textfile $chr(91) $+ %mp3.list.count $+ ] %mp3.list.file.name $str($chr(160),%mp3.list.length) %mp3.list.filesize MB inc %mp3.list.filesize.total %mp3.list.filesize inc %mp3.list.count 1 if ( %mp3.list.count &lt; %mp3.list.total ) { goto next } :end window -c @list write %mp3.list.textfile write %mp3.list.textfile $cr if %mp3.list.filesize.total &lt; 1024 { write %mp3.list.textfile Total $calc(%mp3.list.total - 1) MP3 files encompassing $round(%mp3.list.filesize.total,1) MB } else { write %mp3.list.textfile Total $calc(%mp3.list.total - 1) MP3 files encompassing $round($calc( %mp3.list.filesize.total / 1024 ),3) GB } set %mp3.list.time $calc($ctime - %mp3.list.starttime) /run %mp3.list.textfile | echo -a 4,1 æ8A15n Mp3 lis8t4æ 2 ( $+ $calc(%mp3.list.total - 1) 14files total) 4,1 æ8h15as been create8d4æ } alias dur { return $remove($duration($1),ks,k,ays,ay,rs,r,ins,in,ecs, ec,$chr(32)) } alias mp3.br { goto $iif($1 isnum 1-14,$1,0) | :0 | return 112000 | :1 | return 32000 | :2 | return 40000 | :3 | return 48000 | :4 | return 56000 | :5 | return 64000 | :6 | return 80000 | :7 | return 92000 | :8 | return 112000 | :9 | return 128000 | :10 | return 160000 | :11 | return 192000 | :12 | return 224000 | :13 | return 256000 | :14 | return 320000 } alias mp3.kbps { return $remove($mp3.bitrate($1-),000) $+ kbps } alias mp3.bitrate { if (($1 == $null) || ($exists($1-) == $false)) return 0 set %_bitrate $read -l1 $1- if ($pos(%_bitrate,RIFF,1)) { unset %_bitrate | return 128000 } set %_bitrate $asc($mid(%_bitrate,3,1)) .timer 1 1 unset %_bitrate return $iif(%_bitrate == $null,128000,$mp3.br($int($calc(%_bitrate / 16)))) } alias mp3.len { if ($1 == $null) || ($exists($1) == $false) return 0m0s else { return $dur($round($calc(($lof($1-) * .008) / $remove($mp3.bitrate($1-),000)),0))) } } Menu status,channel,query { - DandikMp3 .Setup:/setup .Create List:/playlist .Select Mp³:/mp3play .Random Mp³:/sF3 } Alias r3 { if (%mp3.dir == $null) { set %mp3.dir $sdir=\\&quot;Locate you mp3 directory\\&quot; } if (%mp3.player == $null) { set %mp3.player $dir=\\&quot;Locate your mp3 player (winamp.exe)\\&quot; *.exe } set %rand.mp3.1 $findfile(%mp3.dir,*.mp?,0) set %rand.mp3.2 $rand(1,%rand.mp3.1) set %mp3 $findfile(%mp3.dir,*.mp?,%rand.mp3.2) %mp3.size = $round($calc($lof(%mp3)/1000000),2) $+ mb %mp3.len = $mp3.len(%mp3) %mp3.kbps = $mp3.kbps(%mp3) say 0,4~mp¼ $nopath(%mp3) 4/15 $+ %mp3.size $+ 4/15 $+ %mp3.len $+ 4/15 $+ %mp3.kbps $+ 4/ run %mp3.player $shortfn(%mp3) unset %mp3.len %mp3.size %mp3.kbps :end } |
mIRC /seen kodu
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 |
/seen nick yazaran belirlediginiz nickle en son nezaman hangi kanalda bulundugunuzu gorebilirsiniz. /seen list yaparak listenizi gorebilir, /seen clear yaparak listeyi temizleyebilirsiniz. Kod; ;$_find($1,1) = nick, $_find($1,2) = time, $_find($1,3) == date alias _find return $gettok($hget(seen. $+ $server,$hfind(seen. $+ $server,$+(*,$1,*),1,w).data),$2,46) on *:JOIN:#: { if !$findfile($mircdir,$+(seen.,$server,.data),1) { hmake seen. $+ $server 50 hsave seen. $+ $server $+(seen.,$server,.data) } elseif !$hget(seen. $+ $server) { hmake seen. $+ $server | hload seen. $+ $server $+(seen.,$server,.data) } if $_find($nick,1) { hdel seen. $+ $server $hfind(seen. $+ $server,$+(*,$1,*),1,w).data } hadd seen. $+ $server $r(0,99999999) $+($nick,$chr(46),$time,$chr(46),$date) hsave seen. $+ $server $+(seen.,$server,.data) } alias seen { if $server { if $1 { if $1 == clear { hdel -w seen. $+ $server * echo -a Temizlendi hsave seen. $+ $server $+(seen.,$server,.data) } elseif $1 == list { var %s = 1,%nick,%time,%date while %s &lt;= $hget(seen. $+ $server,0).item { %nick = $gettok($hget(seen. $+ $server,%s).data,1,46) %time = $gettok($hget(seen. $+ $server,%s).data,2,46) %date = $gettok($hget(seen. $+ $server,%s).data,3,46) echo -a %s Nick: %nick Time: %time Date: %date inc %s } } elseif $_find($1,1) { echo -a $_find($1,1) $+ , En son $_find($1,3) Tarihinde Saat $_find($1,2) Saatinde Görüldü... } else echo -a $1 $+ , Listemde yok.... } } else echo -a Ba?l? De?ilsiniz... |
mIRC Lag Durumunuz
bu kod ile sunucudaki lagdaki durumunuzu ögrenebilirsiniz. Kullanimi /lag.
|
1 2 3 4 5 6 7 8 9 |
alias lag { set %lag $ticks | .quote PING $ticks } on ^*:PONG:{ if (%lag) { echo -a * Lag: $calc($ticks - $iif($2 isnum,$2,%lag)) ( $+ $nick $+ ) unset %lag haltdef } } |