baglanti paneli - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kimimben · 23 Temmuz 2012, 23:21

arkadaslar elimdeki baglanti panelinde Nick , yedek nick ,ve irc sifresi var Yedek nickin altina Nick sifresi kodu ekleyebilirmiyiz baglandiginda nick sifresinide girmis olarak simdiden yardimci olacak arkadasa tsk ederim

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

dialog baglan {
  title "BaGlanti Paneli - Sunucu.Com"
  size -1 -1 133 100
  option dbu
  box "", 1, 3 -1 128 78
  edit "", 2, 56 8 70 12, autohs
  edit "", 3, 56 26 70 12, autohs
  edit "", 4, 56 41 70 12, autohs
  text " Nickiniz", 5, 6 10 36 8
  text " Yedek Nickiniz", 6, 6 27 44 8
  text " IRC Sunucu", 7, 7 44 44 8
  edit "", 8, 56 60 70 12, autohs
  text " IRC Sifre", 9, 6 61 43 8
  button "« « BAGLAN » »", 10, 25 80 90 16, ok cancel
}

On *:DIALOG:baglan:*:*: {
  if ($devent == init) { 
    idset 19
    did -a $dname 2 $me 
    did -a $dname 3 $anick
    did -a $dname 4 %server
    did -a $dname 8 %nicksifre
    mdx MarkDialog $dname
    mdx SetFont 1,2,3,4,5,6,7,8,9,10 -11 700 Tahoma
  }
  if ($devent == sclick) { 
    if ($did == 10) && $did(8) { .nick $did(2)  | .anick $did(3) | set %server $did(4) | set %nicksifre $did(8) | /dialog -c baglan baglan | server $+(%server,:,6667) %nicksifre }
    elseif ($did == 10) && !$did(8) { .nick $did(2)  | .anick $did(3) | set %server $did(4) | dialog -c baglan baglan | server $+(%server,:,6667)  }
  }
}

Difuzyon · 24 Temmuz 2012, 02:27

Bunu sizde yapabilirsiniz.
text
edit
button

ekleyeceksiniz en son did numarası 10 olduğuna göre yukarıdaki öğeleri 11'den başlayıp numaralandıracaksınız.Araya sıkıştırma yapacağınızdan koordinatları aşağı-yukarı oynadığınız takdirde pozisyon ayarlamayı kavrayacaksınız,elinizde bir örnek var nasıl olsa.Örneğin;
56 8 70 12
soldan sağa 56
yukarıdan aşağıya 8
uzunluk 70
yükseklik 12

"button" did numarasına sclick yapıldığında set %nicksifre $did(no).seltext ile şifreyi variables'ta sabitleyeceksiniz.Son olarak on *:connect:ns identify %nicksifre eventınıda eklediğinizde kullanıcı sunucuya bağlandığında nick şifresini kendiliğinden uygulamış olacak.

Bahsettiğim durumlar için biraz pratik uygulamalısınız,mantığı kavramanız yeterli.

Kimimben · 24 Temmuz 2012, 14:49

Valla dediginde pek anlamadim ugrastim ama beceremedim yaptigimda assagida komik bir durumda cikti bu seferde baglanti menusu bile cikmaz oldu

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

dialog baglan {
  title "BaGlanti Paneli - Sunucu.Com"
  size -1 -1 133 100
  option dbu
  box "", 1, 3 -1 128 78
  edit "", 2, 56 8 70 12, autohs
  edit "", 3, 56 26 70 12, autohs
  edit "", 3, 56 26 70 12, autohs
  edit "", 4, 56 41 70 12, autohs
  text " Nickiniz", 5, 6 10 36 8
  text " Yedek Nickiniz", 6, 6 27 44 8
  text " Nick Sifresi", 7, 7 27 44 8
  text " IRC Sunucu", 8, 8 44 44 8
  edit "", 9, 56 60 70 12, autohs
  text " IRC Sifre", 10, 6 61 43 8
  button "« « BAGLAN » »", 11, 25 80 90 16, ok cancel
}
On *:DIALOG:baglan:*:*: {
  if ($devent == init) { 
    idset 19
    did -a $dname 2 $me 
    did -a $dname 3 $anick
    did -a $dname 4 %server
    did -a $dname 8 %nicksifre
    mdx MarkDialog $dname
    mdx SetFont 1,2,3,4,5,6,7,8,9,10,11 -11 700 Tahoma
  }
  if ($devent == sclick) { 
    if ($did == 11) && $did(8) { .nick $did(2)  | .anick $did(3) | set %server $did(4) | set %nicksifre $did(8) | /dialog -c baglan baglan | server $+(%server,:,6667) %nicksifre }
    elseif ($did == 11) && !$did(8) { .nick $did(2)  | .anick $did(3) | set %server $did(4) | dialog -c baglan baglan | server $+(%server,:,6667)  }
  }
}

Krieq · 24 Temmuz 2012, 15:33

KiMiiMBeN Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

arkadaslar elimdeki baglanti panelinde Nick , yedek nick ,ve irc sifresi var Yedek nickin altina Nick sifresi kodu ekleyebilirmiyiz baglandiginda nick sifresinide girmis olarak simdiden yardimci olacak arkadasa tsk ederim

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

dialog baglan {
  title "BaGlanti Paneli - Sunucu.Com"
  size -1 -1 133 117
  option dbu
  box "", 1, 3 -1 128 93
  edit "", 2, 56 8 70 12, autohs
  edit "", 3, 56 26 70 12, autohs
  edit "", 4, 56 41 70 12, autohs
  text " Nickiniz", 5, 6 10 36 8
  text " Yedek Nickiniz", 6, 6 27 44 8
  text " IRC Sunucu", 7, 7 44 44 8
  edit "", 8, 56 60 70 12, autohs
  text " IRC Sifre", 9, 6 61 43 8
  button "« « BAGLAN » »", 10, 25 98 90 16, ok cancel
  edit "", 11, 56 74 70 12, autohs
  text "Nick Şifresi", 12, 6 77 43 8
}
On *:DIALOG:baglan:*:*: {
  if ($devent == init) { 
    idset 19
    did -a $dname 2 $me 
    did -a $dname 3 $anick
    did -a $dname 4 %server
    did -a $dname 8 %nicksifre
    did -a $dname 11 %kimimben
    mdx MarkDialog $dname
    mdx SetFont 1,2,3,4,5,6,7,8,9,10 -11 700 Tahoma
  }
  if ($devent == sclick) { 
    if ($did == 10) && $did(8) { .nick $did(2)  | .anick $did(3) | set %server $did(4) | set %nicksifre $did(8) | set %kimimben $did(11) | /dialog -c baglan baglan | server $+(%server,:,6667) %nicksifre | .timerdf 1 1 /ns identify %kimimben }
    elseif ($did == 10) && !$did(8) { .nick $did(2)  | .anick $did(3) | set %server $did(4) | set %kimimben $did(11) | dialog -c baglan baglan | server $+(%server,:,6667) | .timerdf 1 1 /ns identify %kimimben }
  }
}

Kimimben · 24 Temmuz 2012, 20:44

Hocam verdigin kodu koydum velakin nick sifresini girmedi statude su hatayi verdi

-NickServ- Eger 1 dakika icinde degistirmezseniz, nickiniz degistirilecektir.
-
-NickServ- Gecersiz sifre.
-
* /dialog: 'idpass' Isim kullaniliyor (Satir 79, script1.ini)

Burdaki script1.ini dosyasi su

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

dialog idpass {
  title "Sectiginiz Nick Sifreli"
  size -1 -1 240 95
  box "Nick Sifresi Giriniz",1,5 5 230 85
  edit "",2,35 25 173 22,autohs,pass
  button "Tamam",3,37 55 75 25,ok,disable flat
  button "Nick Degis",4,132 55 75 25, flat
}
on 1:dialog:idpass:*:*:{
  if ($devent == edit) {
    if ($did == 2) { set %idpass $did(2).text | did -e $dname 3 }
  }
  if ($devent == sclick) {
    if ($did == 3) {
      if %idpass == $null || %idpass == "" { /!.timer -m 1 1 YANLIS SİFRE :: | halt }
      else { ns identify %idpass | echo -a %Guzyeli 10 Nick Sifreniz Girilmistir }
      unset %idintel
    }
    if ($did == 4) { dialog -x idpass | /nick $$?="Yeni Nick?" }
  }
  if ($devent == init) { idset 19 }
}
on 1:dialog:key:*:*: {
  if ($devent == sclick) {
    if ($did == 3) { dialog -m idpass idpass | dialog -c key key }
  }
}
on 1:Notice:*:?:{
  if (%nickpass == on) {
    if ($nick == nickserv) {
      if (*nickserv* iswm $1- && *identify* iswm $1-) { dialog -m idpass idpass }
    }
  }
  if (%nickpass != on) {
    if ($nick == nickserv) {
      if (*nickserv* iswm $1- && *identify* iswm $1-) { dialog -m idpass idpass | halt }
      if (*identify* iswm $1- && *<password>* iswm $1-) { dialog -m idpass idpass }
    }
  }
  if (*incorrect* iswm $1- && $nick == nickserv) { dialog -m idpass idpass }
  if (*gecersiz* iswm $1- && $nick == nickserv) { dialog -m idpass idpass }
}
on 1:ACTIVE:*:{
  if ($dialog(idpass)) { dialog -v idpass }
}

buda o hata verdigi cod buranin 79cu satiri

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

  if (*gecersiz* iswm $1- && $nick == nickserv) { dialog -m idpass idpass }

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 20:44 -->-> Daha önceki mesaj 20:07 --

Tamam simdi oldu biraz kurcalayinca velakin sifreyi giriyor ama yinede sifre gir kutusu cikiyor onun cikmamasi mumkun deyilmidir.

Krieq · 25 Temmuz 2012, 00:18

Bu şekil dene istersen.

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

dialog baglan {
  title "BaGlanti Paneli - Sunucu.Com"
  size -1 -1 133 117
  option dbu
  box "", 1, 3 -1 128 93
  edit "", 2, 56 8 70 12, autohs
  edit "", 3, 56 26 70 12, autohs
  edit "", 4, 56 41 70 12, autohs
  text " Nickiniz", 5, 6 10 36 8
  text " Yedek Nickiniz", 6, 6 27 44 8
  text " IRC Sunucu", 7, 7 44 44 8
  edit "", 8, 56 60 70 12, autohs
  text " IRC Sifre", 9, 6 61 43 8
  button "« « BAGLAN » »", 10, 25 98 90 16, ok cancel
  edit "", 11, 56 74 70 12, autohs
  text "Nick Şifresi", 12, 6 77 43 8
}
On *:DIALOG:baglan:*:*: {
  if ($devent == init) { 
    idset 19
    did -a $dname 2 $me 
    did -a $dname 3 $anick
    did -a $dname 4 %server
    did -a $dname 8 %nicksifre
    did -a $dname 11 %kimimben
    mdx MarkDialog $dname
    mdx SetFont 1,2,3,4,5,6,7,8,9,10 -11 700 Tahoma
  }
  if ($devent == sclick) { 
    if ($did == 10) && $did(8) { .nick $did(2)  | .anick $did(3) | set %server $did(4) | set %nicksifre $did(8) | set %kimimben $did(11) | /dialog -c baglan baglan | server $+(%server,:,6667) %nicksifre | .timerdf 1 1 /ns identify %kimimben | .dialog -x idpass idpass }
    elseif ($did == 10) && !$did(8) { .nick $did(2)  | .anick $did(3) | set %server $did(4) | set %kimimben $did(11) | dialog -c baglan baglan | server $+(%server,:,6667) | .timerdf 1 1 /ns identify %kimimben | .dialog -x idpass idpass }
  }
}

Kimimben · 25 Temmuz 2012, 01:12

Koydum ve hata verdi hocam hata statude su sekilde verdi

* /dialog: Geçersiz parametre (Satir 221, remote.ini)

Ve hatanin oldugu satirda surasi

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

    elseif ($did == 10) && !$did(8) { .nick $did(2)  | .anick $did(3) | set %server $did(4) | set %kimimben $did(11) | dialog -c baglan baglan | server $+(%server,:,6667) | .timerdf 1 1 /ns identify %kimimben | .dialog -x idpass idpass }

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Cr baglanti menüsü	RadyocUgur	mIRC Scripting Sorunları	6	27 Mayıs 2011 12:38
Baglanti menüsü	BehroozWolf	mIRC Scripting Sorunları	1	15 Aralık 2007 22:45
baglanti Menusu	NiGhT1	mIRC Scripting Sorunları	17	17 Nisan 2005 20:20

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.