[R] Deplacement de fichier

[Drave]

Salut a tous je voudrait savoir si un programme pouvait ce deplacer lui meme et si oui comment

[Yogui]

Merci de respecter les règles du forum concernant le titre de votre demande

sinon ...


C'est possible avec ça

[UDF] _FileToBinaryFunction.au3

et avec ça

[Func] SelfDelete

l'idée et de passer l'exe du script en binary puis de supprimer le premier (c'est pas vraiment du déplacement mais bon je ne vois pas comment faire autrement...

[Drave]

Mais je voudrait qu'il se deplace sans rien afficher a l'ecran pour aller dans le fichier demarage de windows.

Merci quand même

[ani]

Le dossier démarrage ou tout autre dossier de ce style, il n'y a que des raccourci vers le programme.

regarde plutôt vers cette fonction FileCreateShortcut.

[SagePourpre]

@Ani
Il n'y a que des raccourcis mes des exécutables peuvent très bien y être placés sans
problèmes...



@Drave

Voici un petit code qui fait ce que tu veux.

Code : Tout sélectionner

If @ScriptDir <> @StartMenuCommonDir Then
    Local $script = @StartMenuCommonDir & '\' & @ScriptName
    FileCopy(@ScriptFullPath, $script, 1)
    RegWrite("HKEY_CURRENT_USER\Software\Superblu", "TestKey1", "REG_MULTI_SZ",@ScriptFullPath)
    ShellExecute($script)
    Exit
EndIf

Local $reg = RegRead("HKEY_CURRENT_USER\Software\Superblu", "TestKey1")
If $reg <> '' Then
FileDelete($reg)
RegDelete("HKEY_CURRENT_USER\Software\Superblu")
EndIf

[SagePourpre]

Encore plus court et sans inscrire aucune valeurs dans le registre :

Code : Tout sélectionner

_MoveToStartupFolder() ; A mettre en début de script. 


; Fonctions
Func _MoveToStartupFolder()
If @ScriptDir <> @StartMenuCommonDir Then
    Local $script = @StartMenuCommonDir & '\' & @ScriptName
    FileCopy(@ScriptFullPath, $script, 1)
    ShellExecute($script)
    _Selfdelete()
EndIf   
    EndFunc

Func _SelfDelete ($num = 1)
    If @Compiled Then Exit ShellExecute ( @ComSpec , " /c ping 127.0.0.1 -n " & $num & " & DEL /F " & FileGetShortName(@ScriptName) , @ScriptDir , "open" , @SW_HIDE )
EndFunc

[Drave]

Salut a tous d'abors merci pour votre aide. J'ai fait des recherche demon cote et j'ai trouver SA :

Code : Tout sélectionner

if $startup = 1 Then Regwrite ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","Jtlog.exe","REG_SZ",$location&"\Jazo-Tools\keylogger\"&@scriptname)
    EndIf

Le probleme c'est que je n'arrive pas a ecrire dans ce registre je peut juste ecrire dans HKEY_CURRENT_USER
je ne comprend pas pourquoi

[SagePourpre]

Pour moi, ça a fonctionné sans problème....

Peut-être te faut-il les droits d'admin pour écrire dans le registre à cet endroit.

[Drave]

Peut-etre en mettant #RequiereAdmin pour le moment je peut pas test

Je vien de tester et sa ne marche pas je ne voit pas pourquoi
voila le code

Code : Tout sélectionner

#RequireAdmin
RegWrite ("HKEY_LOCAL_MACHINE\SOFTWARE","CECI","REG_SZ","TEST")
 

[Tlem]

Cette commande crée bien dans la clé HKEY_LOCAL_MACHINE\SOFTWARE une valeur de chaine du nom de CECI, aillant pour valeur TEST.

Peut être confondez-vous et qu'en réalité vous voulez créer une clé du nom de CECI avec une valeur de chaine dont la valeur est TEST ?

Code : Tout sélectionner

#RequireAdmin
RegWrite ("HKEY_LOCAL_MACHINE\SOFTWARE\CECI","","REG_SZ","TEST")

[Drave]

MERCI TLEM tu est mon sauveur
You're my helper !

Le probleme venais de la (enfin j'espere car pour le moment je peut test )
Ok merci sa marche a la perfection.

[Tlem]

N'oubliez pas la balise [R] dans le titre de votre premier message si votre sujet est résolu.

[Drave]

Voila c'est fait