You can use it in Mathematica.The function can convert everyting into a expression including Pictrue bed link.

share.nb

ShareAny[expr_] := 
 Module[{list, imageWidth, imageHeight, n}, 
  list = ToCharacterCode[Compress[expr]];
  {imageWidth, 
    imageHeight} = {If[(n = Ceiling[Sqrt[Length[list]/3]])*(n - 1) > 
      Length[list]/3, n - 1, n], n};
  Print[Style[
    The following expression to share is in your clipboard., 11, 
    Red]]; (CopyToClipboard@#; #) &[
   Defer[Uncompress@*FromCharacterCode@*
      Flatten@*(ImageData[#, "Byte"] &)@*Import][
    ImportString[
      URLFetch["https://sm.ms/api/upload", Method -> "POST", 
       "MultipartElements" -> {{"smfile\"; filename=\"tmp.png", 
           "image/png"} -> 
          ExportString[
           Image[ArrayReshape[list, {imageWidth, imageHeight, 3}], 
            "Byte"], "PNG"]}], "RawJSON"]["data", "url"]]]]