Quem está conectado?
Há 3 usuários online :: 0 registrados, 0 invisíveis e 3 visitantes Nenhum
[ Ver toda a lista ]
O recorde de usuários online foi de 153 em Ter Mar 09, 2021 2:43 am
Últimos assuntos
Os membros mais ativos do mês
Nenhum usuário |
Destaque do mês
Obrigado pela colaboração!
[AJUDA] Print Screen e enviar por e-mail
4 participantes
Página 1 de 1
[AJUDA] Print Screen e enviar por e-mail
Olá, queria ajuda com um batch que tirasse um print screen do computador da pessoa que o abriu e depois enviasse o print por e-mail...
Pode ser gmail, hotmail, bol...
Pode ser gmail, hotmail, bol...
Re: [AJUDA] Print Screen e enviar por e-mail
Seja Bem vindo Hifterbuk!
Veja esse testei e funciona, é só adaptar do seu gosto
usa o Email do gmail substitua esse seuemail@gmail.com pelo seu e configura a senha.
Veja esse testei e funciona, é só adaptar do seu gosto
usa o Email do gmail substitua esse seuemail@gmail.com pelo seu e configura a senha.
- Código:
/*
@echo off & cls
title PrintscreenMail
::Autor Delmar Grande
::fórum DBatchScript http://dbatchscript.forumeiros.com/
::Data Qui 22 Ago 2013
if not exist %tmp%\$ (echo 0 >%tmp%\$)
set /p y=<%tmp%\$
if %y%==0 Call:Mini
echo 0 >%tmp%\$
echo carregando aguarde...
findstr "'%skip%VB" "%~f0" > "%tmp%\%~n0.vb"
for /F %%i in ('dir /B /S ^"%WinDir%\Microsoft.NET\Framework\vbc.exe^"') do set vbc=%%i
if /i "%vbc%"=="" cls&color 1c&Echo Voce nÆo tem o Netframework instalado!&pause
cls
:7
%vbc% /nologo /out:"%tmp%\%~n0.exe" "%tmp%\%~n0.vb"
"%tmp%\%~n0.exe"
(
Echo Set objEmail = CreateObject("CDO.Message"^)
Echo Subjectline = ""
Echo messagebody = ""
Echo Subjectline = "Foto da tela"
Echo Messagebody = ""
Echo With objEmail
Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing"^) = 2
Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver"^) = "smtp.gmail.com"
Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"^) = 1
Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername"^) = "seuemail@gmail.com"
Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword"^) = "suasenha"
Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport"^) = 465
Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl"^) = true
Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"^) = 60
Echo .Configuration.Fields.Update
Echo .AddAttachment "%tmp%\tela.jpg"
Echo End With
Echo '*** fim do SMTP remoto seção de configuração do servidor ***
Echo WScript.Echo "enviando e-mail..."
Echo With ObjEmail
Echo .From = "seuemail@gmail.com"
Echo .To = "seuemail@gmail.com"
Echo .Subject = subjectline
Echo .HTMLBody = "<p><b>Foto da tela</b></p>"
Echo End With
Echo 'On Error Resume Next
Echo objEmail.Send
Echo WScript.Echo ""
Echo WScript.Echo "Email enviado com sucesso."
Echo Set objEmail = Nothing
)>"%tmp%\SendEmail.vbs"
CScript %tmp%\SendEmail.vbs //nologo
Del %tmp%\SendEmail.vbs
del "%tmp%\%~n0.vb" >NUL 2>&1
del "%tmp%\%~n0.exe" >NUL 2>&1
pause >nul
exit
:mini
echo 1 >%tmp%\$
Start "" /Min "%~dpnx0"
msg/time:01 * Agora aguarde...
exit
Goto:eof
*/
Imports System.Windows.Forms 'VB
Imports System.IO 'VB
Module ModulePrintscreen 'VB
Sub Main() 'VB
'Obtém o caminho da pasta temporária do sistema (Temp) 'VB
Dim pastaTemporaria As String 'VB
pastaTemporaria = System.IO.Path.GetTempPath() 'VB
SendKeys.SendWait("{%}({PRTSC})") 'VB
If My.Computer.Clipboard.ContainsImage() Then 'VB
My.Computer.Clipboard.GetImage.Save(pastaTemporaria + "\tela.jpg", System.Drawing.Imaging.ImageFormat.Jpeg) 'VB
End If 'VB
End Sub 'VB
End Module 'VB
Última edição por Delmar Grande em Dom Mar 02, 2014 7:00 pm, editado 1 vez(es)
Re: [AJUDA] Print Screen e enviar por e-mail
Perfeito! Muito obrigado! Você fez algum curso sobre Batch Script ou você foi aprendendo na internet mesmo?
Re: [AJUDA] Print Screen e enviar por e-mail
fico feliz que gostou!
Agora sobre batch eu aprendi com muito esforço e dedicação mesmo devemos ser sempre insistente!
Agora sobre batch eu aprendi com muito esforço e dedicação mesmo devemos ser sempre insistente!
Re: [AJUDA] Print Screen e enviar por e-mail
Muito bom Delmar gostei
sachadee- Moderadeiro
-
Mensagens : 157
Pontos : 291
Data de inscrição : 28/06/2013
Localização : porai
Barra Respeito às Regras :
Re: [AJUDA] Print Screen e enviar por e-mail
Delmar Grande, vc poderia explicar melhor essa parte de configurar o e-mail?
Eu pesquisei durante mt tempo em relação a enviar algo por e-mail, mas desisti depois de muitas tentativas sem êxito!
Vlw parceiro!
Eu pesquisei durante mt tempo em relação a enviar algo por e-mail, mas desisti depois de muitas tentativas sem êxito!
Vlw parceiro!
Genok- sou nível 6
-
Mensagens : 52
Pontos : 82
Data de inscrição : 02/07/2013
Idade : 28
Localização : Entre o monitor e o encosto da cadeira
Barra Respeito às Regras :
Re: [AJUDA] Print Screen e enviar por e-mail
Genok não tem segredo é só modificar essa parte do script
ok
../smtpserver"^) = "smtp.gmail.com"
../smtpauthenticate"^) = 1
../sendusername"^) = "seuemail@gmail.com" troca pelo seu email
../sendpassword"^) = "suasenha" troca pela sua senha
../smtpserverport"^) = 465
Tópicos semelhantes
» Print Screen
» Teria como diminuir a resolução da foto print screen
» [AJUDA] Como alterar as "propriedades gráficas"?
» [AJUDA] FTP x BAT
» Ajuda para LER arquivo...
» Teria como diminuir a resolução da foto print screen
» [AJUDA] Como alterar as "propriedades gráficas"?
» [AJUDA] FTP x BAT
» Ajuda para LER arquivo...
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
Dom Dez 10, 2023 10:47 am por Raffa
» [BAT] MegaNumeros simulador da mega sena
Sex Jan 17, 2020 7:00 pm por castioni24
» Agendador de tarefas
Seg Ago 26, 2019 1:53 pm por Delmar Grande
» Remover duplicados e frases de um txt
Ter Jul 23, 2019 7:00 pm por Delmar Grande
» Modificações do nome de usuário
Qui maio 24, 2018 1:14 am por biopha
» [bat] Deletar uma linha de um lote de arquivo Txt, sem matar as linhas vazias
Ter Ago 01, 2017 1:46 pm por sachadee
» Aulas de cmd
Sex Fev 24, 2017 4:44 pm por sachadee
» Fazer chat em rede domestica
Dom Ago 14, 2016 12:19 am por Diego Augusto
» redirecionar comando for pra outro batch
Sex maio 27, 2016 1:29 pm por castioni24