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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   bağlantı menüsü (https://www.ircforumlari.net/mirc-scripting-sorunlari/527522-baglanti-menusu.html)

KaraLahana 30 Mart 2013 14:48
bağlantı menüsü
 
Kod:
dialog baglan {
  title "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)  }
  }
}
selam arkadaşlar yukarıda bulunan bir bağlantı menüsü var bu menüye IRC Sunucu ve IRC Sifresi var bu 2sini kaldırabilirmiyiz ve IRC Sunucusu yerine nick şifresini girmek için bir şey koyabilirmiyiz şifreyi girince kanaldaki nick şifresi girilmiş olsun.sonra kanala girince de tekrar şifreyi sorma butonu çıkmaması şekilde ayarlabilirmiyiz teşekkür ederim yardımcı olacak arkadaşa.

JohnGalt 30 Mart 2013 17:29
Cevap: bağlantı menüsü
 
Şifre girildikten sonra tekrar şifre sormaması için şifre sorma panelini neyin tetiklediğini de görmek gerekiyor. Muhtemelen on *:notice eventidir. Onu da paylaşırsan daha doğru şekilde yardım verilebilir.

Ayrıca IRC Sunucu ve IRC Sifresi diyorsun ama IRC şifresi dediği şey zaten nick şifresi için bir kısım.

Kod:
dialog baglan {
  title "Sunucu.com"
  size -1 -1 133 82
  option dbu
  box "", 1, 3 -1 128 60
  edit "", 2, 56 8 70 12, autohs
  edit "", 3, 56 26 70 12, autohs
  text " Nickiniz", 5, 6 10 36 8
  text " Yedek Nickiniz", 6, 6 27 44 8
  edit "", 8, 56 42 70 12, autohs
  text "Nick Sifre", 9, 6 44 43 8
  button "« « BAGLAN » »", 10, 24 62 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 8 %nicksifre
    mdx MarkDialog $dname
    mdx SetFont 1,2,3,5,6,8,9,10 -11 700 Tahoma
  }
  if ($devent == sclick) {
    if ($did == 10) && $did(8) { .nick $did(2)  | .anick $did(3) | set %nicksifre $did(8) | /dialog -c baglan baglan | server $+($server,:,6667) %nicksifre }
    elseif ($did == 10) && !$did(8) { .nick $did(2)  | .anick $did(3) | dialog -c baglan baglan | server $+($server,:,6667)  }
  }
}
Bu şekilde değiştirebilirsin.

KaraLahana 30 Mart 2013 23:22
Cevap: bağlantı menüsü
 
kardeş öncelikle remotede on *:notice kodunu aradım remotede hiç çıkmadı öyle bir kod sonrasında ise bu verdiğin kodu koydum sonra nıck yazdım bağlan diyince alt o yapınca çıkan panel çıkıyor

KiLLed 31 Mart 2013 11:51
Cevap: bağlantı menüsü
 
alt + o değil alt + r yapın remotelerde identify kelimesini arayın noticede büyük ihtimal
identify kelimesi geçer.

KaraLahana 31 Mart 2013 13:43
Cevap: bağlantı menüsü
 
Hayır alt r ile remotede on *:notice aradım ben diğer JohnGalt arkadasın verdiği kodu koydum sonra nıckı yazıp bağlan diyince alt o açılıyor
Buda nick şifresini giren kutucuk kodu identify

Kod:
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 %Sunucu 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 }
}

KiLLed 31 Mart 2013 14:33
Cevap: bağlantı menüsü
 
[BOX="+i"]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 %Sunucu 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 }
}
}
#idpass off
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 }
}
#idpass end
[/BOX]
eskisini sil bu verdiğim şekilde ekle
yukarda johnGalt ın verdiği koduda aynen ekle
bu şekilde şuan nick şifre diyaloğu kapalı
açmak için
/enable #idpass
kapatmak için
/disable #idpass
komutlarını uygulaya bilirsin

KaraLahana 31 Mart 2013 15:17
Cevap: bağlantı menüsü
 
Sizin verdiğiniz kodu koydum diğerini sildim JohnGalt'un verdiği koduda koydum sonra nick yazıp bağlan diyince bağlanmıyor alt o yu açıyor.

JohnGalt 31 Mart 2013 17:13
Cevap: bağlantı menüsü
 
Haklısın, ilk verdiğim kodda bir yanlışlık yapmışım. Ondan dolayı da server bilgisi alamadığı için tekrar alt+o kısmını açması normal.

Kod:
dialog baglan {
  title "Sunucu.com"
  size -1 -1 133 82
  option dbu
  box "", 1, 3 -1 128 60
  edit "", 2, 56 8 70 12, autohs
  edit "", 3, 56 26 70 12, autohs
  text " Nickiniz", 5, 6 10 36 8
  text " Yedek Nickiniz", 6, 6 27 44 8
  edit "", 8, 56 42 70 12, autohs
  text "Nick Sifre", 9, 6 44 43 8
  button "« « BAGLAN » »", 10, 24 62 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 8 %nicksifre
    mdx MarkDialog $dname
    mdx SetFont 1,2,3,5,6,8,9,10 -11 700 Tahoma
  }
  if ($devent == sclick) {
    if ($did == 10) && $did(8) { .nick $did(2)  | .anick $did(3) | set %nicksifre $did(8) | /dialog -c baglan baglan | server irc.sunucun.com 6667 %nicksifre }
    elseif ($did == 10) && !$did(8) { .nick $did(2)  | .anick $did(3) | dialog -c baglan baglan | server irc.sunucun.com 6667 }
  }
}
Server seçimi istemediğine göre muhtemelen tek server kullanıyorsundur. Kırmızı ile belirttiğim yere bağlanmak istediğin server adresini yazarsın, sorunun hallolmuş olur.

İlk yanlışlığım için de kusura bakmayın artık. =)

KaraLahana 31 Mart 2013 17:27
Cevap: bağlantı menüsü
 
Estağfurullah Kodu koydum çalışdı birde KiLLed arkadaşımın vermiş olduğu kodunuda koydum identify olanı sonra bağlantı menusune nick yazdım şifre yazdım kayıtlı bir nick ile sonra bağlan dedim bağlandı nick şifresini tanıdı ama statüde bir de şunu yazdı * /dialog: Geçersiz parametre

şu sekilde çıkardı

-NickServ- Bu kayitli ve sifre korumali bir nick'tir. Eger sizinse /msg NickServ IDENTIFY sifreniz yaziniz. Aksi takdirde lutfen baska bir nick seciniz.
-
-NickServ- Eger 1 dakika icinde degistirmezseniz, nickiniz degistirilecektir.
-
-NickServ- Password accepted - Sifre kabul edildi.
-
-NickServ- [ Authed ] - Nick rumuzu ile sisteme tanitildiniz.Sunucu.Com hos sohbetler diler.
-
* /dialog: Geçersiz parametre

JohnGalt 31 Mart 2013 17:38
Cevap: bağlantı menüsü
 
Onun nedeni arkadaşın verdiği kodda senin mIRC'inde olmayan bir diyalogdan aldığı veriler ile çalışıyor olması. İncelediğimde bazı variablesleri oluşturacak hiçbir komut yok mesela. O nedenle hata alıyor olabilirsin.

Dilersen benim yazdığım bir diyalog vardı, onu deneyebilirsin;

Kod:
dialog sifre {
  title "Nick/Şifre Paneli"
  size -1 -1 100 60
  option dbu
  box $me Nicki Şifrelidir;, 1, 5 3 90 35
  text "Şifre Gir:", 2, 10 13 30 8
  text "Yeni Nick:", 3, 10 24 30 8
  edit "", 4, 40 12 50 10, pass
  edit "", 5, 40 23 50 10
  button "Tamam", 6, 10 43 37 12, default
  button "İptal", 7, 55 43 37 12, cancel
}
dialog sifre1 {
  title "Şifre Paneli"
  size -1 -1 100 60
  option dbu
  box , 1, 5 3 90 35
  text "Şifre Gir:", 2, 10 25 30 8
  text "Yanlış Şifre! Tekrar deneyiniz;", 3, 10 11 80 8, center
  edit "", 4, 40 24 50 10, pass
  button "Tamam", 6, 10 43 37 12, ok
  button "İptal", 7, 55 43 37 12, cancel
}
on *:notice:*:*:{
  if $nick == NickServ {
    if $regex($1-,/^Gecersiz\ssifre\.$/) { dialog -m sifre1 sifre1 }
    if $regex($1-,/^Bu\skayitli\sve\ssifre/) { .timeridentify 1 3 dialog -m sifre sifre }
    if $regex($1-,/Sifre\skabul\sedildi\./) { .timeridentify off }
  }
}
on *:dialog:sifre:sclick:6:{
  if ($did(4) && !$did(5)) { .identify $did(4) | /dialog -c sifre sifre }
  if ($did(5) && !$did(4)) { .nick $did(5) | /dialog -c sifre sifre }
  if ($did(4) && $did(5)) {
    $iif($input(Sadece Şifre Veya Sadece Yeni Nick Yazınız!,ohud,Hata!),did -r $dname 4-5)
  }
}
on *:dialog:sifre1:sclick:6:{
  if $did(4) { .identify $did(4) }
}

KaraLahana 31 Mart 2013 17:46
Cevap: bağlantı menüsü
 
Malesef hocam aynı sorunu verdi yani yazıyı * /dialog: Geçersiz parametre
kodu bahsettiğiniz gibi yaptım şu şekilde
Kod:
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 %Sunucu 10*** Nick Sifreniz Girilmistir }
      unset %idintel
    }
    if ($did == 4) { dialog -x idpass | /nick $$?="Yeni Nick?" }
  }
  if ($devent == init) { idset 19 }
}
#idpass off
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 }
}
#idpass end
Birde şunu fark ettim o yazı sorununu çözdükten sonra başka bir kayıtlı nick alınca şifre girmek için çıkan identfy kutucuğu çıkmadı ama statüde nick şifresini girmesseniz nick değişecek vs vs yazısı cıkdı

JohnGalt 31 Mart 2013 18:03
Cevap: bağlantı menüsü
 
Üstteki mesajımı düzenledim, oradan faydalanabilirsin. Dediğin sorun da (nick değişimi sırasında sorulan nick şifresi) eğer o diyalogu kullanırsan çözülecektir.

KaraLahana 31 Mart 2013 18:51
Cevap: bağlantı menüsü
 
Maalesef sorun düzelmedi aşağıdaki kodu koydum yine aynı sorunu vermeye devam etmekte

Kod:
dialog sifre {
  title "Nick/Şifre Paneli"
  size -1 -1 100 60
  option dbu
  box $me Nicki Şifrelidir;, 1, 5 3 90 35
  text "Şifre Gir:", 2, 10 13 30 8
  text "Yeni Nick:", 3, 10 24 30 8
  edit "", 4, 40 12 50 10, pass
  edit "", 5, 40 23 50 10
  button "Tamam", 6, 10 43 37 12, default
  button "İptal", 7, 55 43 37 12, cancel
}
dialog sifre1 {
  title "Şifre Paneli"
  size -1 -1 100 60
  option dbu
  box , 1, 5 3 90 35
  text "Şifre Gir:", 2, 10 25 30 8
  text "Yanlış Şifre! Tekrar deneyiniz;", 3, 10 11 80 8, center
  edit "", 4, 40 24 50 10, pass
  button "Tamam", 6, 10 43 37 12, ok
  button "İptal", 7, 55 43 37 12, cancel
}
on *:notice:*:*:{
  if $nick == NickServ {
    if $regex($1-,/^Gecersiz\ssifre\.$/) { dialog -m sifre1 sifre1 }
    if $regex($1-,/^Bu\skayitli\sve\ssifre/) { .timeridentify 1 3 dialog -m sifre sifre }
    if $regex($1-,/Sifre\skabul\sedildi\./) { .timeridentify off }
  }
}
on *:dialog:sifre:sclick:6:{
  if ($did(4) && !$did(5)) { .identify $did(4) | /dialog -c sifre sifre }
  if ($did(5) && !$did(4)) { .nick $did(5) | /dialog -c sifre sifre }
  if ($did(4) && $did(5)) {
    $iif($input(Sadece Şifre Veya Sadece Yeni Nick Yazınız!,ohud,Hata!),did -r $dname 4-5)
  }
}
on *:dialog:sifre1:sclick:6:{
  if $did(4) { .identify $did(4) }
}

KiLLed 31 Mart 2013 19:47
Cevap: bağlantı menüsü
 
[BOX="+i"]dialog baglan {
title "Sunucu.com"
size -1 -1 133 82
option dbu
box "", 1, 3 -1 128 60
edit "", 2, 56 8 70 12, autohs
edit "", 3, 56 26 70 12, autohs
text " Nickiniz", 5, 6 10 36 8
text " Yedek Nickiniz", 6, 6 27 44 8
edit "", 8, 56 42 70 12, autohs
text "Nick Sifre", 9, 6 44 43 8
button "« « BAGLAN » »", 10, 24 62 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 8 %nicksifre
mdx MarkDialog $dname
mdx SetFont 1,2,3,5,6,8,9,10 -11 700 Tahoma
}
if ($devent == sclick) {
if ($did == 10) && $did(8) { .nick $did(2) | .anick $did(3) | set %nicksifre $did(8) | /dialog -c baglan baglan | server irc.sunucun.com $+ : $+ 6667 }
elseif ($did == 10) && !$did(8) { .nick $did(2) | .anick $did(3) | dialog -c baglan baglan | server irc.sunucun.com $+ : $+ 6667 }
}
}
on *:connect:{
.ns identify %nicksifre
}
[/BOX]
kodu bu şekilde ekle ve şifre diyaloğunuda sil eklemene gerek yok.

KaraLahana 31 Mart 2013 20:29
Cevap: bağlantı menüsü
 
Şimdi hocam verdiğin kodu koydum ve yazı çıkmıyor nick yazdım sifre yazdım bağlan tıkladım hiç bir yazı çıkarmadan nıck şifresini girdi sorunsuz çalıştı ve bu yazıyı * /dialog: Geçersiz parametre ÇIKARMADI bu sorunu kalktı.Tşk ederim ama ben başka bir kayıtlı nicke geçtiği zaman şifre kutucuğu çıkarması için eski kodu koydum onu simdi tekrar aşşağıda verecem ve sonra başka nıcke geçince şifre kutucuğuda çıktı buda güzel şifresini girdim tanıdı burasıda güzel ama en başta sunucuya girerken nıck sifre yazıyorum sonra bağlanıyorum ve girince otomatik şifresini giriyor ama yinede o sifre kutucuğunu tekrar çıkarıyor en basda zaten bağlantı menusunde şifreyi giriyorum sunucu ya girince tekrar sifre girme kutucuğunu çıkarma sorunu var

Kod:
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 %Sunucu 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 }
}

Krieq 01 Nisan 2013 00:32
Cevap: bağlantı menüsü
 
Sunucuya girdiğinde NickServ tarafından sana gelen notice nedir(nick şifresi girilmiş ise).Notice eventi kullandığın kodda düzenleme yapacaksın ona göre.

KaraLahana 01 Nisan 2013 02:01
Cevap: bağlantı menüsü
 
Sorun çözüldü yardımlarından dolayı öncelikle JohnGalt ve KiLLed Teşekkür ederim


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 20:34.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk