Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) Const HWND_TOPMOST = -1 Const HWND_NOTOPMOST = -2 Const SWP_NOSIZE = &H1 Const SWP_NOMOVE = &H2 Const SWP_NOACTIVATE = &H10 Const SWP_SHOWWINDOW = &H40 Const maclasse = "Notepad" Private Sub Command1_Click() Dim monwnd As Long Shell "notepad.exe", vbNormalFocus monwnd = FindWindow(maclasse, vbNullString) SetWindowPos monwnd, HWND_TOPMOST, 0, 0, 300, 300, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE DoEvents MsgBox "regarde ta fenetre notepad, je te l'ai mise en carré" End Sub
-... pouvoir changer sa taille (ex : un programme en 800*600 le faire passer en 1280*720)
- contrôler la mémoire d'un programme (ex : un peu comme cheatengine, modifier certaine valeur etc.)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question