executable auto extractable

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
Avatar de l’utilisateur
venom
Messages : 3138
Inscription : jeu. 29/juil./2004 16:33
Localisation : Klyntar
Contact :

executable auto extractable

Message par venom »

bonjour,

je vais essayer de vous expliquer le plus clairement possible :D .

est-ce possible que quand je clic sur un executable il s'auto copie dans le dossier de demarrage automatique :) si vous n'avez toujour pas compris dites le moi.


@++
Windows 10 x64, PureBasic 5.73 x86 & x64
GPU : radeon HD6370M, CPU : p6200 2.13Ghz
wolfjeremy
Messages : 1202
Inscription : sam. 31/déc./2005 23:52

Message par wolfjeremy »

CopyFile(NomFichierSource$, NomFichierDestination$)
Sa devrais faire l'affaire je pense :wink:
Avatar de l’utilisateur
venom
Messages : 3138
Inscription : jeu. 29/juil./2004 16:33
Localisation : Klyntar
Contact :

Message par venom »

re, bon aparament sa a l'aire d'etre sa wolfjeremy :D . mais le probleme c'est que quand je clique sur mon nouvelle executable il me dit erreur... voici un petit exemple pour mieu comprendre

Code : Tout sélectionner

 Procedure message()
  MessageRequester("Information","l'executable a etait cree dans c:/essaie1.exe",#PB_MessageRequester_Ok)
 EndProcedure
 
If CreateFile(0, "c:/essaie1.exe")
  message()
  CloseFile(0)
EndIf
je voudrais que quand je clique sur mon nouvelle executable il me marque le meme message que celui du 1er executable.


@++
Windows 10 x64, PureBasic 5.73 x86 & x64
GPU : radeon HD6370M, CPU : p6200 2.13Ghz
wolfjeremy
Messages : 1202
Inscription : sam. 31/déc./2005 23:52

Message par wolfjeremy »

c'est CopyFile et pas createfile lol :wink:


  Procedure message()
   MessageRequester ( "Information" , "l'executable a etait cree dans c:/essaie1.exe" , #PB_MessageRequester_Ok )
  EndProcedure
 
If CopyFile ( "essaie1.exe" , "c:/essaie1.exe" )
  message()
EndIf
Avatar de l’utilisateur
venom
Messages : 3138
Inscription : jeu. 29/juil./2004 16:33
Localisation : Klyntar
Contact :

Message par venom »

:oops: oups pardon donc je revoie tout sa :D . je te dit quoi


@++
Windows 10 x64, PureBasic 5.73 x86 & x64
GPU : radeon HD6370M, CPU : p6200 2.13Ghz
Gillou
Messages : 373
Inscription : sam. 28/août/2004 17:35
Localisation : Bretagne, 22
Contact :

Message par Gillou »

Fichier$ = "c:\test.exe"
ExeName.s = Space (255) : GetModuleFileName_ (0, @ExeName, 255)
If FileSize (Fichier$) >= 0
    tx$ = "Le fichier existe déjà"
    op = #MB_ICONQUESTION
Else
     CopyFile (ExeName, Fichier$)
     If FileSize (Fichier$) >= 0
        tx$ = "Le fichier a été copié avec succès!" + #CRLF$ + "Lancer l'exécutable généré?"
        op = #MB_ICONINFORMATION | #PB_MessageRequester_YesNo
     Else
        tx$ = "Une erreur s'est produite lors de la copie"
        op = #MB_ICONERROR
     EndIf
EndIf
If MessageRequester ( "Infos" , tx$, op) = 6 And op = ( #MB_ICONINFORMATION | #PB_MessageRequester_YesNo )
     RunProgram (Fichier$)
EndIf
Avatar de l’utilisateur
venom
Messages : 3138
Inscription : jeu. 29/juil./2004 16:33
Localisation : Klyntar
Contact :

Message par venom »

re,

:D YES!!! c'est bon je vous remercie tous les duex j'ai reussie a faire se que je voulais :wink: .

mais par contre je voudrais savoir une derniere chose comment fait t'on pour que mon executable s'installe sur le disque dur ou est installer windows. car par exemple si je met le chemin

Code : Tout sélectionner

c:/test.exe
mais que windows ou meme que la personne n'a pas de dique dur nomer c: je suis pas dans la m.... :D il me semble qu'il y a quelque chose duu genre % a metre dans la ligne

Code : Tout sélectionner

c:/test.exe
. mais je ne suis pas tres sur :wink: .
encore merci


@++
Windows 10 x64, PureBasic 5.73 x86 & x64
GPU : radeon HD6370M, CPU : p6200 2.13Ghz
wolfjeremy
Messages : 1202
Inscription : sam. 31/déc./2005 23:52

Message par wolfjeremy »

%SystemRoot% :wink:
Gillou
Messages : 373
Inscription : sam. 28/août/2004 17:35
Localisation : Bretagne, 22
Contact :

Message par Gillou »

windir$ = Space (255) : GetWindowsDirectory_ ( @windir$, 255) : If Right (windir$, 1) <> "\" : windir$ + "\" : EndIf

Fichier$ = StringField (Windir$, 1, "\" )+ "\test.exe"
ExeName.s = Space (255) : GetModuleFileName_ (0, @ExeName, 255)

If FileSize (Fichier$) >= 0
    tx$ = "Le fichier existe déjà"
    op = #MB_ICONQUESTION
Else
     CopyFile (ExeName, Fichier$)
     If FileSize (Fichier$) >= 0
        tx$ = "Le fichier a été copié avec succès!" + #CRLF$ + "Lancer l'exécutable généré?"
        op = #MB_ICONINFORMATION | #PB_MessageRequester_YesNo
     Else
        tx$ = "Une erreur s'est produite lors de la copie"
        op = #MB_ICONERROR
     EndIf
EndIf

If MessageRequester ( "Infos" , tx$, op) = 6 And op = ( #MB_ICONINFORMATION | #PB_MessageRequester_YesNo )
     RunProgram (Fichier$)
EndIf
Avatar de l’utilisateur
venom
Messages : 3138
Inscription : jeu. 29/juil./2004 16:33
Localisation : Klyntar
Contact :

Message par venom »

:D c'est bon je vous remercie j'ai tout ce qu'il me faut mes problemes sont resolues. 8) je vous remercie :D trop simpa :wink:


@++
Windows 10 x64, PureBasic 5.73 x86 & x64
GPU : radeon HD6370M, CPU : p6200 2.13Ghz
Avatar de l’utilisateur
Fortix
Messages : 559
Inscription : mar. 30/mai/2006 17:03

Message par Fortix »

st Venom, je vois qu'on éssait de créer un virus,???
Avatar de l’utilisateur
venom
Messages : 3138
Inscription : jeu. 29/juil./2004 16:33
Localisation : Klyntar
Contact :

Message par venom »

8O pas du tout car j'ai fait un programme qui lance une radio et c'est pour moi eviter de clicer dessus a chaque demarrage c'est tout.
Windows 10 x64, PureBasic 5.73 x86 & x64
GPU : radeon HD6370M, CPU : p6200 2.13Ghz
Gillou
Messages : 373
Inscription : sam. 28/août/2004 17:35
Localisation : Bretagne, 22
Contact :

Message par Gillou »

Si c'est pour lancer un prog au démarrage je voit pas bien comment tu veu faire avec une copie (disons que c pas très propre comme méthode). Tu veux pas plutot créer un raccourci vers ton programme ou l'inscrire dans les registres?
Avatar de l’utilisateur
Fortix
Messages : 559
Inscription : mar. 30/mai/2006 17:03

Message par Fortix »

Gillou a écrit :Si c'est pour lancer un prog au démarrage je voit pas bien comment tu veu faire avec une copie (disons que c pas très propre comme méthode). Tu veux pas plutot créer un raccourci vers ton programme ou l'inscrire dans les registres?

En parlant de Registre, comment peut on modifier la structure d'un registre par l'intermédiaire de PureBasic, <<Gillou tu propose quoi?>> :twisted:
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Message par Backup »

Fortix a écrit : En parlant de Registre, comment peut on modifier la structure d'un registre par l'intermédiaire de PureBasic, <<Gillou tu propose quoi?>> :twisted:
#schtroumpf
Répondre