IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Merhaba Arkadaşlar Yapmış Olduğum Whois Düzenleme Dialogunda Hata Oldugunun Farkına vardım yanlız duzenleyemedım bır turlu BEnde yenısını Cızdım Ve duzenledım Eksıksız ve gayet iyi bir şekilde Çalışıyor . herkesten Özür Diliyorum . Tek Farkı Dırek Addonu Yukluyorsunuz Ve mırcınızda Çalısıyor Buyrun ;

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
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
İyi Forumlar...