Mynet Sohbet’n $qt(Botnet,HazırCloneProgramları) Vb. yazılımlara karşı aldığı önleme karşı ufak bir dialog hazırladım can sıkıntısına.
Bu kod Mynet Sohbet’n yaptığı grafiksel GİRİŞ’i otomatik geçmemektedir, sadece kod girişini kolaylaştırmak için dialog haline getirdim..
Kod;
Kod:
on *:snotice:*: {
if (*sohbete girebilmek icin* iswm $1-) { dialog -m baglanku baglanku }
if (*Sifreniz Yanlis* iswm $1-) { /echo -a 4,0Şifreyi Yanlış Girdiniz, Lütfen Tekrar Deneyin..! }
}
dialog baglanku {
title "GIRIS <Kod>"
size -1 -1 69 43
option dbu
edit "", 1, 5 8 59 15
button "Tamam", 2, 14 29 37 12
box "Lütfen Kodu Giriniz ", 3, 3 0 64 28
}
on *:dialog:baglanku:*:*: {
if ($devent == sclick) {
if ($did == 2) { /GIRIS $did(1) | dialog -x baglanku baglanku }
}
}
Yorumlar