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 Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   mdc.dll iLe Baglantı menusu (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/32078-mdcdll-ile-baglanti-menusu.html)

IrCbaStarD 24 Mayıs 2007 11:29
mdc.dll iLe Baglantı menusu
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Kod:
alias st { opdialog start 200 200 410 300 }
alias opdialog { opdialogs $rand(a,k) $$1 $$2 $$3 $$4 $$5 }
alias opdialogs {
  if $$1- != $null {
    if $$1 = a {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.w 0 | set %temp.d.wd $$5 | set %temp.d.h $$6 | set %temp.d.x $calc($$3 + ($$5 / 2)) | set %temp.d.y $$4
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      .timeropendlw $calc(%temp.d.wd / 3) 0.001 opendl.w
    }
    if $$1 = b {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h 0 | set %temp.d.w $$5 | set %temp.d.hd $$6 | set %temp.d.x $$3 | set %temp.d.y $calc($$4 + ($$6 / 2))
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      .timeropendlh $calc(%temp.d.hd / 3) 0.001 opendl.h
    }
    if $$1 = c {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h 0 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $calc($$3 + ($$5 / 2)) | set %temp.d.y $calc($$4 + ($$6 / 2))
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      .timeropendlwh $calc(%temp.d.hd / 3) 0.001 opendl.wh
    }
    if $$1 = d {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h 0 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $calc($$3 + ($$5 / 2)) | set %temp.d.y $calc($$4 + ($$6 / 2))
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      opendl.w
      opendl.h
    }
    if $$1 = e {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h 0 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $calc($$3 + ($$5 / 2)) | set %temp.d.y $calc($$4 + ($$6 / 2))
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      opendl.h
      opendl.w
    }
    if $$1 = f {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h $$6 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $calc($$3 + ($$5 / 2)) | set %temp.d.y $calc($$4 + ($$6 / 2))
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      opendl.mvr
    }
    if $$1 = g {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h 0 | set %temp.d.w $$5 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $$3 | set %temp.d.y $calc($$4 + $$6)
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      opendl.b
    }
    if $$1 = h {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h 0 | set %temp.d.w $$5 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $$3 | set %temp.d.y $$4
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      opendl.t
    }
    if $$1 = i {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h $$6 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $calc($$3 + $$5) | set %temp.d.y $$4
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      opendl.l
    }
    if $$1 = j {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h $$6 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $$3 | set %temp.d.y $$4
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      opendl.r
    }
    if $$1 = k {
      dialog -m $$2 $$2
      set %temp.d $$2 | set %temp.d.r1 $rand(1,4) | set %temp.d.r2 $rand(1,2)
      set %temp.d.h 0 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $$3 | set %temp.d.y $$4
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      if %temp.d.r1 = 1 {
        if %temp.d.r2 = 1 { opendl.r | opendl.t }
        if %temp.d.r2 = 2 { set %temp.d.y $calc(%temp.d.y + %temp.d.hd) | opendl.r | opendl.b }
      }
      if %temp.d.r1 = 2 {
        if %temp.d.r2 = 1 { set %temp.d.x $calc(%temp.d.x + %temp.d.wd) | opendl.l | opendl.t }
        if %temp.d.r2 = 2 { set %temp.d.x $calc(%temp.d.x + %temp.d.wd) | set %temp.d.y $calc(%temp.d.y + %temp.d.hd) | opendl.l | opendl.b }
      }
      if %temp.d.r1 = 3 {
        if %temp.d.r2 = 1 { set %temp.d.x $calc(%temp.d.x + %temp.d.wd) | opendl.t | opendl.l }
        if %temp.d.r2 = 2 { opendl.t | opendl.r }
      }
      if %temp.d.r1 = 4 {
        if %temp.d.r2 = 1 { set %temp.d.y $calc(%temp.d.y + %temp.d.hd) | set %temp.d.x $calc(%temp.d.x + %temp.d.wd) | opendl.b | opendl.l }
        if %temp.d.r2 = 2 { set %temp.d.y $calc(%temp.d.y + %temp.d.hd) | opendl.b | opendl.r }
      }
    }
    if $$1 = ? {
      linesep
      linesep
      linesep
    }
  }
}
alias opendl.w {
  :start
  inc %temp.d.w 2 | dec %temp.d.x 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.w < %temp.d.wd { goto start } | else { goto end }
  :end
  .timeropendlw off
}
alias opendl.h {
  :start
  inc %temp.d.h 2 | dec %temp.d.y 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.h < %temp.d.hd { goto start } | else { goto end }
  :end
  .timeropendlh off
}
alias opendl.wh {
  :start
  inc %temp.d.h 2 | inc %temp.d.w 2 | dec %temp.d.x 1 | dec %temp.d.y 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.h < %temp.d.hd && %temp.d.w => %temp.d.wd { dec %temp.d.w 2 }
  if %temp.d.h => %temp.d.hd && %temp.d.w < %temp.d.wd { dec %temp.d.h 2 }
  if %temp.d.h < %temp.d.hd || %temp.d.w < %temp.d.wd { goto start } | else { goto end }
  :end
  .timeropendlwh off
}
alias opendl.mvr {
  set %temp.d.xd $calc(%temp.d.x - (%temp.d.x / 2))
  set %temp.d.y $calc(%temp.d.y - (%temp.d.y / 2))
  :start
  inc %temp.d.w 1 | dec %temp.d.x 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.w < %temp.d.wd { goto start } | else { goto end }
  :end
  :start2
  inc %temp.d.x 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.x < %temp.d.xd { goto start2 } | else { goto end2 }
  :end2
}
alias opendl.b {
  set %temp.d.yd $calc(%temp.d.y - %temp.d.hd)
  :start
  inc %temp.d.h 1 | dec %temp.d.y 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.y > %temp.d.yd { goto start } | else { goto end }
  :end
}
alias opendl.t {
  :start
  inc %temp.d.h 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.h < %temp.d.hd { goto start } | else { goto end }
  :end
}
alias opendl.l {
  :start
  inc %temp.d.w 1 | dec %temp.d.x 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.w < %temp.d.wd { goto start } | else { goto end }
  :end
}
alias opendl.r {
  :start
  inc %temp.d.w 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.w < %temp.d.wd { goto start } | else { goto end }
  :end
}
alias st { if ($dialog(start)) { dialog -x start } | dialog -md start start }
dialog Start {
  title "BagLantı Menusu"
  size -1 -1 207 147
  option dbu
  box "", 1, 4 0 102 125
  edit "", 2, 42 6 59 12
  text "Nick :", 3, 8 9 26 8
  text "Yedek Nick :", 4, 7 26 32 8
  edit "", 5, 42 24 59 12
  edit "", 6, 42 42 59 12
  text "Identd :", 7, 7 44 32 8
  edit "", 8, 42 60 59 12, autohs
  text "Fullname :", 9, 7 63 32 8
  text " Yazdigim Server'a Baglan", 10, 24 78 66 8
  box "", 11, 8 86 93 20
  edit "", 12, 13 92 84 13
  box "", 13, 4 125 200 21
  edit "                        ", 14, 8 130 193 13, read
  box "", 15, 108 0 95 125
}

alias md dll dll\mdc.dll $1 $2-
alias mdx dll dll\mdx.dll $1 $2-

on *:dialog:Start:init:0: {
  md BitBtn Create Start 28 11 214  198 31 > BagLan
  md BitBtn Create Start 29 221 12  178 41 > mIRCTurkiye
  md BitBtn Create Start 30 221 58  178 41 > Sohbet
  md BitBtn Create Start 31 221 106  178 41 > mIRCtr
  md BitBtn Create Start 32 221 153  178 41 > Zurna
  md BitBtn Create Start 33 221 201  178 41 > soyLe
  md BitBtn Icon 29 $shortfn(system\Star.ico)
  md BitBtn Icon 30 $shortfn(system\Star.ico)
  md BitBtn Icon 31 $shortfn(system\Star.ico)
  md BitBtn Icon 32 $shortfn(system\Star.ico)
  md BitBtn Icon 33 $shortfn(system\Star.ico)
  md BitBtn Icon 28 $shortfn(system\kes.ico)
  md BitBtn Color 28 $rgb(25,2,2) $rgb(6,5,5) $rgb(0,25,255) $rgb(252,255,255) $rgb(2,0,0) $rgb(224,224,224)
  md BitBtn downcolor 28 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  md BitBtn Color 29 $rgb(25,2,2) $rgb(6,5,5) $rgb(0,25,255) $rgb(252,255,255) $rgb(2,0,0) $rgb(224,224,224)
  md BitBtn downcolor 29 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  md BitBtn Color 30 $rgb(25,2,2) $rgb(6,5,5) $rgb(0,25,255) $rgb(252,255,255) $rgb(2,0,0) $rgb(224,224,224)
  md BitBtn downcolor 30 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  md BitBtn Color 31 $rgb(25,2,2) $rgb(6,5,5) $rgb(0,25,255) $rgb(252,255,255) $rgb(2,0,0) $rgb(224,224,224)
  md BitBtn downcolor 31 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  md BitBtn Color 32 $rgb(25,2,2) $rgb(6,5,5) $rgb(0,25,255) $rgb(252,255,255) $rgb(2,0,0) $rgb(224,224,224)
  md BitBtn downcolor 32 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  md BitBtn Color 33 $rgb(25,2,2) $rgb(6,5,5) $rgb(0,25,255) $rgb(252,255,255) $rgb(2,0,0) $rgb(224,224,224)
  md BitBtn downcolor 33 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  md  BitBtn Font 28 $rgb(255,252,252) 11  +b > Tahoma
  md  BitBtn Font 29 $rgb(255,252,252) 11  +b > Tahoma
  md  BitBtn Font 30 $rgb(255,252,252) 11  +b > Tahoma
  md  BitBtn Font 31 $rgb(255,252,252) 11  +b > Tahoma
  md  BitBtn Font 32 $rgb(255,252,252) 11  +b > Tahoma
  md  BitBtn Font 33 $rgb(255,252,252) 11  +b > Tahoma
  mdx MarkDialog $dname
  mdx SetColor $dname 3,4,7,9  text $rgb(245,2,0)
  mdx SetColor $dname  text $rgb(139,26,26)
  mdx SetColor $dname  text $rgb(0,0,85)
  mdx SetColor $dname  text $rgb(99,121,142)
  mdx SetFont 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20  -12 700 Tahoma
  mdx SetFont 14  -12 700 Tahoma
  mdx SetColor $dname 2,5,6,8,14,12 background $rgb(9,1,1)
  mdx SetColor $dname 2,8,5,6,14,12 textbg $rgb(9,1,1)
  mdx SetColor $dname 2,5,6,8,14,12  text $rgb(255,252,252)
  did -a $dname 2 $me
  did -a $dname 5 User- $+ $rand(1,9999)
  did -a $dname 6 $emailaddr
  did -a $dname 8 $FuLLname
}
on *:signal:mdc: {
  if ($2 == Start) && ($3 == sclick) && ($4 == 28) { .nick $did(Start,2) | .anick $did(Start,4) | .identd On $did(Start,6) | .Fullname $did(Start,8) | .server $did(Start,12) | .timer 1 0 dialog -x Start }
  if ($2 == Start) && ($3 == sclick) && ($4 == 29) { .nick $did(Start,2) | .anick $did(Start,4) | .identd On $did(Start,6) | .Fullname $did(Start,8) | .server irc.mIRCTurkiye.net | .timer 1 0 dialog -x Start }
  if ($2 == Start) && ($3 == sclick) && ($4 == 30) { .nick $did(Start,2) | .anick $did(Start,4) | .identd On $did(Start,6) | .Fullname $did(Start,8) | .server irc.mIRCTurkiye.net | .timer 1 0 dialog -x Start }
  if ($2 == Start) && ($3 == sclick) && ($4 == 31) { .nick $did(Start,2) | .anick $did(Start,4) | .identd On $did(Start,6) | .Fullname $did(Start,8) | .server irc.mIRCTurkiye.net | .timer 1 0 dialog -x Start }
  if ($2 == Start) && ($3 == sclick) && ($4 == 32) { .nick $did(Start,2) | .anick $did(Start,4) | .identd On $did(Start,6) | .Fullname $did(Start,8) | .server irc.mIRCTurkiye.net | .timer 1 0 dialog -x Start }
  if ($2 == Start) && ($3 == sclick) && ($4 == 33) { .nick $did(Start,2) | .anick $did(Start,4) | .identd On $did(Start,6) | .Fullname $did(Start,8) | .server irc.mIRCTurkiye.net | .timer 1 0 dialog -x Start }
}



on *:start:{
  if %sayac == $null {
    .set %sayac 1
    .did -a Start 14 Scriptinizin İlk Açılışı..
  }
  else {
    .inc %sayac
    .st
    .did -a Start 14 Scriptinizin Açma Sayınız: %sayac
  }
}
dll'leri YukLemek için ;
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

mdc.dll DownLoad :[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

mdx.dll DownLoad : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Degiştirilecek yerLeri arkada$Lar kırmızı iLe Gosterdim.
koLay geLsin. dll'leri dll kLasorüne atmamız yeterLi .
;
SeRDaR406'a Te$ekkurLer Dll için :)

тєαм 24 Mayıs 2007 17:17
Cevap: mdc.dll iLe Baglantı menusu
 
Gerçekten güzel bir çalışma emeği geçenlere Teşekkürler.

JaMMaH 24 Mayıs 2007 18:42
Cevap: mdc.dll iLe Baglantı menusu
 
Scriptinizin Açma Sayınız..ßiraz Tuaf Kaçmış ;kil

Ekinokss 26 Mayıs 2007 03:02
Yanıt: Cevap: mdc.dll iLe Baglantı menusu
 
Alıntı:
JaMMaH Nickli Üyeden Alıntı
Scriptinizin Açma Sayınız..ßiraz Tuaf Kaçmış ;kil
yoo ne guzel start sayar işte [: guzel calısma teßriqler..

LauReLL 26 Mayıs 2007 03:25
Cevap: mdc.dll iLe Baglantı menusu
 
eLine SağLık Kanke aNCak böyLe GüseL BagLantı Menusu Olar aLak Bare VersiyonLarda eklerim...

SaintCty 31 Mayıs 2007 10:57
Cevap: mdc.dll iLe Baglantı menusu
 
arkadaşlar ben ddl leri indirdim fakat zipini acmak istedigimde icerigindeki dosyların hepsini gösteriyor bunları bir klasörde toplayıpmı mircin içine atacam yani zipni acarken tek dosya degilbir ddlde 10 dosya diger ddlde 6 7 dosya bunu nasıl yapacam tek parca degil yani anlatabilmişimdir umarım yardımcı olursanız :confused:

IrCbaStarD 31 Mayıs 2007 11:04
Cevap: mdc.dll iLe Baglantı menusu
 
SaintCty Zip'Lerin içinde, mDC.dll & mdx.dll'Leri Var onLarı dll kLasorüne atman yeterLi oLucaktır, Code'ide remote'ye atarsan Sorun'un kaLmaz.
koLay GeLsin.

JaMMaH 01 Haziran 2007 11:51
Cevap: Yanıt: Cevap: mdc.dll iLe Baglantı menusu
 
Alıntı:
Ekinoks Nickli Üyeden Alıntı
yoo ne guzel start sayar işte [: guzel calısma teßriqler..
Ekinoks Türkçe'yi Kullanım Açısından Demiştim :)

Teoman 17 Haziran 2007 16:08
Yanıt: mdc.dll iLe Baglantı menusu
 
Güzel birşey gibi bakınca teşekkür buttonuna tıkliyim:))

upS 17 Haziran 2007 21:10
Yanıt: mdc.dll iLe Baglantı menusu
 
Bırakın mdx'i mdc'i;
dcx'i öğrenin aklınızın alamıyacağı kadar kapsamlı harika bir dll.

IrCbaStarD 29 Haziran 2007 21:20
Cevap: Yanıt: mdc.dll iLe Baglantı menusu
 
Alıntı:
upS Nickli Üyeden Alıntı (Mesaj 223900)
Bırakın mdx'i mdc'i;
dcx'i öğrenin aklınızın alamıyacağı kadar kapsamlı harika bir dll.
Arkadaşım Bu code dll i Tanıtmak için degil Degişik bir baglantı dialog'u

Yani sende Yap bizde Bakalım dll'in özelligine ben baktım ama anlamadım biliyorsan eger ders olarak yazabilirmisin..

Techno 04 Temmuz 2007 03:02
Cevap: mdc.dll iLe Baglantı menusu
 
Güzel bir addon emegi geçenlere tşk ederim.
Script ... kere açılmıştır . olabilir
birde ben dll nin kaç çeşiti var bilmiyorum tabiki dersini verirseniz ögrenmek isterim

goKhaN` 28 Temmuz 2007 23:50
Cevap: mdc.dll iLe Baglantı menusu
 
Peki bunda %sayac'ı Nasıl sıfırlariz bittiqi zaman ? Onunda Komutunu verırmısın (=

IrCbaStarD 29 Temmuz 2007 00:13
Cevap: mdc.dll iLe Baglantı menusu
 
Veriables'e Gir %sayac 'ı Sil :)

CesuryureK 29 Temmuz 2007 02:54
Cevap: mdc.dll iLe Baglantı menusu
 
Güzel Olmuş Ellerine Sağlık..

MeTaL_GirL 09 Ağustos 2007 07:56
Cevap: Yanıt: mdc.dll iLe Baglantı menusu
 
Alıntı:
ÌrCBaStarD Nickli Üyeden Alıntı (Mesaj 227266)
Arkadaşım Bu code dll i Tanıtmak için degil Degişik bir baglantı dialog'u

Yani sende Yap bizde Bakalım dll'in özelligine ben baktım ama anlamadım biliyorsan eger ders olarak yazabilirmisin..
Emeğe Saygı...Teşekkürler(:

Linqu 29 Eylül 2008 20:29
Cevap: mdc.dll iLe Baglantı menusu
 
ya ustalar yokmudur bimangal gibi yureği olanda şu menuyu doğru durus biz acamiler için.. bi yere atacak adam... ve anlatımınıda hani bi bebeye anlatır gibi anlatacak adam gibi adam hıı... ya biz bilmiyozki bu dll bilmem ne ll bi yere atarsanız acemileride kafası karışmaz kolaylaşır hersey..
de iyi bayramlar.

Kralice 29 Eylül 2008 20:43
Cevap: mdc.dll iLe Baglantı menusu
 
Sercan, güzel bir addon olmuş tebrik ederim.

"Bırakın mdx'i mdc'i;
dcx'i öğrenin aklınızın alamıyacağı kadar kapsamlı harika bir dll."

Dcx Kapsamlı, daha güzelini yapar/paylaşırsınız umarım.

Linqu 30 Eylül 2008 22:49
Cevap: mdc.dll iLe Baglantı menusu
 
arkadaşlar öncelikle herkesin bayramı mubarek olsun.. cok isteme me rağmen ben bu menuyu ekleyemedim. yukardaki 2 adet linkteki MDCve MDX dllrini indirdim.. işde bundan sonra ne yapacağımı bana anlatabilen bir arkadaşdan yardım istiyorum.. ilgi ve alakanızdan ötürü teşekurler

Editor 01 Ekim 2008 01:24
Cevap: mdc.dll iLe Baglantı menusu
 
ÖnceLikle S.a Hayırlı Bayramlar

Yapman Gereken ;

1. Öncelikle mIRC ana Klasorunun içine dll adında Birtane Klasor açıyosun.Daha Sonra mdc.dll & mdx.dll Adlı DLL Dosyalarını Açmış Olduğun dll Klasor'unun içine atıyorsun.Yukarıdaki Linkte Zaten vermiş.

2. Bu Olaylar'i yaptıktan sonra mIRC'i açıyorsun ve ALT + R Tuşlar'ına Beraber Basıyorsun.Açılan Remote Bölümüne verilmiş Olan Kodu Yapıştırıyorsun.Tamam Diyorsun Olay Tamamdır. Kolay Gelsin.

Linqu 01 Ekim 2008 15:22
Cevap: mdc.dll iLe Baglantı menusu
 
sagopa-mirckanka.. dediklerini harfiyen yerine getirmeme ragmen hiç bişi olmadı bende.. mirc versiyon değişikliği yaptın [belki ondandır diye ] gene olmadı buana biz /load-rs filan yapmıcazmı mircden az bişi anlarım bircok addon ekledim burdan bişi olmadı ama bu menuyu nedense atamadım. dediklerini harfiyen yapmama ragmen.. yardımlaroından ötürü ayrıca teşekkur.

Editor 01 Ekim 2008 15:55
Cevap: mdc.dll iLe Baglantı menusu
 
Kod:
alias st { opdialog start 200 200 410 300 }
alias opdialog { opdialogs $rand(a,k) $$1 $$2 $$3 $$4 $$5 }
alias opdialogs {
  if $$1- != $null {
    if $$1 = a {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.w 0 | set %temp.d.wd $$5 | set %temp.d.h $$6 | set %temp.d.x $calc($$3 + ($$5 / 2)) | set %temp.d.y $$4
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      .timeropendlw $calc(%temp.d.wd / 3) 0.001 opendl.w
    }
    if $$1 = b {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h 0 | set %temp.d.w $$5 | set %temp.d.hd $$6 | set %temp.d.x $$3 | set %temp.d.y $calc($$4 + ($$6 / 2))
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      .timeropendlh $calc(%temp.d.hd / 3) 0.001 opendl.h
    }
    if $$1 = c {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h 0 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $calc($$3 + ($$5 / 2)) | set %temp.d.y $calc($$4 + ($$6 / 2))
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      .timeropendlwh $calc(%temp.d.hd / 3) 0.001 opendl.wh
    }
    if $$1 = d {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h 0 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $calc($$3 + ($$5 / 2)) | set %temp.d.y $calc($$4 + ($$6 / 2))
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      opendl.w
      opendl.h
    }
    if $$1 = e {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h 0 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $calc($$3 + ($$5 / 2)) | set %temp.d.y $calc($$4 + ($$6 / 2))
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      opendl.h
      opendl.w
    }
    if $$1 = f {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h $$6 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $calc($$3 + ($$5 / 2)) | set %temp.d.y $calc($$4 + ($$6 / 2))
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      opendl.mvr
    }
    if $$1 = g {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h 0 | set %temp.d.w $$5 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $$3 | set %temp.d.y $calc($$4 + $$6)
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      opendl.b
    }
    if $$1 = h {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h 0 | set %temp.d.w $$5 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $$3 | set %temp.d.y $$4
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      opendl.t
    }
    if $$1 = i {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h $$6 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $calc($$3 + $$5) | set %temp.d.y $$4
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      opendl.l
    }
    if $$1 = j {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h $$6 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $$3 | set %temp.d.y $$4
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      opendl.r
    }
    if $$1 = k {
      dialog -m $$2 $$2
      set %temp.d $$2 | set %temp.d.r1 $rand(1,4) | set %temp.d.r2 $rand(1,2)
      set %temp.d.h 0 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $$3 | set %temp.d.y $$4
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      if %temp.d.r1 = 1 {
        if %temp.d.r2 = 1 { opendl.r | opendl.t }
        if %temp.d.r2 = 2 { set %temp.d.y $calc(%temp.d.y + %temp.d.hd) | opendl.r | opendl.b }
      }
      if %temp.d.r1 = 2 {
        if %temp.d.r2 = 1 { set %temp.d.x $calc(%temp.d.x + %temp.d.wd) | opendl.l | opendl.t }
        if %temp.d.r2 = 2 { set %temp.d.x $calc(%temp.d.x + %temp.d.wd) | set %temp.d.y $calc(%temp.d.y + %temp.d.hd) | opendl.l | opendl.b }
      }
      if %temp.d.r1 = 3 {
        if %temp.d.r2 = 1 { set %temp.d.x $calc(%temp.d.x + %temp.d.wd) | opendl.t | opendl.l }
        if %temp.d.r2 = 2 { opendl.t | opendl.r }
      }
      if %temp.d.r1 = 4 {
        if %temp.d.r2 = 1 { set %temp.d.y $calc(%temp.d.y + %temp.d.hd) | set %temp.d.x $calc(%temp.d.x + %temp.d.wd) | opendl.b | opendl.l }
        if %temp.d.r2 = 2 { set %temp.d.y $calc(%temp.d.y + %temp.d.hd) | opendl.b | opendl.r }
      }
    }
    if $$1 = ? {
      linesep
      linesep
      linesep
    }
  }
}
alias opendl.w {
  :start
  inc %temp.d.w 2 | dec %temp.d.x 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.w < %temp.d.wd { goto start } | else { goto end }
  :end
  .timeropendlw off
}
alias opendl.h {
  :start
  inc %temp.d.h 2 | dec %temp.d.y 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.h < %temp.d.hd { goto start } | else { goto end }
  :end
  .timeropendlh off
}
alias opendl.wh {
  :start
  inc %temp.d.h 2 | inc %temp.d.w 2 | dec %temp.d.x 1 | dec %temp.d.y 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.h < %temp.d.hd && %temp.d.w => %temp.d.wd { dec %temp.d.w 2 }
  if %temp.d.h => %temp.d.hd && %temp.d.w < %temp.d.wd { dec %temp.d.h 2 }
  if %temp.d.h < %temp.d.hd || %temp.d.w < %temp.d.wd { goto start } | else { goto end }
  :end
  .timeropendlwh off
}
alias opendl.mvr {
  set %temp.d.xd $calc(%temp.d.x - (%temp.d.x / 2))
  set %temp.d.y $calc(%temp.d.y - (%temp.d.y / 2))
  :start
  inc %temp.d.w 1 | dec %temp.d.x 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.w < %temp.d.wd { goto start } | else { goto end }
  :end
  :start2
  inc %temp.d.x 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.x < %temp.d.xd { goto start2 } | else { goto end2 }
  :end2
}
alias opendl.b {
  set %temp.d.yd $calc(%temp.d.y - %temp.d.hd)
  :start
  inc %temp.d.h 1 | dec %temp.d.y 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.y > %temp.d.yd { goto start } | else { goto end }
  :end
}
alias opendl.t {
  :start
  inc %temp.d.h 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.h < %temp.d.hd { goto start } | else { goto end }
  :end
}
alias opendl.l {
  :start
  inc %temp.d.w 1 | dec %temp.d.x 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.w < %temp.d.wd { goto start } | else { goto end }
  :end
}
alias opendl.r {
  :start
  inc %temp.d.w 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.w < %temp.d.wd { goto start } | else { goto end }
  :end
}
alias st { if ($dialog(start)) { dialog -x start } | dialog -md start start }
dialog Start {
  title "BagLantı Menusu"
  size -1 -1 207 147
  option dbu
  box "", 1, 4 0 102 125
  edit "", 2, 42 6 59 12
  text "Nick :", 3, 8 9 26 8
  text "Yedek Nick :", 4, 7 26 32 8
  edit "", 5, 42 24 59 12
  edit "", 6, 42 42 59 12
  text "Identd :", 7, 7 44 32 8
  edit "", 8, 42 60 59 12, autohs
  text "Fullname :", 9, 7 63 32 8
  text " Yazdigim Server'a Baglan", 10, 24 78 66 8
  box "", 11, 8 86 93 20
  edit "", 12, 13 92 84 13
  box "", 13, 4 125 200 21
  edit "                        ", 14, 8 130 193 13, read
  box "", 15, 108 0 95 125
}

alias md dll dll\mdc.dll $1 $2-
alias mdx dll dll\mdx.dll $1 $2-

on *:dialog:Start:init:0: {
  md BitBtn Create Start 28 11 214  198 31 > BagLan
  md BitBtn Create Start 29 221 12  178 41 > mIRCTurkiye
  md BitBtn Create Start 30 221 58  178 41 > Sohbet
  md BitBtn Create Start 31 221 106  178 41 > mIRCtr
  md BitBtn Create Start 32 221 153  178 41 > Zurna
  md BitBtn Create Start 33 221 201  178 41 > soyLe
  md BitBtn Icon 29 $shortfn(system\Star.ico)
  md BitBtn Icon 30 $shortfn(system\Star.ico)
  md BitBtn Icon 31 $shortfn(system\Star.ico)
  md BitBtn Icon 32 $shortfn(system\Star.ico)
  md BitBtn Icon 33 $shortfn(system\Star.ico)
  md BitBtn Icon 28 $shortfn(system\kes.ico)
  md BitBtn Color 28 $rgb(25,2,2) $rgb(6,5,5) $rgb(0,25,255) $rgb(252,255,255) $rgb(2,0,0) $rgb(224,224,224)
  md BitBtn downcolor 28 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  md BitBtn Color 29 $rgb(25,2,2) $rgb(6,5,5) $rgb(0,25,255) $rgb(252,255,255) $rgb(2,0,0) $rgb(224,224,224)
  md BitBtn downcolor 29 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  md BitBtn Color 30 $rgb(25,2,2) $rgb(6,5,5) $rgb(0,25,255) $rgb(252,255,255) $rgb(2,0,0) $rgb(224,224,224)
  md BitBtn downcolor 30 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  md BitBtn Color 31 $rgb(25,2,2) $rgb(6,5,5) $rgb(0,25,255) $rgb(252,255,255) $rgb(2,0,0) $rgb(224,224,224)
  md BitBtn downcolor 31 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  md BitBtn Color 32 $rgb(25,2,2) $rgb(6,5,5) $rgb(0,25,255) $rgb(252,255,255) $rgb(2,0,0) $rgb(224,224,224)
  md BitBtn downcolor 32 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  md BitBtn Color 33 $rgb(25,2,2) $rgb(6,5,5) $rgb(0,25,255) $rgb(252,255,255) $rgb(2,0,0) $rgb(224,224,224)
  md BitBtn downcolor 33 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  md  BitBtn Font 28 $rgb(255,252,252) 11  +b > Tahoma
  md  BitBtn Font 29 $rgb(255,252,252) 11  +b > Tahoma
  md  BitBtn Font 30 $rgb(255,252,252) 11  +b > Tahoma
  md  BitBtn Font 31 $rgb(255,252,252) 11  +b > Tahoma
  md  BitBtn Font 32 $rgb(255,252,252) 11  +b > Tahoma
  md  BitBtn Font 33 $rgb(255,252,252) 11  +b > Tahoma
  mdx MarkDialog $dname
  mdx SetColor $dname 3,4,7,9  text $rgb(245,2,0)
  mdx SetColor $dname  text $rgb(139,26,26)
  mdx SetColor $dname  text $rgb(0,0,85)
  mdx SetColor $dname  text $rgb(99,121,142)
  mdx SetFont 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20  -12 700 Tahoma
  mdx SetFont 14  -12 700 Tahoma
  mdx SetColor $dname 2,5,6,8,14,12 background $rgb(9,1,1)
  mdx SetColor $dname 2,8,5,6,14,12 textbg $rgb(9,1,1)
  mdx SetColor $dname 2,5,6,8,14,12  text $rgb(255,252,252)
  did -a $dname 2 $me
  did -a $dname 5 User- $+ $rand(1,9999)
  did -a $dname 6 $emailaddr
  did -a $dname 8 $FuLLname
}
on *:signal:mdc: {
  if ($2 == Start) && ($3 == sclick) && ($4 == 28) { .nick $did(Start,2) | .anick $did(Start,4) | .identd On $did(Start,6) | .Fullname $did(Start,8) | .server $did(Start,12) | .timer 1 0 dialog -x Start }
  if ($2 == Start) && ($3 == sclick) && ($4 == 29) { .nick $did(Start,2) | .anick $did(Start,4) | .identd On $did(Start,6) | .Fullname $did(Start,8) | .server irc.mIRCTurkiye.net | .timer 1 0 dialog -x Start }
  if ($2 == Start) && ($3 == sclick) && ($4 == 30) { .nick $did(Start,2) | .anick $did(Start,4) | .identd On $did(Start,6) | .Fullname $did(Start,8) | .server irc.mIRCTurkiye.net | .timer 1 0 dialog -x Start }
  if ($2 == Start) && ($3 == sclick) && ($4 == 31) { .nick $did(Start,2) | .anick $did(Start,4) | .identd On $did(Start,6) | .Fullname $did(Start,8) | .server irc.mIRCTurkiye.net | .timer 1 0 dialog -x Start }
  if ($2 == Start) && ($3 == sclick) && ($4 == 32) { .nick $did(Start,2) | .anick $did(Start,4) | .identd On $did(Start,6) | .Fullname $did(Start,8) | .server irc.mIRCTurkiye.net | .timer 1 0 dialog -x Start }
  if ($2 == Start) && ($3 == sclick) && ($4 == 33) { .nick $did(Start,2) | .anick $did(Start,4) | .identd On $did(Start,6) | .Fullname $did(Start,8) | .server irc.mIRCTurkiye.net | .timer 1 0 dialog -x Start }
}



on *:start:{
  if %sayac == $null {
    .set %sayac 1
    .did -a Start 14 Scriptinizin İlk Açılışı..
  }
  else {
    .inc %sayac
    .st
    .did -a Start 14 Scriptinizin Açma Sayınız: %sayac
  }
}
Diğer bir yol'u Anlatıyım ;

2.yoL

Şimdi Bu Kodu bir tane metin belgesine Çıkart Örn İsmini ; Baglan.txt Şeklinde yap ve Daha Sonra Yukarıdaki Kodları Baglan.txt'nin İçine Pastele mIRC Ana Klasor'unun İçine at.Attıktan Sonra /load -rs baglan.txt Şeklinde Tanıt mIRC'i Kapat - Aç Herşey Doğru İse Çalışır.Dll'leri dll Klasorune Çıkartmayıda Unutma... Kolay Gelsin.

XcLusive 01 Ekim 2008 16:04
Cevap: mdc.dll iLe Baglantı menusu
 
Senin Bu Bölüme Mod Olman Lazım Sagopa, Elinden Geldiğince Yardım Ediyorsun.

Editor 01 Ekim 2008 16:08
Cevap: mdc.dll iLe Baglantı menusu
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Paşam Elimizden Geldiği Kadar yardımcı olmaya Çalışıyoruz.Sağolasın

Linqu 01 Ekim 2008 19:08
Cevap: mdc.dll iLe Baglantı menusu
 
sagopa alakandan ötürü sonsuz teşekkur.. konunun uzamaması için.. buraya yazmayı bırakıp.. pm attım.. mecbur olmadığın halde gene yardmcı olursan sevinirim..


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

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