contole applicationRésolu

Question

slt, bon voila j'voudrai savoir si on pe controler une application (exemple.exe, sa visibliter sur l'ecran , son positionnemrnt) par une otre application (celle con a programmer)


Par Amine

daetips · Accepted Answer

Ben tu dois chopper le handle

Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwflags As Long) As Long

Dim handle as long
handle=findwindow(vbnullstring,"Le nom de la fen&#234;tre a modifier")

Public Function Position(ByVal nHwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long)
MoveWindow nHwnd, x, y, nWidth, nHeight, 1
End Function

Par "visiblit&#233; sur l'&#233;cran" je pense que tu parles de transparence

'alphaAmount entre 0 et 255

Public Sub MakeWindowTransparent(ByVal hwnd As Long, ByVal alphaAmount As Byte)
Dim lStyle As Long
    lStyle = GetWindowLong(hwnd, GWL_EXSTYLE)
    lStyle = lStyle Or WS_EX_LAYERED
    SetWindowLong hwnd, GWL_EXSTYLE, lStyle
    SetLayeredWindowAttributes hwnd, 0, alphaAmount, LWA_ALPHA
End Sub 

@+
Daetips

Mikey_md · Answer

oui tu peut, mais je ne sais pas comment on fait, c'est une histoire de handle, j'ai pas tout compris mais je sais que l'on peut

daetips · Answer

oups j'ai oubli&#233; les const dsl ! lol

Public Const WS_EX_LAYERED = &H80000
Public Const LWA_COLORKEY = &H1
Public Const LWA_ALPHA = &H2
Public Const GWL_EXSTYLE = (-20)

@+
Daetips

hmamine · Answer

Par Amine

Contole application

4 réponses

Discussions similaires