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: 5/19/2017 12:41:00 AM
nome: qXJgmKEOPQZ
email: jimos45812rt1@hotmail.com
comentário:
rtzLip http://www.LnAJ7K8QSpkiStk3sLL0hQP6MO2wQ8gO.com

data: 3/31/2017 1:45:00 PM
nome: HPMyFtgxoTMdvo
email: jimos4581rt1@hotmail.com
comentário:
j5cRGB http://www.LnAJ7K8QSpkiStk3sLL0hQP6MO2wQ8gO.com

data: 2/19/2017 1:46:00 AM
nome: InEdtRpfTbploNMtR
email: jimos4581rt@hotmail.com
comentário:
GfV4kU http://www.FyLitCl7Pf7ojQdDUOLQOuaxTXbj5iNG.com

data: 2/1/2017 2:39:00 AM
nome: lLDnXgrQGH
email: derby451@hotmail.com
comentário:
65bqfz http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com

data: 1/31/2017 12:22:00 PM
nome: lGjlSJwSZOwnY
email: derby451@hotmail.com
comentário:
2uYQVG http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.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