| Heartbroken | 11 Temmuz 2011 01:44 |
Cevap: resim load upload
Kod:
/*
Image uploader/downloader by Brando
This script was made on mIRC version 6.34 (also tested on version 6.3), so im not completely sure it will work on other versions.
*/
dialog -l is {
title "Image uploader"
size -1 -1 247 227
option dbu
list 1, 2 13 243 50, size
button "+", 2, 212 2 13 10
button "-", 3, 228 2 13 10
icon 5, 26 91 192 106
button "<", 4, 7 133 13 13, disable
button ">", 6, 227 133 13 13, disable
button "&Upload!", 7, 40 213 42 10
text "URL:", 8, 5 65 13 8
edit "", 9, 22 64 188 10, read autohs
button "&Clpb", 10, 213 64 30 10
button "&Close", 11, 162 213 42 10, ok cancel
button "&Uploaded Pics", 12, 101 213 42 10
text "", 13, 63 202 114 8, center
text "No preview available", 14, 87 137 68 8, center
text "Status:", 15, 5 79 20 8
text "Select files to upload", 16, 27 79 183 8, right
text "Images to upload:", 17, 5 3 46 8
}
dialog -l isv {
title "Imageviewer"
size -1 -1 264 238
option dbu
icon 1, 27 99 209 122
button "<", 2, 5 151 15 16, disable
button ">", 3, 244 151 15 16, disable
list 4, 4 17 257 54, size
button "&Delete", 5, 137 4 37 10
button "&Add image", 6, 179 4 37 10
button "&Close", 7, 221 4 37 10, ok cancel
text "URL:", 8, 3 86 14 8
edit "", 9, 29 85 212 10, read autohs
button "&Clpb", 10, 243 85 18 10
text "Location:", 11, 3 74 25 8
edit "", 12, 29 73 212 10, read autohs
button "&Clpb", 13, 243 73 18 10
text "No preview available", 14, 51 152 161 15, center
text "", 15, 75 226 110 8, center
text "", 16, 4 5 65 8, left
}
menu * {
Image uploader
.Upload images: is
.Download images: dialog -m isv isv
}
alias is {
set %i.mode $iif($1,$1,-m)
if (!$hget(is)) hmake is 50
dialog $iif($dialog(is),-v,%i.mode) is is
}
alias -l i.loadimg {
if ($did(is,1).sel) {
did -v is 5
did -g is 5 $qt($did(is,1).seltext)
did -h is 14
did -a is 13 $nopath($did(is,1).seltext)
if ($hfind(is,$did(1).seltext).data) did -ra is 9 $v1
else did -r is 9
}
else {
:error
if ($error) reseterror
did -v is 14
did -h is 5
did -r is 13
}
}
alias -l i.chkbutton {
if ($did(is,1).lines <= 1) did -b is 4,6
else {
did $iif($did(is,1).sel == 1,-b,-e) is 4
did $iif($did(is,1).sel == $did(is,1).lines,-b,-e) is 6
}
}
alias -l i.id {
:id
var %x upload $+ $r(0,$str(9,12))
if ($sock(%x)) goto id
return %x
}
alias -l iv.loadimg {
if ($did(isv,4).sel) {
var %x $did(isv,4,$v1)
did -h isv 14
did -v isv 1
did -g isv 1 $qt($hget(is,%x))
did -ra isv 15 $nopath(%x)
did -ra isv 12 $hget(is,%x)
did -ra isv 9 %x
}
else {
:error
if ($error) reseterror
did -vra isv 14 No preview available
did -h isv 1
did -r isv 9,12,15
}
}
alias -l iv.chkbutton {
if ($did(isv,4).lines <= 1) did -b isv 2,3
else {
did $iif($did(isv,4).sel == 1,-b,-e) isv 2
did $iif($v1 == $did(isv,4).lines,-b,-e) isv 3
}
}
on *:exit:{ hsave is is.dat }
on *:start:{
hmake is 50
hload is is.dat
}
on *:unload:{
echo -ag :(
hfree is
remove is.dat
}
on *:dialog:is:*:*:{
if ($devent == sclick) {
if ($did == 2) && ($msfile(.bmp,Select file,Upload)) {
if ($v1 == -1) noop $input(You've selected too many files.,ow,Error)
else {
var %x 1, %err $false
while ($msfile(%x)) {
if (!$regex($v1,/\.(?:jpe?g|png|bmp|ico|img|gif|swf|tiff?)$/i)) var %err $true
else did -a $dname 1 $msfile(%x)
inc %x
}
if (%err) noop $input(Some selected files were not supported image files.,oh,Error)
if (!$did(1).lines) did -ra $dname 16 Select some files to upload.
else did -ra $dname 16 Ready to upload ( $+ $did(1).lines $+ ) images.
did -c $dname 1 1
i.chkbutton
i.loadimg
}
}
elseif ($did == 3) && ($did(1).sel) {
did -d $dname 1 $v1
if ($did(1).lines) did -ra $dname 16 Ready to upload ( $+ $did(1).lines $+ ) images.
else did -ra $dname 16 Select some files to upload.
did -r $dname 9
i.loadimg
}
elseif ($did == 10) && ($did(9)) clipboard $v1
elseif ($did == 1) && ($did(1).sel) {
i.chkbutton
i.loadimg
}
elseif ($istok(4 6,$did,32)) {
did -c $dname 1 $calc($did(1).sel $iif($did == 4,-,+) 1)
i.loadimg
i.chkbutton
}
elseif ($did == 7) && ($did(1).lines) {
if ($sock(upload*,0)) {
if ($input(Upload in progress. Abort upload in progress?,ynw,Upload in progress)) {
sockclose upload*
did -ra $dname 16 Ready to upload ( $+ $did(1).lines $+ ) images.
}
else return
}
var %x $did(1).lines, %y
while (%x) {
if ($hfind(is,$did(1,%x)).data) {
dec %x
continue
}
var %i $i.id
sockopen %i load.imageshack.us 80
sockmark %i $did(1,%x)
inc %y
dec %x
}
if (%y) {
did -ra $dname 16 Uploading images 0 of %y complete.
if (%y < $did(1).lines) noop $input(Some of the chosen files have already been uploaded. Uploading %y images.,oi,Images already uploaded)
}
else {
noop $input(All of the chosen files have already been uploaded.,o,Error)
did -ra $dname 16 Select files to upload.
i.loadimg
i.chkbutton
}
}
elseif ($did == 12) dialog $iif($dialog(isv),-v,%i.mode) isv isv
}
elseif ($devent == dclick) && ($did == 1) && ($did(1).seltext) run $v1
elseif ($devent == close) {
unset %i.mode
sockclose upload*
}
}
on *:dialog:isv:*:*:{
if ($devent == init) {
var %x 1
while ($hget(is,%x).item) {
did -a $dname 4 $v1
inc %x
}
did -c $dname 4 1
did -a $dname 16 $hget(is,0).item images
iv.loadimg
iv.chkbutton
}
elseif ($devent == sclick) {
if ($did == 5) && ($did(4).seltext) {
hdel is $v1
did -d $dname 4 $did(4).sel
did -ra $dname 16 $calc($gettok($did(16),1,32) - 1) images
did -r $dname 9,12
iv.loadimg
iv.chkbutton
}
elseif ($did == 6) {
if ($sock(download)) {
if ($input(Image download in progress. Abort download in progress?,ynw,Download in progress)) sockclose download
else return
}
var %i $input(Input image url (must be direct link),ei,Image download), %len $len(%i)
if (!%i) return
if (!$regex(%i,/^(?:http:\/\/)?([^\/]+)(.+(jpe?g|png|bmp|ico|img|gif|swf|tiff?))$|[^\x3D]{ $+ %len $+ }/i)) noop $input(Unsupported image file.,oh,Error)
elseif ($hfind(is,http:// $+ $regml(1) $+ $regml(2))) noop $input(You've already downloaded this image.,oi,Error)
else {
did -h isv 1
did -vra isv 14 Downloading $qt(%i)
sockopen download $regml(1) 80
sockmark download $regml(1) $regml(2)
}
}
elseif ($did == 4) && ($did(4).seltext) {
did -ra $dname 9 $v1
did -ra $dname 12 $hget(is,$v1)
iv.loadimg
iv.chkbutton
}
elseif ($istok(2 3,$did,32)) {
did -c $dname 4 $calc($did(4).sel $iif($did == 2,-,+) 1)
iv.loadimg
iv.chkbutton
}
elseif ($did == 10) && ($did(9)) clipboard $v1
elseif ($did == 13) && ($did(12)) clipboard $v1
}
elseif ($devent == dclick) && ($did == 4) && ($did(4).seltext) run $hget(is,$v1)
}
on *:sockopen:upload*:{
if ($sockerr) {
.signal -n i.fail $sock($sockname).mark
sockclose $sockname
}
else {
var %i $md5($sockname), %img $sock($sockname).mark, %ext $regex(%img,/\.(\w+)$/), %ext $regml(1)
bread $qt(%img) 0 $file($qt(%img)).size &img
bset -t &cont 1 -- $+ %i $+ $crlf $+ Content-Disposition: form-data $+ $chr(59) name="fileupload" $+ $chr(59) filename=" $+ $nopath(%img) $+ " $+ $crlf $+ $&
Content-Type: image/ $+ %ext $+ $str($crlf,2)
bcopy &cont $calc($bvar(&cont,0) + 1) &img 1 -1
bset -t &cont $calc($bvar(&cont,0) + 1) $crlf $+ -- $+ %i $+ -- $+ $crlf
sockwrite -n $sockname POST / HTTP/1.0
sockwrite -n $sockname Host: load.imageshack.us
sockwrite -n $sockname Connection: Keep-Alive
sockwrite -n $sockname Keep-Alive: 1200
sockwrite -n $sockname Content-Type: multipart/form-data $+ $chr(59) boundary= $+ %i
sockwrite $sockname Content-Length: $bvar(&cont,0) $+ $str($crlf,2)
sockwrite $sockname &cont
}
}
on *:sockread:upload*:{
if ($sockerr) {
.signal -n i.fail $sock($sockname).mark
sockclose $sockname
return
}
var %x
sockread %x
if ($regex(%x,/<input type="text" onClick="track\('direct'\).+value="(.+)"\/>/i)) {
did -ra is 9 $regml(1)
tokenize 32 $did(is,16)
var %i $3 + 1
if (%i == $5) did -ra is 16 Uploaded $5 images.
else did -ra is 16 Uploading images %i of $5 complete.
hadd -m is $regml(1) $sock($sockname).mark
sockclose $sockname
}
}
on *:sockclose:upload*:{ .signal i.fail $sock($sockname).mark }
on *:signal:i.fail:{
if ($input(Upload failed on img $qt($1-) $+ . Click retry to upload the img again.,rh,Error)) {
var %s $i.id
sockopen %s load.imageshack.us 80
sockmark %s $1-
}
else {
tokenize 32 $did(is,16)
if ($calc($3 + 1) == $5) did -ra is 16 Upload complete.
else did -ra is 16 Uploading images $calc($3 - 1) of $calc($5 - 1) complete.
}
}
on *:sockopen:download:{
if ($sockerr) {
noop $input(Unable to download image.,oh,Error)
sockclose $sockname
}
else {
tokenize 32 $sock($sockname).mark
sockwrite -nt $sockname GET $2 HTTP/1.0
sockwrite $sockname Host: $1 $+ $str($crlf,2)
}
}
on *:sockread:download:{
if ($sockerr) {
noop $input(Error downloading image.,oh,Error)
sockclose $sockname
return
}
tokenize 32 $sock($sockname).mark
if ($0 == 2) {
var %x $true
while (%x) {
if (Content-Len isin %x) var %len $gettok(%x,2,32)
sockread %x
}
sockmark $sockname $sock($sockname).mark $iif(%len,$v1,$false)
return
}
var %fn $nopath($2)
while ($sock($sockname).rq) {
sockread &cont
bwrite %fn -1 -1 &cont
}
if ($3) && ($file(%fn).size >= $3) {
sockclose $sockname
did -ac isv 4 http:// $+ $1 $+ $2
hadd -m is http:// $+ $1 $+ $2 $longfn(%fn)
iv.loadimg
iv.chkbutton
}
}
on *:sockclose:download:{
tokenize 32 $sock($sockname).mark
did -ac isv 4 http:// $+ $1 $+ $2
hadd -m is http:// $+ $1 $+ $2 $longfn($nopath($2))
iv.loadimg
iv.chkbutton
}
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
sanırım aradığınız bu... |
