[aLone]

Bi arkadaşın istegi üzerine Basit Sunucu Giriş Kodunu Paneli

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

dialog Kodegir {
  title "Giriş Kodu Giricisi"
  size -1 -1 137 69
  option dbu
  button "/. . . ./ Şifreyi Girdim Tamam /. . . ./", 1, 2 40 132 25, default flat multi ok
  box "Ekranda gördügün kodu kutucuğa giriniz", 2, 2 6 132 29
  edit "", 3, 7 17 120 10, autohs
}
on *:snotice:*: {
  if (*Kodu*GIRIS*Kod* iswm $1-) {
    dialog -m Kodegir Kodegir
  }
}
on *:dialog:Kodegir:sclick:1: {
  if ($did(3).text) /Giris $did(3).text
}
on *:dialog:Kodegir:init:*: {
  mdx MarkDialog $dname
  mdx SetDialog $dname bgcolor $rgb(020,180,255)
  mdx SetColor $dname 1,2,3 textbg $rgb(255,0,0)
  mdx SetColor $dname 1,2 background $rgb(020,180,255)
  mdx SetFont $dname 1,3 15 950 Tahoma
  mdx SetColor $dname 1,3 background $rgb(50,50,50)
}

scriptinde Mdx.dll bulunmayanlar için
Dll klasörüne Mdx.dll ekleyip kodenin en alt bölümüne bir alias yolu vermeleri gerekmektedir
alias mdx { return $dll(dll\mdx.dll,$1,$2-) }