IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - upload sorunu (https://www.ircforumlari.net/mirc-scripting-sorunlari/593843-upload-sorunu.html)

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 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80

  sockmark %tempsockname filename= $+ %sharing_file

  set %ds %sharing_file

  ;unset %sharing_file

  ;unset %tempsockname

}

on *:sockopen:ursm: { 

  bset -t &postdata 1 -----------------------------7de29f1c2d0526 $+ $crlf

  bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Disposition: form-data; name="uploadfile"; filename=" $+ %ds $+ " $+ $crlf

  bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Type: image/x- $+ $right(%ds,3) $+ $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 $+ -----------------------------7de29f1c2d0526 $+ $crlf

  bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Disposition: form-data; name="upload" $+ $crlf $+ $crlf

  bset -t &postdata $calc($bvar(&postdata,0) + 1) Resmi Yükle $+ $crlf

  bset -t &postdata $calc($bvar(&postdata,0) + 1) -----------------------------7de29f1c2d0526 $+ -- $+ $crlf

  sockwrite -nt $sockname POST / HTTP/1.1

  sockwrite -nt $sockname Content-Type: multipart/form-data; boundary=---------------------------7de5d242d01f2

  sockwrite -nt $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname Connection: Keep-Alive

  sockwrite -nt $sockname Content-Length: $bvar(&postdata,0) $+ $crlf $+ $crlf

  sockwrite $sockname &postdata

}
 

on *:sockread:ursm: { 

  var %x

  sockread %x

  if (</code><img src="
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
isin %x) { 

    echo -a :- %x

    echo -a 7Başarıyla yüklendi

  } 

}

s.a arkadaslar
upload yaptıramıyorum koda bıyerde hata var cozemedım yardım eddermısınız

Cevap: upload sorunu

Kod:



on *:sockopen:ursm: { 

  bset -t &postdata 1 -----------------------------7dc322f4c0442 $+ $crlf

  bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Disposition: form-data; name="local_files[]"; 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="remote_file_url" $+ $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="upload_setting_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="upload_setting_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="upload_setting_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: 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 (<input id=link-direct class=form-control style="font-size: x-small;" isin %x) {

    echo -a 7Başarıyla yüklendi $gettok($gettok(%x,3-,34),-2,34)

  } 

}