Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

a3deluxe

[Resolvido] Activar Janela

Mensagens Recomendadas

a3deluxe

Olá.

Precisava de uma ajuda.

O meu programa faz o seguinte:

Quando carrego na tecla P ele executa um ficheiro

em linguagem AutoHotKey que faz a activação (selecciona) a janela com o nome de um programa.

O que eu queria era substituir o seguinte código em AutoHotKey para VB.net

Assim não precisava chamar o exe, fazia tudo em VB.net.

//

Public Class Form1

Dim result As Integer
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

	For i = 80 To 80 'Tecla P
		result = 0
		result = GetAsyncKeyState(i)
		If result = -32767 Then

			Process.Start("D:\files\Active.exe")

		End If
	Next i
End Sub
End Class

------------- Active.exe -- AUTOHOTKEY

WinWait, DOSBox 0.74`, Cpu speed: max 100`% cycles`, Frameskip 0`, Program: JG,

IfWinNotActive, DOSBox 0.74`, Cpu speed: max 100`% cycles`, Frameskip 0`, Program: JG, , WinActivate, DOSBox 0.74`, Cpu speed: max 100`% cycles`, Frameskip 0`, Program: JG,

WinWaitActive, DOSBox 0.74`, Cpu speed: max 100`% cycles`, Frameskip 0`, Program: JG,

------------------------------------------------------------------------------------------------------

Obrigado

Editado por a3deluxe

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.