Discussion :

[slysylvestre]

Bonjour,
Plusieurs jours que je cherche en vain sans résultat, j'en appelle à vos lumières.
Sous VB2008 (Vista), je n'arrive à rien avec les API.
Il m'est toujours retourné des valeurs incorrectes.
Avec le code ci-dessous par exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Imports Microsoft.Win32
Imports System.Runtime.InteropServices
Public Class Test
 
<Runtime.InteropServices.DllImport( "user32" )> _
Private Shared Function GetFocus() As IntPtr
End Function 
 
Public Shared Sub Main()
Dim L1 As IntPtr 
L1 = GetFocus()
 
MsgBox(Hex(L1), MsgBoxStyle.Information) 
 
End Sub
End Class

Tout à l'air bon... et pourtant que nenni, GetFocus me renvoie toujours 0.
J'ai testé avec GetActiveWindow(): pareil.
Pareil en compilé, pareil en C#.

Je vous remercie de vous pencher sur ce truc, qui j'en suis sur, tient d'une erreur évidente... mais où?

[slysylvestre]

J'oubliais:
Ayant cherché depuis des jours, j'ai bien sur essayé divers trucs, comme de remplacer Intptr par Long ou Integer, ça marche pas plus. En Long, il m'est toujours renvoyé la même valeur: &h77100F3400000000 (8579374006153510912), quelque soit l'API appelée ou la fenêtre active.

J'commence à me laisser pousser les cheveux, c'est un début pour se les arracher