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/)
-   -   Cr baglanti menüsü (https://www.ircforumlari.net/mirc-scripting-sorunlari/394675-cr-baglanti-menusu.html)

RadyocUgur 25 Mayıs 2011 15:19
Cr baglanti menüsü
 
ConferenceRoom bir sunucuya takiliyorum.. biliyorsunuz ki bu tür sunucularda genelde girisler web appletler uzerinden gerceklesiyor. Ancak operatorler verilen ident ve sifre ile Irc girisi sagliyabiliyorlar bunun icin kendime CesuryureK arkadasimizin emegi olan mIRC Turkce 6.35 Scripti kendime gore duzenlemeler yaptim kullaniyorum baglanti menusu standart bir menu bu menuye asagidaki resimdeki ident@ ve sifre kutucuklarini eklemek istiyorum yardimi gececek herkese tesekkurler.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...];idea
Orjinalinden alintidir. Yapımcısı by 4CesuryureK


alias serv { dialog -m Baglan Baglan ) }
dialog baglan {
title " Turkce mIRC"
size -1 -1 113 54
option dbu
edit "", 30, 37 6 70 10
edit "", 31, 37 19 70 10
button "» BAGLAN CANİM «", 2, 24 38 84 12, default flat
text "Nick Yazın :", 20, 5 8 32 8
text "Yedek Nick :", 21, 5 21 31 8
box "", 13, 2 0 109 33
icon 7, 3 36 15 15, img\mirc.ico, 0
box "", 1, 21 32 90 21
}


On *:DIALOG:baglan:*:* {
if ($devent == init) {
did -a $dname 30 $me
did -a $dname 31 $anick
if $server != $null {
}
}
if ($devent == sclick) {
if ($did == 2 ) { .nick $did(30) | .anick $did(31) | /dialog -c baglan baglan | server irc.chat.com.tr }
}
}

xwerswoodx 25 Mayıs 2011 17:26
Cevap: ACİL ! Baglanti menüsü lazim.
 
2 text ve edit oluşturacaksınız. Onlara üstteki gibi isimler verebilirsiniz. Keyif sizin.

On *:dialog... içindeki sclick altına, did dediğimiz,edit box'un numarası üstünden bilgi verin şöyle ki atıyorum ki 15. did olarak alıyorsan buttona tıkladığında 15. kutudakini emailaddr $did(15) $+ @ şeklinde tanıtırsan eğer identd eklemiş olursun.

Hani vaktim olsa yapardımda vaktim yok kusura bakma umarım anlatabilmişimdir. Kolay gelsin.

RadyocUgur 25 Mayıs 2011 17:34
Cevap: ACİL ! Baglanti menüsü lazim.
 
Konu güncelligini koruyor..

Lucifer 26 Mayıs 2011 06:09
Cevap: ACİL ! Baglanti menüsü lazim.
 
Kod:
on *:start:{
.timer 1 1 baglanti }
alias baglanti { dialog -m Baglan Baglan  }
dialog Baglan {
  title " Bağlantı Konsolu "
  size -1 -1 129 96
  option dbu
  icon imgs\network.ico, 0
  box "Bağlantı Konsolu", 1, 4 3 121 90
  edit "", 3, 54 12 66 12
  text "Nickinizi Giriniz :", 4, 10 14 38 8
  edit "",7, 54 26 66 12, style(pass), autohs
  text "Nick Şifreniz :", 8, 10 28 36 8
  edit "", 10, 54 40 66 12
  text "Client Identd :", 11, 10 42 36 8
  edit "",12, 54 54 66 12, style(pass), autohs
  text "Client Pass :", 13, 10 56 36 8
  button "SUNUCUYA BAĞLAN", 9, 8 74 113 15, flat ok
}

on *:dialog:Baglan:init:*:{
  .did -a Baglan 3 $me
  .did -c Baglan 7 1
  .did -a Baglan 10 $remove($emailaddr,@)
  .did -c Baglan 7 1

}
on 1:dialog:Baglan:sclick:9: {
  if ($did(Baglan,3)) .nick $did(Baglan,3)
  if ($did(Baglan,7)) .set %ebegumeci $did(Baglan,7)
  if ($did(Baglan,10)) .identd on $did(Baglan,10) | .emailaddr $did(Baglan,10) $+ @ |
  .server irc.SERVER.COM:6667 $did(Baglan,12)
}
alias sifre { dialog -m sifre sifre  }
dialog sifre {
  title "Şifre Asistan1"
  size -1 -1 108 53
  option dbu
  icon imgs\pass.ico, 0
  box $me Kayıtlı Bir Nicktir.., 20, 2 2 104 47
  text "Lütfen Şifrenizi Giriniz ", 3, 28 10 60 10
  edit "", 5, 25 20 60 10, style(pass), autohs
  button "TAMAM", 1, 25 35 60 11, ok flat
}
on 1:dialog:sifre:sclick:1: {
  if ($did(sifre,5)) .msg nickserv identify $did(sifre,5)
}
on 1:NOTiCE:*:?: {
  if ($nick == NickServ) {
    if (*NickServ IDENTIFY* iswm $1-) {
      if (%ebegumeci) {
        .timer 1 1 .msg nickserv identify %ebegumeci
      }
      else {
        .dialog -m sifre sifre
      }
    }
    if (*Sifre kabul edildi* iswm $1-) || (*password accept* iswm $1-) {
      .unset %ebegumeci
    }
    if (*Gecersiz Sifre* iswm $1-) {
      .dialog -m sifre sifre
    }
  }
}
Bunu bi dene bakalım, eski kullandığım mIRC'deki giriş paneli. " SERVER.COM " yazan yere sunucunu yaz. Bağlan dediğinde bağlanacaktır. Belirlediğin ident vsvsvs..

RadyocUgur 26 Mayıs 2011 10:26
Cevap: ACİL ! Baglanti menüsü lazim.
 
Tesekkurler Lucifer farkli bir addon degilde CesuryureK arkadasimizin yapmis oldugu scripte ident@ ve sifre eklemek istiyorum o vermis oldugum koda gore bir remote cıkarabilirmisiniz bana acaba.. Konu günceldir.

muratt_aziz 26 Mayıs 2011 13:34
Cevap: ACİL ! Baglanti menüsü lazim.
 
Alıntı:
RadyocUgur Nickli Üyeden Alıntı (Mesaj 1040752599)
Tesekkurler Lucifer farkli bir addon degilde CesuryureK arkadasimizin yapmis oldugu scripte ident@ ve sifre eklemek istiyorum o vermis oldugum koda gore bir remote cıkarabilirmisiniz bana acaba.. Konu günceldir.

istediğin resimde email yazıyor emaildeğişmek için
/emailaddr yeniemil@
idendt içinse /identd on yeniidentd@ şeklinde kullanılır yani ikisi ayrı şeylerdir kodu identd göre ayarladım /serv komutuyla aktif olur

Kod:

dialog dxr {
  title " Turkce mIRC"
  size -1 -1 113 93
  option dbu
  edit "", 30, 37 6 70 10
  edit "", 31, 37 19 70 10
  button "» BAGLAN CANİM «", 2, 24 67 84 12, default flat
  text "Nick Yazın :", 20, 5 8 32 8
  text "Yedek Nick :", 21, 5 21 31 8
  box "", 13, 2 0 109 59
  icon 7, 3 66 15 15,  img\mirc.ico, 0
  box "", 1, 21 62 90 21
  edit "", 3, 37 32 70 10
  edit "", 4, 37 45 70 10
  text "idendt Yazın :", 5, 4 34 32 8
  text "Sifre Yazın :", 6, 3 46 32 8
}
alias serv { dialog -m dxr dxr }
on *:dialog:dxr:*:*: {
  if $devent == init {
    did -a dxr 30 $me
    did -a dxr 31 $anick
    did -a dxr 3 $dentd %idndt
    did -a dxr 4 %şfr
  }
  if $devent == sclick {
    if $did == 2 {
      set %idndt $did(3)
      set  %şfr $did(4)
      nick $did(30)
      anick $did(31)
      identd on %idndt $+ @
      .timer 1 5 ns identify %şfr
      dialog -c dxr dxr
      server irc.chat.com.tr
    }
  }
}

RadyocUgur 27 Mayıs 2011 12:38
Cevap: ACİL ! Baglanti menüsü lazim.
 
muratt_aziz arkadasim tam istedigim gibi sana emegine ve emegi gecen herkese tesekkürler.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


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

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net