Whois Düzenleme Dialogu

CooL: ADMİNİSTRATOR; Yaş : 38
Mesaj Sayısı : 1384
Kayıt Tarihi : 09/05/09

Post n°1

Whois Düzenleme Dialogu

tarafından CooL C.tesi Ocak 30 2010, 10:55

Kod:

alias whs1 dialog -m whsx whsx dialog whsx { title "Whois Düzenleyici « bLack » " size -1 -1 242 210 option dbu box "Nicki Girin", 1, 4 3 119 23 edit "", 2, 8 11 108 12, autohs box "", 3, 4 30 236 176 text "Diyorki", 4, 10 40 47 8 edit "", 5, 70 40 106 10, autohs text "İnadına", 6, 10 55 47 8 edit "", 7, 70 55 106 10, autohs text "Bir", 8, 10 70 47 8 edit "", 9, 70 70 106 10, autohs text "Web", 10, 10 85 47 8 edit "", 11, 70 85 106 10, autohs text "E-Mail", 12, 10 100 47 8 edit "", 13, 70 100 106 10, autohs text "Site", 14, 10 115 47 8 edit "", 15, 70 115 106 10, autohs text "Takim", 16, 10 130 47 8 edit "", 17, 70 130 106 10, autohs text "Dili", 18, 10 145 47 8 edit "", 19, 70 145 106 10, autohs text "Yardim", 20, 10 160 47 8 edit "", 21, 70 160 106 10, autohs text "Ulke", 22, 10 175 47 8 edit "", 23, 70 175 106 10, autohs text "Den Tavsiyeler", 24, 10 190 47 8 edit "", 25, 70 190 106 10, autohs button "Ekle", 28, 185 40 48 10 button "Ekle", 29, 185 55 48 10 button "Ekle", 30, 185 70 48 10 button "Ekle", 31, 185 85 48 10 button "Ekle", 32, 185 100 48 10 button "Ekle", 33, 185 115 48 10 button "Ekle", 34, 185 130 48 10 button "Ekle", 35, 185 145 48 10 button "Ekle", 36, 185 160 48 10 button "Ekle", 37, 185 175 48 10 button "Ekle", 38, 185 190 48 10 box "", 40, 186 3 53 23 button "Tümünü Ekle", 41, 133 10 45 12 box "", 42, 130 3 52 23 button "Tamam/Kapat", 43, 190 10 45 12, ok } on *:dialog:whsx:init:*: { mdx SetMircVersion $version mdx MarkDialog $dname mdx SetColor $dname 3,4,6,8,10,12,14,16,18,20,22,24,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40 text $rgb(0,0,0) mdx SetColor $dname ,16,18 text $rgb(005,080,120) mdx SetColor $dname 3,4,6,8,10,12,14,16,18,20,22,24,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40 background $rgb(225,225,225) mdx SetColor $dname 20,22 textbg $rgb(225,225,225) mdx SetDialog [ $dname ] bgcolor $rgb(225,225,225) mdx SetFont $dname 3,4,6,8,10,12,14,16,18,20,22,24,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40 Turkish 14 800 Cyrillic mdx SetFont $dname 3,4,6,8,10,12,14,16,18,20,22,24,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40 14 700 Tahoma mdx SetDialog $dname bgcolor $rgb(225,225,225) mdx SetColor $dname 26 textbg $rgb(225,225,225) mdx SetColor $dname 26 background $rgb(225,225,225) mdx SetFont 3,4,6,8,10,12,14,16,18,20,22,24,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 12 700 tahoma mdx SetBorderStyle 3,4,6,8,10,12,14,16,18,20,22,24,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40 staticedge } on *:dialog:whsx:Sclick:*: { if ($did == 28) { raw set $did(2) diyorki $did(5) | echo -a 5 $did(2) 4diyorki : $did(5) } if ($did == 29) { raw set $did(2) inadına $did(7) | echo -a 5 $did(2) 4inadına : $did(7) } if ($did == 30) { raw set $did(2) bir $did(9) | echo -a 5 $did(2) 4bir : $did(9) } if ($did == 31) { raw set $did(2) web $did(11) | echo -a 5 $did(2) 4web : $did(11) } if ($did == 32) { raw set $did(2) e-mail $did(13) | echo -a 5 $did(2) 4e-mail : $did(13) } if ($did == 33) { raw set $did(2) site $did(15) | echo -a 5 $did(2) 4site : $did(15) } if ($did == 34) { raw set $did(2) takim $did(17) | echo -a 5 $did(2) 4takim : $did(17) } if ($did == 35) { raw set $did(2) dili $did(19) | echo -a 5 $did(2) 4dili : $did(19) } if ($did == 36) { raw set $did(2) yardim $did(21) | echo -a 5 $did(2) 4yardim :$ did(21) } if ($did == 37) { raw set $did(2) ulke $did(23) | echo -a 5 $did(2) 4ulke : $did(23) } if ($did == 38) { raw set $did(2) den $did(25) | echo -a 5 $did(2) 4den : $did(25) } if ($did == 41) { .echo -a 5 Ekleme İşlemi İçin 4 15 Saniye 5Beklemelisiniz! .timer 1 0 raw set $did(2) diyorki $did(5) .timer 1 1 raw set $did(2) inadına $did(7) .timer 1 2 raw set $did(2) bir $did(9) .timer 1 3 raw set $did(2) web $did(11) .timer 1 4 raw set $did(2) e-mail $did(13) .timer 1 5 raw set $did(2) site $did(15) .timer 1 6 raw set $did(2) takim $did(17) .timer 1 7 raw set $did(2) dili $did(19) .timer 1 8 raw set $did(2) yardim $did(21) .timer 1 9 raw set $did(2) ulke $did(23) .timer 1 11 raw set $did(2) den $did(25) .timer 1 12 echo -a 5Ekleme İşlemi Bitmiştir. } } menu channel,query,status {   Whois Düzenleyici:/whs1