| Vision | 20 Nisan 2022 11:36 |
Bağlantı Dialog'u Hakkında
Merhabalar,
Benim elimde eskiden kullandığım bir dialog mevcut aşağıdaki gibi;
Eski dialog; [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Eski dialog kodları: Kod:
dialog baglan {
title "Bağlantı Menüsü"
size -1 -1 170 90
option dbu
edit "", 25, 117 11 50 10, pass autohs
edit "", 2, 117 24 50 10, pass autohs
edit "", 4, 117 36 50 10, pass autohs
edit "", 5, 30 11 50 10, autohs
edit "", 6, 30 24 50 10, autohs
edit "", 7, 30 36 50 10, autohs
button "Sifreli Porttan Baglan", 9, 0 76 66 12
box "Baglanti Ayarlari", 12, 1 1 82 62
text "Nick Pass", 13, 90 12 26 8
text "Text Label", 14, 95 35 25 0
text "Oper Pass", 15, 90 25 27 8
box "Sifre Ayarlari", 3, 87 1 82 62
text "Nickname", 16, 5 12 24 8
text "Fullname", 17, 5 25 24 8
text "Identd", 18, 5 37 24 8
text "Su Pass", 19, 90 37 25 8
button "Normal Porttan Baglan", 8, 104 76 66 12
edit "", 20, 30 48 50 10, autohs
text "Sifreli Port", 21, 5 47 21 14
text "Port Pass", 22, 90 49 25 8
edit "", 23, 117 48 50 10, pass autohs
check "Oto Sifreli Baglan", 10, 2 64 56 10
check "Oto Normal Baglan", 11, 112 65 56 10
}
on *:dialog:baglan:*:*: {
if $devent == sclick {
if $did == 9 { set %nickname $did(5) | set %fullname $did(6) | set %identd $did(7) | set %port $did(20) | set %nickpass $did(25) | set %operpass $did(2) | set %supass $did(4) | set %portpass $did(23) | /nick %nickname | /fullname %fullname | /emailaddr %identd | server %serveraddress $+ : $+ %port %portpass }
if $did == 8 { set %nickname $did(5) | set %fullname $did(6) | set %identd $did(7) | set %port $did(20) | set %nickpass $did(25) | set %operpass $did(2) | set %supass $did(4) | set %portpass $did(23) | /nick %nickname | /fullname %fullname | /emailaddr %identd | server %serveraddress }
if $did(10).state == 1 { set %sk on }
if $did(11).state == 1 { set %sn on }
if $did(10).state == 0 { unset %sk }
if $did(11).state == 0 { unset %sn }
}
if $devent == init {
mdx MarkDialog $dname
;mdx SetDialog $dname bgcolor $rgb(255,255,255)
mdx SetFont $dname 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,25 +b Turkish 12 600 Arial
;mdx SetColor $dname 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,25 textbg $rgb(255,255,255)
;mdx SetColor $dname 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,25 background $rgb(255,255,255)
;mdx SetColor $dname 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,25 text $rgb(0000)
mdx SetDialog $dname style title tool sysmenu
did -a $dname 5 $me
if %sk == on { did -c $dname 10 }
if %sn == on { did -c $dname 11 }
did -a $dname 6 %fullname | did -a $dname 7 %identd | did -a $dname 20 %port | did -a $dname 25 %nickpass | did -a $dname 2 %operpass | did -a $dname 4 %supass | did -a $dname 23 %portpass
}
if $devent == close {
set %fullname $did(6) | set %identd $did(7) | set %port $did(20) | set %nickpass $did(25) | set %operpass $did(2) | set %supass $did(4) | set %portpass $did(23)
}
}
on *:connect: {
update.toolbar
.timer 1 5 /debug -i on test
if $dialog(bagLan) { .timer 1 1 dialog -x bagLan bagLan }
if %nickpass != $null { .timer 1 15 /ns identify %nickpass }
if %operpass != $null { .timer 1 25 /oper %opernick %operpass }
if %supass != $null { .timer 1 40 /os su %supass }
}
Ben bunu yeni olarak dialog studio yazılımında biraz güncelledim ama buradan yola çıkarak uyarlayamadım acaba yardımcı olabilecek biri var mıdır?
Yeni dialog görseli; [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Yeni dialog kodu; Kod:
dialog baglan {
title "Bağlantı Menüsü"
size -1 -1 261 153
option dbu
edit "", 25, 179 17 70 15, pass autohs
edit "", 2, 179 37 70 15, pass autohs
edit "", 4, 179 58 70 15, pass autohs
edit "", 5, 42 17 78 15, autohs
edit "", 6, 42 39 78 15, autohs
edit "", 7, 42 59 78 15, autohs
box "BAĞLANTI AYARLARI", 12, 6 6 124 140
text "Nick Şifresi", 13, 148 21 26 8
text "Text Label", 14, 95 35 25 0
text "Oper Şifresi", 15, 148 40 30 8
text "Nick", 16, 14 20 24 8
text "Fullname", 17, 14 42 23 8
text "Identd", 18, 14 63 24 8
text "Su Pass", 19, 148 62 25 8
button "BAĞLANTI KUR", 8, 142 119 114 27
edit "", 20, 46 111 38 11, autohs
text "Port ve Şifre", 21, 11 112 30 9
check "Oper Şifresini Gir", 10, 202 83 53 10, group flat
check "Nick Şifresini Gir", 11, 147 83 53 10, group flat
list 1, 10 91 116 14, size vsbar
box "ŞİFRE AYARLARI", 9, 140 6 118 107
text "Sunucu Bilgileri - (Sunucu bilgilerini hatırlar)", 3, 10 81 115 8
check "Yeni Pencerede Bağlan", 24, 60 130 65 10, group flat
check "Bilgileri Hatırla", 26, 11 130 47 10, group flat
check "Supass Gir", 27, 202 96 38 10, group flat
edit "", 22, 87 111 38 11, autohs
text "Bağlantı Koparsa Tüm Şifreleri Tekrar Girer..", 23, 144 95 54 14
}
|
