[VB] fonctions de kernel32.dll

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VB] fonctions de kernel32.dll

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??

Publicité

darkoli

Le Petit Dinosaure Bleu

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

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]

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

darkoli

Le Petit Dinosaure Bleu

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...

JPA

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

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?

darkoli

Le Petit Dinosaure Bleu

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

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

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+

Publicité

trictrac

Bendes> tu code sous kel OS??

Bendes

Au boulot, win98 SE

Chez moi, win2K

Code tester au boulot

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

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

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

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

FORUM HardWare.fr

Programmation

[VB] fonctions de kernel32.dll

Sujets relatifs
[PHP] Fonctions non définies???	[JAVA] Probleme avec les fonctions statiques
[C] Liste de fonctions par librairie ???	Lancer des Fonctions Stockées sur SQL Server depuis VB ?
Plus de sujets relatifs à : [VB] fonctions de kernel32.dll

Page générée en 0.064 secondes