[..] Déplacer raccourci sur le bureau

[ricky]

Bonjour,

j'aimerais déplacer deux raccourcis sur mon bureau. Un tout en haut à droite du bereau et l'autre juste en dessus.

Qqn connaîtrait une fonction qui pourrait faire cela?

Merci d'avance pour votre aide.

[Habibsbib]

Il ya un truc très bien sur ce forum, mais qui n'est pas là pour faire joli, et ca s'appelle la doc' Si vous aviez pris la peine d'y jeter un coup d'oeil ne fut-ce que quelques minutes, vous auriez trouvé cette commande :

Code : Tout sélectionner

MouseClickDrag

A l'avenir, cherchez un peu avant de demander

[ricky]

Ben justement, j'ai cherché... Je vais regarder ça...

Mais je n'ai que l'ai en anglais et n'avais rien trouvé... Ou trouver l'aide en fr?

Edit : je ne vois pas comment ça pourrai m'aider? Tu pourrais de donner un exemple?

[Habibsbib]

Du genre ça :

http://www.autoitscript.fr/forum/viewto ... f=11&t=295 (vers le bas)

Ou ça :

Code : Tout sélectionner

MouseClickDrag ("left", 20,20,20,20)

je sais, je suis chiant, mais je n'aime pas donner une solution sans faire réfléchir et apprendre aux gens à qui je la donne

[ricky]

Ok, j'ai regardé, je comprends ce que tu veux dire, mais comment obtenir la position de ce raccourci?

[Habibsbib]

Alors, la, vraiment, t'abuses un peu...

===>Autoit Windows Info

[ricky]

Mais d'accord, je sais.

Mais si je fais un programme et que je dois détecter si un raccourci x est sur le bureau et avoir ca position, je ne pourrai pas utiliser "AutoIt Windows Info".

Dé stresse Habibsbib, si je pose des questions c'est que j'ai cherché avant. Donc reste cool!
Merci d'avance pour ton aide.

[HS]
Est-ce qu'il existe une doc en fr?
[/HS]

[Habibsbib]

Mais nooon, mais je plaisanteuuuuh ! On a pas le droit de faire peur un petit peu ? C'est qu'ils sont tentants ces smileys... Non, contrôle toi Habib, contrôle toi...










Aaahhh ! Oh non, je fais une rechute !

Hum... Plus sèrieusement, et ben utilises PixelSearch ! Un pitit exemple en 30 secondes :

Code : Tout sélectionner

While 1
$coord[2]=PixelSearch (500, 500, 500, 500, "0x45444")
If @error Then
    sleep (100)
Else
    MouseClickDrag ("left", $coord[0], $coord[1], 55,55)
EndIf
WEnd

 

1. On ouvre une boucle infinie

2. Je décrypte : au début, le script cherche un pixel situé dans un cadre dont les coordonnées sont données (500, 500...). On lui donne aussi la couleur du pixel à chercher, en l'occurence la couleur de ton raccourci.("0x444.."), puis on stocke le tout dans une variable.

3. On dit à l'ordi : si il y a erreur (pas trouvé le pixel), fais rien. Si tu as trouvé le pixel alors...

4. Tu cliques à l'endoirt du pixel, tu restes appuyé et tu l'emmènes à un endroit donné.(55,55)

5. Tu cliques sur le pixel, et tu le déplaces à l'endroit donné.

6. On ferme la boucle infinie.

J'espère que je t'ai aidé, sinon... et ben, sinon, je suis vraiment nul

[Tlem]

Pour savoir si un raccourci est sur le bureau, il faut utiliser la fonction FileExists() du fichier MonRaccourci.lnk.

Pour le coordonnées d'un icône, il y à plus précis comme manipulation.
Les coordonnées de chaque icône du bureau sont mémorisées dans la base de registre. Donc il suffit de modifier les coordonnées de votre raccourci et le tour est joué.
De tête, sur le forum Anglais il y avait un UDF pour mémoriser la position des icônes en fonction de la résolution et qui permettait de remettre les icônes sur leur position en cas de mélange involontaire.

[jbnh]

En effet, Tlem ^^ j'avais un peu cherché ce matin et j'étais également tombé dessus http://www.autoitscript.com/forum/index ... opic=53209 seulement, il m'a pas l'air facile facile.

[Tlem]

Sinon, pour aider, il y à aussi ça : http://www.autoitscript.com/forum/index ... t&p=731102

[Habibsbib]

Excllente initiative, Tlem. Je crois que c'est la meilleure solution pour lui avec un FileExists(). Donc, voila un exemple:

Code : Tout sélectionner

Refresh()
Func Refresh()
While FileExists(MonRaccourci.Ink)
$coord[2]=PixelSearch (500, 500, 500, 500, "0x45444")
If @error Then
    sleep (100)
Else
    MouseClickDrag ("left", $coord[0], $coord[1], 55,55)
EndIf
WEnd
EndFunc

While 1
   sleep (4000)
   Refresh ()
WEnd

 

Ce n'est qu'un exemple, car il est évident qu'il y a de bien meilleurs exemples sur le fofo amèricain.

[Tlem]

Cet exemple peut (ou ne peut pas) fonctionner.
Il n'est pas suffisamment général pour fonctionner correctement car il est trop tributaire d'un environnement particulier (résolution, couleur, ...).
A éviter donc.

Il vaut mieux passer par l'exemple du lien que j'ai donné.

[Habibsbib]

Exact. Comme toujours ^^ !

Donc, ben sinon, je trouve que ce lien seait le plus approprié pour toi ricky :

Récupération des icônes

Si tu ne réussis pas l'adaptation, n'hésite pas à poster

[ricky]

Merci beaucoup...

Je vais jeter un coup d'oeil, mais comme le dit si bien Tlem, je préfére éviter de passer par le graphique, car je travaille avec différentes cartes-mères et langues de windows. Donc, si je peux éviter de passer par là, j'évite.

Je vous redis ou ce que j'ai fait...

[funkey]

My way to move links on the desktop:

Code : Tout sélectionner

#include <GuiListView.au3>

Local $hLV = ControlGetHandle('Program Manager', '', 'SysListView321')
Local $ItemName = "CloneCD"
Local $ItemPosNew[2] = [500, 500]

Local $Index = _GUICtrlListView_FindText($hLV, $ItemName)
Local $Pos = _GUICtrlListView_GetItemPosition($hLV, $Index)
_GUICtrlListView_SetItemPosition($hLV, $Index, $ItemPosNew[0], $ItemPosNew[1])

MsgBox(0, "", "Moved from " & $Pos[0] & "/" & $Pos[1] & " to " & $ItemPosNew[0] & "/" & $ItemPosNew[1])

[ricky]

Thanks funkey, it' works very well.

La solution de funkey est parfaite et marche très bien.

Merci beaucoup pour vote aide.

[ricky]

Hello,

j'ai encore un petit problème et je ne sais pas comment faire.

Comment reconnaître le "Poste de travail", "Favoris réseau" et la "Poubelle" afin de les mettre ou on veut? Comme ce n'est pas un .lnk, je ne vois pas comment faire.

Merci d'avance pour votre aide.

[Habibsbib]

La, tu vas devoir passer par le graphique

... sauf si tu utilises un .Ink pour ces icônes, et là c'est bon

[funkey]

There is no difference between items with .lnk or without. It will work also with "Favorite network" or "Working station".

Il n'ya aucune différence entre les éléments avec. Lnk ou sans. Il travaillera également avec "Favoris réseau" ou "Poste de travail".