[VB] fonctions de kernel32.dll

Recherche :

Dernière réponse

Sujet : [VB] fonctions de kernel32.dll

trictrac

Je me suis super inspire du code que tu m'as donne, et voila ce que ca donne, pour le lancement de acrobat reader 5.0.. il le lance, mais refuse de le tuer.
PS: non, c'est po si urgent, mais disons que pour l'instant je suis en stage, et que j'ai plus que ca pour finir mon petit prog... alors je ne peux pas ne plus rien faire d'ici ce soir

Code :

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Long, ByVal lpWindowName As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function Putfocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
Const GW_HWNDNEXT = 2
Dim mWnd As Long
Private CurrentPath$
Function InstanceToWnd(ByVal target_pid As Long) As Long
Dim test_hwnd As Long, test_pid As Long, test_thread_id As Long
'Find the first window
test_hwnd = FindWindow(ByVal 0&, ByVal 0&)
Do While test_hwnd <> 0
'Check if the window isn't a child
If GetParent(test_hwnd) = 0 Then
'Get the window's thread
test_thread_id = GetWindowThreadProcessId(test_hwnd, test_pid)
If test_pid = target_pid Then
InstanceToWnd = test_hwnd
Exit Do
End If
End If
'retrieve the next window
test_hwnd = GetWindow(test_hwnd, GW_HWNDNEXT)
Loop
End Function
Private Sub Form_Load()
Dim Pid
On Error GoTo ErrHanlder
Pid = Shell("C:\Programs\Adobe\Acrobat 5.0\Reader\AcroRd32.exe", 1)
DestroyWindow mWnd
ErrHanlder:
If Err.Number = 76 Then
MsgBox "Acrobat Reader 5.0 doit etre à cet endroit: C:\Programs\Adobe\Acrobat 5.0\Reader\AcroRd32.exe"
End If
End
End Sub

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

trictrac

Code :

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Long, ByVal lpWindowName As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function Putfocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
Const GW_HWNDNEXT = 2
Dim mWnd As Long
Private CurrentPath$
Function InstanceToWnd(ByVal target_pid As Long) As Long
Dim test_hwnd As Long, test_pid As Long, test_thread_id As Long
'Find the first window
test_hwnd = FindWindow(ByVal 0&, ByVal 0&)
Do While test_hwnd <> 0
'Check if the window isn't a child
If GetParent(test_hwnd) = 0 Then
'Get the window's thread
test_thread_id = GetWindowThreadProcessId(test_hwnd, test_pid)
If test_pid = target_pid Then
InstanceToWnd = test_hwnd
Exit Do
End If
End If
'retrieve the next window
test_hwnd = GetWindow(test_hwnd, GW_HWNDNEXT)
Loop
End Function
Private Sub Form_Load()
Dim Pid
On Error GoTo ErrHanlder
Pid = Shell("C:\Programs\Adobe\Acrobat 5.0\Reader\AcroRd32.exe", 1)
DestroyWindow mWnd
ErrHanlder:
If Err.Number = 76 Then
MsgBox "Acrobat Reader 5.0 doit etre à cet endroit: C:\Programs\Adobe\Acrobat 5.0\Reader\AcroRd32.exe"
End If
End
End Sub

Bendes

Si tu veux je teste ça ce soir chez moi et j'te dis quoi demain, ou c'est trop urgent ???

trictrac

ca doit etre pour ca... je viens de lire que sous NT,
Windows NT: The handle must have PROCESS_TERMINATE access. For more information, see Process Objects.

Si j'ai lance le programme, il me semble normal d'avoir le droit de le tuer, non?

Bendes

Au boulot, win98 SE

Chez moi, win2K

Code tester au boulot

[edit]--Message édité par Bendes--[/edit]

trictrac

Bendes> tu code sous kel OS??

JPA	Tu peux trouver plein d'informations sur les DLLs avec le programme Scanbin écrit par J.C. Bellamy voir : http://jc.bellamy.free.fr A+

trictrac

ben oui, avec la commande shell

PS: si tu ouvre kernell32 avec notepad, tu trouve une fonction ntterminateprocess, mais lorsque je la declare, il me dit quelle nexiste po

darkoli

trictrac a écrit a écrit :

ca marche tjs po...... c'est comme ca que j'avais fais, mais il ne veut pas tuer acrobat reader
PS: je suis sous NT, ca change qqch?

y'a peut etre un probleme de droit ?
est ce que c'est ton application qui a ouvert acrobat reader ?

trictrac

ca marche tjs po...... c'est comme ca que j'avais fais, mais il ne veut pas tuer acrobat reader
PS: je suis sous NT, ca change qqch?

JPA	tu as également des renseignements sur les API windows à http://www.allapi.net/agnet/index.php A+

darkoli

desole mais je ne connais pas vb.

pour savoir que ca fait parti de kernel32 ben tu vas voir la ou je te l'ai indiqué avec le lien. C'est la liste alphabetique des fonction de l'api win32 , puis tu cliques sur la lettre T et ensuite sur la fonction terminateProcess et ensuite tu vas a la fin du document et tu trouveras ton bonheur...

Bendes

V'là un bel exemple, j'te laisse t'amuser avec :

Code :

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Long, ByVal lpWindowName As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function Putfocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
Const GW_HWNDNEXT = 2
Dim mWnd As Long
Function InstanceToWnd(ByVal target_pid As Long) As Long
Dim test_hwnd As Long, test_pid As Long, test_thread_id As Long
'Find the first window
test_hwnd = FindWindow(ByVal 0&, ByVal 0&)
Do While test_hwnd <> 0
'Check if the window isn't a child
If GetParent(test_hwnd) = 0 Then
'Get the window's thread
test_thread_id = GetWindowThreadProcessId(test_hwnd, test_pid)
If test_pid = target_pid Then
InstanceToWnd = test_hwnd
Exit Do
End If
End If
'retrieve the next window
test_hwnd = GetWindow(test_hwnd, GW_HWNDNEXT)
Loop
End Function
Private Sub Form_Load()
'KPD-Team 1999
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Dim Pid As Long
'Lock the window update
LockWindowUpdate GetDesktopWindow
'Execute notepad.Exe
Pid = Shell("c:\windows\notepad.exe", vbNormalFocus)
If Pid = 0 Then MsgBox "Error starting the app"
'retrieve the handle of the window
mWnd = InstanceToWnd(Pid)
'Set the notepad's parent
SetParent mWnd, Me.hwnd
'Put the focus on notepad
Putfocus mWnd
'Unlock windowupdate
LockWindowUpdate False
End Sub
Private Sub Form_Unload(Cancel As Integer)
'Unload notepad
DestroyWindow mWnd
'End this program
TerminateProcess GetCurrentProcess, 0
End Sub

trictrac

desole d'abuser, mais ca, je l'avais trouver, et j'aurais voulu savoir comment kon fais pour l'exploiter dans VB... car je suis pas pro de la prog system....
PS: comment on fais pour savoir que ca concerne kernell32.dll
PPS: je viens d'essayer en declarant la fonction dans un module, il l'execute, ne cree pas d'erreur, mais ne termine pas le processus non plus

[edit]--Message édité par trictrac--[/edit]

darkoli

ben c'est http://msdn.microsoft.com/library/ [...] c_3bjm.htm par exemple (ca fait au moins 10000 fois que je poste l'adresse, la logiquement tu devrais trouver ton bonheur et meme plus ...

Code :

BOOL TerminateProcess(
HANDLE hProcess, // handle to the process
UINT uExitCode // exit code for the process
);

trictrac

Comment kon fait pour connaiitre le prototype des fonctions incluses dans le kernell32.dll, et comment faire pour les inclure dans le code de VB, car il contient une fonction appele terminateProcess qui m'interresse, mais sans prototype, je ne peux rien en faire...
Est-ce qqun connait un site ou autre ou trouver le prototype des fonction incluses dans des DLL??