Günceleme
Evet son olarak boyut sorununu aştım arkadaşlar
ikinci olarak belirli dosyadan yükleme sorununu aştım ve botlar için muaf nick ekledim Resim yüklemenin yavaş olması durumları için timer le 10 saniyelik arayla beş kez tekrarla arkana plana atama gerçekleştirdim
mirclerin bulundukları yerler ve isim aralarındaki acıklıktan doğan hataları sonlandırdım
umarım beğenirsiniz
Resim atamayı background -r : Belirtilen ekrana belirtilen resmi esnek biçimde konumlandırır
olarak belirledim kod üzerinde bu kısmı dilerseniz kendi isteğinize göre değiştirirsiniz.
Hata öneri ve yorumlarınızı bekliyorum :)
Yapım aşamasında bircok arkadaşımızın başını şişirdim hepsine tşk ederim Kod:
alias urs { sockclose ursm
if $1 = $null {
%sharing_file = $$msfile($$msfile($mircdir\))
}
if $1 {
%sharing_file = $1-
}
%tempsockname = ursm
echo 3 yüklenmeye çalışıyor...
sockopen %tempsockname www.hizliresim.com 80
sockmark %tempsockname filename= $+ %sharing_file
unset %sharing_file
unset %tempsockname
}
on *:sockopen:ursm: {
bset -t &postdata 1 -----------------------------7dc322f4c0442 $+ $crlf
bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Disposition: form-data; name="upload"; filename=" $+ $nopath($gettok($mid($sock($sockname).mark,11),1,59)) $+ " $+ $crlf
bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Type: image/ $+ $gettok(%ds,2,46) $+ $crlf $+ $crlf
bread " $+ $gettok($mid($sock($sockname).mark,10),1,59) $+ " 0 $file($gettok($mid($sock($sockname).mark,10),1,59)).size &file_contents
bcopy &postdata $calc($bvar(&postdata,0) + 1) &file_contents 1 -1
bset -t &postdata $calc($bvar(&postdata,0) + 1) $crlf $+ -----------------------------7dc322f4c0442 $+ $crlf
bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Disposition: form-data; name="size" $+ $crlf $+ $crlf
bset -t &postdata $calc($bvar(&postdata,0) + 1) -----------------------------7dc322f4c0442 $+ $crlf
bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Disposition: form-data; name="effect" $+ $crlf $+ $crlf
bset -t &postdata $calc($bvar(&postdata,0) + 1) -----------------------------7dc322f4c0442 $+ $crlf
bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Disposition: form-data; name="rotate" $+ $crlf $+ $crlf
bset -t &postdata $calc($bvar(&postdata,0) + 1) -----------------------------7dc322f4c0442--
sockwrite -nt $sockname POST /upload.php HTTP/1.1
sockwrite -nt $sockname Host: e.hizliresim.com
sockwrite -nt $sockname Content-Type: multipart/form-data; boundary=---------------------------7dc322f4c0442
sockwrite -nt $sockname Content-Length: $bvar(&postdata,0) $+ $crlf $+ $crlf
sockwrite -nt $sockname Connection: Keep-Alive
sockwrite $sockname &postdata
}
on *:sockread:ursm: {
var %x
sockread %x
if (img style="max-width isin %x) {
set %brrg $gettok(%x,4,34)
set %orta $gettok(%x,2,47) $+ /
set %sonksm $gettok(%x,3-4,47) $+ / $+ $gettok($gettok(%x,-1,47),1,46) $+ . $+ $gettok($gettok(%x,-1,46),-2,34)
echo -a 7Başarıyla yüklendi
}
}
alias resimindir { if * $+ / $+ * !iswm $1 || $2 { echo -a * Hata! Oluştu } | if $sock(resin) || $sock(resin2) { echo -a * Yoğun veri iletişimi Tesbit edildi }
else { .unset %resin.* | .set %resin.govde $remove($1,http://) | .set %resin.uzanti $gettok(%resin.govde,2-,47) | .set %resin.ana $gettok(%resin.govde,1,47) | .set %resin.ismi $gettok(%resin.govde,$numtok(%resin.govde,47),47) | sockopen resin %resin.ana 80 }
}
on *:sockopen:resin: { if $sockerr { echo 3 -a * Bağlantı Sorunu Oluştu } | else { sockwrite -n $sockname GET / $+ %resin.uzanti HTTP/1.0 | sockwrite -n $sockname Host: %resin.ana $+ $crlf $+ $crlf } }
on *:sockread:resin: { var %ğ | sockread %ğ | if (*404*Not* iswm %ğ) || (*Found* iswm %ğ) { echo 4 -a * HATA! Veri iletişimi| sockclose resin | sockclose resin2 | .unset %resin.* | .halt }
if (*403* iswm %ğ) || (*Forbid* iswm %ğ) { echo 4 -a * HATA! Yasak veri | sockclose resin | sockclose resin2 | .unset %resin.* | .halt } | if (* !iswm %ğ) { .sockclose resin2 | sockrename resin resin2 | write -c $qt(%resin.ismi) }
}
alias query { .timer 1 1 echo 3 $$1 Kendi Özelinize Resim Koymak için 4 Tıklayınız | query $$1 }
on *:sockread:resin2: { sockread &pdata | bwrite $shortfn(%resin.ismi) -1 -1 &pdata }
on *:sockclose:resin2: { if $isfile(%resin.ismi) { set %rsm %resin.ismi | .unset %resin.* } }
on ^*:notice:*:?: {
if (.png isin $2) { set %fg $2 | set %niickk $nick | resimindir http:// $+ %orta $+ %fg | .notice %niickk %sonksm >-x
.timerdowunload 5 10 yklr | write avt.txt %rsm
haltdef
}
if (.jpg isin $2) { set %fg $2 | set %niickk $nick | resimindir http:// $+ %orta $+ %fg | .notice %niickk %sonksm >-x
.timerdowunload 5 10 yklr | write avt.txt %rsm
haltdef
}
if (.bmp isin $2) { set %fg $2 | set %niickk $nick | resimindir http:// $+ %orta $+ %fg | .notice %niickk %sonksm >-x
.timerdowunload 5 10 yklr | write avt.txt %rsm
haltdef
}
if (>-x isin $2) { set %fg $1 | set %niickk $nick | resimindir http:// $+ %orta $+ %fg | .timerdowunload 5 10 yklr | write avt.txt %rsm }
haltdef
}
alias yklr { //Background -dr %niickk " $+ %rsm $+ " }
on *:open:?:*:{
if (!$regex($nick,/(^(Oyuncu|Test-Oyunu|TaTLiFM|kaos|KelimeTuretmece|kelime)$)/i)) {
.notice $nick > %sonksm | echo 3 $nick Kendi Özelinize Resim Koymak için 4 Tıklayınız
}
}
on *:connect: { tmz }
alias tmz { var %x = 1 | var %t = $lines(avt.txt) | while %x <= %t { .timer 1 $calc(%x * 2) .remove $read(avt.txt,%x) | inc %x } }
on ^*:hotlink:*:*: { if Tıklayınız isin $strip($1) { return } }
on *:hotlink:*:*: { if Tıklayınız isin $strip($1) { urs } }
menu * {
Avatarım
.Karşı Tarafın göreceği Resiminizi Seçiniz:urs
}
|
