Programování - Screenshot + autoemail.

[ztr00]

Dobrý den.

Chtěl bych se zeptat, jestli by se tu našel programátor, který by byl schopný napsat program, který by mi v určitý čas "sejmul" screenshot obrazovky a automaticky ho poslal na email.

Programy podobného rázu jsou (IcyScreen asi nejblíže). Problém je, že neumí typický "scheduler". Tzn. odesílání každý den např v 6:00 a v 18:00. To co umí je, že sejme screenshot a poté po určitém intervalu ho sejme znovu. To je ale nepraktické, protože když by došlo k nouzovému vypnutí PC, jeho opětovnému nastartování, tak nebude sedět čas intervalu (bude posunutý o dobu výpadku). A já právě potřebuji přesné časy.

Další program, který jsem našel je Auto Screen Capture, ale ten bohužel nemá funkci emailu. Zato má krásný scheduler.

No tak bych právě chtěl vědět, jestli by to někdo zvládl, nebo mám zkusit vymyslet nějaké jiné řešení. Samozřejmě to nechci zadarmo.

Děkuji a přeji krásný den.

[Reklama]

[faraon]

Bacha na GDPR!

[ztr00]

Bacha na GDPR!

Tím, že sejmu obraz monitoru, na kterém je výstup z PLC daného stroje si s GDPR určitě nezahrávám -)

[zeus]

Mail ti odesle treba The Bat, ktery ovladnes z prikazove radky, a tim i z Planovace uloh.

[ITCrowd]

Možná by to šlo napsat ve vbs skriptu.

[ztr00]

Mail ti odesle treba The Bat, ktery ovladnes z prikazove radky, a tim i z Planovace uloh.

Děkuji za tip, ale bohužel, Win 10 Pro mi to nespustí.

Dodatečně přidáno po 2 minutách 38 vteřinách:

Možná by to šlo napsat ve vbs skriptu.

Bohužel, programovaní zrovna není mojí silnou stránkou.

Kuokal jsem na Bmail, ale ten už taky nespustím, je to stara verze z roku 2004, ale má věci, tkeré bych potřeboval.

C:>bmail /?

Command Line SMTP Emailer V1.07
Copyright(C) 2002-2004 Craig.Peacock@beyondlogic.org
Usage: bmail [options]
-s SMTP Server Name
-p SMTP Port Number (optional, defaults to 25)
-t To: Address
-f From: Address
-b Text Body of Message (optional)
-h Generate Headers
-a Subject (optional)
-m Filename (optional) Use file as Body of Message
-c Prefix above file with CR/LF to separate body from header
-d Debug (Show all mail server communications)

A právě parametr "-m" je pro mě klíčový. Tím bych do mailu mohl nacpat ten stupidní screenshot. Už jsem se smířil s tím, že hotové řešení asi nebude, tak prostě použiju jeden program na screenshoty a potom asi *.bat pro posílání mailů. Jenom ten "baťák" mi chybí

[Microsheep]

Teď jsem to testoval, funkční bez extra sw. - Win 10
Uložit jako *.ps1 skript, přidat si do naplánovaných úloh spuštění v dané časy, které potřebuješ.
Otestováno na e-mailu od seznamu, pozor máš heslo v plain textu skriptu!
Můžeš si snadno upravovat subject např. aby zapisoval čas, nějaké logování pokud se neodešle e-mail apod.

Kód: Vybrat vše

$File = "C:\test\screen.bmp"
$username = "login"
$password = "heslo"
$email = "test@seznam.cz"
$smtp = "smtp.seznam.cz"
############################################
Add-Type -AssemblyName System.Windows.Forms
Add-type -AssemblyName System.Drawing
$Screen = [System.Windows.Forms.SystemInformation]::VirtualScreen
$Width = $Screen.Width
$Height = $Screen.Height
$Left = $Screen.Left
$Top = $Screen.Top
$bitmap = New-Object System.Drawing.Bitmap $Width, $Height
$graphic = [System.Drawing.Graphics]::FromImage($bitmap)
$graphic.CopyFromScreen($Left, $Top, 0, 0, $bitmap.Size)
$bitmap.Save($File)
$secstr = New-Object -TypeName System.Security.SecureString
$password.ToCharArray() | ForEach-Object {$secstr.AppendChar($_)}
$cred = new-object -typename System.Management.Automation.PSCredential -argumentlist $username, $secstr
Send-MailMessage -smtpServer $smtp -Credential $cred -From $email -To $email -UseSsl -Subject screenshot -Attachments $File

[ztr00]

Teď jsem to testoval, funkční bez extra sw. - Win 10
Uložit jako *.ps1 skript, přidat si do naplánovaných úloh spuštění v dané časy, které potřebuješ.
Otestováno na e-mailu od seznamu, pozor máš heslo v plain textu skriptu!
Můžeš si snadno upravovat subject např. aby zapisoval čas, nějaké logování pokud se neodešle e-mail apod.

Kód: Vybrat vše

$File = "C:testscreen.bmp"
$username = "login"
$password = "heslo"
$email = "test@seznam.cz"
$smtp = "smtp.seznam.cz"
############################################
Add-Type -AssemblyName System.Windows.Forms
Add-type -AssemblyName System.Drawing
$Screen = [System.Windows.Forms.SystemInformation]::VirtualScreen
$Width = $Screen.Width
$Height = $Screen.Height
$Left = $Screen.Left
$Top = $Screen.Top
$bitmap = New-Object System.Drawing.Bitmap $Width, $Height
$graphic = [System.Drawing.Graphics]::FromImage($bitmap)
$graphic.CopyFromScreen($Left, $Top, 0, 0, $bitmap.Size)
$bitmap.Save($File)
$secstr = New-Object -TypeName System.Security.SecureString
$password.ToCharArray() | ForEach-Object {$secstr.AppendChar($_)}
$cred = new-object -typename System.Management.Automation.PSCredential -argumentlist $username, $secstr
Send-MailMessage -smtpServer $smtp -Credential $cred -From $email -To $email -UseSsl -Subject screenshot -Attachments $File

Děkuji moc za snahu. Já jsem včera zkoušel podobný příkaz v PS, ale pořád mi to psalo, že není povoleno spouštění skriptů a když sem je chtěl povolit dalším příkazem tak pořád nic. Bohužel jsem na začátku dotazu neřekl, pro jaký OS (moje chyba - pardon). OS, na kterém bych to chtěl rozjet je W7. Takže powershell mi zde asi nepomůže
Každopádně děkuji a jdu to zkusit alespoň na mém NB s W10.

Dodatečně přidáno po 51 minutách 58 vteřinách:

Teď jsem to testoval, funkční bez extra sw. - Win 10
Uložit jako *.ps1 skript, přidat si do naplánovaných úloh spuštění v dané časy, které potřebuješ.
Otestováno na e-mailu od seznamu, pozor máš heslo v plain textu skriptu!
Můžeš si snadno upravovat subject např. aby zapisoval čas, nějaké logování pokud se neodešle e-mail apod.

Kód: Vybrat vše

$File = "C:testscreen.bmp"
$username = "login"
$password = "heslo"
$email = "test@seznam.cz"
$smtp = "smtp.seznam.cz"
############################################
Add-Type -AssemblyName System.Windows.Forms
Add-type -AssemblyName System.Drawing
$Screen = [System.Windows.Forms.SystemInformation]::VirtualScreen
$Width = $Screen.Width
$Height = $Screen.Height
$Left = $Screen.Left
$Top = $Screen.Top
$bitmap = New-Object System.Drawing.Bitmap $Width, $Height
$graphic = [System.Drawing.Graphics]::FromImage($bitmap)
$graphic.CopyFromScreen($Left, $Top, 0, 0, $bitmap.Size)
$bitmap.Save($File)
$secstr = New-Object -TypeName System.Security.SecureString
$password.ToCharArray() | ForEach-Object {$secstr.AppendChar($_)}
$cred = new-object -typename System.Management.Automation.PSCredential -argumentlist $username, $secstr
Send-MailMessage -smtpServer $smtp -Credential $cred -From $email -To $email -UseSsl -Subject screenshot -Attachments $File

Děkuji moc za snahu. Já jsem včera zkoušel podobný příkaz v PS, ale pořád mi to psalo, že není povoleno spouštění skriptů a když sem je chtěl povolit dalším příkazem tak pořád nic. Bohužel jsem na začátku dotazu neřekl, pro jaký OS (moje chyba - pardon). OS, na kterém bych to chtěl rozjet je W7. Takže powershell mi zde asi nepomůže
Každopádně děkuji a jdu to zkusit alespoň na mém NB s W10.

Tak nakonec jsem spustil PS x86 a už to vzalo i ty příkazy pro omezení. Skriptík funguje, jenom jsem ho doupravil, aby odesílal ne na tu samou ,ale odlišnou adresu.

*EDIT: Jde z toho skriptu odstranit zabezpečené spojení? Jelikož mi to píše "server nepodporuje zabezpečená připojení". Jestli je to -useSsl? Nebo který parametr? Děkuji.

Teď bych ale toto řešení potřeboval pro cmd

[Microsheep]

Necituje se poslední příspěvek, potom upravuješ svůj příspěvek a část cituješ? Neděláš v tom moc pořádek, ale pořádnej guláš.
Co se týče zabezpečeného připojení, stačí odstranit -UseSSL, samozřejmě si všechny potřebné věci musíš doupravit (záleží na smtp ze kterého odesíláš, na portu, jestli vyžaduje autentifikaci atd..), nic z toho si neřekl.
Jinak nešlo ti to, jelikož musíš povolit spouštění PS skriptů.

Tohle je powershell skript, používá ps cmdlety, bude fungovat pouze jako powershell skript.
Můžeš ho spouštět z baťáku, z cmd, zástupců ap. ale musí to zůstat powershell skriptem.