Lucifer | 12 Ekim 2009 06:17 | Cevap: acilis button PHP- Kodu: ON *:START: { .if (%baglantiayari == açık) { ayarlar } } alias sunucutxt return " $+ $mircdir\sunucu.txt $+ " alias sr return $readini($sunucutxt,0,sunucular,%on) alias ayarlar { if ($dialog(ayarlar)) { dialog -x ayarlar } | dialog -ma ayarlar ayarlar } dialog ayarlar { title " Bağlantı Ayarları " size 199 150 159 172 option dbu box "", 10, 3 2 153 150 button "KABUL", 4, 60 155 35 13, ok button "KAPAT", 23, 110 155 35 13, cancel combo 3, 15 21 85 55, drop box "Sunucu Ayarları", 2, 7 9 145 62 button "Ekle", 5, 115 20 30 11 button "Sil", 6, 115 33 30 11 button "Düzenle", 11, 115 46 30 11 button " IRC Server'e Bağlan", 12, 25 38 65 12 check "Yeni Sunucu Penceresi Aç", 13, 22 56 90 14, flat box "Bağlantı Ayarları", 14, 7 78 145 70 edit "", 15, 65 87 80 12 edit "", 16, 65 101 80 12 edit "", 17, 65 115 80 12 edit "", 18, 65 131 80 12 text "İsim :", 19, 43 90 20 10 text "E-Posta Adresi :", 20, 15 103 48 10 text "Nick :", 21, 44 116 20 10 text "Alternatif Nick:", 22, 18 133 47 10 check Açılışta Göster, 419, 5 155 50 12, flat } on *:dialog:Ayarlar:init:*:{ set %on 0 :dongu inc %on if ($sr != $null) { did -a ayarlar 3 $gettok($sr,1,58) goto dongu } did -a ayarlar 15 $fullname did -a ayarlar 16 $emailaddr did -a ayarlar 17 $me did -a ayarlar 18 $anick did -f ayarlar 17 if ($server != $null) { did -b ayarlar 15 } if ($server != $null) { did -b ayarlar 16 } if (%baglantiayari == açık) { did -c ayarlar 419 } did -c ayarlar 3 %listesıra } on *:dialog:ayarlar:sclick:*:{ if $did == 3 { set %listesıra $did(3).sel } if $did == 4 { if ($did(3).text == $null) { did -f ayarlar 3 | halt } elseif ($did(15) == $null) { did -f ayarlar 15 | halt } elseif ($did(16) == $null) { did -f ayarlar 16 | halt } elseif ($did(17) == $null) { did -f ayarlar 18 | halt } elseif ($did(17) == $null) { did -f ayarlar 18 | halt } else { .username $did(15) .emailaddr $did(16) .nick $did(17) .anick $did(18) } dialog -x ayarlar ayarlar } if $did == 5 { set %on 0 :dongu inc %on if ($sr != $null) { goto dongu } writeini -n $sunucutxt sunucular %on $$?="Eklemek istediğiniz sunucu ismini yazınız:" if ($dialog(ayarlar) != $null) { dialog -ve ayarlar ayarlar did -a ayarlar 3 $! did -c ayarlar 3 %on set %listesıra %on } } if $did == 6 { set %on $did(3).sel if ($did(3).sel != $null) { remini $sunucutxt sunucular $did(3).sel did -d ayarlar 3 $did(3).sel did -c ayarlar 3 1 set %listesıra 3 :dongu inc %on if ($sr != $null) { writeini $sunucutxt sunucular $calc(%on - 1) $sr goto dongu } else { remini $sunucutxt sunucular $calc(%on - 1) } } } if $did == 11 { var %t $did(3).sel writeini -n $sunucutxt sunucular %t $$?=" $did(3).seltext Sunucusunun yeni adresini yazınız:" if ($dialog(ayarlar) != $null) { did -i ayarlar 3 %t $! did -d ayarlar 3 $calc(%t + 1) did -c ayarlar 3 %t dialog -ve ayarlar ayarlar } } if $did == 12 { if ($did(3).text == $null) { did -f ayarlar 3 | halt } elseif ($did(15) == $null) { did -f ayarlar 15 | halt } elseif ($did(16) == $null) { did -f ayarlar 16 | halt } elseif ($did(17) == $null) { did -f ayarlar 17 | halt } elseif ($did(18) == $null) { did -f ayarlar 18 | halt } else { .username $did(15) .emailaddr $did(16) .nick $did(17) .anick $did(18) if ($did(ayarlar,13).state == 0) { .server $did(3).text } else { .server -m $did(3).text } } dialog -x ayarlar ayarlar } if $did == 16 { var %t $did(3).sel writeini -n $sunucutxt sunucular %t $$?=" $did(3).seltext Sunucusunun yeni adresini yazınız:" if ($dialog(ayarlar) != $null) { did -i ayarlar 3 %t $! did -d ayarlar 3 $calc(%t + 3) did -c ayarlar 3 %t dialog -ve ayarlar ayarlar } } if $did == 419 { if (%baglantiayari == açık) { set %baglantiayari kapalı } else { set %baglantiayari açık } } } alias server { if ($1 == irc.mirc.com.tr) { !server 212.95.40.73 | dialog -x ayarlar ayarlar | halt } else { !server $1- } }
McKruGer 'e ait bağlantı menüsü yukarıda..
Giriş Codu girmek içinse; PHP- Kodu: dialog giriskodu { title "GIRIS <Kod>" size -1 -1 83 40 option dbu edit "", 1, 25 12 35 10 ,flat button "Tamam", 2, 24 24 37 12 ,flat ,ok box "Lütfen Ekrandaki Kodu Giriniz ", 3, 2 2 78 36 } on *:dialog:giriskodu:*:*: { if ($devent == sclick) { if ($did == 2) { /GIRIS $did(1) | dialog -x giriskodu giriskodu } } } on ^*:snotice:*: { if */*Giris*KOD* iswm $1- { dialog -m giriskodu giriskodu }
iyi forumlar.. |