Discussion :

[loloxp]

Bonjour à tous,
j'aimerais récupérer automatiquement dans une appli Windev l'url afficher dans le navigateur par défaut.
auriez vous un début de piste ?
Merci

[djejackk]

Bonjour,

Pour IE, la valeur est en base de registre ...
Je l'ai localisé à cet endroit (via un rechercher dans l'éditeur de registres)
"HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", valeur "Default_Page_URL".

Pour les autres navigateurs, il doit y avoir un équivalent...

[loloxp]

je me suis mal exprimé, j'aurais besoin de récupérer l'url en cours quelque soit le site visité.

[frenchsting]

Ca doit être possible avec les API. La première (EnumDesktopWindows) te permettra de trouver le handle de ton navigateur. Ensuite, il te faudra trouver le handle des éléments de ta fenêtre pour lire la barre d'adresse... Par contre, je ne sois pas quelle API il faut utiliser. A toi de chercher...

[Atsibat]

effectivement tu pourra faire ça en utilisant la fonction API(....

pour commencer je te suggère de regarder de ce côté :

Code :

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

1
2
 
API("ieakeng.dll",....

(il faut que tu demande à WD de lister les DLL présentes sur ton poste
ensuite jette un oeil aux dll qui commencent par IE

[loloxp]

malheureusement je n'est jamais utiliser les API...
et cherchant un peu partout j'ai vu aussi qu'avec Web_Browser il y aurait une possibilité, mais je sèche...

[frenchsting]

C'est quoi Web_Browser ?

[loloxp]

erreur de ma part, je creuse avec les API

[loloxp]

voila ce que j'ai trouver:

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
17
18
19
20
21
22
23
24
 
Lg, Ok, hWnd sont des entiers système 
 
Trace("Test") 
 
//hWnd = AppelDLL32("User32", "GetWindow", Handle(), 2) 
//hWnd = AppelDLL32("User32", "GetWindow", Handle(), 0)
hWnd = AppelDLL32("User32", "EnumDesktopWindows", Handle(), 0)
 
 
lpString est une chaîne fixe sur 255 
TANTQUE hWnd <> 0 
	Lg = AppelDLL32("User32", "GetWindowTextLengthA", hWnd) 
	Ok = AppelDLL32("User32", "GetWindowTextA", hWnd, &lpString, Lg + 1) 
 
	SI Ok ALORS 
		SI AppelDLL32("user32","IsWindowVisible",hWnd) ALORS 
			Trace("visible", lpString) 
		FIN 
	FIN //de Ok 
 
	// On passe à la fenêtre suivante... 
	hWnd = AppelDLL32("User32", "GetWindow", hWnd, 2) 
FIN //de TANTQUE

cela me renvoie le nom des fenetres ouvertes, mais toujours pas l'url....

[loloxp]

petite erreur:

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
17
18
19
20
21
22
23
24
 
Lg, Ok, hWnd sont des entiers système 
 
Trace("Test") 
 
//hWnd = AppelDLL32("User32", "GetWindow", Handle(), 2) 
hWnd = AppelDLL32("User32", "GetWindow", Handle(), 0)
 
 
 
lpString est une chaîne fixe sur 255 
TANTQUE hWnd <> 0 
	Lg = AppelDLL32("User32", "GetWindowTextLengthA", hWnd) 
	Ok = AppelDLL32("User32", "GetWindowTextA", hWnd, &lpString, Lg + 1) 
 
	SI Ok ALORS 
		SI AppelDLL32("user32","IsWindowVisible",hWnd) ALORS 
			Trace("visible", lpString) 
		FIN 
	FIN //de Ok 
 
	// On passe à la fenêtre suivante... 
	hWnd = AppelDLL32("User32", "GetWindow", hWnd, 2) 
FIN //de TANTQUE

la cela fonctionne mais je sèche toujours sur le moyen de récupérer l'url

[frenchsting]

Regarde du coté des API EnumWindows et EnumChildWindows. A tester... Je n'ai pas trouvé de façon certaine la fonction d'énumération des contrôles d'une fenêtre...