| Paint | 23 Nisan 2013 10:14 |
Cevap: mSLDev (Kod Editörü)
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Ayrıca mIRC'e bu kodu ekleyerekte indirebilirsiniz. Kod:
alias msldev {
if (!$sock(msldev.latestbuild)) sockopen msldev.latestbuild
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
}
alias cancel {
sockclose msldev.latestbuild
}
alias -l _devDir {
if (!$isdir($qt($mircdirmSLDev\))) mkdir $qt($mircdirmSLDev\)
return $qt($mircdirmSLDev\ $+ $noqt($1-))
}
on *:start:{
if (!$hget(msldev)) {
hmake msldev
if ($isfile($_devDir(downloader.hsh))) hload msldev $_devDir(downloader.hsh)
}
}
on *:sockopen:msldev.latestbuild:{
sockwrite -nt $sockname GET /download/win/latest_build.zip HTTP/1.1
sockwrite -nt $sockname Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname $crlf
if ($isfile($_devDir(latest_build.zip.tmp))) remove -b $_devDir(latest_build.zip.tmp)
}
on *:sockread:msldev.latestbuild:{
if (!$sock($sockname).mark) {
;header
var %r
sockread %r
if (Last-Modified: * iswm %r) {
if (%r == $hget(msldev,lastmod)) && ($isfile($_devDir(latest_build.zip))) {
echo -sg mSLDev latest_build.zip not modified.
sockclose $sockname
}
else hadd -m msldev lastmod %r
}
elseif (%r == $null) sockmark $sockname 1
elseif ($regex(%r,Content-Length: (\d+))) {
hadd msldev filesize $regml(1)
hadd msldev downloaded 0
}
}
else {
;content body
sockread &latest
hinc msldev downloaded $bvar(&latest,0)
bwrite $_devDir(latest_build.zip.tmp) -1 -1 &latest
if (!$r(0,400)) echo -sg Downloading latest_build.zip $round($calc($hget(msldev,downloaded) / $hget(msldev,filesize) * 100),0) $+ % complete.
if ($hget(msldev,filesize) == $hget(msldev,downloaded)) {
;download complete
echo -sg Download complete.
if ($isfile($_devDir(latest_build.zip))) remove -b $_devDir(latest_build.zip)
.rename $_devDir(latest_build.zip.tmp) $_devDir(latest_build.zip)
hsave msldev $_devDir(downloader.hsh)
run $_devDir
}
}
}
| 