| MesqeN | 25 Aralık 2014 20:58 |
Nick Register Addon'u
Selamlar uzun zaman önce kendi script icin yaptıgım bir addon Arşivden cıktı paylaşmak istedim
belki birilerin işine yarar.. Kod:
alias reg dialog -m nicksifrele nicksifrele
dialog nicksifrele {
title %kbscxx
size -1 -1 100 110
option dbu
;icon $mircdir\bag2.ico
edit "", 1, 30 22 65 10, autohs
text "Nickiniz", 2, 6 24 18 8
edit "", 3, 30 34 65 10, style(pass) autohs
text " Şifre Giriniz", 4, 0 36 30 8
edit "", 5, 30 47 65 10, autohs
button "Kaydet", 6, 2 94 50 11, ok
button "İptal Et", 7, 53 94 45 11, ok
text "E-MaiL Msn", 9, 1 48 29 8
text "Bilgi: E-MaiL Adresiniz Yoksa Msn Adresinizi Kulana bilirsiniz bu BiLgi Gizli Tutulur (Eposta Adresinize Onay Kodu gelebilir.. ) ", 12, 3 60 92 32, read multi
icon 8, 1 -30 98 80, resimler/toolx.jpg, 0 noborder tab 1
}
alias kontroletn {
if $server == $null, {
echo -a 4***7Sunucu BagLantınız YOKTUR Lütfen bekleyiniz
server irc.kelebek.gen.tr 6667 ))
.halt
}
if $did(3) == $null {
return $input(Şifre girmediniz!,ohud,HATA)
.halt
}
if $did(9) == $null {
return $input(E-mail girmediniz!,ohud,HATA)
.halt
}
}
alias nicksifrele { if (!$dialog(nicksifrele)) dialog -m nicksifrele nicksifrele }
alias nickkapat { dialog -x nicksifrele nicksifrele }
alias -l nicksifrelekay {
if ($dialog(nicksifrele)) {
set %text.x $gettok($mdxdll(MoveControl,nicksifrele 11),2,32)
if (%text.x == $+(-,%text.w)) set %text.x $dialog(nicksifrele).w
dec %text.x
mdx MoveControl nicksifrele 11 %text.x *
}
else {
unset %text.x %text.w
.timersnicksifrelekay off
}
}
on *:dialog:nicksifrele:*:*:{
dll dll\aniwin.dll anime $dialog(nicksifrele).hwnd -v 2000
if ($devent == init) {
mdx SetMircVersion $version
mdx MarkDialog $dname $dialog($dname).hwnd
mdx SetDialog $dname style title tool button sysmenu
set %text.w $gettok($mdxdll(MoveControl,$dname 1),4,32)
mdx MoveControl $dname 11 $dialog($dname).w *
mdx SetColor $dname 1 background $rgb(255,255,255)
mdx SetColor $dname 2,3,4,9,8,12,13 background $rgb(255,255,255)
mdx SetColor $dname 2,3,4,9,8,12 textbg $rgb(255,255,255)
mdx SetColor $dname 8 text $rgb(138,43,226)
mdx SetColor $dname 12,4,9 text $rgb(0,120,255)
mdx SetColor $dname 11 text $rgb(112,128,144)
mdx SetDialog [ $dname ] bgcolor $rgb(255,255,255)
mdx SetFont $dname 8,13,5,10,11,12,16,17,18,14 16 70 comic sans ms
mdx SetFont $dname 20 12 70 comic sans ms
.timersky 0 0 nicksifrelekay
did -a $dname 1 $me
}
if ($devent == sclick) && ($did == 6) { .kontroletn | .nick $did(1) | .msg nickserv register $did(3) $did(5) | .nickkapat }
}
/reg
komutu ile calışır..
kodun saglıklı calışması icin.. [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]olması gerekiyor
//run $mircdir\dll\ klasörğne atınız.
NOT Kırmızı ile belirtigim yerleri kendinize göre düzenleyiniz.
istediginiz gibi şekil vere bilirsiniz yukardan aşaga sagdan sola soldan saga vs.. hızlandıra bilirsiniz. yavaşlata bilirsiniz vs.
Örnek görüntü : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] |
