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

Merhaba arkadaşlar kısaca şöyle özetleyeyim. Ben bir bağlantı menüsü yazmaya çalıştım dialog studio ile yanlız eksik tarafları olduğu için oraların üstesinden gelemedim. En alt kısımda bulunan Editbox'a herhangi bir sunucu ismi yazıp gir butonuna basınca o Sunucuya girmesini sağlamaya çalıştım yanlız başaramadım. Yardımcı olursanız Sevinirim.

Kod:

dialog bagla {

  title "mIRC Baglanti Menusu "

  size -1 -1 219 95

  option dbu

  text "İdent", 1, 6 38 36 8, center

  text "YedekNickiniz", 2, 6 24 36 8, center

  text "Nickiniz", 3, 6 11 36 8, center

  edit "", 4, 46 10 50 10, return autohs

  edit "", 5, 46 23 50 10, return autohs

  edit "", 6, 46 37 50 10, return autohs

  box "Bağlantı Menüsü", 7, 1 0 109 62

  button "Sohbetim.Com", 8, 119 10 42 12

  button "Siberchat.Net", 9, 169 10 42 12

  button "Sohbet.net", 10, 119 29 42 12

  button "Sohbetik.Com", 11, 169 29 42 12

  button "Turkgurbet.Com", 12, 119 47 42 12

  button "Chatruya.Com", 13, 169 47 42 12

  box "Sunucular", 14, 114 0 104 62

  text "Server ", 15, 6 72 36 8, center

  edit "", 16, 46 71 50 10, return autohs

  box "Sunucuya Gir", 17, 2 62 215 32

  button "Gir", 18, 60 83 25 9

  button "Tamam", 19, 119 70 42 20, ok

  button "Kapat", 20, 170 70 42 20, cancel

  edit "", 21, 46 50 50 10, return autohs

  text "Fullname", 22, 6 51 36 8, center

}
 

on *:dialog:bagla:init:*:{

  mdx SetMircVersion $version 

  mdx MarkDialog $dname

  mdx SetBorderStyle ,4,6,8,14

  mdx SetDialog [ $dname ] bgcolor [ $rgb(253,254,255) ]

  mdx SetColor 4,5,6,21,23,24 textbg [ $rgb(0,0,0) ]

  mdx SetColor $dname 4,5,6,21,23,24 text $rgb(253,255,250) 

  mdx SetFont $dname Turkish 36 750 Arial

  mdx SetColor 4,5,6,21,23,24 background [ $rgb(0,0,0) ] 

  did -a bagla 4 $me

  did -a bagla 5 $anick

  did -a bagla 6 $email

  did -a bagla 21 $fullname

}
 

on *:dialog:bagla:sclick:8: { server irc.sohbetim.com }

on *:dialog:bagla:sclick:9: { server irc.siberchat.net }

on *:dialog:bagla:sclick:10: { server irc.sohbet.net }

on *:dialog:bagla:sclick:11: { server irc.sohbetik.com }

on *:dialog:bagla:sclick:12: { server irc.turkgurbet.com }

on *:dialog:bagla:sclick:13: { server irc.chatruya.com }