| Paint | 15 Haziran 2012 00:16 |
Music Downloader v0.2 + Basic Music Player v0.1
Toplam 1 Eklenti bulunuyor. 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: http://mekansiz.net/depo/Music%20down/musicdown1.png http://mekansiz.net/depo/Music%20down/musicdown2.png http://mekansiz.net/depo/Music%20down/musicdown3.png
Music Player: http://mekansiz.net/depo/Music%20down/musicplay1.png http://mekansiz.net/depo/Music%20down/musicplay2.png
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,þ,ş,ö,ö,ý,ı,Ç,Ç,ü,ü,ý,ı,Ý,İ,&,&,Ö,Ö,ö,ö,Ş,ş)
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. |
