Oper Oturumu Açma Beni Hatırla Beni unut - Çözüldü -
Merhaba arkadaşlar aşağıdaki diyaloga iki adet buton eklemek istiyorum birisi beni hatırla birisi beni unut daha öncede benzer birşey istemiştim ama ona bakarak yapamadım yardımcı olurmusunuz ? Beni hatırla denildiğinde
Nick : Şifre : Oper Nick : Oper Şifre : bir dahaki diyalogun çalışmasında sabit kalacak unut denildiğinde unutulacak. Kod:
alias operlogin { dialog -m operlogin operlogin }
dialog operlogin {
title "Sevilir Oper Script v2.0 Mini Oper işlem Merkezi"
size -1 -1 175 63
option dbu
box "Oper İşlem Merkezi", 1, 4 4 166 55
button "Operator Oturumunu Aç!", 2, 96 40 67 13
edit "", 3, 11 25 36 10, multi return autohs autovs
edit "", 4, 51 25 36 10, multi return autohs autovs
edit "", 5, 91 25 36 10, multi return autohs autovs
edit "", 6, 128 25 36 10, multi return autohs autovs
text "Nickiniz", 8, 12 16 30 8
text "Nick Şifreniz", 9, 52 16 32 8
text "Oper Nickiniz", 10, 92 16 34 8
text "Oper Şifreniz", 11, 129 16 35 8
icon 12, 11 40 78 11,$mircdirBin/diyaloglar/baglan.jpg
}
on *:dialog:operlogin:*:*: {
if $devent == init {
did -a $dname 3 %nickimo
did -a $dname 4 %pasımo
did -a $dname 5 %operno
did -a $dname 6 %oppaso
}
if $devent == sclick {
if $did == 2 {
.timer 1 3 nick $did(3)
.timer 1 4 ns identify $did(4)
.oper $did(5) $did(6)
.timer 1 2 joinkanal
echo -a 4«««« Uyarı : 14Teşekkür ederiz Nick ve Oper İşlemleriniz başarılı oldu.)
.dialog -x operlogin operlogin
}
}
}
Hırpaladım biraz :) Buyurun Kod:
alias operlogin { dialog -m operlogin operlogin }
dialog operlogin {
title "Sevilir Oper Script v2.0 Mini Oper işlem Merkezi"
size -1 -1 175 73
option dbu
box "Oper İşlem Merkezi", 1, 4 4 166 65
button "Operator Oturumunu Aç!", 2, 96 40 67 26
edit "", 3, 11 25 36 10, multi return autohs autovs
edit "", 4, 51 25 36 10, multi return autohs autovs
edit "", 5, 91 25 36 10, multi return autohs autovs
edit "", 6, 128 25 36 10, multi return autohs autovs
text "Nickiniz", 8, 12 16 30 8
text "Nick Şifreniz", 9, 52 16 32 8
text "Oper Nickiniz", 10, 92 16 34 8
text "Oper Şifreniz", 11, 129 16 35 8
icon 12, 11 40 78 11,$mircdirBin/diyaloglar/baglan.jpg
button "Beni Hatırla", 21, 10 52 35 13
button "Beni Unut", 22, 53 52 35 13
}
on *:dialog:operlogin:*:*: {
if $devent == init {
did -a $dname 3 %nickimo
did -a $dname 4 %pasımo
did -a $dname 5 %operno
did -a $dname 6 %oppaso
}
if $devent == sclick {
if $did == 2 {
.timer 1 3 nick $did(3)
.timer 1 4 ns identify $did(4)
.oper $did(5) $did(6)
.timer 1 2 joinkanal
echo -a 4«««« Uyarı : 14Teşekkür ederiz Nick ve Oper İşlemleriniz başarılı oldu.)
.dialog -x operlogin operlogin
}
if $did == 21 {
set %nickimo $did(3)
set %pasımo $did(4)
set %operno $did(5)
set %oppaso $did(6)
.timer 1 3 nick %nickimo
.timer 1 5 ns identify %pasımo
.timer 1 1 oper %opern %oppaso
.timer 1 6 joinkanal
.dialog -x operlogin operlogin
.timer 1 17 echo -a 4«««« Uyarı : 14Teşekkür ederiz artık programınızı kapatıp açsanız dahi size ait kişisel bilgilerinizi sürekli hatırlayacak. Eğer Scriptiniz kişisel bir PC'de kurulu değil ise lütfen Ayarlarımı kaydet seçeneğini kullanmayınız aksi halde bilgileriniz başka kişilerin eline geçebilir. (Oturumunuz açılıyor)
}
if $did == 22 {
unset %pasımo
unset %nickimo
unset %operno
unset %oppaso
.dialog -x operlogin operlogin
.echo -a 4«««« Uyarı : 14 Daha önceden girmiş olduğunuz kişisel bilgileriniz artık silinmiştir. Eğer Scriptiniz kişisel bir PC'de kurulu değil ise lütfen Ayarlarımı kaydet seçeneğini kullanmayınız aksi halde bilgileriniz başka kişilerin eline geçebilir. (Scripti kapatıp açtığınızda etkin olacaktır.)
}
}
}
|
