Oper Oturumu Açma Beni Hatırla Beni unut - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Hayat · 13 Mart 2009, 20:35

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: Kodu kopyalamak için üzerine çift tıklayın!

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Buyurun

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

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.)
    }
  }
}

uFuK · 14 Mart 2009, 09:08

DialogStudio'da kodunu açıp 2 tane buton ekle beni hatırla beni unut.

Beni hatırla butonunu İD si örneğin 17

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


if ($did($dname) == 17) { 
set %opernick $did(2)
set %opersifre $did(3) 
set %zımbırtı $did(4) 
}

17 numaralı id'e tıklandığında 2 3 ve 4 numaralı edit'teki verileri belirtilen set isimlerine veriables'te kaydedicek.

Aynı mantıkla beni unut butonuna tıklandığındada set'leri unset yaparak sildirirsin.

Şimdi gelelim beni hatırla butonuna girdiğin veriyi dialog'n bir sonraki açılışında aktif yapmaya ve dialog'a yansıtmaya.

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


on *:dialog:dialogadı:init:*: { 
did -a dialogadı "opernick ID'si" %opernick 
did -a dialogadı "operşifre ID'si" %operşifre 
did -a dialogadı "zımbırtı ID'si" %zımbırtı
}

Bu şekildede aktif yapabilirsin. Zaten belirtilen %set değeri veriables'te varsa oraya yansıtacaktır. Eğer yoksa yani unset'se zaten birşey bulamayacağı için koymayacaktır.

En basit mantıkla böyle yapılır bu check button kullanarak state yardımıyla dahada geliştirilebilir. Tek check'te hem beni hatırla hem unut yapabilirsin.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Beni İyi Hatırla	Adrasteia	Şiir, Hikaye ve Güzel Sözler	0	02 Aralık 2011 22:52
Beni Güzel Hatırla...	MoHaC	Şiir, Hikaye ve Güzel Sözler	0	20 Kasım 2011 16:10
Oper Script Diyalog ile Beni Hatırla addon isteği.	Hayat	mIRC Scripting Sorunları	9	02 Mayıs 2009 20:17
Beni Güzel Hatırla!	D_e_m_e_t	Aşk ve Sevgi Köşesi	0	08 Mayıs 2008 10:21

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.