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/)
-   -   Winamp'ta N'dinliyorum.. (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/132007-winampta-ndinliyorum.html)

bøCek 06 Eylül 2008 09:48

Winamp'ta N'dinliyorum..
 
Toplam 1 Eklenti bulunuyor.
/*
================================================== =================
Winamp'da Ne Dinliyorum?(Güncellendi.)

WinSong.DLL written BY SeRDaR406

mIRCdb.com

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

Bu kodun çalışması için "WinSong.DLL" dosyasına ihtiyacınız olacaktır.



DLL'yi eklentiden indirdikten sonra zipli dosyasının içerisinde "WinSong.DLL" dosyasını

mIRC.exe'nin bulunduğu klasöre çıkartın.

Kullanımı:

/ndinliorum on
(Her şarkı değişmesinde otomatik olarak bulunduğunuz bütün kanallara dinlediğiniz şarkı yansıtılır.)

/ndinliorum off
(Ne dinliyor özelliği kapalı)

Bu kod "Winamp v5.541" üzerinde denenmiş ve çalışmaktadır.
================================================== ==================
*/

PHP- Kodu:

alias -l getsong return $dll(winsong.dll,GetSongName,)
alias -l kontrol->et {
  if (!%
wnd.sset %wnd.s on
  
if (%song != $getsong) { 
    var %
i $comchan($me,0)
    if (%
0) && (%wnd.== on) && ($getsong != $false) {
      
set %song $getsong 
      
while (%i) {
        
msg $comchan($me,%iDinlediğim şarkı: %song
        dec 
%i
      
}
    } 
  }
}
alias ndinliorum {
  var %
s $getsong , %song
  
if ($== on) {  
    
set %wnd.s on 
    
if (!%songset %song %s
    
.timerwnd 0 0 kontrol->et
  
}
  elseif ($
== off) { set %wnd.s off | .timerwnd off }


Daha önceki SeRDaR406 tarafından yazılan bu kod çalışmamaktaydı.Kendisi

ufak bir güncelleme ile çalışır hale getirmiş.Sizlerle paylaşmak istedim...

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] katkılarıyla..

Gangsta 06 Eylül 2008 11:00

Cevap: Winamp'ta N'dinliyorum..
 
Şİmdi Sonuçta bi emek bunada saygı duyuyorum,Lakin kafama takılan bırsey var.

Millete ne bizim dinledigimiz şarkıdan,Yada millet acaba x nickli şahıs ne dinliyor bi kanala mesaj atsadı ogrenseydik diye bi merak içindemi acaba.

K.bakma dusunduklerimi söyledim. ( zaten sen yazmamış sadece paylaşmışsın lafım sana degıl )

bøCek 06 Eylül 2008 11:08

Cevap: Winamp'ta N'dinliyorum..
 
Cok Insan bu kodu Istıyordu Sen Güncel takip etmiyorsun sanırsam. hala bazı forumlarda görüyorum ve hala istenilen bir kod. bende serdar'a rıca ettım güncellemesini yapti derledi topladı ve yeniden hayata gecirdi. ve zamaninda cok ama cok ıstelınen bir koddu. umarım anlamıssındır. koLay gelsın. ;)

Gangsta 06 Eylül 2008 11:18

Cevap: Winamp'ta N'dinliyorum..
 
Alıntı:

goKhaN` Nickli Üyeden Alıntı (Mesaj 539612)
Cok Insan bu kodu Istıyordu Sen Güncel takip etmiyorsun sanırsam. hala bazı forumlarda görüyorum ve hala istenilen bir kod. bende serdar'a rıca ettım güncellemesini yapti derledi topladı ve yeniden hayata gecirdi. ve zamaninda cok ama cok ıstelınen bir koddu. umarım anlamıssındır. koLay gelsın. ;)

Anladım dostum. istek varsa kod var diyorsun. Saol bılgılendırme ıcın ;oki

ShaoLin 07 Eylül 2008 19:45

Yanıt: Winamp'ta N'dinliyorum..
 
sadece belirledigim kanallara mesaj göndermesi için ne yapmam gerekiyor?

Editor 07 Eylül 2008 20:56

Cevap: Winamp'ta N'dinliyorum..
 
Kod:

alias -l getsong return $dll(winsong.dll,GetSongName,)
alias -l kontrol->et {
  if (!%
wnd.s) set %wnd.s on
 
if (%song != $getsong) {
    var %
i $comchan($me,0)
    if (%
i > 0) && (%wnd.s == on) && ($getsong != $false) {
     
set %song $getsong
     
while (%i) {
       
msg #kanal $comchan($me,%i) Dinlediğim şarkı: %song
        dec
%i
     
}
    }
  }
}
alias ndinliorum {
  var %
s $getsong , %song
 
if ($1 == on) { 
   
set %wnd.s on
   
if (!%song) set %song %s
   
.timerwnd 0 0 kontrol->et
 
}
  elseif ($
1 == off) { set %wnd.s off | .timerwnd off }



#kanal yazan yere kanalını yaz Dene BakaLım Kolay Gelsin.

Duffy`DuCk 08 Eylül 2008 00:40

Cevap: Winamp'ta N'dinliyorum..
 
Kod:

alias -l getsong return $dll(Awatar\winsong.dll,GetSongName,)
alias -l kontrol->et {
  if (%song != $getsong) {
    var %i $comchan($me,0)
    if (%wnd == on) && ($getsong != $false) {
      set %song $getsong
      msg #Kanal Dinlediğim şarkı: %song
    }
  }
}
alias ndinlior {
  var %s $getsong , %song
  if ($1 == on) { 
    set %wnd on
    if (!%song) set %song %s
    .timerwnd 0 0 kontrol->et
  }
  elseif ($1 == off) { set %wnd off | .timerwnd off }
}


ShaoLin 08 Eylül 2008 16:22

Yanıt: Winamp'ta N'dinliyorum..
 
kodları denedim ama çalışmadı

Duffy`DuCk 08 Eylül 2008 17:53

Cevap: Yanıt: Winamp'ta N'dinliyorum..
 
Alıntı:

ShaoLin Nickli Üyeden Alıntı (Mesaj 540963)
kodları denedim ama çalışmadı

Foruma atarken kodu dll yolunu silmeyi unutmu$um (:
Kod:

alias -l getsong return $dll(winsong.dll,GetSongName,)
alias -l kontrol->et {
  if (%song != $getsong) {
    if (%wnd == on) && ($getsong != $false) {
      set %song $getsong
      msg #Kanal Dinlediğim şarkı: %song
    }
  }
}
alias ndinlior {
  var %s $getsong , %song
  if ($1 == on) { 
    set %wnd on
    if (!%song) set %song %s
    .timerwnd 0 0 kontrol->et
  }
  elseif ($1 == off) { set %wnd off | .timerwnd off }
}

winsong.dll'i mIRC'in ana klasör'üne at öle dene. :)

XPhytoN 14 Eylül 2008 14:32

Cevap: Winamp'ta N'dinliyorum..
 
Toplam 1 Eklenti bulunuyor.
Hadi gelin, bu kodu biraz daha geliştirelim ;oki

orjinal olan kodumuz;

Kod:

alias -l getsong return $dll(winsong.dll,GetSongName,)
alias -l kontrol->et {
  if (%song != $getsong) {
    if (%wnd == on) && ($getsong != $false) {
      set %song $getsong
      msg #Kanal Dinlediğim şarkı: %song
    }
  }
}
alias ndinlior {
  var %s $getsong , %song
  if ($1 == on) { 
    set %wnd on
    if (!%song) set %song %s
    .timerwnd 0 0 kontrol->et
  }
  elseif ($1 == off) { set %wnd off | .timerwnd off }
}

Winamp'te MSN'de ne dinliyorum yerinde çıkmasını istediğimiz parçaları mIRC yoluyla, MSN'imize aktarımını yapalım ;oki

Kod:

alias msnsong {
  var %dll MsnSong.dll
  .comreg %dll
  .comopen msn Msn.Write
  var %i $com(msn,WriteToMsn,1,bstr,$1-,bstr,$null,bstr,$null)
  .comreg -u %dll
  .comclose msn
}

Bu kodu orjinal kodumuzun, altına ekleyelim ve Orjinal kodumuz da ki şu satırları
Kod:

      msg #Kanal Dinlediğim şarkı: %song
altta ki kod ile değiştirelim;
Kod:

    msg #Kanal Dinlediğim şarkı: %song
    msnsong %song

ekte vermiş olacağım, MsnSong.dll adlı "DLL" uzantılı dosyamızı da, mIRC'imizin bulunduğu ana klasöre atalım "//run $mircdir ".

Şimdi, arkadaşımızın söylemiş olduğu " Aa bu adam ne dinliyor girelim kanala bakalım isimli " ;noki cevabına, MSN'e koymakla bi tez yazmış olduk sanıyorum. ;)

Türk coder'larda çareler, fikirler tükenmez ;oki


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

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