Hi, muss euch mal wieder nerven 
mein Dir und Filecopy will nicht so wie ich will
ich hab den Ordner xampplite und die Datei control.exe im Verzeichnis, soll dann nur in den C Ordner
DirCopy (@MyDocumentsDir & "\xampplite", "C:\lan")
[/autoit][autoit]FileCopy (@MyDocumentsDir & "\control.exe", "C:\lan")
[/autoit]
wenn ich meinen Button jeweils anklicke, passiert gar nichts.
Wie muss ich das teil schreiben, damit er dass dann so kopiert?
MFg Alex
Eigentlich sollte es so richtig sein. Zeig mal das dazugehörige Scipt. Vielleicht liegt der Fehler ja woanders.
Besteht eigentlich der Zielordner schon? Schau dir mal den 3. parameter von FileCopy und DirCopy an.
ja, der Ordner ist vorhanden, das script ansich tut wunderbar,
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.0.0
Author: Alex2801
Script Function:
install AutoIt script.
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]#include <GUIConstantsEx.au3>
#include <IE.au3>
#include <WindowsConstants.au3>
schritt1()
Func schritt1()
GUICreate("lan Setup", 500, 400)
GUICtrlCreateLabel("Um lan zu Installieren klicken sie auf Weiter", 30, 10)
$weiterbutton = GUICtrlCreateButton("Weiter", 360, 365, 60)
$abbrechenbutton = GUICtrlCreateButton("Abbrechen", 430, 365, 60)
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $weiterbutton
GUISetState(@SW_HIDE)
schritt2()
ExitLoop
Case $msg = $abbrechenbutton
$close = MsgBox(4, "Schliessen", "Möchtest du wirklich schliessen?")
If $close <> 7 Then
Exit
EndIf
Case $msg = $GUI_EVENT_CLOSE
$close = MsgBox(4, "Schliessen", "Möchtest du wirklich schliessen?")
If $close <> 7 Then
Exit
EndIf
ExitLoop
EndSelect
WEnd
EndFunc
Func schritt2()
[/autoit] [autoit][/autoit] [autoit]GUICreate("lan Setup", 500, 400)
GUICtrlCreateLabel("Lizens", 30, 10)
GUICtrlCreateLabel("Das Programm ist unter der GNU GPL Lizensiert.", 30, 30)
GUICtrlCreateLabel("bla", 30, 45)
$exitbutton = GUICtrlCreateButton("n. Akzeptieren", 270, 365, 80)
$weiterbutton = GUICtrlCreateButton("Akzeptieren", 360, 365, 60)
$abbrechenbutton = GUICtrlCreateButton("Abbrechen", 430, 365, 60)
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $weiterbutton
GUISetState(@SW_HIDE)
schritt3()
ExitLoop
Case $msg = $abbrechenbutton
$close = MsgBox(4, "Schliessen", "Möchtest du wirklich schliessen?")
If $close <> 7 Then
Exit
EndIf
Case $msg = $exitbutton
$close = MsgBox(4, "Schliessen", "Möchtest du wirklich schliessen?")
If $close <> 7 Then
Exit
EndIf
Case $msg = $GUI_EVENT_CLOSE
$close = MsgBox(4, "Schliessen", "Möchtest du wirklich schliessen?")
If $close <> 7 Then
Exit
EndIf
EndSelect
WEnd
Endfunc
Func schritt3()
GUICreate("lan Setup", 500, 400)
GUICtrlCreateLabel("Führen sie Schritt 1 bis 4 aus, um das System Funktionsfähig zu installieren.", 30, 10)
$weiterbutton = GUICtrlCreateButton("Weiter", 360, 365, 60)
$abbrechenbutton = GUICtrlCreateButton("Abbrechen", 430, 365, 60)
$schritt1button = GUICtrlCreateButton("Schritt 1", 360, 200, 60)
$schritt2button = GUICtrlCreateButton("Schritt 2", 430, 200, 60)
$schritt3button = GUICtrlCreateButton("Schritt 3", 290, 200, 60)
$schritt4button = GUICtrlCreateButton("Schritt 4", 330, 200, 60)
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $schritt1button
Run("ts.exe")
WinWaitActive("Setup - TeamSpeak 2 Server", "Welcome to the TeamSpeak 2")
Send ("!n")
WinWaitActive("Setup - TeamSpeak 2 Server", "License Agreement")
Send ("!a")
Send ("!n")
WinWaitActive("Setup - TeamSpeak 2 Server", "Select Destination Location")
Send ("C:/lan/teamspeakserver")
Send ("!n")
WinWaitActive("Setup - TeamSpeak 2 Server", "Select Start Menu Folder")
Send ("!n")
WinWaitActive("Setup - TeamSpeak 2 Server", "Select Additional Tasks")
Send ("!n")
WinWaitActive("Setup - TeamSpeak 2 Server", "Ready to Install")
Send ("!i")
WinWaitActive("Setup - TeamSpeak 2 Server", "Information")
Send ("!n")
WinWaitActive("Setup - TeamSpeak 2 Server", "Completing the TeamSpeak 2 Server Setup Wizard")
Send ("!f")
MsgBox(0, "Ts Install", "Fertig!")
MsgBox(0, "Ts", "Bitte logge dich nun mit den folgenden Superadmin daten im gleich öffnenden fenster ein, und nehme die einstellungen vor!")
$oIE = _IECreate ("http://127.0.0.1:14534/slogin.html")
Case $msg = $schritt2button
DirCopy (@MyDocumentsDir & "\xampplite", "C:\lan")
Case $msg = $schritt3button
$FileName = "C:\lan\xampplite\htdocs\ts.html" ;Hier muss der Name der Datei rein
$Open = FileOpen ($FileName, 0) ;Datei im Lesemodus öffnen!
$Text = FileRead ($Open)
$NewText = StringReplace ($Text, "127.0.0.1", @IPAddress1)
FileClose($Open)
$Open = FileOpen ($FileName, 2) ;Datei im Schreibmodus öffnen!
FileWrite ($FileName, $NewText)
MsgBox (0, "Schreiben", "Fertig")
FileClose($Open)
Case $msg = $weiterbutton
GUISetState(@SW_HIDE)
schritt4()
ExitLoop
Case $msg = $schritt4button
FileCopy (@MyDocumentsDir & "\control.exe", "C:\lan")
Case $msg = $abbrechenbutton
$close = MsgBox(4, "Schliessen", "Möchtest du wirklich schliessen?")
If $close <> 7 Then
Exit
EndIf
Case $msg = $GUI_EVENT_CLOSE
$close = MsgBox(4, "Schliessen", "Möchtest du wirklich schliessen?")
If $close <> 7 Then
Exit
EndIf
ExitLoop
EndSelect
WEnd
EndFunc
Func schritt4()
GUICreate("lan Setup", 500, 400)
GUICtrlCreateLabel("Setup ist Fertig, um abzuschließen bitte auf Beenden Klicken", 30, 10)
$weiterbutton = GUICtrlCreateButton("Beenden", 360, 365, 60)
$abbrechenbutton = GUICtrlCreateButton("Abbrechen", 430, 365, 60)
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $weiterbutton
exit
Case $msg = $abbrechenbutton
$close = MsgBox(4, "Schliessen", "Möchtest du wirklich schliessen?")
If $close <> 7 Then
Exit
EndIf
Case $msg = $GUI_EVENT_CLOSE
$close = MsgBox(4, "Schliessen", "Möchtest du wirklich schliessen?")
If $close <> 7 Then
Exit
EndIf
ExitLoop
EndSelect
WEnd
EndFunc
Mfg Alex
Hallo alex2801,
ich habe die 2 Zeilen mal getestet, sie funktionieren. Die Gui in der du kopierst reagiert auf keinen Button, funktioniert aber StandAlone (ausgeschnitten und getestet), bin noch am suchen, editiere diesen Post wenn ich es finde, so funktioniet das Skript:
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.0.0
Author: Alex2801
Script Function:
install AutoIt script.
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]#include <GUIConstantsEx.au3>
#include <IE.au3>
#include <WindowsConstants.au3>
schritt1()
Func schritt1()
GUICreate("lan Setup", 500, 400)
GUICtrlCreateLabel("Um lan zu Installieren klicken sie auf Weiter", 30, 10)
$weiterbutton = GUICtrlCreateButton("Weiter", 360, 365, 60)
$abbrechenbutton = GUICtrlCreateButton("Abbrechen", 430, 365, 60)
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $weiterbutton
GUISetState(@SW_HIDE)
schritt2()
ExitLoop
Case $msg = $abbrechenbutton
$close = MsgBox(4, "Schliessen", "Möchtest du wirklich schliessen?")
If $close <> 7 Then
Exit
EndIf
Case $msg = $GUI_EVENT_CLOSE
$close = MsgBox(4, "Schliessen", "Möchtest du wirklich schliessen?")
If $close <> 7 Then
Exit
EndIf
ExitLoop
EndSelect
WEnd
EndFunc ;==>schritt1
Func schritt2()
[/autoit] [autoit][/autoit] [autoit]GUICreate("lan Setup", 500, 400)
GUICtrlCreateLabel("Lizens", 30, 10)
GUICtrlCreateLabel("Das Programm ist unter der GNU GPL Lizensiert.", 30, 30)
GUICtrlCreateLabel("bla", 30, 45)
$exitbutton = GUICtrlCreateButton("n. Akzeptieren", 270, 365, 80)
$weiterbutton = GUICtrlCreateButton("Akzeptieren", 360, 365, 60)
$abbrechenbutton = GUICtrlCreateButton("Abbrechen", 430, 365, 60)
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $weiterbutton
GUISetState(@SW_HIDE)
schritt3()
ExitLoop
Case $msg = $abbrechenbutton
$close = MsgBox(4, "Schliessen", "Möchtest du wirklich schliessen?")
If $close <> 7 Then
Exit
EndIf
Case $msg = $exitbutton
$close = MsgBox(4, "Schliessen", "Möchtest du wirklich schliessen?")
If $close <> 7 Then
Exit
EndIf
Case $msg = $GUI_EVENT_CLOSE
$close = MsgBox(4, "Schliessen", "Möchtest du wirklich schliessen?")
If $close <> 7 Then
Exit
EndIf
EndSelect
WEnd
EndFunc ;==>schritt2
Func schritt3()
GUICreate("lan Setup", 500, 400)
GUICtrlCreateLabel("Führen sie Schritt 1 bis 4 aus, um das System Funktionsfähig zu installieren.", 30, 10)
$weiterbutton = GUICtrlCreateButton("Weiter", 360, 365, 60)
$abbrechenbutton = GUICtrlCreateButton("Abbrechen", 430, 365, 60)
$schritt1button = GUICtrlCreateButton("Schritt 1", 260, 200, 60)
$schritt2button = GUICtrlCreateButton("Schritt 2", 320, 200, 60)
$schritt3button = GUICtrlCreateButton("Schritt 3", 380, 200, 60)
$schritt4button = GUICtrlCreateButton("Schritt 4", 440, 200, 60)
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $schritt1button
#cs
Run("ts.exe")
WinWaitActive("Setup - TeamSpeak 2 Server", "Welcome to the TeamSpeak 2")
Send("!n")
WinWaitActive("Setup - TeamSpeak 2 Server", "License Agreement")
Send("!a")
Send("!n")
WinWaitActive("Setup - TeamSpeak 2 Server", "Select Destination Location")
Send("C:/lan/teamspeakserver")
Send("!n")
WinWaitActive("Setup - TeamSpeak 2 Server", "Select Start Menu Folder")
Send("!n")
WinWaitActive("Setup - TeamSpeak 2 Server", "Select Additional Tasks")
Send("!n")
WinWaitActive("Setup - TeamSpeak 2 Server", "Ready to Install")
Send("!i")
WinWaitActive("Setup - TeamSpeak 2 Server", "Information")
Send("!n")
WinWaitActive("Setup - TeamSpeak 2 Server", "Completing the TeamSpeak 2 Server Setup Wizard")
Send("!f")
MsgBox(0, "Ts Install", "Fertig!")
MsgBox(0, "Ts", "Bitte logge dich nun mit den folgenden Superadmin daten im gleich öffnenden fenster ein, und nehme die einstellungen vor!")
$oIE = _IECreate("http://127.0.0.1:14534/slogin.html")
#ce
Case $msg = $schritt2button
ConsoleWrite("Filecopy" & @CRLF)
DirCopy(@MyDocumentsDir & "\xampplite", "C:\lan")
Case $msg = $schritt3button
$FileName = "C:\lan\xampplite\htdocs\ts.html" ;Hier muss der Name der Datei rein
$Open = FileOpen($FileName, 0) ;Datei im Lesemodus öffnen!
$Text = FileRead($Open)
$NewText = StringReplace($Text, "127.0.0.1", @IPAddress1)
FileClose($Open)
$Open = FileOpen($FileName, 2) ;Datei im Schreibmodus öffnen!
FileWrite($FileName, $NewText)
MsgBox(0, "Schreiben", "Fertig")
FileClose($Open)
Case $msg = $weiterbutton
GUISetState(@SW_HIDE)
schritt4()
ExitLoop
Case $msg = $schritt4button
ConsoleWrite("Dircopy" & @CRLF)
FileCopy(@MyDocumentsDir & "\control.exe", "C:\lan")
Case $msg = $abbrechenbutton
$close = MsgBox(4, "Schliessen", "Möchtest du wirklich schliessen?")
If $close <> 7 Then
Exit
EndIf
Case $msg = $GUI_EVENT_CLOSE
$close = MsgBox(4, "Schliessen", "Möchtest du wirklich schliessen?")
If $close <> 7 Then
Exit
EndIf
ExitLoop
EndSelect
WEnd
EndFunc ;==>schritt3
Func schritt4()
GUICreate("lan Setup", 500, 400)
GUICtrlCreateLabel("Setup ist Fertig, um abzuschließen bitte auf Beenden Klicken", 30, 10)
$weiterbutton = GUICtrlCreateButton("Beenden", 360, 365, 60)
$abbrechenbutton = GUICtrlCreateButton("Abbrechen", 430, 365, 60)
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $weiterbutton
Exit
Case $msg = $abbrechenbutton
$close = MsgBox(4, "Schliessen", "Möchtest du wirklich schliessen?")
If $close <> 7 Then
Exit
EndIf
Case $msg = $GUI_EVENT_CLOSE
$close = MsgBox(4, "Schliessen", "Möchtest du wirklich schliessen?")
If $close <> 7 Then
Exit
EndIf
ExitLoop
EndSelect
WEnd
EndFunc ;==>schritt4
Den TS (der den Fehler verursacht) habe ich auskommentiert,
mfg (Auto)Bert
Probier das mal:
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.0.0
Author: Alex2801
Script Function:
install AutoIt script.
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]#include <GUIConstantsEx.au3>
#include <IE.au3>
#include <WindowsConstants.au3>
schritt1()
Func schritt1()
GUICreate("lan Setup", 500, 400)
GUICtrlCreateLabel("Um lan zu Installieren klicken sie auf Weiter", 30, 10)
$weiterbutton = GUICtrlCreateButton("Weiter", 360, 365, 60)
$abbrechenbutton = GUICtrlCreateButton("Abbrechen", 430, 365, 60)
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $weiterbutton
GUIDelete()
schritt2()
ExitLoop
Case $msg = $abbrechenbutton
$close = MsgBox(4, "Schliessen", "Möchtest du wirklich schliessen?")
If $close <> 7 Then
Exit
EndIf
Case $msg = $GUI_EVENT_CLOSE
$close = MsgBox(4, "Schliessen", "Möchtest du wirklich schliessen?")
If $close <> 7 Then
Exit
EndIf
ExitLoop
EndSelect
WEnd
EndFunc ;==>schritt1
Func schritt2()
[/autoit] [autoit][/autoit] [autoit]GUICreate("lan Setup", 500, 400)
GUICtrlCreateLabel("Lizens", 30, 10)
GUICtrlCreateLabel("Das Programm ist unter der GNU GPL Lizensiert.", 30, 30)
GUICtrlCreateLabel("bla", 30, 45)
$exitbutton = GUICtrlCreateButton("n. Akzeptieren", 270, 365, 80)
$weiterbutton = GUICtrlCreateButton("Akzeptieren", 360, 365, 60)
$abbrechenbutton = GUICtrlCreateButton("Abbrechen", 430, 365, 60)
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $weiterbutton
GUIDelete()
schritt3()
ExitLoop
Case $msg = $abbrechenbutton
$close = MsgBox(4, "Schliessen", "Möchtest du wirklich schliessen?")
If $close <> 7 Then
Exit
EndIf
Case $msg = $exitbutton
$close = MsgBox(4, "Schliessen", "Möchtest du wirklich schliessen?")
If $close <> 7 Then
Exit
EndIf
Case $msg = $GUI_EVENT_CLOSE
$close = MsgBox(4, "Schliessen", "Möchtest du wirklich schliessen?")
If $close <> 7 Then
Exit
EndIf
EndSelect
WEnd
EndFunc ;==>schritt2
Func schritt3()
GUICreate("lan Setup", 500, 400)
GUICtrlCreateLabel("Führen sie Schritt 1 bis 4 aus, um das System Funktionsfähig zu installieren.", 30, 10)
$weiterbutton = GUICtrlCreateButton("Weiter", 360, 365, 60)
$abbrechenbutton = GUICtrlCreateButton("Abbrechen", 430, 365, 60)
$schritt1button = GUICtrlCreateButton("Schritt 1", 90, 200, 60)
$schritt2button = GUICtrlCreateButton("Schritt 2", 180, 200, 60)
$schritt3button = GUICtrlCreateButton("Schritt 3", 270, 200, 60)
$schritt4button = GUICtrlCreateButton("Schritt 4", 360, 200, 60)
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $schritt1button
Run("ts.exe")
WinWaitActive("Setup - TeamSpeak 2 Server", "Welcome to the TeamSpeak 2")
Send("!n")
WinWaitActive("Setup - TeamSpeak 2 Server", "License Agreement")
Send("!a")
Send("!n")
WinWaitActive("Setup - TeamSpeak 2 Server", "Select Destination Location")
Send("C:/lan/teamspeakserver")
Send("!n")
WinWaitActive("Setup - TeamSpeak 2 Server", "Select Start Menu Folder")
Send("!n")
WinWaitActive("Setup - TeamSpeak 2 Server", "Select Additional Tasks")
Send("!n")
WinWaitActive("Setup - TeamSpeak 2 Server", "Ready to Install")
Send("!i")
WinWaitActive("Setup - TeamSpeak 2 Server", "Information")
Send("!n")
WinWaitActive("Setup - TeamSpeak 2 Server", "Completing the TeamSpeak 2 Server Setup Wizard")
Send("!f")
MsgBox(0, "Ts Install", "Fertig!")
MsgBox(0, "Ts", "Bitte logge dich nun mit den folgenden Superadmin daten im gleich öffnenden fenster ein, und nehme die einstellungen vor!")
$oIE = _IECreate("http://127.0.0.1:14534/slogin.html")
Case $msg = $schritt2button
DirCopy(@MyDocumentsDir & "\xampplite", "C:\lan")
Case $msg = $schritt3button
$FileName = "C:\lan\xampplite\htdocs\ts.html" ;Hier muss der Name der Datei rein
$Open = FileOpen($FileName, 0) ;Datei im Lesemodus öffnen!
$Text = FileRead($Open)
$NewText = StringReplace($Text, "127.0.0.1", @IPAddress1)
FileClose($Open)
$Open = FileOpen($FileName, 2) ;Datei im Schreibmodus öffnen!
FileWrite($FileName, $NewText)
MsgBox(0, "Schreiben", "Fertig")
FileClose($Open)
Case $msg = $weiterbutton
GUIDelete()
schritt4()
ExitLoop
Case $msg = $schritt4button
FileCopy(@MyDocumentsDir & "\control.exe", "C:\lan")
Case $msg = $abbrechenbutton
$close = MsgBox(4, "Schliessen", "Möchtest du wirklich schliessen?")
If $close <> 7 Then
Exit
EndIf
Case $msg = $GUI_EVENT_CLOSE
$close = MsgBox(4, "Schliessen", "Möchtest du wirklich schliessen?")
If $close <> 7 Then
Exit
EndIf
ExitLoop
EndSelect
WEnd
EndFunc ;==>schritt3
Func schritt4()
GUICreate("lan Setup", 500, 400)
GUICtrlCreateLabel("Setup ist Fertig, um abzuschließen bitte auf Beenden Klicken", 30, 10)
$weiterbutton = GUICtrlCreateButton("Beenden", 360, 365, 60)
$abbrechenbutton = GUICtrlCreateButton("Abbrechen", 430, 365, 60)
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $weiterbutton
Exit
Case $msg = $abbrechenbutton
$close = MsgBox(4, "Schliessen", "Möchtest du wirklich schliessen?")
If $close <> 7 Then
Exit
EndIf
Case $msg = $GUI_EVENT_CLOSE
$close = MsgBox(4, "Schliessen", "Möchtest du wirklich schliessen?")
If $close <> 7 Then
Exit
EndIf
ExitLoop
EndSelect
WEnd
EndFunc ;==>schritt4
