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
  } 
}