Page 1 sur 1

[R] Deplacement de fichier

Posté : dim. 02 mai 2010 18:52
par Drave
Salut a tous je voudrait savoir si un programme pouvait ce deplacer lui meme et si oui comment

Re: Deplacement de fichier

Posté : dim. 02 mai 2010 19:33
par 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...

Re: Deplacement de fichier [..]

Posté : dim. 02 mai 2010 20:26
par 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

Re: Deplacement de fichier [..]

Posté : mar. 04 mai 2010 01:49
par 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.

Re: [..] Deplacement de fichier

Posté : mar. 04 mai 2010 02:33
par 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

Re: [..] Deplacement de fichier

Posté : mar. 04 mai 2010 05:34
par 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

Re: [..] Deplacement de fichier

Posté : mar. 04 mai 2010 15:04
par 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

Re: [..] Deplacement de fichier

Posté : mer. 05 mai 2010 02:29
par 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.

Re: [..] Deplacement de fichier

Posté : mer. 05 mai 2010 16:50
par 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")
 

Re: [..] Deplacement de fichier

Posté : mer. 05 mai 2010 21:36
par 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")

Re: [..] Deplacement de fichier

Posté : jeu. 06 mai 2010 18:05
par 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.

Re: [..] Deplacement de fichier

Posté : jeu. 06 mai 2010 18:41
par Tlem
N'oubliez pas la balise [R] dans le titre de votre premier message si votre sujet est résolu.

Re: [..] Deplacement de fichier

Posté : jeu. 06 mai 2010 19:50
par Drave
Voila c'est fait :)