Aiuto!! Programma in Autoit

« Older   Newer »
  Share  
chris2000
CAT_IMG Posted on 10/9/2008, 17:16     +1   -1




EDIT: ho anche sbagliato sezione :angry: scusate

Ciao a tutti!! come avrete capito dal codice voglio copiare 4 file elf a scelta su un dispositivo USB a scelta nel quale verrà creata la cartella SWAP MAGIC ove verrano copiati e rinominati i 4 file elf
Il problema è che non funziona questa parte
DirCreate($Destinazione":\SWAP MAGIC\)
o qualunque altra parte dove integro una variabile inserita dall'utente con un percorso perdefinito
Cioè lui inserisci come destinazione D ad esempio e il programma mi crea la cartella D:\SWAP MAGIC
Stesso per FileMove e FileCopy.
Come faccio a integrare la variabile con il percorso predefinito senza che il programma mi dia errore??
Grazie infinite :)

CODICE
#cs ----------------------------------------------------------------------------

Author:           Christian (Chris2000)
Script Function:  Swap Magic SMBOOT Elf
Script Version:   0.1

#ce ----------------------------------------------------------------------------


#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ###
$Form1_1 = GUICreate("Swap Magic SMBOOT ELF Tool", 762, 258, 326, 326)
GUISetBkColor(0x000000)
$Label1 = GUICtrlCreateLabel("Swap Magic SMBOOT ELF Tool", 176, 16, 412, 31)
GUICtrlSetFont(-1, 20, 800, 0, "Lucida Console")
GUICtrlSetColor(-1, 0x00FF00)
$Scegli = GUICtrlCreateInput("Scegli il file da assegnare a SMBOOT0", 48, 64, 561, 21)
$Sfoglia = GUICtrlCreateButton("Sfoglia...", 640, 64, 81, 21)
$Scegli1 = GUICtrlCreateInput("Scegli il file da assegnare a SMBOOT1", 48, 84, 561, 21)
$Sfoglia1 = GUICtrlCreateButton("Sfoglia...", 640, 84, 81, 21)
$Scegli2 = GUICtrlCreateInput("Scegli il file da assegnare a SMBOOT2", 48, 104, 561, 21)
$Sfoglia2 = GUICtrlCreateButton("Sfoglia...", 640, 104, 81, 21)
$Scegli3 = GUICtrlCreateInput("Scegli il file da assegnare a SMBOOT3", 48, 124, 561, 21)
$Sfoglia3 = GUICtrlCreateButton("Sfoglia...", 640, 124, 81, 21)
$Destinazione = GUICtrlCreateInput("Lettera della tua penna USB", 48,144,561,21)
$Copia = GUICtrlCreateButton("Copia!!", 640, 144, 81, 21)
$Label8 = GUICtrlCreateLabel("«--´¯`--–…·´--»", 24, 24, 139, 19)
GUICtrlSetFont(-1, 11, 400, 0, "Lucida Console")
GUICtrlSetColor(-1, 0x00FF00)
$Label9 = GUICtrlCreateLabel("«--`·…–--´¯`--»", 608, 24, 139, 19)
GUICtrlSetFont(-1, 11, 400, 0, "Lucida Console")
GUICtrlSetColor(-1, 0x00FF00)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


$Percorso = 0
While 1
   $nMsg = GUIGetMsg()
   Select
       Case $nMsg = $Sfoglia
           $Percorso = (FileOpenDialog("Seleziona un file ELF", @ScriptDir, "(*.ELF)") )
           GUICtrlSetData ($Scegli, $Percorso)  
                       $nMsg = GUIGetMsg()
       Case $nMsg = $Sfoglia1
           $Percorso1 = (FileOpenDialog("Seleziona un file ELF", @ScriptDir, "(*.ELF)") )
           GUICtrlSetData ($Scegli1, $Percorso1)
               Case $nMsg = $Sfoglia2
           $Percorso2 = (FileOpenDialog("Seleziona un file ELF", @ScriptDir, "(*.ELF)") )
           GUICtrlSetData ($Scegli2, $Percorso2)        
               Case $nMsg = $Sfoglia3
           $Percorso3 = (FileOpenDialog("Seleziona un file ELF", @ScriptDir, "(*.ELF)") )
           GUICtrlSetData ($Scegli3, $Percorso3)
                       
       Case $nMsg = $Copia        
               DirCreate($Destinazione":\SWAP MAGIC\")
           $Nomefile = FileGetLongName($Percorso)
               $Nomefile1 = FileGetLongName($Percorso1)
               $Nomefile2 = FileGetLongName($Percorso2)
               $Nomefile3 = FileGetLongName($Percorso3)
               FileCopy($Percorso, $Destinazione":\SWAP MAGIC\")
       FileCopy($Percorso1, $Destinazione":\SWAP MAGIC\")
       FileCopy($Percorso2, $Destinazione":\SWAP MAGIC\")  
       FileCopy($Percorso3, $Destinazione":\SWAP MAGIC\")
       FileMove($Destinazione":\SWAP MAGIC\"$Nomefile, $Destinazione"\SWAP MAGIC\SMBOOT0.ELF" , 1)
       FileMove($Destinazione":\SWAP MAGIC\"$Nomefile1, $Destinazione"\SWAP MAGIC\SMBOOT1.ELF" , 1)
       FileMove($Destinazione":\SWAP MAGIC\"$Nomefile2, $Destinazione"\SWAP MAGIC\SMBOOT2.ELF" , 1)
       FileMove($Destinazione":\SWAP MAGIC\"$Nomefile3, $Destinazione"\SWAP MAGIC\SMBOOT3.ELF" , 1)
                               EndSelect
                       WEnd


 
Top
nex-interfector
CAT_IMG Posted on 10/9/2008, 17:38     +1   -1

wtf?

Group:
Member
Posts:
2,141
Reputazione:
0
Location:
/etc/

Status:


all'inizio del Case $nMsg=$Copia metti $Destinazione=guictrlread($Destinazione2)e metti che l'input si chiama $Destinazione2....
 
Web   Top
I.Ren
CAT_IMG Posted on 10/9/2008, 17:39     +1   -1




CODICE
#cs ----------------------------------------------------------------------------

Author:           Christian (Chris2000)
Script Function:  Swap Magic SMBOOT Elf
Scritp Corrector: I.Ren
Script Version:   0.1

#ce ----------------------------------------------------------------------------


#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ###
$Form1_1 = GUICreate("Swap Magic SMBOOT ELF Tool", 762, 258, 326, 326)
GUISetBkColor(0x000000)
$Label1 = GUICtrlCreateLabel("Swap Magic SMBOOT ELF Tool", 176, 16, 412, 31)
GUICtrlSetFont(-1, 20, 800, 0, "Lucida Console")
GUICtrlSetColor(-1, 0x00FF00)
$Scegli = GUICtrlCreateInput("Scegli il file da assegnare a SMBOOT0", 48, 64, 561, 21)
$Sfoglia = GUICtrlCreateButton("Sfoglia...", 640, 64, 81, 21)
$Scegli1 = GUICtrlCreateInput("Scegli il file da assegnare a SMBOOT1", 48, 84, 561, 21)
$Sfoglia1 = GUICtrlCreateButton("Sfoglia...", 640, 84, 81, 21)
$Scegli2 = GUICtrlCreateInput("Scegli il file da assegnare a SMBOOT2", 48, 104, 561, 21)
$Sfoglia2 = GUICtrlCreateButton("Sfoglia...", 640, 104, 81, 21)
$Scegli3 = GUICtrlCreateInput("Scegli il file da assegnare a SMBOOT3", 48, 124, 561, 21)
$Sfoglia3 = GUICtrlCreateButton("Sfoglia...", 640, 124, 81, 21)
$destinazione = GUICtrlCreateInput("Lettera della tua penna USB", 48,144,561,21)
$Copia = GUICtrlCreateButton("Copia!!", 640, 144, 81, 21)
$Label8 = GUICtrlCreateLabel("«--´¯`--–…·´--»", 24, 24, 139, 19)
GUICtrlSetFont(-1, 11, 400, 0, "Lucida Console")
GUICtrlSetColor(-1, 0x00FF00)
$Label9 = GUICtrlCreateLabel("«--`·…–--´¯`--»", 608, 24, 139, 19)
GUICtrlSetFont(-1, 11, 400, 0, "Lucida Console")
GUICtrlSetColor(-1, 0x00FF00)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


$Percorso = 0
While 1
  $nMsg = GUIGetMsg()
  Select
  Case $nMsg = -3
          Exit
      Case $nMsg = $Sfoglia
          $Percorso = (FileOpenDialog("Seleziona un file ELF", @ScriptDir, "(*.*)") )
          GUICtrlSetData ($Scegli, $Percorso)  
                      $nMsg = GUIGetMsg()
      Case $nMsg = $Sfoglia1
          $Percorso1 = (FileOpenDialog("Seleziona un file ELF", @ScriptDir, "(*.*)") )
          GUICtrlSetData ($Scegli1, $Percorso1)
              Case $nMsg = $Sfoglia2
          $Percorso2 = (FileOpenDialog("Seleziona un file ELF", @ScriptDir, "(*.*)") )
          GUICtrlSetData ($Scegli2, $Percorso2)        
              Case $nMsg = $Sfoglia3
          $Percorso3 = (FileOpenDialog("Seleziona un file ELF", @ScriptDir, "(*.*)") )
          GUICtrlSetData ($Scegli3, $Percorso3)
                     
      Case $nMsg = $Copia        
              DirCreate(GUICtrlRead($destinazione)&":\SWAP MAGIC\")
          $Nomefile = FileGetLongName(guictrlread($scegli))
              $Nomefile1 = FileGetLongName(guictrlread($scegli1))
              $Nomefile2 = FileGetLongName(guictrlread($scegli2))
              $Nomefile3 = FileGetLongName(guictrlread($scegli3))
              FileCopy($Percorso, GUICtrlRead($destinazione)&":\SWAP MAGIC\")
      FileCopy(guictrlread($scegli), GUICtrlRead($destinazione)&":\SWAP MAGIC\")
      FileCopy(guictrlread($scegli1), GUICtrlRead($destinazione)&":\SWAP MAGIC\")  
      FileCopy(guictrlread($scegli2), GUICtrlRead($destinazione)&":\SWAP MAGIC\")
      FileMove(GUICtrlRead($destinazione)&":\SWAP MAGIC\"&$Nomefile, GUICtrlRead($destinazione)&"\SWAP MAGIC\SMBOOT0.ELF" , 1)
      FileMove(GUICtrlRead($destinazione)&":\SWAP MAGIC\"&$Nomefile1, GUICtrlRead($destinazione)&"\SWAP MAGIC\SMBOOT1.ELF" , 1)
      FileMove(GUICtrlRead($destinazione)&":\SWAP MAGIC\"&$Nomefile2, GUICtrlRead($destinazione)&"\SWAP MAGIC\SMBOOT2.ELF" , 1)
      FileMove(GUICtrlRead($destinazione)&":\SWAP MAGIC\"&$Nomefile3, GUICtrlRead($destinazione)&"\SWAP MAGIC\SMBOOT3.ELF" , 1)
                              EndSelect
                      WEnd


a me così va..
 
Top
nex-interfector
CAT_IMG Posted on 10/9/2008, 17:40     +1   -1

wtf?

Group:
Member
Posts:
2,141
Reputazione:
0
Location:
/etc/

Status:


sì...
 
Web   Top
chris2000
CAT_IMG Posted on 10/9/2008, 17:48     +1   -1




ah ok aspettate che provo!!

Grazie, però non li rinonima rispettivamente in smboot1.elf ecc...
io l'ho fatto con filemove ma non va...
poi altra cosa quando è finita la copia come faccio a aprire una finestrella che indichi copia completata!!
Grazie ancora!!Siete mitici!!
 
Top
nex-interfector
CAT_IMG Posted on 10/9/2008, 17:50     +1   -1

wtf?

Group:
Member
Posts:
2,141
Reputazione:
0
Location:
/etc/

Status:


perche nel Filecopy ci devi mettere il nome del file e l'estensione
 
Web   Top
MatteoJug
CAT_IMG Posted on 10/9/2008, 20:01     +1   -1




Prova:
CODICE
#cs ----------------------------------------------------------------------------
       
       Author:           Christian (Chris2000)
       Script Function:  Swap Magic SMBOOT Elf
       Scritp Corrector: I.Ren
       Script Version:   0.1
       
#ce ----------------------------------------------------------------------------


#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ###
$Form1_1 = GUICreate("Swap Magic SMBOOT ELF Tool", 762, 258, 326, 326)
GUISetBkColor(0x000000)
$Label1 = GUICtrlCreateLabel("Swap Magic SMBOOT ELF Tool", 176, 16, 412, 31)
GUICtrlSetFont(-1, 20, 800, 0, "Lucida Console")
GUICtrlSetColor(-1, 0x00FF00)
$Scegli = GUICtrlCreateInput("Scegli il file da assegnare a SMBOOT0", 48, 64, 561, 21)
$Sfoglia = GUICtrlCreateButton("Sfoglia...", 640, 64, 81, 21)
$Scegli1 = GUICtrlCreateInput("Scegli il file da assegnare a SMBOOT1", 48, 84, 561, 21)
$Sfoglia1 = GUICtrlCreateButton("Sfoglia...", 640, 84, 81, 21)
$Scegli2 = GUICtrlCreateInput("Scegli il file da assegnare a SMBOOT2", 48, 104, 561, 21)
$Sfoglia2 = GUICtrlCreateButton("Sfoglia...", 640, 104, 81, 21)
$Scegli3 = GUICtrlCreateInput("Scegli il file da assegnare a SMBOOT3", 48, 124, 561, 21)
$Sfoglia3 = GUICtrlCreateButton("Sfoglia...", 640, 124, 81, 21)
$destinazione = GUICtrlCreateInput("Lettera della tua penna USB", 48, 144, 561, 21)
$Copia = GUICtrlCreateButton("Copia!!", 640, 144, 81, 21)
$Label8 = GUICtrlCreateLabel("«--´¯`--–…·´--»", 24, 24, 139, 19)
GUICtrlSetFont(-1, 11, 400, 0, "Lucida Console")
GUICtrlSetColor(-1, 0x00FF00)
$Label9 = GUICtrlCreateLabel("«--`·…–--´¯`--»", 608, 24, 139, 19)
GUICtrlSetFont(-1, 11, 400, 0, "Lucida Console")
GUICtrlSetColor(-1, 0x00FF00)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
       $nMsg = GUIGetMsg()
       Select
               Case $nMsg = -3
                       Exit
               Case $nMsg = $Sfoglia
                       $Percorso = (FileOpenDialog("Seleziona un file ELF", @ScriptDir, "(*.*)"))
                       GUICtrlSetData($Scegli, $Percorso)
                       $nMsg = GUIGetMsg()
               Case $nMsg = $Sfoglia1
                       $Percorso1 = (FileOpenDialog("Seleziona un file ELF", @ScriptDir, "(*.*)"))
                       GUICtrlSetData($Scegli1, $Percorso1)
               Case $nMsg = $Sfoglia2
                       $Percorso2 = (FileOpenDialog("Seleziona un file ELF", @ScriptDir, "(*.*)"))
                       GUICtrlSetData($Scegli2, $Percorso2)
               Case $nMsg = $Sfoglia3
                       $Percorso3 = (FileOpenDialog("Seleziona un file ELF", @ScriptDir, "(*.*)"))
                       GUICtrlSetData($Scegli3, $Percorso3)
               Case $nMsg = $Copia
                       $Nomefile = GUICtrlRead($Scegli)
                       $Nomefile1 = GUICtrlRead($Scegli1)
                       $Nomefile2 = GUICtrlRead($Scegli2)
                       $Nomefile3 = GUICtrlRead($Scegli3)
                       if not FileExists($Nomefile) then ContinueLoop
                       if not FileExists($Nomefile1) then ContinueLoop
                       if not FileExists($Nomefile2) then ContinueLoop
                       if not FileExists($Nomefile3) then ContinueLoop
                       if not DriveGetType(GUICtrlRead($destinazione) & ":\") then ContinueLoop
                       DirCreate(GUICtrlRead($destinazione) & ":\SWAP MAGIC")
                       FileCopy($Nomefile, GUICtrlRead($destinazione) & ":\SWAP MAGIC\SMBOOT0.ELF")
                       FileCopy($Nomefile1, GUICtrlRead($destinazione) & ":\SWAP MAGIC\SMBOOT1.ELF")
                       FileCopy($Nomefile2, GUICtrlRead($destinazione) & ":\SWAP MAGIC\SMBOOT2.ELF")
                       FileCopy($Nomefile3, GUICtrlRead($destinazione) & ":\SWAP MAGIC\SMBOOT3.ELF")
                       MsgBox(0,"","Copia completata")
       EndSelect
WEnd

Va bene?
 
Top
chris2000
CAT_IMG Posted on 11/9/2008, 21:06     +1   -1




Avevo già risolto seguendo il consiglio di baron, grazie a tutti!!
 
Top
7 replies since 10/9/2008, 17:16   242 views
  Share  
 

Programmi
 

Create your forum and your blog! · Top Forum · Categories · Help · Status · Contacts · Powered by ForumCommunity