bağlantı menüsü - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

KaraLahana · 30 Mart 2013, 14:48

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

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

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

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

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

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

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: 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 %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

[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

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

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

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

KaraLahana · 31 Mart 2013, 17:27

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

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

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

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Bağlantı Menüsü	KiLLed	mIRC Scripting Hazır Kodlar	3	18 Şubat 2013 01:03
Bağlantı Menüsü	Editor	mIRC Scripting Hazır Kodlar	17	25 Ağustos 2009 06:48
Bağlantı menüsü	StarscreaM	mIRC Scripting Hazır Kodlar	3	16 Ağustos 2009 01:25
Bağlantı Menüsü	OkyAnuS	mIRC Scripting Hazır Kodlar	2	20 Aralık 2008 13:55
Bağlantı menüsü	HaLiKaRNaSX	mIRC Scripting Hazır Kodlar	2	29 Eylül 2006 21:08

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

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.