1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. Dr.Galvany

Beiträge von Dr.Galvany

  • ich hänge fest.

    • Dr.Galvany
    • 22. März 2006 um 23:04

    hehe :D
    ich habe es mit eurer hilfe jetzt geschaft :)
    habe jetzt aber 2 Lösungen und beide gehen!
    kann mir einer sagen welche die "bessere" ist.
    nicht das ich mein wissen in die falsche richtung aufbaue :)

    Code
    ;script 1
    
    
    FileInstall("Proggi-1.exe",@TempDir & "")
    FileInstall("plugin.exe",@TempDir & "")
    
    
    
    
    While 1
            if FileExists(@TempDir & "\Proggi-1.exe") then
                            $pid1 = run(@TempDir & "\Proggi-1.exe /S")
                            ProcessWaitClose ( $pid1 )
                            sleep(1000)
                            FileDelete(@TempDir & "\Proggi-1.exe")
                    ExitLoop
    	endif
    WEnd
    
    
    
    
    While 2                        
    		if FileExists(@ProgramFilesDir & "\Zeichnen\plugin.exe") then
                            $pid2 = FileCopy(@TempDir & "\plugin.exe",@ProgramFilesDir & "\Zeichnen\*.*",1)
                            ProcessWaitClose ( $pid2 )
                            sleep(1000)
                            FileDelete(@TempDir & "\plugin.exe")
                    ExitLoop
            endif      
    WEnd
    Alles anzeigen
    Code
    ;script 2
    
    
    FileInstall("Proggi-1.exe",@TempDir & "")
    FileInstall("AnyDVD.exe",@TempDir & "")
    
    
    
    
    dim $fo1 =1 
    
    
    While $fo1
            if FileExists(@TempDir & "\Proggi-1.exe") then
                            $pid1 = run(@TempDir & "\Proggi-1.exe /S")
                            ProcessWaitClose ( $pid1 )
                            sleep(1000)
                            FileDelete(@TempDir & "\Proggi-1.exe")
                            $fo1 = 0
    	endif
    WEnd
    
    
    dim $fo2 =1
    
    
    While $fo2                        
    		if FileExists(@ProgramFilesDir & "\Zeichnen\plugin.exe") then
                            $pid2 = FileCopy(@TempDir & "\plugin.exe",@ProgramFilesDir & "\Zeichnen\*.*",1)
                            ProcessWaitClose ( $pid2 )
                            sleep(1000)
                            FileDelete(@TempDir & "\plugin.exe")
                            $fo2 = 0
            endif      
    WEnd
    Alles anzeigen
  • ich hänge fest.

    • Dr.Galvany
    • 22. März 2006 um 17:37

    hi leute, ich versuche mal wieder was kleines für mich :)
    komme aber nicht weiter lol

    ich will immer erst prüfen ob die datei vorhanten ist, wenn sie noch nicht vorhanten ist, soll das script erneut prüfen usw...
    habe mal 2 stück erstellt, aber beite sind irgend wie nicht das wahre, wobei sich das zweite gar nicht mehr schließt.
    so wie ich es versuche, wird anscheinend immer zu geprüft, es wäre mir aber recht wenn es auch nur so alle 500ms erneut prüft.
    so jetzt mal die beiden sachen :)

    Code
    ;script 1
    
    
    FileInstall("test1.exe",@TempDir & "")
    FileInstall("test2.exe",@TempDir & "")
    
    
    
    
    While 1
    	if FileExists(@TempDir & "\test1.exe") then
    		run (@TempDir & "\test1.exe /S")
    
    	if FileExists(@ProgramFilesDir & "\lol\test2.exe") then
    
    		if FileExists(@TempDir & "\test2.exe") then
    			FileCopy(@TempDir & "\test2.exe",@ProgramFilesDir & "\lol\*.*",1)
    
    
    	 else
    	 endif
    	endif
       endif
    
    
    sleep(500)
    FileDelete(@TempDir & "\test1.exe")
    sleep(500) 
    FileDelete(@TempDir & "\test2.exe")
    sleep(500)  
    WEnd
    exit
    Alles anzeigen
    Code
    ;script 2
    
    
    FileInstall("test1.exe",@TempDir & "")
    FileInstall("test2.exe",@TempDir & "")
    
    
    
    
    While 1
    	if FileExists(@TempDir & "\test1.exe") then
    		run(@TempDir & "\test1.exe /S")
    
    		else
    	endif	
    WEnd
    
    
    While 1	
    	if FileExists(@ProgramFilesDir & "\lol\test2.exe") then
    
    		else
    	endif
    WEnd
    
    
    While 1	
    	 if FileExists(@TempDir & "\test2.exe") then
    	  	FileCopy(@TempDir & "\test2.exe",@ProgramFilesDir & "\lol\*.*",1)
    
    
    		else
    	 endif
    WEnd
    
    sleep(500)
    FileDelete(@TempDir & "\test1.exe")
    sleep(500)
    FileDelete(@TempDir & "\test2.exe")
    sleep(500)
    exit
    Alles anzeigen

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™