• Web sitemizin içeriğine ve tüm hizmetlerimize erişim sağlamak için Web sitemize kayıt olmalı ya da giriş yapmalısınız. Web sitemize üye olmak tamamen ücretsizdir.
  • Sohbetokey.com ile canlı okey oynamaya ne dersin? Hem sohbet et, hem mobil okey oyna!
  • Soru mu? Sorun mu? ''Bir Sorum Var?'' sistemimiz aktiftir. Paylaşın beraber çözüm üretelim.

Otomatik Oper İşlemi

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

diShy

Onursal Üye
Üyelik Tarihi
27 Kas 2009
Konular
32,527
Mesajlar
50,860
MFC Puanı
2,580
Adminsiniz her girdiginizde oper Şifrenizi girmek istemiyormusunuz? işte size göre bir kod
kod:
- alias otooper { if ($dialog(otooper)) dialog -v otooper | else dialog -m otooper otooper }
dialog otooper {
size -1 -1 251 145
title \"Otomatik Oper |LauReLL|\"
button \"Ok\",1, 160 110 85 20, OK
box \"\",2, 5 8 240 97
text \"Server\'i :\",3, 15 20 45 20
edit \"\",4, 70 20 115 20, autohs
text \"Nickiniz :\",5, 15 50 55 20
edit \"\",6, 70 48 115 20, autohs
text \"OperPass :\",7, 15 80 55 20
edit \"\",8, 70 78 115 20, autohs %oper.pass
button \"SiL\",10, 190 20 40 20
button \"SiL\",11, 190 48 40 20
button \"SiL\",12, 190 78 40 20
radio \"Aç\",13, 5 110 35 20,
radio \"Kapat\",14, 45 110 45 20,
}
on *
biggrin.gif
IALOG
redface.gif
tooper:edit:*: {
if ($did == 6) { set %oper.nick $did(6) }
if ($did == 8) { set %oper.pass $did(8).text }
if ($did == 4) { set %oper.serv $did(4) }
}
on *:dialog
redface.gif
tooper:init:0:{
laurellrenk
did -o otooper 6 1 %oper.nick $did(6)
did -o otooper 8 1 %oper.pass $did(8).text
did -o otooper 4 1 %oper.serv $did(4)
if (%oto.oper == on) { did -c otooper 13 1 %oto.oper $did(13) }
if (%oto.oper == off) { did -c otooper 14 1 %oto.oper $did(14) }
if (%oto.oper == off) { did -b $dname 3,4,5,6,7,8 }
if (%oto.oper == on) { did -e $dname 3,4,5,6,7,8 }
}
on *:dialog
redface.gif
tooper:sclick:*:{
if ($did == 10) { unset %oper.serv | did -o otooper 4 1 %oper.serv }
if ($did == 11) { unset %oper.nick | did -o otooper 6 1 %oper.nick }
if ($did == 12) { unset %oper.pass | did -o otooper 8 1 %oper.pass }
if ($did == 13) { set %oto.oper on | did -e $dname 3,4,5,6,7,8 }
if ($did == 14) { set %oto.oper off | did -b $dname 3,4,5,6,7,8 }
}
on *:connect: {
if (%oper.nick != $null) && (%oper.pass != $null) && ($server == %oper.serv) && (%oto.oper == on) { oper %oper.nick %oper.pass }
}
alias laurellrenk {
mdxdll SetMircVersion $version
mdxdll MarkDialog $dname
mdxdll SetDialog [ $dname ] bgcolor [ $rgb(190,190,190) ]
mdxdll SetColor 3,5,7,13,14 textbg [ $rgb(190,190,190) ]
mdxdll SetColor 3,5,7,13,14 background [ $rgb(190,190,190) ]
mdxdll SetColor $dname 3,5,7,13,14 text $rgb(178,0,0)
mdxdll SetColor $dname 4,6,8 text $rgb(200,200,200)
mdxdll SetColor 4,6,8 textbg [ $rgb(0,64,128) ]
mdxdll SetColor 4,6,8 background [ $rgb(0,64,128) ]
}
alias mdxdll { return $shortfn(DLL\\mdx.dll,$1,$2-) }


c:\\D:\\bilmemnemIRC\\dll\\mdx.dLL Olmazı lazım yoksa dosya düzgün ÇalışmayabiLir...


 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst