Skip Navigation Links
Novas Tecnologias
Ferramentas Adicionais
Ferramentas Adicionais


Dica No :
191
Assunto : Visual Basic
Titulo: Fechando uma aplicação pelo VB

Gostou do texto ? Vote e dê sua opinião! Pontuação atual :

Translate this page now :






Adicione aos Favoritos!
BlogBlogs Rec6 Linkk Ueba Technorati Delicious DiggIt! StumbleUpon



Podemos, através de nossa aplicação VB, fechar outras aplicações que possuam um system menu (o menu no canto superior esquerdo do formulário) apenas enviando uma mensagem do windows através da função SendMessage.

Para podermos utilizar o SendMessage precisaremos localizar a janela para a qual enviaremos a mensagem. Para isso deveremos utilizar a função FindWindow.

Precisaremos declarar essas duas funções da API. Se declararmos em um módulo elas podem ser públicas e usadas em toda a aplicação. Se, porém, declararmos em um form, elas precisam ser privadas e usadas apenas naquele form.

Veja a declaração das 2 funções :

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long



Vamos colocar o seguinte código em um botão :


Private Sub Command2_Click()
Const NILL = 0&
Const WM_SYSCOMMAND = &H112
Const SC_CLOSE = &HF060

lpCaption$ = "Calculator"

'* Determine the handle to the Calculator window.
Handle = FindWindow(vbNullString, lpCaption$)

'* Post a message to Calc to end its existence.
X& = SendMessage(Handle, WM_SYSCOMMAND, SC_CLOSE, NILL)

End Sub

Observe como primeiramente foi utilizado o findwindow para localizar a janela da outra aplicação pelo título e, tendo obtido o handle da janela foi executado o SendMessage para forçar o fechamento da aplicação.


Nome :
E-mail:
Comentarios :
 
 
Os Últimos Comentários
data: 9/9/2018 2:14:00 AM
nome: Blanca
email: blancabelt@zoho.com
comentário:
It should therefore be not surprising that, to have total health and
wellness, we must manage the 3 (3) parts of ourselves - mind, body and spirit.
It is significant that you just oversee the kids
if they're brushing their teeth. Exercise helps to burn off
energy in addition to fat and also by this, it will also help prevent coronary disease and create chemicals
in our bodies that are absolutely vital with a
healthy life.
free alternatives to powerpoint - https://is.gd/how_to_secure_wifi


data: 9/1/2018 12:45:00 AM
nome: Andrew
email: michaels.andrew@gmail.com
comentário:
For a limited time we have lowered the rate on targeted website traffic. We have visitors from virtually every country on Earth. Each visitor is targeted by both country and keywords that you submit when you start your free trial period. If you need more visitors or product sales try our service free for seven days and we will send you 500 free visitors during the trial. There are no contracts and if you cancel during the trial period you will not be charged anything! Start your trial today: https://flust.de/tpuwx






Unsubscribe here: http://stpicks.com/2ruse


data: 8/4/2018 2:54:00 PM
nome: Margherita
email: mairinger.margherita@msn.com
comentário:
For a limited time we have lowered the rate on targeted website traffic. We have visitors from virtually every country on Earth. Each visitor is targeted by both country and keywords that you submit when you start your free trial period. If you need more visitors or product sales try our service free for seven days and we will send you 500 free visitors during the trial. There are no contracts and if you cancel during the trial period you will not be charged anything! Start your trial today: http://stpicks.com/2rusd






Unsubscribe here: http://stpicks.com/2ruse


data: 4/4/2018 9:35:00 AM
nome: Alba
email: albablumenthal@gmail.com
comentário:
article
Hey there! Someone in my Facebook group shared this
website with us so I came to look it over. I'm definitely loving
the information. I'm book-marking and will be tweeting this to my followers!
Fantastic blog and outstanding style and design. http://120.55.199.101/home.php?mod=space&uid=1129122&do=profile&from=space


data: 5/19/2017 12:41:00 AM
nome: qXJgmKEOPQZ
email: jimos45812rt1@hotmail.com
comentário:
rtzLip http://www.LnAJ7K8QSpkiStk3sLL0hQP6MO2wQ8gO.com

 1  
Dicas
Dica do Dia
Receba Dicas Por Email
E-mail :  
 


 (help)
Aceito receber informativos do devASPNet, informações de eventos e treinamentos

Veja Quais Informativos Você Receberá

Pesquisar Dicas
Pesquisar Artigos, Dicas e Noticias

Banco de Dados
Algumas Entrevistas
Links Importantes

Búfalo Informática, Treinamento e Consultoria
R. Alvaro Alvim, 37/920 Centro - Cinelândia - Rio de Janeiro Cep: 20031-010
Tel : (21) 2262-1368 (21) 9240-5134 E-mail : Contato@bufaloinfo.com.br