mIRC Scripting  


Geri dön   mIRC Scripting > mIRC Scripting > Showcase - Hazır kodlar

Showcase - Hazır kodlar mIRC Scripting hakkında hazır kodları bulup, paylaşabileceğiniz bölüm.

Cevapla
 
LinkBack Seçenekler
  #1  
Alt 15 Haziran 2012, 00:16
Avatar Yok
 Coders 

mS Puan: 111
mS Derece: Paint MeraklıPaint Meraklı
 
Üyelik tarihi: 06 Kasım 2011
Bulunduğu yer: İstanbul
Mesajlar: 31
Konular: 4
Eklentiler: 3
Alınan Teşekkür: 0
Yapılan Teşekkür: 8
Standart Music Downloader v0.2 + Basic Music Player v0.1

Merhabalar bir kaç gün önce yazmaya başladığım Music Downloader-ı artık paylaşmanın vakti geldi sistem ara bul ve indir mantığı ile yazıldı, aradığınız bir çok mp3'ü bulabilirsiniz, indirme kısmında siteden kaynaklanan problemler yüzünden sorun var, sorunların temel sebebi kaynak sitenin müzikleri kendi hostunda barındırmaması yüzlerce siteden linkleri yayınlaması ve her sitenin kendine özgü bir download sistemini olması o yüzden eğer İndir butonuyla indirme başlamazsa yukardaki link verilen yere tıklayıp kendi tarayıcınızdan indirme yapabilirsiniz.

Eğer başka bir versiyon çıkarsa bu site yerine başka kaynak site kullanılıcağını belirteyim.

Görüntüler:






Music Player:





Kod:

Kod:
on *:load:{
  set %mp3inmeyeri $mircdirmp3
  set %sesayarı 100
  echo -a 12*** 4Music downloader v0.2 12başarıyla yüklendi.
  echo -a 12*** Music downloader'ı açmak için: 4/mp3down 12yazmanız veya  popups menüsünden 4Music Downloader 12bölümü altından 4Downloader'a  12tıklamanız gerekmektedir.
  echo -a 12*** Music Player'ı açmak için ise: 4/musicplay 12yazmanız  veya popups menüsünden 4Music Downloader 12bölümü altından 4Player'a  12tıklamanız gerekmektedir.
  echo -a 12*** 4Music downloader v0.2 $lines($script) 12satırdan oluşmuştur.
  echo -a 12---
  echo -a 12*** Music downloader by 4Paint
}

alias mp3skull {
  .remove mp3skullc.txt
  unset %ssss
  if $isfile(linkler.txt) { .remove linkler.txt }
  if $isfile(kbps.txt) { .remove kbps.txt }
  set %linktl $linkyarat($1-)
  sockclose mp3skull
  sockopen mp3skull mp3skull.com 80
}

on *:sockopen:mp3skull:{
  if $sockerr { echo -a Bağlantı hatası. | halt | sockclose * | .timer 1 2 did -ra mp3sk 3 Bağlantı hatası. }
  var %s = sockwrite -n $sockname
  %s GET /mp3/ $+ %linktl $+ .html HTTP/1.1
  %s Host: mp3skull.com
  %s $crlf
}
on *:sockread:mp3skull:{

  sockread 8192 &r
  bwrite mp3skullc.txt -1 -1 &r

}
on *:sockclose:mp3skull:{
  did -r mp3sk 3
  okuyombenya
  if !$okuttumbenya {  did -a mp3sk 3 Arşivde böyle bir içerik yok. }
  var %b 1
  while %b <= $okuttumbenya {
    did -a mp3sk 3 $mp3skulltr($htmlfree($read(mp3skullc.txt,$calc($okuttumbenya(%b) + 5))))
    inc %b
  }
}


alias mp3skulltr return $replacecs($1-,ı,ı,ğ,ğ,ş,şe,þ,ş,ö,ö,ý,ı,Ç,Ç,ü,ü,ý,ı,Ý,İ,&amp;,&,Ö,Ö,ö,ö,Ş,ş)

alias linkyarat { return $Replace($removecs($1-,ı,ğ,ü,ş,ö,ç,Ğ,Ü,Ş,İ,Ç),$chr(32),_) }

alias okuyombenya {
  if $hget(show) { hfree show }
  unset %show
  var %b 1
  while %b <= 100 {
    if $read(mp3skullc.txt,w,*show $+ %b $+ *) { inc %show 1 | hadd -m show %show $readn }
    inc %b
  }
}
alias okuttumbenya { if !$1 {    return %show  } | else { return $hget(show,$1) } }

dialog mp3sk {
  title "Music Downloader v0.2"
  size -1 -1 320 220
  option dbu
  edit "", 1, 72 18 196 10, autohs
  button "Ara", 2, 273 18 37 10, default
  list 3, 6 44 225 120, size hsbar
  edit "", 5, 236 60 76 10, read
  text "Şarkıcı ve şarkı adı girin:", 4, 9 18 62 10
  link "Sadece şarkıcı veya sadece şarkı adı girebilirsiniz.", 6, 9 32 131 8
  text "Bilgiler", 7, 259 44 25 8
  edit "", 8, 236 72 76 10, read
  edit "", 9, 236 84 76 10, read
  button "İndir", 10, 254 107 37 12
  text "Ayarlar", 11, 259 126 25 8
  edit "Kayıt yeri:", 12, 236 136 32 10, read autohs
  edit "İndirme bitince çal:", 13, 236 151 55 10, read
  edit "", 14, 267 136 41 10, read
  check "", 15, 294 151 8 10
  button "...", 16, 309 136 8 10
  edit "", 17, 60 176 207 10, read
  text "Durum:", 18, 29 176 25 10
  box "İndirme bölümü", 19, 5 166 311 40
  edit "Alınan veri:", 20, 29 191 60 10, read
  edit "Geçen süre:", 21, 100 191 54 10, read autohs
  edit "Yüzde:", 22, 162 191 50 10, read
  edit "", 23, 217 191 50 10, read
  button "Kapat", 24, 145 207 30 12, cancel
  button "İptal", 25, 273 183 37 12
  text "by Paint", 26, 297 1 26 8
}
on *:Dialog:mp3sk:init:*:{

  if %indirmebittinceoo { did -c $dname 15 } | else { did -u $dname 15 }
  if $sock(download*) {   .timerindiriyor1 0 1 dialogahele }
  did -ra $dname 14 %mp3inmeyeri
}
on *:dialog:mp3sk:sclick:15:{
  if ($did(15).state == 1) { set %indirmebittinceoo ok | echo -a ***  İndirme bitince çal aktif. } | else {  unset %indirmebittinceoo | echo  -a *** İndirme bitince çal kapalı. } 

}
on *:dialog:mp3sk:sclick:25,16:{
  if $did == 25 {
    if $sock(download*) || $sock(hulk3) {
    sockclose download*  | sockclose hulk3 | echo -a *** İndirme iptal edildi. }
    else { echo -a *** İndirme yok. }
  }
  if $did == 16 { 
    unset %mp3inmeyeri
    .set %mp3inmeyeri $sdir(*,Müziklerin ineceği klasörü seçin)
    $iif(!$isdir(%mp3inmeyeri),set %mp3inmeyeri $mircdirmp3)
    did -ra $dname 14 %mp3inmeyeri
  }
}
on *:dialog:mp3sk:sclick:6:{
  echo -a %mp3linki açılıyor.
  .timer 1 1 run %mp3linki

}
on *:dialog:mp3sk:sclick:2:{
  did -ra mp3sk 3 Arama yapılıyor...
  mp3skull $did(1)
}
on *:Dialog:mp3sk:close:{
  timerindiriyor1 off
  if $sock(download*) { echo -a *** İndirme işlemi devam ediyor... }
}
on *:dialog:mp3sk:sclick:10:{
  if $download(0) == 1 { echo -a Zaten bir şarkı iniyor, lütfen bekleyin... | halt }
  unset %hulkget | unset %hulkhost
  set %hulkboyut $remove(%hul1kboyut1,mb)
  set %file MusicDown $+ $rand(1,9) $+ $rand(9,18) $+ $rand(998,1300) $+ $rand(1,1399) $+ .mp3
  download -o mp3sk %mp3linki %mp3inmeyeri
  .timerindiriyor1 0 1 dialogahele
}

alias dialogahele { 
  if $download(1).status == Downloading && $dialog(mp3sk) { 
    .did -ra mp3sk 21 Geçen süre: $replace($duration($download(1).secs),min,dk,secs,sn,mins,dk)
    .did -ra  mp3sk 23 $download(1).status
    .did -ra mp3sk 20 Alınan veri: $bytes($download(1).rcvd,m) mb
    .did -ra mp3sk 22 Yüzde: $left($calc($download(1).rcvd * (100 / $download(1).size)),4)
    did -ra mp3sk 17 $str(|,$left($calc($download(1).rcvd * (100 / $download(1).size)),2))

  }

  else {
    if $sock(hulk3) && $dialog(mp3sk) {
      .did -ra mp3sk 21 Geçen süre: $replace($duration($hulk3().süre),min,dk,secs,sn,mins,dk)
      .did -ra  mp3sk 23 Downloading
      .did -ra mp3sk 20 Alınan veri: $bytes($hulk3().boyut,m) mb
      .did -ra mp3sk 22 Yüzde: $left($calc($hulk3().boyut * (100 / $calc(1048576 * %hulkboyut))),4)
      .did -ra mp3sk 17 $str(|,$left($calc($hulk3().boyut * (100 / $calc(1048576 * %hulkboyut))),2))

      halt
    }
    if $dialog(mp3sk) {
      did -ra mp3sk 20 Alınan veri: | did -ra mp3sk 21 Geçen süre: | did -ra mp3sk 22 Yüzde: | did -r mp3sk 23 | did -r mp3sk 17

} } }
on *:SIGNAL:download_complete:{ 
  echo -a $1-
  if hulk !isin $1- {
    echo -a * Tamamlandı: $download($1).file
    $iif(%indirmebittinceoo,.timer 1 0 splay -p $download($1).file $(|) musicplay)
  }
else { $iif(%indirmebittinceoo,.timer 1 0 splay -p $2- $(|) musicplay) } }

on *:dialog:mp3sk:sclick:3:{
  bilgiyukletpanpa $did(3).sel
echo -a $mp3skulltr($did(3).seltext) }

alias bilgiyukletpanpa {
  if $okuttumbenya {
    if $okuttumbenya($1) {
      set %bilgiciosman $replace($read(mp3skullc.txt,$calc($okuttumbenya($1) +3)),<br />,½)
      did -ra mp3sk 5 Süre: $remove($gettok(%bilgiciosman,2,$asc(½)),</div>)
      did -ra mp3sk 8 Kalite: $remove($gettok(%bilgiciosman,1,$asc(½)),$chr(9),</div>)
      did -ra mp3sk 9 Boyut:  $remove($gettok(%bilgiciosman,3,$asc(½)),</div>) | set  %hul1kboyut1 $remove($gettok(%bilgiciosman,3,$asc(½)),</div>)
      set %mp3linki $remove($gettok($read(mp3skullc.txt,$calc($okuttumbenya($1) +9)),3-4,$asc(")),><a href=")
      set %mp3linki $replace(%mp3linki,$chr(32),%20)
      did -ra mp3sk 6 %mp3linki
    }
  }
}

alias mp3down {   $iif(!$dialog(mp3sk),dialog -m mp3sk mp3sk,echo -a *** Music downlader aktif.)  }


dialog musicdwply {
  title "Basic Music Player v0.1"
  size -1 -1 250 72
  option dbu
  edit "Çalan parça:", 1, 7 4 236 12, read
  scroll "", 2, 7 20 238 8, horizontal range 100
  button "Durdur", 3, 101 35 37 12
  box "Ses", 4, 141 31 108 41
  scroll "", 5, 146 43 100 8, horizontal range 100
  text "Ses", 6, 181 58 25 8
  edit "Süre:", 7, 5 40 50 10, read
  edit "Boyut:", 8, 56 40 40 10, read
  edit "Tarz:", 9, 5 53 50 10, read
  box "Bilgiler", 10, 1 31 98 41
  edit "Kalite:", 11, 56 53 40 10, read
  button "Şarkı seç", 12, 101 53 37 12
}
on *:Dialog:musicdwply:sclick:12:{ unset %mp3yeri | splay stop | set  %mp3yeri $sfile(*.mp3,Müzik seçin) | $iif(%mp3yeri,splay -p  %mp3yeri,echo -a *** Dosya seçmediniz.) }
on *:Dialog:musicdwply:sclick:3:{
  if $insong {
    if !$insong.pause {
    splay pause | did -ra $dname 3 Devam | halt    }
    if $insong.pause {  
    splay resume | did -ra $dname 3 Durdur }

  }

}
on *:dialog:musicdwply:close:{ timermp3* off }
on *:dialog:musicdwply:init:*:{
  mp3debirseyler
  .timermp3ply 0 1 mp3debirseyler
  did -ra musicdwply 6 Ses: %sesayarı
  did -c musicdwply 5 %sesayarı
}

alias mp3debirseyler {
  if $inmp3 == $true && $dialog(musicdwply) {
    did -ra musicdwply 7 Süre: $time($calc($insong.pos / 1000),nn:ss))  
    heleilerlet
    did -ra musicdwply 1 Çalan parça: $nopath($insong.fname)
    did -ra musicdwply 8 Boyut: $bytes($file($shortfn($insong.fname)).size,m).suf
    did -ra musicdwply 9 Tarz: $sound($insong.fname).genre
    did -ra musicdwply 11 Kalite: $sound($insong.fname).bitrate kb/s 
  } 
}


alias heleilerlet pos.seek
alias -l pos.seek { 
  if ($dialog(musicdwply) != $null) && ($inmp3 == $true) { 
    set %muzikinyeri $insong.fname
    did -c musicdwply 2 $round($calc($calc($insong.pos / $insong.length) * 100),0) 
  } 
  elseif ($dialog(musicdwply) == $null) { 
    .timer.pos.seek off 
  } 
} 
on *:dialog:musicdwply:scroll:5: { 
  did -ra musicdwply 6 Ses: $did(musicdwply,5).sel
  set %sesayarı $did(musicdwply,5).sel

  ;echo -a $calc(($vol(song) / 65535) * 100)
  vol -v $calc((65535 / 100) * $did(musicdwply,5).sel)


}
on *:dialog:musicdwply:scroll:2: { 

  if ($inmp3 == $true) {     $iif($insong.pause,.timer 1 0 splay resume $(|) did -ra $dname 3 Durdur)
    var %t = $round($calc($did(musicdwply,2).sel / 22000 * $inmp3.length),0) 
    .splay seek $calc((%t + $did(musicdwply,2).sel) * 200) 
  } 
  else { splay -p %muzikinyeri
    splay resume

    var %t = $round($calc($did(musicdwply,2).sel / 22000 * $inmp3.length),0) 
    .splay seek $calc((%t + $did(musicdwply,2).sel) * 200) 

}  } 

alias benimicinla {
  .timertitle1 -h 1 200 did -a mp3sk 26 by P
  .timertitle2 -h 1 400 did -a mp3sk 26 by Pa
  .timertitle3 -h 1 600 did -a mp3sk 26 by Pai
  .timertitle4 -h 1 800 did -a mp3sk 26 by Pain
  .timertitle5 -h 1 850 did -a mp3sk 26 by Paint
  .timertitle5 -h 1 850 did -a mp3sk 26 by Paint

}
alias musicplay { $iif(!$dialog(musicdwply),dialog -m musicdwply musicdwply,echo -a *** Müzik çalar aktif.) }
alias musicdwply { dialog -m musicdwply musicdwply }
;    Örnek:        on *:SIGNAL:download_fail:echo -s * Geçersiz download: $download($1).file - $2-
on *:SIGNAL:download_fail:echo -a * Geçersiz download: $download($1).file - $2-



; HTTP Downloader v1.2 by ^BeAsT^
;===============================
; /download komutu:
;    /download komutu dosya indirme olayını başlatan komutdur.
;    Not: URL'den indirilen dosya, indirileceği klasöre URL'deki adı ile indirilir.
;    Kullanımı:        /download [-o] <isim> <url> <klasör>
;    Örnek:        /download mIRC http://www.mirc.co.za/download/mirc603.exe C:\mIRC\Download\
;
;    -o parametresi İndirilecek dosyanın adı ile indirilecek klasörde  aynı isimde bir dosya daha varsa, onun üzerine yazar(indirir/kaydeder).
;    Not: Bir download'ı(indirmeyi) sonlandırmak/iptal etmek istiyorsanız: /close -d <isim> komutunu kullanabilirsiniz.
;
; $download(<name/N>) tanımlayıcısı:
;    Bu tanımlayıcı ile download'lar(indirmeler) hakkında bilgiler alabilirsiniz.
;               Özellikler: ip, status, url, file, type, size, rcvd, cps, pc, secs
;    $download(0)    Toplam indirilme sayısını verir.
;    $download(1)    1. download'ın adını verir.
;    $download(2).file    2. download olayında indirilen dosyanın adını verir.
;    $download(2).rcvd    2.download olayında alınan byte değerini verir.
;
; Events(Olaylar):
;    Download olayı başarılı bir şekilde tamamlandığında bu event'ı kullanacaksınız.
;    Kullanımı:        on *:SIGNAL:download_complete:<komut>
;    Örnek:        on *:SIGNAL:download_complete:echo -s * Tamamlandı: $download($1).file
;
;    Download geçersiz olduğunda kullanacağınız event:
;    Kullanımı:        on *:SIGNAL:download_fail:<komut>
;    Örnek:        on *:SIGNAL:download_fail:echo -s * Geçersiz download: $download($1).file - $2-


alias download {

  if (!$isid) {
    var %4 = $iif($1 == -o,$true)
    if (%4) { tokenize 32 $2- }
    var %1 = download $+ $1,%2 = $longfn($3-)
    if (!$3) { var %3 = insufficient parameters }
    elseif ($sock(%1)) { var %3 = $+(',$1,') name in use }
    elseif (!$isdir(%2)) { var %3 = no such dir $+(',%2,') }
    if (%3) { if ($show) { echo $color(info) -se * /download: %3 } | return }
    unset % [ $+ [ %1 $+ .* ] ]
    set % [ $+ [ %1 $+ .file ] ] $+(%2,$iif($right(%2,1) != $chr(92),$chr(92)),$gettok($2,-1,47))
    set % [ $+ [ %1 $+ .url ] ] http:// $+ $remove($2,http://))
    set % [ $+ [ %1 $+ .ctime ] ] $ctime 0
    set % [ $+ [ %1 $+ .status ] ] Connecting
    if (%4) { .remove $+(",$dl.var(%1,file),") }
    sockopen %1 $gettok($remove($2,http://),1,47) 80
  }
  else {
    if ($1 == 0) { return $sock(download*,0) }
    if ($iif($1 isnum,$sock(download*,$1),$sock(download $+ $1))) {
      var %1 = $ifmatch,%2 = $dl.var(%1,file),%3 = $dl.var(%1,size),%4 = $file($shortfn(%mp3inmeyeri) $+ %file).size
      if (!$prop) { return $right(%1,-8) }
      elseif ($prop == ip) { return $sock(%1).ip }
      elseif ($prop == status) { return $dl.var(%1,status) }
      elseif ($prop == url) { return $dl.var(%1,url) }
      elseif ($prop == file) { return %file }
      elseif ($prop == type) { return $dl.var(%1,type) }
      elseif ($prop == size) { return %3 }
      elseif ($prop == rcvd) { return %4 }
      elseif ($prop == cps) { return $int($calc(%4 / ($ctime - $dl.var(%1,ctime,2)))) }
      elseif ($prop == pc) { return $int($calc($file(%2).size * 100 / %3)) }
      elseif ($prop == secs) { return $calc($ctime - $dl.var(%1,ctime,1)) }
    }
  }
}
alias -l dl.var { return $gettok(% [ $+ [ $+($1,.,$2) ] ],$iif(!$3,1-,$3),32) }
alias -l dl.fail { var %1 = $right($1,-8) | .signal -n download_fail %1 $2- | close -d %1 }
alias -l dl.httpcode {
  var %1 = $1 | goto %1
  :%1 | return
}
alias close {
  if ($1 == -d) {
    var %1 = download $+ $2
    if ($sock(%1)) { unset % [ $+ [ %1 $+ .* ] ] | sockclose %1 }
  }
  else { close $1- }
}

on *:sockopen:download*:{

  if ($sockerr) { dl.fail $sockname Unable to Connect | return }
  var %1 = $dl.var($sockname,url),%2 = $dl.var($sockname,file)
  set % [ $+ [ $sockname $+ .status ] ] Requesting File
  if hulkshare isin %hulkhost && hulkdl isin %hulkget {
    var %b sockwrite -n $sockname
    %b GET %hulkget HTTP/1.1
    %b Host: %hulkhost
    %b User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:5.0.1) Gecko/20100101 Firefox/5.0.1
    %b Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
    %b Accept-Language: tr-tr,tr;q=0.8,en-us;q=0.5,en;q=0.3
    %b Accept-Encoding: gzip, deflate
    %b Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.7
    %b DNT: 1
    %b Connection: close
    %b $crlf    
  halt }
  if hulkshare isin %1 && /dl/ isin %1 {
    var %b sockwrite -n $sockname
    %b GET %1 HTTP/1.1
    %b Host: $gettok($remove(%1,http://),1,47)
    %b User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:5.0.1) Gecko/20100101 Firefox/5.0.1
    %b Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
    %b Accept-Language: tr-tr,tr;q=0.8,en-us;q=0.5,en;q=0.3
    %b Accept-Encoding: gzip, deflate
    %b Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.7
    %b DNT: 1
    %b Connection: close
    %b $crlf
    halt
  }






  if 4shared isin %1 {
    var %b sockwrite -tn $sockname
    %b GET %1 HTTP/1.1
    %b Host: $gettok($remove(%1,http://),1,47)
    %b User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:5.0.1) Gecko/20100101 Firefox/5.0.1
    %b Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
    %b Accept-Language: tr-tr,tr;q=0.8,en-us;q=0.5,en;q=0.3
    %b Accept-Encoding: gzip, deflate
    %b Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.7
    %b DNT: 1
    %b Connection: keep-alive
    %b Cookie:  __utmz=210074320.1339266543.1.1.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none);  ADMIN_IDv2=""; Login=113228726;  Password=f5276e615df42046b68d86a224422da7; saveLogin=true;  autoLogin=true; premiumLogin=true; ulin=true; WWW_JSESSIONID=""
    %b $crlf
  }
  else {
    sockwrite -tn $sockname GET %1 HTTP/1.1
    sockwrite -tn $sockname Host: $gettok($remove(%1,http://),1,47)
    sockwrite -tn $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:5.0.1) Gecko/20100101 Firefox/5.0.1
    sockwrite -tn $sockname Accept: *.*, */*
    sockwrite -tn $sockname Range: $+(bytes=,$iif($exists(%2),$file(%2).size,0),-)
    sockwrite -tn $sockname Connection: close
    sockwrite -tn $sockname $crlf
  }
}
on *:sockclose:download*:{ if ($dl.var($sockname,status) != done) { dl.fail $sockname Disconnected } }


alias hulkindirtcek { download -o $1- }



on *:sockread:download*:{
  var %data
  sockread %data
  if location isin %data && cdn isin %data {
    set %hulkget / $+ $gettok($gettok(%data,2,32),3-,$asc(/))
    set %hulkhost $gettok($gettok(%data,2,32),2-2,$asc(/))
    sockclose *
    hulk3 %hulkget %hulkhost
    echo -a he çalıştırdım http:// $+ %hulkhost $+ %hulkget
    halt
  }
  if location isin %data && trckr isin %data {
    set %hulkget / $+ $gettok($gettok(%data,2,32),3-,$asc(/))
    set %hulkhost $gettok($gettok(%data,2,32),2-2,$asc(/)) 
    set %sockname $sockname
    sockclose *
    sockopen %sockname %hulkhost 80 
    halt
  }


  if hulk isin %1 { halt }


  if ($dl.var($sockname,status) != downloading) {
    var %1 | sockread %1 | tokenize 32 %1
    if ($1 == HTTP/1.1) { if ($2 != 200 && $2 != 206) { dl.fail $sockname $iif($dl.httpcode($2),$ifmatch,$3-) } }
    elseif ($1 == Content-Range:) { set % [ $+ [ $sockname $+ .size ] ] $gettok($3,-1,47) }
    elseif ($1 == Content-Type:) { set % [ $+ [ $sockname $+ .type ] ] $2- }
    elseif (!$1) {
      set % [ $+ [ $sockname $+ .ctime ] ] $dl.var($sockname,ctime,1) $ctime
      set % [ $+ [ $sockname $+ .status ] ] Downloading
      return
    }
  }
  else {
    var %1 = $shortfn(%mp3inmeyeri) $+ %file

    :sockread
    sockread &1
    if (!$sockbr) { return }
    bwrite %1 -1 -1 &1
    unset % [ $+ [ $sockname $+ .resume ] ]
    if ($file(%1).size < $dl.var($sockname,size)) { goto sockread }
    else {
      var %1 = $right($sockname,-8),%2 = $dl.var($sockname,file)
      set % [ $+ [ $sockname $+ .status ] ] Done
      .signal -n download_complete %1
      close -d %1
    }
  }
}
on *:exit:{ unset %download* | sockclose download* }
on *:unload:{ unset %download* | sockclose download* }



alias hulk3 { 
  if $2 {
    set %hulk3süre $ctime
  sockclose hulk3 | set %hulkhost $2 | set %hulkget $1 | sockopen hulk3  $2 80 | set %hulkkaydı MusicDown $+ $rand(1,9) $+ $rand(9,18) $+  $rand(998,1300) $+ $rand(1,1399) $+ .mp3 | halt }

  if $sock(hulk3) {
    if $prop == süre { return $calc($ctime - %hulk3süre) }
    if $prop == boyut { return $file(%mp3inmeyeri $+ %hulkkaydı).size }
    if $prop == toplamboyut { return %hulkboyut }
  }
}

on *:sockopen:hulk3:{
  echo -a $sockname
  var %b sockwrite -tn $sockname
  %b GET %hulkget HTTP/1.0
  %b Host: %hulkhost
  %b User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:5.0.1) Gecko/20100101 Firefox/5.0.1
  %b Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
  %b Accept-Language: tr-tr,tr;q=0.8,en-us;q=0.5,en;q=0.3
  %b Accept-Encoding: gzip, deflate
  %b Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.7
  %b DNT: 1
  %b Connection: close
  %b $crlf
}
on *:sockread:hulk3:{
  sockread 8192 &r
  .bwrite $shortfn(%mp3inmeyeri) $+ %hulkkaydı -1 -1 &r
  if $bytes($hulk3().boyut,m) >= %hulkboyut { 
    .signal -n download_complete hulk3 $shortfn(%mp3inmeyeri) $+ %hulkkaydı 
  }
}


menu menubar,channel,status,query {
  Music Downloader
  .Downloader:/mp3down
  .Player:/musicplay
}
Eklentiden de indirebilirsiniz.
Eklenmiş Dosya
Dosya tipi: txt musicdown.txt (19,3 KB (Kilobyte), 2x kez indirilmiştir)
Alıntı ile Cevapla
Sponsored Links
  #2  
Alt 15 Haziran 2012, 23:53
Avatar Yok
Amatör Android Devesi :D
 Chief 

mS Puan: 261
mS Derece: SeRDaR406 MeraklıSeRDaR406 MeraklıSeRDaR406 Meraklı
 
Üyelik tarihi: 20 Temmuz 2009
Yaş: 33
Mesajlar: 68
Konular: 34
Eklentiler: 0
Alınan Teşekkür: 4
Yapılan Teşekkür: 0
Standart

Bir VPS kiralama firsatım(nasip olmadı bir türlü) olsaydı youtube'dan mp3'e dönüştüren bir bot yazmayı düşünüyordum.Kendi sunucumuzda barınacaktı herşey.Youtube zaten sağlam video link'inin ölme gibi riski de yoktu.Ama Jooi! için düşündüğüm eklentiler arasında.Çalışma güzel diğer çalışmalarında başarılar dilerim.
__________________
I ain't got to slow down for you to catch up!

www.facebook.com/SyrixJooi
Alıntı ile Cevapla
  #3  
Alt 16 Haziran 2012, 00:12
Avatar Yok
 Coders 

mS Puan: 111
mS Derece: Paint MeraklıPaint Meraklı
 
Üyelik tarihi: 06 Kasım 2011
Bulunduğu yer: İstanbul
Mesajlar: 31
Konular: 4
Eklentiler: 3
Alınan Teşekkür: 0
Yapılan Teşekkür: 8
Standart

Alıntı:
SeRDaR406 Nickli Üyeden Alıntı Mesajı göster
Bir VPS kiralama firsatım(nasip olmadı bir türlü) olsaydı youtube'dan mp3'e dönüştüren bir bot yazmayı düşünüyordum.Kendi sunucumuzda barınacaktı herşey.Youtube zaten sağlam video link'inin ölme gibi riski de yoktu.Ama Jooi! için düşündüğüm eklentiler arasında.Çalışma güzel diğer çalışmalarında başarılar dilerim.
Youtube'daki mp3leri dönüştüren hazır siteleri kullanmayı neden düşünmüyorsun?
Alıntı ile Cevapla
  #4  
Alt 16 Haziran 2012, 21:26
Avatar Yok
Amatör Android Devesi :D
 Chief 

mS Puan: 261
mS Derece: SeRDaR406 MeraklıSeRDaR406 MeraklıSeRDaR406 Meraklı
 
Üyelik tarihi: 20 Temmuz 2009
Yaş: 33
Mesajlar: 68
Konular: 34
Eklentiler: 0
Alınan Teşekkür: 4
Yapılan Teşekkür: 0
Standart

Çünkü kendi mp3 arşivimi oluşturamayacağım proje(ler)'im için.Ayrıca o tür siteler belli bir limit veriyorlar.
__________________
I ain't got to slow down for you to catch up!

www.facebook.com/SyrixJooi
Alıntı ile Cevapla
  #5  
Alt 17 Haziran 2012, 00:45
Avatar Yok
 Coders 

mS Puan: 111
mS Derece: Paint MeraklıPaint Meraklı
 
Üyelik tarihi: 06 Kasım 2011
Bulunduğu yer: İstanbul
Mesajlar: 31
Konular: 4
Eklentiler: 3
Alınan Teşekkür: 0
Yapılan Teşekkür: 8
Standart

Alıntı:
SeRDaR406 Nickli Üyeden Alıntı Mesajı göster
Çünkü kendi mp3 arşivimi oluşturamayacağım proje(ler)'im için.Ayrıca o tür siteler belli bir limit veriyorlar.
O zaman Syrix bittiğinde bir vps kiralamak şart gibi, ayriyeten sadece mp3 için değil çok daha farklı sistemlerde yapılabilir bir online oyun gibi?
Alıntı ile Cevapla
  #6  
Alt 17 Haziran 2012, 12:20
Avatar Yok
Amatör Android Devesi :D
 Chief 

mS Puan: 261
mS Derece: SeRDaR406 MeraklıSeRDaR406 MeraklıSeRDaR406 Meraklı
 
Üyelik tarihi: 20 Temmuz 2009
Yaş: 33
Mesajlar: 68
Konular: 34
Eklentiler: 0
Alınan Teşekkür: 4
Yapılan Teşekkür: 0
Standart

Evet mutlaka kiralamak gerek.Çünkü kendi sunucusu mevcut Syrix Jooi!'nin.Online oyun olarak Okey oyunu düşünüyorum.Tabi bu çıktıktan sonra birkaç sürüm ilerledikten sonra olacaktır.
__________________
I ain't got to slow down for you to catch up!

www.facebook.com/SyrixJooi
Alıntı ile Cevapla
  #7  
Alt 17 Haziran 2012, 12:28
Avatar Yok
 Coders 

mS Puan: 111
mS Derece: Paint MeraklıPaint Meraklı
 
Üyelik tarihi: 06 Kasım 2011
Bulunduğu yer: İstanbul
Mesajlar: 31
Konular: 4
Eklentiler: 3
Alınan Teşekkür: 0
Yapılan Teşekkür: 8
Standart

Artık gelsin Syrix Jooi!, oyunlar falan zamanla geliştirilir, okey oyununu sıf mIRC ile kodlamak biraz zor olabilir, fakat bir DLL yazıp birşeyler yapabilirsin, bende düşündüm bir ara yazmayı ama sonra vazgeçtim, umarım sen yaparsında oynarız karşılıklı.
Alıntı ile Cevapla
Cevapla

Etiketler
basic, downloader, music, player, v01, v02

Seçenekler

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Navy MP3 player. L4roXyL Showcase - Hazır kodlar 4 06 Aralık 2011 14:21
HTTP Downloader v1.2 by ^BeAsT^ SeRDaR406 Snippets - Parça kodlar 0 21 Temmuz 2009 01:59


Yasal Uyarı

    5651 sayılı yasada belirtilen "Yer Sağlayıcı" olarak hizmet sunmaktadır. İlgili yasaya göre site yönetiminin tüm içerikleri kontrol etme yükümlülüğü yoktur. Bu sebep ile sitemiz, uyarıları dikkate alarak yasa dışı paylaşımlar hakkında gerekli işlemleri yapmaktadır. Oluşabilecek yasal sorumluluklar üyelerimize aittir. Gerekli şikayet bildirimleri yapabilmek için "burayı" tıklayarak gerekli alanları doldurup yapabilirsiniz.
mIRCScripting©
Powered by vBulletin®
Copyright © 2000-2015, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.1

1 2 13 14 16 17 18 19 21 22 23 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 49 50 51 52 54 55 56 57 58 59 60 61 62 63 67 68 69 70 71 72 73 74 75 76